我用下面的代码实现:imgscan1.ShowSelectScanner;
if not imgscan1.ScannerAvailable then
imgscan1.OpenScanner;
imgscan1.StartScan;
imgscan1.CloseScanner;
if imgedit1.ImageDisplayed=true then
begin
imgedit1.SaveAs('photo.bmp');
end;但是imgedit1的ImageDisplayed属性一直为False
不知怎么设置一下呢?
if not imgscan1.ScannerAvailable then
imgscan1.OpenScanner;
imgscan1.StartScan;
imgscan1.CloseScanner;
if imgedit1.ImageDisplayed=true then
begin
imgedit1.SaveAs('photo.bmp');
end;但是imgedit1的ImageDisplayed属性一直为False
不知怎么设置一下呢?
解决方案 »
- 用Delphi 怎么从server2000导出dbf文件
- delphi 在添加数据库里的数据时.主键值让他自动生成并写到数据库里
- delphi 有什么 "输入框" 控件 可以实现 背景 渐变色 效果 (图) !!!!!!!!!!!!! 急!!!!!!!!!!!!!!!!!
- 大虾快进来,挑战难题,在线等待.
- 关于dbgrid下改变颜色的问题!!!
- 请问各位哪儿有凭证录入的控件下
- 怎样取一段字符串中的内容?
- 有日期型变量RQ值为02-10-26,怎样获取10和26字符,帮帮小弟吧
- 关于windows消息问题:::::wndproc(var msg:tmessage)在哪里??inherit怎样使用?...还有更多请进..!!!
- 请问各位大虾:opendalog可不可以打开WORD文档?
- 求分布式数据库的源码
- 关于TRealAudio控件的用法!
if imgscan.scanneravailable then
try
ImgScan.FileType := 3;//BMP格式
imgscan.image := 'C:\1.BMP';
ImgScan.PageOption := 0;
imgscan.startscan;
ImgScan.ScanTo := 2;
except
MessageDlg('您的外部设备没有打开,无法进行本次操作!' + chr(13) +
'请退出本管理系统,待扫描仪打开后再进入,即可使用!', mtInformation,
[mbOk],
0);
Abort;
end;
[email protected]
谢谢!
[email protected]
先谢了。