用kodak的 imgscan就可以啊。。。
if not imgscan1.ScannerAvailable then
begin
application.messagebox('扫描仪没有安装,请安装好后再用!',MB_OK+MB_ICONINFORMATION;
abort;
end;
aa:=imgscan1.openscanner ;
if aa=0 then
begin
application.messagebox('扫描仪没有准备好,请准备好后再用!',MB_OK+MB_ICONINFORMATION);
abort;
end;
aa:=imgscan1.OpenScanner;
aa:=imgscan1.ResetScanner ;
// aa:=imgscan1.ShowScanPage ;
// imgscan1.show;
imgscan1.ShowScanNew ;
pathname:=imgscan1.Image ;
if pathname='' then exit;
filename:=ExtractFileName(pathname);