Wia activex kullanarak scannerıma ulaşmaya çalıştım.Twain olamyan makinlardada problem yaşamak istemediğim için bu yöntemi denemek istiyorum.Yardımlarınızı bekliyorum.
Kod: Tümünü seç
procedure TForm1.Button1Click(Sender: TObject);
var
scan :TImageFile;
dia:TCommonDialog;
it:TDeviceManager;
sa:TImageProcess;
begin
scan:=TImageFile.Create(self);
dia:=TCommonDialog.Create(self);
it:=TDeviceManager.Create(self);
it:=dia.ShowSelectItems(?) ;
end;