PDA

View Full Version : مرجع یا نمونه کد اسکنر با استفاده از Twain_32.dll



sharpboy
چهارشنبه 31 فروردین 1384, 18:21 عصر
دوستان عزیز و گرامی

به راهنما یا منبعی برای استفاده از Twain_32.dll
در محیط VB نیازمند هستم.

با یک دنیا تشکر

بابک زواری
چهارشنبه 31 فروردین 1384, 19:44 عصر
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


انتخاب منبع


TWAIN_SelectImageSource (Me.hWnd)

اسکن کردن


Dim Ret As Long
Ret = TWAIN_AcquireToFilename(Me.hWnd, TxtFileName.Text)
If Ret = 0 Then
'If the scan is successful
PicScan.Picture = LoadPicture(TxtFileName.Text)
'Load the temporary picture file
Else
MsgBox "Scan not successful!", vbCritical, "Scanning"
End If

البته من از فایل TWAIN32d.dll استفاده میکنم اگر با فایل خودت جواب نداد
بهم بگو اونو بدم ولی فکر کتم یکی باشن

مردمجهول
یک شنبه 09 مهر 1385, 00:05 صبح
سلام
من این TWAIN32d.dll را لازم دارم و خیلی هم فوری!
مرسی!

yayan85
جمعه 14 مهر 1385, 14:12 عصر
سلام.این یک نمونه برنامه برای اسکن هست.فایل dll آن فرق داره.فقط اینکه عکس را توی حافظه نگه می داره.باید تغییر بدین و اول محتوای حافظه رو توی یک imageبیاری بعد اونو ذخیره کنی.

amirsadeghi
دوشنبه 24 مهر 1385, 12:24 عصر
لینک دانلود فایل dll رو هم میدین تا ما هم استفاده کنیم

yayan85
سه شنبه 25 مهر 1385, 12:54 عصر
تو برنامه که لینک کردم فایل DLLهم هست.

amirsadeghi
سه شنبه 25 مهر 1385, 20:28 عصر
اونو گرفتم ولی لینک دانلود TWAIN32d.dll رو می خوام
ممنون میشم

S_VB.max
سه شنبه 09 مهر 1387, 08:07 صبح
من با اسکنر فیدردار کار می کنم اما وقتی توی برنامه ام دکمه اسکن را می زنم فقط اولین برگه اسکن میشه ، چکار کنم تا بقیه برگه ها را هم به فایل تبدیل کنم؟
با تشکر

hamidi_77
چهارشنبه 08 آبان 1387, 11:17 صبح
دوستان من هم از همين ocx استفاده كردم و با اسكن چند صفحه مشكل دارم ميخوام با زدن دكمه اسكن تمامي صفحات اسكن بشه درخواست كمك دارم چون كارم خيلي گبره

Black_Strom
چهارشنبه 08 آبان 1387, 13:50 عصر
من دارم ولی فروشیه با سورس کامل و توضیحات انلاین و ...

Dr.Bronx
چهارشنبه 08 آبان 1387, 18:19 عصر
من دارم ولی فروشیه با سورس کامل و توضیحات انلاین و ...
مگه اينجا سايت وارز هست كه داري چيزي ميفروشي ؟؟

هم لينك dll و هم خود سورس به طور كامل در پيوست
موفق باشيد

hamidi_77
پنج شنبه 09 آبان 1387, 08:32 صبح
سلام دوست عزيز Dr.Bronex برنامه‌ات ناقص فرمش كمه اگه برنامه‌ات قابليت اسكن چند صفحه پشت سر هم توسط اسكنر فيدر دار داره خيلي خيلي ممنون ميشم برام بفرستي

hamed_F
پنج شنبه 09 آبان 1387, 11:09 صبح
سلام دوست عزيز
فايل ارسالي كامل نيست
لطفا 2باره ارسال كنيد

Black_Strom
پنج شنبه 09 آبان 1387, 12:03 عصر
راستی اگه کسی هست که تسلط داره ت بانک sql و وی بی مخصوصا تحت اینترنت خبرم کنه من احتیاج دارم بهش شاید یه پولی هم تهش باشه واسش ...
09359742972 -
هدفم تبلیغات نیست بلکه درخواست کمکه ...
------------------------------------------------------

hamidi_77
پنج شنبه 09 آبان 1387, 12:04 عصر
دوست عزيز Black_Strom اگه نرم افزارت قابليت اسكن چند صفحه‌اي داره exeبزار اينجا و قيمت سورشم بگو

Dr.Bronx
پنج شنبه 09 آبان 1387, 15:50 عصر
سلام دوست عزيز Dr.Bronex برنامه‌ات ناقص فرمش كمه اگه برنامه‌ات قابليت اسكن چند صفحه پشت سر هم توسط اسكنر فيدر دار داره خيلي خيلي ممنون ميشم برام بفرستي

تصحيح شد مجددا دانلود كنيد

hamidi_77
شنبه 11 آبان 1387, 11:06 صبح
دوست گرامي dr.bronex با تشكر از زحمتي كه كشيدي من ميخوام يه جوري باشه براي اسكن هر صفحه كاربر مجبور نباشه يه بار دكمه اسكن بزنه با زدن يه بار دكمه اسكن تمام صفحات داخل فيدر بطور اتوماتيك اسكن بشه اگه كسي ميتونه كمك كنه ممنون ميشم

hamidi_77
دوشنبه 13 آبان 1387, 10:22 صبح
كسي نيست كمك كنه

tdodangeh
سه شنبه 14 آبان 1387, 10:12 صبح
در این برنامه من می خواهم اسکن با پسوند tif دخیره شود و در برنامه در زمان فراخوانی باز شود اما امکان اسکن فقط با bmp وجود دارد

tdodangeh
چهارشنبه 15 آبان 1387, 11:10 صبح
آیا با استفاده از این برنامه می توان فایل را با پسوند pdf در مسیر خواستی ذخیره کرد و بعد فایل را باز کرد و مشاهده کرد، من فایل را با pdf ذخیره کردم اما وقتی می خواهم فایل را باز کنم پیغام خطا می دهد، که این فایل را نمی توان با این پسوند باز کرد

hamidi_77
پنج شنبه 16 آبان 1387, 08:22 صبح
Twain_32d.dll نسخه تريال اين dll مي‌باشد نسخه اصلي اين ابزار را مي‌زارم خيلي توپ فقط كرك نداره اگه كسي پيدا كرد بزاره همينجا همه ازش استفاده كنند

mahmood3d
چهارشنبه 06 آذر 1387, 18:44 عصر
فایل Twain_32d.dll رجیستر نمی شه در ضمن تو قسمت Refrence هم لود نمی شه .
از دوستانی که از این Dll استفاده کردن لطفا راهنمایی کنن .

Dr.Bronx
چهارشنبه 06 آذر 1387, 19:06 عصر
اون فايلي كه بنده گذاشتم رجيستر شده هست دوستان
من خودم استفاده كردم و هيچ مشكلي رو هم ندارم !

Dr.Bronx
چهارشنبه 06 آذر 1387, 19:08 عصر
دوست گرامي dr.bronex با تشكر از زحمتي كه كشيدي من ميخوام يه جوري باشه براي اسكن هر صفحه كاربر مجبور نباشه يه بار دكمه اسكن بزنه با زدن يه بار دكمه اسكن تمام صفحات داخل فيدر بطور اتوماتيك اسكن بشه اگه كسي ميتونه كمك كنه ممنون ميشم
خوب ببين
زمان اسكن كردن مشخصه !
يعني مثلا 15 ثانيه طول مي كشه
حالا شما يه تايمر مي زاري كه هر 20 سانيه عمل اسكن رو به دستگاه ارسال كنه
5 سانيه براي اينكه كاربر بتونه برگه هارو جابجا كنه
يك كليد Stop هم ميزاري براي نگه داشتن اين عمل كه Timer رو Disable مي كنه

tamizi2
پنج شنبه 07 آذر 1387, 00:48 صبح
دکتر جان از بابت برنامه ممنون
در ضمن سانیه غلطه !! درستش ثانیه است .

Dr.Bronx
پنج شنبه 07 آذر 1387, 02:37 صبح
يعني مثلا 15 ثانيه طول مي كشه
حالا شما يه تايمر مي زاري كه هر 20 سانيه عمل اسكن رو به دستگاه ارسال كنه
خواهش مي كنم
ولي اشتباه تايپي بوده جمله اول ثانيه است ...

mahmood3d
پنج شنبه 07 آذر 1387, 17:58 عصر
دوستان من مشکلم تو برنامه نویسی نیست . اصلا خود فایل ها روی ویندوز رجیستر نمی شن. من برای رجیستر کردن فایل ها از دستور زیر استفاده می کنم :


regsvr32 Twain_32d.dll

mahmood3d
پنج شنبه 07 آذر 1387, 17:59 عصر
در ضمن تو لود کردن تو قسمت Reference هم خطا می گیره

Dr.Bronx
پنج شنبه 07 آذر 1387, 18:49 عصر
من الان توي سيستم خودم كه نگاه مي كنم اسم فايل اينه
TWAIN32d.dll
در ضمن شما چك كنيد ببينيد توي system32 كپي شده يا نه..
ااااااااااا
منو نگو چه ساده گوش دادم به حرفتون
بابا اين Dll هست نه ocx
عجب ها !!!

mahmood3d
شنبه 09 آذر 1387, 09:15 صبح
من قبلا فایل DLL تاریخ شمسی رو رجیستر کردم و بدون هیچ مشکلی رجیستر شد .
در ضمن من فایل رو به سیستم 32 هم کپی کردم ولی باز هم توی Refrence ها لود نمی شه تا من استفاده کنم .

s_ahmadneya
شنبه 09 آذر 1387, 09:29 صبح
در این برنامه من می خواهم اسکن با پسوند tif دخیره شود و در برنامه در زمان فراخوانی باز شود اما امکان اسکن فقط با bmp وجود دارد
بروبه پست 170 برنامه کانورت نوع عکس ها به هم د رلینک زیر
http://barnamenevis.org/forum/showthread.php?t=64210&page=17

mahmood3d
جمعه 15 آذر 1387, 15:55 عصر
سلام
من با استفاده از فايل Twain32.dll يك برنامه نوشتم كه يك فايل رو اسكن كنه ولي وقتي برنامه شروع به اسكن مي كنه و وقتي Progressbar مربوط به اسكن تموم ميشه كد مربوط به اسكن نشدن تصوير اجرا ميشه .
لطفاً راهنمايي كنيد

Dr.Bronx
جمعه 15 آذر 1387, 16:10 عصر
كدي كه استفاده كرديد رو اينجا قرار بديد تا بررسي بشه

mahmood3d
جمعه 15 آذر 1387, 18:26 عصر
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
انتخاب منبع


TWAIN_SelectImageSource (Me.hWnd)اسکن کردن


Dim Ret As Long
Ret = TWAIN_AcquireToFilename(Me.hWnd, TxtFileName.Text)
If Ret = 0 Then
'If the scan is successful
PicScan.Picture = LoadPicture(TxtFileName.Text)
'Load the temporary picture file
Else
MsgBox "Scan not successful!", vbCritical, "Scanning"
End Ifالبته من از فایل TWAIN32d.dll استفاده میکنم اگر با فایل خودت جواب نداد
بهم بگو اونو بدم ولی فکر کتم یکی باشن

از اين تكه برنامه ها استفاده كردم

mahmood3d
شنبه 16 آذر 1387, 10:46 صبح
البته به جاي txtFilename.Text عبارت APP.Path &"pic/" & text1.text & ".jpg" رو نوشتم .

mahmood3d
شنبه 16 آذر 1387, 20:23 عصر
دوستان مشکلم برطرف شد . یه اسلش (/) کم گذاشته بودم به خاطر اون بود .
ببخشید به شما هم زحمت دادم

Dr.Bronx
شنبه 16 آذر 1387, 21:07 عصر
خدا رو شكر
چون من يه ساعته دارم نگاه مي كنم اشكالي نمي بيم
اشكال جاي ديگه بوده
به هر حال موفق باشيد