delphi Dspack 分辨率 USB摄像头 保存

procedure TForm1.FormCreate(Sender: TObject);

var

i: integer;

begin

  // 读取系统中的视频输入设备

  SysDev:= TSysDevEnum.Create(CLSID_VideoInputDeviceCategory);

  if SysDev.CountFilters > 0 then

  for i := 0 to SysDev.CountFilters - 1 do

  begin

    Listbox1.Items.Add(SysDev.Filters[i].FriendlyName)

   end;

end;

procedure TForm1.ListBox1Click(Sender: TObject); //选择摄像头

begin

  FilterGraph1.ClearGraph;

  FilterGraph1.Active := false;

  //设filter为所选视频输入设备

  Filter1.BaseFilter.Moniker := SysDev.GetMoniker(Listbox1.ItemIndex);

  FilterGraph1.Active := true;

  // 打开所选的视频输入设备

  with FilterGraph1 as ICaptureGraphBuilder2 do

   // RenderStream(@PIN_CATEGORY_PREVIEW, nil, Filter1 as IBaseFilter, nil, VideoWindow1 as IbaseFilter);

     RenderStream(@PIN_CATEGORY_PREVIEW, nil, Filter1 as IBaseFilter, SampleGrabber1 as IBaseFilter, VideoWindow1 as IbaseFilter);

   // 显示出来

  FilterGraph1.Play;

end;

procedure TForm1.suiButton1Click(Sender: TObject);  //拍照保存

var

  ABitmap: TBitmap;

  AJpgmap: TJPEGImage;

  photo: string;

begin

  photo :=label3.Caption+'-'+FormatDateTime('hh', Now)+FormatDateTime('nn', Now)+FormatDateTime('ss', Now);

  photo :=label4.Caption+photo+'.jpg';

  label5.Caption:=photo;

 // photo:=ExtractFilePath(Application.ExeName)+'photo\'+photo+'.jpg';

  ABitmap := TBitmap.Create;

  AJpgmap := TJPEGImage.Create;

  try

   // SampleGrabber1.GetBitmap(ABitmap);

    SampleGrabber1.GetBitmap(Image1.Picture.Bitmap);

   // AJpgmap.Assign(ABitmap);

   AJpgmap.Assign(Image1.Picture.Bitmap);

    AJpgmap.SaveToFile(photo);

   Image1.Picture.LoadFromFile(photo);

  finally

    ABitmap.Free;

    AJpgmap.Free;

  end;

end;