靖源图像扫描activex控件(webtwain)

适用于ie内核的浏览器，控件使用前要先注册。双击[RegOcx.exe],注册activex控件。 注册后，建议用ie浏览器进行测试，没问题了后，再在其他浏览器上测试。如果浏览器权限不足，控件不显示，请降低浏览器安全级别后，关掉浏览器，重新打开再进行测试。 test.htm是测试脚本,JYWebTwain.ocx是控件,RegOcx.exe是控件注册程序，webtwain.jpg是控件网页运行截图,webtwain_delphi.jpg是delphi示例运行截图。 1.procedure init(); safecall; 控件初始化，应该放到开始部分执行 2.procedure AboutBox; 关于窗口 3.procedure SetRegisterId(const UserId: WideString); 注册控件，注册后，扫描图像就没有米字水印了 4.function GetScanerCount:integer; safecall; 获取扫描仪个数 5.function GetScanerName(index: integer): widestring; safecall; 得扫描仪名称,index=-1获取所有名称 6.function GetDefaultScaner:OleVariant; safecall; 得缺省扫描仪序号 7.function GetSelectedScaner:OleVariant; safecall; 得当前扫描仪序号 8.function SetSelectedScaner(index:integer):wordbool; safecall; 设置当前扫描仪 9.function SetSelectedScanerByName(name:widestring):wordbool; safecall; 设置当前扫描仪 10.function GetScanerDuplexSupported:wordbool; safecall; 得当前扫描仪是否支持双面扫描 11.procedure SetJpegQuality(Quality:integer); 设置jpeg质量，1--100，默认80 12.procedure SetTiffCompression(Compression:integer); 设置tiff压缩方式，0--不压缩，1--ccitt1d,2--c3fax1d,3--g3fax2d,4--g4fax,5--lzw,6--jpeg,7--packbits,8--zip,9--deflate，默认lzw 13.procedure SetDpi(dpi:double); 设置dpi,缺省200 14.procedure SetThreshold(Threshold:integer); 设置二进制阈值,缺省128,0--255 15.procedure SetBrightness(value:integer); 设置亮度,缺省0,-100--100 16.procedure SetContrast(value:integer); 设置对比度,缺省0,-100--100 17.procedure SetPageSize(pagesize:integer;width,height:double); 设置纸张大小,缺省0,pagesize=0 a4,pagesize=1 a3,pagesize=-1 按width,height设置，英寸 18.procedure SetRotateAngle(Angle:double); 图像扫描后旋转角度，默认不启用 19.procedure DeleteBlackFrame(size:double); 图像扫描后去黑边，size单位为毫米，默认不启用 20.procedure FormatImageSize(value:wordbool); 图像扫描后，扫描图像大小可能和设置的不一样，此函数设置后，把扫描图像统一到指定大小,默认不启用 21.function DoScan(tool:wordbool;fn1,fn2:widestring;PixelType:integer;fn3,fn4:widestring;Vertical:wordbool):wordbool; safecall; 扫描图像,如果fn2不空，就是双面扫，输出jpg/tif格式，按后缀名,PixelType=0黑白,1--灰度，2--彩色 tool=true,使用外部工具进行扫描，解决有些扫描仪连续扫描内存不足的问题 如果fn3不为空，分割第1页图片，存到fn1,fn3 如果fn4不为空，分割第2页图片,存到fn2,fn4 Vertical=true,纵向分割；Vertical=false,横向分割 22.function DoScan2(tool:wordbool;path:widestring;PixelType:integer;index,fnlength,filetype,Interval:integer;Duplex, HighSpeedScanner: WordBool;split:integer):wordbool; safecall; 连续扫描图像,输出jpg/tif格式，按后缀名,PixelType=0黑白,1--灰度，2--彩色,Duplex--双面扫描 HighSpeedScanner=高扫,filetype文件类型，0默认，0==tif,1==jpg,Interval扫描间隔(毫秒) tool=true,使用外部工具进行扫描，解决有些扫描仪连续扫描内存不足的问题 split=0不分割图片，split=1横向分割，split=2纵向分割 23.function GetLastErrorMsg:widestring; 得出错信息 24.function GetScanState2:wordbool; 连续扫描时，看否是正在扫描 25.function GetScanFileCount:integer; 得连续扫描图像数,连续扫描完毕后调用 1个图片分割，按2个统计 26.function GetImageIndex:integer; 得连续扫描图像后序号,连续扫描完毕后调用 27.procedure StopScan; 停止连续扫描 28.function ShowScanWindow:wordbool; 显示扫描对话框 29.function SplitImage(fn,fn1,fn2:widestring;Vertical:wordbool):wordbool; 把1个图片切割为2个，Vertical=true,纵向；Vertical=false,横向 30.procedure SetDisplayMode(hideCopyRight: WordBool); hideCopyRight=true,隐藏注册输入框，关于按钮，扫描仪下拉框，注册信息；hideCopyRight=false,显示注册输入框，关于按钮，扫描仪下拉框，注册信息 31.function SelectDir(title:widestring; default_path:widestring;cancreate:wordbool):widestring; 选择目录,未选择返回空 2018.05.25 qq:171833017 关于控件的说明 1.关于控件的绑定 本控件绑定控件所在网址的主域名(或ip地址)，如：注册的域名为.dxmylove.com,那控件就只能运行在.dxmylove.com的子域名下，在其他域名下使用，即使注册序列号正确，也不能正常使用。一个注册用户对应一个主域名(ip)。 2.由于win7/8下安全级别较高，不要保存在c:\ 3.测试时，最好点html里生成的按钮，如果直接点activex里面的，javascript里设置的参数可能不起作用 4.仅支持ie内核浏览器 5.对控件用数字证书进行数字签名，能降低控件对浏览器安全级别的要求，具体操作，请自行网上搜索。 更新列表 2018.05.25 发布1.0版