mohammadsaleh
یک شنبه 20 آبان 1386, 11:16 صبح
http://www.barnamenevis.org/forum/images/icons/icon5.gifدوستان با کد زیر با استفاده از کتابخانه twain32d.dll ; که ضمیمه می باشد می توان تصویر مورد نظر را به صورت bmp با استفاده از دستگاه اسکنر تصویر برداری و به صورت یک تصویر ذخیره کرد . می خوام بدونم که برای اینکه یک سند با چند صفحه را بخوام به صورت pdf یا tiff تصویر برداری کنم در قسمت تعاریف کد چه چیزی را باید تعریف و از کدام تابع این dll استفاده کنم تا موقع تصویر برداری فایل به صورت pdf اسکن بشه . با تشکر . منتظر کمک دوستان می باشم.
Option Compare Database
Private Declare Function TWAIN_AcquireToFilename Lib "TWAIN32d.DLL" (ByVal hwndApp As Long, ByVal bmpFileName As String) As Integer
Private Declare Function TWAIN_IsAvailable Lib "TWAIN32d.DLL" () As Long
Private Declare Function TWAIN_SelectImageSource Lib "TWAIN32d.DLL" (ByVal hwndApp As Long) As Long
Private Sub cmdScan_Click()
Dim Ret As Long, PictureFile As String
PictureFile = Application.CurrentProject.Path & Me.ID & "image.jpg"
Ret = TWAIN_AcquireToFilename(Me.hwnd, PictureFile)
If Ret = 0 Then
Me.pic_path = PictureFile
Me.pic.Picture = Me.pic_path
Else
Kill PictureFile
MsgBox "ÇäÌÇã äÔÏ"
End If
End Sub
Private Sub cmdSelect_Click()
TWAIN_SelectImageSource (Me.hwnd)
End Sub
Option Compare Database
Private Declare Function TWAIN_AcquireToFilename Lib "TWAIN32d.DLL" (ByVal hwndApp As Long, ByVal bmpFileName As String) As Integer
Private Declare Function TWAIN_IsAvailable Lib "TWAIN32d.DLL" () As Long
Private Declare Function TWAIN_SelectImageSource Lib "TWAIN32d.DLL" (ByVal hwndApp As Long) As Long
Private Sub cmdScan_Click()
Dim Ret As Long, PictureFile As String
PictureFile = Application.CurrentProject.Path & Me.ID & "image.jpg"
Ret = TWAIN_AcquireToFilename(Me.hwnd, PictureFile)
If Ret = 0 Then
Me.pic_path = PictureFile
Me.pic.Picture = Me.pic_path
Else
Kill PictureFile
MsgBox "ÇäÌÇã äÔÏ"
End If
End Sub
Private Sub cmdSelect_Click()
TWAIN_SelectImageSource (Me.hwnd)
End Sub