哪位大侠有个现成的扫描程序!

[huangpin]

我现在急等着一个扫描程序,功能:直接从扫描仪中把扫描的图象保存,再以二进制形式保存到ACCESS的OLE对象中,然后从窗体中读出来,高分!!!

[xmao]

扫描程序到是有。。但不是一句两句能说清的。。用leadtools或kofax控件。。

[huangpin]

有谁知道,请把源程序发E-mail:[e-mail].

[junglerover]

这个有什么说不清楚的，看我的程序

TempFileName="C:\1.tif"

Private Sub cmdScan_Click()
On Error GoTo Err_Process
isnScan.Image = TempFileName

If chkShowWindow.Value = vbChecked Then
isnScan.ShowSetupBeforeScan = True
Else
isnScan.ShowSetupBeforeScan = False
End If

Call isnScan.StartScan

ImgOptWin1.Load (TempFileName)

Set picTarget.Picture = ImgOptWin1.Picture
On Error GoTo 0
Exit Sub

Err_Process:
Msg ERR.Description
End Sub
这里面用到几个控件：
imgScan是KODAK IMAGE SCAN CONTROL，ImgOptWin1是一个网上下载的免费
控件，叫Image Optimizer，之所以用它是因为我发现KODAK IMAGE SCAN存
出来的图像（TIF）直接LOADPICTURE不进来，所以用这个东东转一下。
PICTARGET就是用来显示扫描后图象的PICTUREBOX。
CHKSHOWWINDOW 是一个复选框。

[fishzone]

我用的是win98/2000自带的imgscan.ocx 和 imgedit.ocx 控间，如果对方的机器
是98或者2000，打包的时候可以不带这两个控间。98+vb6,2000+vb6调试通过，源程序
已经发给你了。

[huangpin]

阿鱼：
你发给我的e_mail我已经收到，我是要再以二进制形式保存到ACCESS的OLE对象中,然后从窗体中用Image、Picutre控件来读出来，好象*.tif不能存入数据库吧，请附一份说明吧，如能解决问题，我愿给你100分，谢谢！