（200分送上！！！）谁用过柯达的那几个ocx控件，控制过扫描仪？

flyforlove 2004-04-21 10:30:19

网上流传的那个例子太简单了，
谁在这方面做过详细的控制，或者有帮助也可以，
200分送上！！！

...全文

129 12 打赏收藏转发到动态举报

写回复

用AI写文章

12 条回复

切换为时间正序

请发表友善的回复…

发表回复

jinghonginfo 2004-04-28

打赏
举报

扫描时，按扫描仪支持的最大幅面扫描，一般来说，超出纸张范围的部分是黑背景，然后用ImgEdit将黑边去掉即可

jinghonginfo 2004-04-28

打赏
举报

ImgScan\ImgEdit的帮助文件我有 QQ:79425403

flyforlove 2004-04-26

打赏
举报

↑

flyforlove 2004-04-23

打赏
举报

to shinyv(看谁理我)
谢谢你的代码，这些我都找到了，
但是最主要的事，这个控件是收费的，
要么就买一套，要么就不用，
用破解是绝对不允许的，
不过还是很感谢你。

flyforlove 2004-04-22

打赏
举报

to tanqth(青蛙)
我知道如果打开了控制面板，可以设置各种参数，
但是我写的程序是为普通用户用的，而且扫描进来的文件各方面的格式都是固定的，
所以必须在程序里设置，用户只管扫描就可以了。

shinyv 2004-04-22

打赏
举报

用imageen，你的6个要求都可以很方便的实现，
1、设置解析度
// Acquire with 100 DPI (if supported by scanner)
ImageEnIO1.YResolution.CurrentValue:=100;
ImageEnIO1.XResolution.CurrentValue:=100;
2、设置扫描范围
// Acquires the 2,2,7,7 rectangle without display scanner dialog
ImageEnIO1.TWainParams.AcquireFrameTop:=2;
ImageEnIO1.TWainParams.AcquireFrameLeft:=2;
ImageEnIO1.TWainParams.AcquireFrameRight:=7;
ImageEnIO1.TWainParams.AcquireFrameBottom:=7;
3、二值化
ImageEnProc1.ConvertToBWThreshold(128);
ImageEnview1.IO.Params.BitsPerSample:=1;
ImageEnview1.IO.Params.SamplesPerPixel:=1;
4、保存
ImageEnview1.IO.SaveTofileBMP('c:\test.bmp');
还有很多的参数，我也没有用过，控制扫描仪，我觉得用ImageEN是比较方便的，不妨一试。

tanqth 2004-04-22

打赏
举报

其实，你要的功能就用网上那个就行了，因为在扫描前你可以通过扫描仪控制面板对你扫描的图像进行控制，如分辨率、色彩、图像大小、位置、比例等。
转换为PDF，好像有一个控件，我没用过。

aiirii 2004-04-21

打赏
举报

http://codecentral.borland.com/codecentral/ccweb.exe/listing?id=20786

tanqth 2004-04-21

打赏
举报

那你得说说你要用到什么了，网上那个我也用过了。

aiirii 2004-04-21

打赏
举报

有人想要，但，好象網上討論的不多！
只有一個源碼，應該就是你有的那個了

flyforlove 2004-04-21

打赏
举报

这分没人要么？

flyforlove 2004-04-21

打赏
举报

我的要求是这样的，
1.通过程序控制把一张A4的纸扫描进来
2.设置成黑白二值（为OCR用）
3.能设置解析度（我对图像不熟悉，解析度就是控制扫描进来文件的长宽吧）。
4.因为扫描进来以后会有空白（扫描仪不是正好A4大小的），要能截取源文件的部分。
5.保存这个图像。
6.这些都是后台运行的，也就是说，不要看到扫描进来的图像。

不知道我说清楚了没有，我对图像部分不熟，况且，这几个控件连帮助文件都没有，
真不知道该怎么控制。

另外，如果两位知道怎么把扫描进来的图像格式转换为PDF的话，还请不吝赐教。

谢谢了。