关于佳能扫描仪的程序控制问题(50分)

X

xt2002xt

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-02-09

• #1

我在全文搜索里找到了控制扫描仪的原码
imgedit1.zoom:=100;
if not imgscan1.ScannerAvailable then

imgscan1.OpenScanner;
imgscan1.StartScan;
imgscan1.CloseScanner
但是为何不能控制我的扫描仪？总是在imgscan1.OpenScanner;的时候，出现错误，连程序都不能关闭？请富翁帮慢解决

 

K

kaoleoloi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-02-11

• #2

帮顶！

╭=========================================╮

80G海量源代码,控件，书籍全免费狂下不停！

http://www.source520.com

╰=========================================╯

 

X

xuxiaohan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-02-11

• #3

我在全文搜索里找到了控制扫描仪的原码

现在已经不这样用了，用delphiTwain。

 

X

xt2002xt

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-02-12

• #4

能给个列子吗?我使用的是DELPHI 6.0的

 

X

xuxiaohan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-02-14

• #5

我的程序里面copy出来的。
procedure TFrAppFormInput.scanPicture(Sender: TObject);
var
SelectedSource: integer;
i: integer;
begin

try
for i:= 0 to pnLeft.ControlCount-1do
pnLeft.Controls.Enabled:=false;
SetButtonEnable(false);
application.ProcessMessages;
if Twain.LoadLibrary then

begin

Twain.SourceManagerLoaded := TRUE;
SelectedSource:=TfmSelectDevice.selectDeviceIndex(Twain);
if SelectedSource <> -1 then

begin

{Load source, select transference method and enable (display interface)}
Twain.Source[SelectedSource].Loaded := TRUE;
Twain.Source[SelectedSource].TransferMode := ttmMemory;
Twain.Source[SelectedSource].Enabled := TRUE;
end {if SelectedSource <> -1}
end
else

MessageBox(handle, '没有安装TWain驱动程序，请联络系统管理员... ',
'提示', MB_ICONINFORMATION);
finally
DataSource1StateChange(nil);
for i:= 0 to pnLeft.ControlCount-1do
pnLeft.Controls.Enabled:=true;
end;

end;

 

X

xt2002xt

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-02-16

• #6

请问你引用的TWAIN是控件还是TWAIN.PAS？我也有个TWAIN.PAS 但是没你的这些函数的呀？

 

X

xuxiaohan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-02-17

• #7

是DelphiTwain.pas

 

X

xt2002xt

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-03-01

• #8

我下载过来的DelphiTwain总是编译不过，能否将你的这个文件发我个？我是DELPHI 6.0+WIN2000的，谢谢！

 

X

xuxiaohan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-03-08

• #9

给出Email 我传给你。

 

X

xt2002xt

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-03-08

• #10

kyx@sinotrans-wz.com 谢谢！

 

X

xt2002xt

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-04-02

• #11

能发我吗？都等待一个月了哦！谢谢

 

X

xuxiaohan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-04-05

• #12

邮件已经发啦，请查收

 

X

xt2002xt

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-04-08

• #13

谢谢！已经收到了！研究先！