Where can I find sample code for WIA use? I have imported "Microsoft Windows Image Acquisition 1.01 Type Library" using the Project / Import Type Library menu option. The file WIALib_TLB.pas was created automatically.
I can get a list of cameras attached to my PC by doing:
procedure TForm1.FormCreate(Sender: TObject); var I: Integer; Dev: IWiaDeviceInfo; begin wia.Connect; Caption := IntToStr(wia.Devices.Count); lb.Items.Clear; for I := 0 to wia.Devices.Count - 1 do begin Dev := wia.Devices.Item[I] as IWiaDeviceInfo; lb.Items.Add(Dev.Name + ' (' + Dev.Id + ')'); end; end;
where lb is a TListBox and wia is a TWia.
How can I enumerate photos from a camera and then import those photos?