Article

From:
To:
All
Subject:
WIA (Windows Image Acquisition)
Newsgroup:
borland.public.delphi.oleautomation

WIA (Windows Image Acquisition)

Hi,

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?
Thanks, Luis
FYI: Phrase searches are enclosed in either single or double quotes
 
 
Originally created by
Tamarack Associates
Sat, 03 Dec 2022 23:21:31 UTC
Copyright © 2009-2022
HREF Tools Corp.