关于佳能扫描仪的程序控制问题 找电脑管理软件
imgedit1.zoom:=100;
if not imgscan1.ScannerAvailable then
imgscan1.OpenScanner;
imgscan1.StartScan;
imgscan1.CloseScanner
但是为何不能控制我的扫描仪？总是在imgscan1.OpenScanner;的时候，出现错误，连程序都不能关闭？请富翁帮慢解决
2楼: 帮顶！
╭=========================================╮
80G海量源代码,控件，书籍全免费狂下不停！
http://www.source520.com
╰=========================================╯ 如管理软件开发
3楼: 我在全文搜索里找到了控制扫描仪的原码
现在已经不这样用了，用delphiTwain。
4楼: 能给个列子吗？我使用的是DELPHI 6.0的
5楼: 我的程序里面copy出来的。
procedure TFrAppFormInput.scanPicture(Sender: TObject);
var
SelectedSource: integer;
i: integer;
begin
try
for i:= 0 to pnLeft.ControlCount-1 do pnLeft.Controls[i].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-1 do pnLeft.Controls[i].Enabled:=true;
end;
end;
6楼: 请问你引用的TWAIN是控件还是TWAIN.PAS？我也有个TWAIN.PAS 但是没你的这些函数的呀？
进销存软件版7楼: 是DelphiTwain.pas
8楼: 我下载过来的DelphiTwain总是编译不过，能否将你的这个文件发我个？我是DELPHI 6.0+WIN2000的，谢谢！
9楼: 给出Email 我传给你。
10楼: kyx@sinotrans-wz.com 谢谢！
11楼: 能发我吗？都等待一个月了哦！谢谢
12楼: 邮件已经发啦，请查收 如电脑管理软件
13楼: 谢谢！已经收到了！研究先！
联系我们
