吐血求 扫描仪控制源码/思路?

Question

1.已经將ACTIVEX控件加進去。(Kodak image系列)
2﹑imgscan1.ShowSelectScanner;
  if not imgscan1.ScannerAvailable then
  imgscan1.OpenScanner;
  imgscan1.StartScan;
  imgscan1.CloseScanner;
  if imgedit1.ImageDisplayed=true then
  begin
    imgedit1.SaveAs('photo.bmp');
  end;
3.如何能在程序中把扫描的图片存为jpg格式，并存到DBImage字段中去？
4.本人用的d7 +sqlserver2000 /win2000，有无其它的方法?

Answer 1

imgscan1.ShowSelectScanner;
  if not imgscan1.ScannerAvailable then
  imgscan1.OpenScanner;
  imgscan1.StartScan;
  imgscan1.CloseScanner;
  if imgedit1.ImageDisplayed=true then
  begin
    imgedit1.SaveAs('photo.jpg');
  end;var v_jpeg:tjpegimage;v_jpeg:=tjpegimage.create;
v_jpeg.loadfromfile('photo.jpg');
table1.edit;
table1.fields['字段名'].assign(v_jpeg);
table1.post;

Answer 2

这样效率不高，建议你看看TWAIN接口,KODAK所有扫描仪（包括最新的I800和I200系列）都是支持TWAIN标准，记得有一个SHOWUI接口可以显示出扫描仪设置界面。

Answer 3

JPEG error #53,并且if imgedit1.ImageDisplayed=true then
  begin
    imgedit1.SaveAs('photo.jpg');
  end;
保存的图片在IE中都不能正常显示?

Answer 4

看看这个，对你也许有帮助
http://cnprogram.myrice.com/article/delphi/delphi127.html