كيفية سحب صورة بالاسكانر من خلال البرنامج الخاص بي عن طريق مكتبة TWAIN32d

السلام عليكم ورحمة الله وبركاتة

الموضوع  : كيفية سحب صورة بالاسكانر من خلال التطبيق الخاص بنا

سنشرح من خلال المثال التالي

 يجب وضع مكتبة  TWAIN32d.dll في الدريف الخاص بالسيستم
الكود التالي نقوم بوضعة تحت الفورم التي سنقوم بعمل اسكان منها في منطقة التصريحات العامة

Private Declare Function TWAIN_AcquireToFilename Lib "twain32d.dll" (ByVal hwndapp As Long, ByVal bmpfilename As String) As String

Private Declare Function TWAIN_IsAvailable Lib "twain32d.dll" () As Integer

Private Declare Function TWAIN_SelectImageSource Lib "twain32d.dll" (ByVal hwndapp As Long) As Long

ثم تحت مفتاح  Scan نقول الكود التالي

Dim s As Integer

s = TWAIN_IsAvailable

If s = 0 Then

    MsgBox "Unable to find scanner"

    Exit Sub

End If

Dim i As Long

i = TWAIN_SelectImageSource(Me.hWnd)

If i = 0 Then

    MsgBox "no twain source manegr"

    Exit Sub

End If

Dim r As String

r = TWAIN_AcquireToFilename(Me.hWnd, App.Path & "\1.jpg")

نقوم بتشغيل المشروع

 نقوم بالضغط علي مفتاح  Scan

نحدد الاسكانر

 نضغط علي  Scan

وبكدا نكون اتعرفنا علي كيفية اخذ صورة من الاسكانر عن طريق البرنامج الخاص بنا

منتظر استفسارتكم

بالتوفيق

Posted in: Scanner