WIA 2 в Windows 7 не обнаруживает мою камеру, а WIA 1 в Windows XP ее обнаруживает.
Я пытаюсь запустить свою программу от имени администратора.
Моя камера:
Веб-камера Asus usb2.
Delphi возвращает сообщение:
(как это) недоступно ни одно устройство wia из указанного типа
or
Нарушение прав доступа по адресу ...... в модуле ......
Я использую этот код:
procedure TForm1.Button9Click(Sender: TObject);
Const
wiaFormatBMP ='{B96B3CAB-0728-11D3-9D7B-0000F81EF32E}';
var
CommonDlg: ICommonDialog;
AImage: IImageFile;
ImagePath: String;
DeviceManager1 :iDeviceManager;
begin
CommonDlg := createOleObject('WIA.CommonDialog') as ICommonDialog;
DeviceManager1 := createOleObject('WIA.DeviceManager') as iDeviceManager;
edit1.Text:= inttostr( DeviceManager1.DeviceInfos.Count);
AImage := CommonDlg.ShowAcquireImage(UnspecifiedDeviceType,UnspecifiedIntent,
MaximizeQuality,wiaFormatBMP,true,False,True);
ImagePath := 'C:\temp\test.bmp';
AImage.SaveFile(ImagePath);
end;
if not VarIsEmpty(Variable) then Variable.DoSomething
, прежде чем вы получите доступ к переменной интерфейса с поздней привязкой (она может быть неопределенной или находиться в каком-то ошибочном состоянии). - person TLama   schedule 06.05.2012