X
xiniu79
Unregistered / Unconfirmed
GUEST, unregistred user!
在Delphi中调用twain.dll的什么方法可以对高速扫描仪的高速扫描进行选择和操作啊!
哪个函数是关键呀!难道人能告诉我吗?
//扫描
Procedure TForm1.ScanImg;
begin
scanner.OpenScanner;
if not Scanner.ScannerAvailable then
begin
MessageBox(Handle,'扫描仪没准备好','警告',MB_OK+MB_ICONWARNING);
Exit;
end
else
try
begin
Scanner.Image:=ExtractFilePath(application.Name)+'99.bmp';
scanner.zoom:=100;
Scanner.StartScan;
Application.ProcessMessages;
end;
finally
Scanner.CloseScanner;
Image1.AutoSize:=true;
Image1.Top:=(Scrollbox1.Height-Image1.Height) div 2;
Image1.Left:=(Scrollbox1.Width-Image1.Width) div 2;
Image1.AutoSize:=false;
end;
end;
这只能操作平板的,对ADF怎么办哪?希望做过这方面的兄弟相告!!!
手上只有40,以后再加!
哪个函数是关键呀!难道人能告诉我吗?
//扫描
Procedure TForm1.ScanImg;
begin
scanner.OpenScanner;
if not Scanner.ScannerAvailable then
begin
MessageBox(Handle,'扫描仪没准备好','警告',MB_OK+MB_ICONWARNING);
Exit;
end
else
try
begin
Scanner.Image:=ExtractFilePath(application.Name)+'99.bmp';
scanner.zoom:=100;
Scanner.StartScan;
Application.ProcessMessages;
end;
finally
Scanner.CloseScanner;
Image1.AutoSize:=true;
Image1.Top:=(Scrollbox1.Height-Image1.Height) div 2;
Image1.Left:=(Scrollbox1.Width-Image1.Width) div 2;
Image1.AutoSize:=false;
end;
end;
这只能操作平板的,对ADF怎么办哪?希望做过这方面的兄弟相告!!!
手上只有40,以后再加!