基本信息

---

下载

   友情提示：（无需注册或充值，赞助后即可获取资源下载链接）

---

     嘿，亲！知识可是无价之宝呢，但咱这精心整理的资料也耗费了不少心血呀。小小地破费一下，绝对物超所值哦！如有下载和支付问题，请联系我们QQ(微信同号)：813200300

本次赞助数额为： 5 元　

支付宝支付

微信支付

   源码介绍

---

Delphi环境下利用TWAIN实现对扫描仪的控制

procedure TForm1.Button1Click(Sender: TObject);
begin
  if loaddsm then
  begin
     isdsmopen:=opendsm;
     if isdsmopen then
         if  selds then
         begin
             isdsopen:=opends;
             if isdsopen then
             begin
                 label1.Caption :='应用程序可接收的图片数量为：' inttostr(getinfo);
                 enableds;
             end;
         end;
  end;
end;