فارسی و کامل کردن برای کار با اسکنر

[salehsam]

سلام دوستان
یه فایل از همین تالار گرفتم برای کار با اسکنر
ولی عربی هستش
کسی از دوستان میتونه فارسی و کاملش کنه
ممنون

[mehdi_fiz]

سلام دوست عزیز
یا نمونه فایل رو آپلود کنید و یا لینک فایل رو قرار بدید تا دوستان شما رو بهتر بتونن راهنمایی کنن
موفق باشید

[salehsam]

آخ ببخشید یادم رفت آپ کنم
ممنون

[RESMAILY]

به نام خدا
با سلام فايل MSPSCAN.EXE در خود برنامه هاي ماكروسافت هست و نيازي به چيزي ندارد. شما آدرس آن را كه معمولا در يك همچين جايي است پيدا كن (همين اسم را در قسمت جستجو قراردهيد و اگر آفيس داشته باشيد احتمالا و حداقل دو كپي از آن به همرا dll مربوطه روي سيستم شما بايد باشد)
C:\Program Files\Common Files\Microsoft Shared
و با فرمان shell آن را اجرا كنيد. به همين راحتي!

[salehsam]

دوست عزیز
ممکنه کمی بیشتر توضیح بدین؟
آیا میشه فایل رو راحت لینک داد؟ مثلا برای فرمی که کارت پرسنلی رو نشون میده؟

[RESMAILY]

به نام خدا
با سلام. چرا نشود؟ وقتي شما اسكنر داشته باشيد. بعد يا قبل از اسكن از شما محل ذخيره را مي پرسد. همين آدرس را در فيلد مربوطه ثبت فرماييد. مثلا پيش فرض اسكنر را روي فولدري كه برنامه تان نصب است قرار دهيد. نام فايل اسكن شده هم كه در اختيار شماست. لذا؟

[salehsam]

من تو ویندوز 7 و آفیس 2007 دنبال این فایل گشتم چیزی پیدا نکردم ...
ممنون

[Younestalebi]

توی آفیس 2007 دنبال مسیر پیش فرض اسکنر گشتید؟

[salehsam]

یادمه آفیس 2003 برنامه کار با اسکنر رو داشت ولی تو 2007 پیدا نمیکنم ؟

[RESMAILY]

به نام خدا
با سلام. همين دو برنامه اي است كه خودتان گذاشته ايد. آن را كنار برنامه تان بگذاريد. dll را رجيستر بفرماييدو... ديگر چه عرض كنم؟

[salehsam]

اگه ممکنه کمی توضیح بیشتر
توابع رو از کجا فراخوانی کنم؟

[RESMAILY]

به نام خدا
با سلام. فايل dll را از طريق برنامه رجيستر كنيد. گرچه بايد نمونه اش در سيستم32 از قبل موجود باشد. فايل exe را اگ همينطوري هم اجرا كنيد متوجه مي شويد(بشرطي كه اسكنر داشته باشيد) از درون برنامه خم بصورت زير آن را جرا بفرماييد

stAppName = CurrentProject.Path & "\dll\MSPSCAN.EXE"
Call Shell(stAppName, 1)

[bemilove]

با سلام
من برنامه اسكن رو فارسي كردم .اما دوستان در موارد زير با اضافه كردن كد به بهبود برنامه كمك كنند:
1- ما بتوانيم مسير ذخيره تصوير را قبل از اسكن تعيين نمائيم.
2- مشاهده تصوير اسكن شده ممكن نيست.كه بايد در همان لحظه ممكن باشد.(در حال حاضر يك مسير پيش فرض در كد نويسي لحاظ شده كه ثابت است.)
3- تصوير ذخيره مي گردد .عملا در برنامه دكمه ذخيره كارائي نداره كه بايد اگر روي آن كليك شد ، تصوير ذخيره شود در غير اينصورت پاك شود.(فرد بتواند كيفيت آن را بررسي نموده وبعد ذخيره نمايد)
4- نام سندي كه ما انتخاب مي كنيم با نام تصوير فرق مي كند ..ظاهرا برنامه با توجه به اي دي آن به تصوير نام مي دهد وذخيره مي كند.كه بايد با نام ما ذخيره شود.

[bemilove]

اساتيد كمك كنن لطفا.....

[bemilove]

اساتید در صورت امکان کمک!

[bemilove]

این برنامه کار با اسکن که فارسی شده..بخوبی کار میکند..سندذخیره شده هم نشان میدهد...پوشه را در درایو E کپی کنید..مشکلی که وجود دارد.این است که سند وقتی ذخیره شده در پوشه HRS ذخیره میکند..

سوال : چه کنیم که سند در پوشه LETTERS داخل پوشه HRS ذخیره گردد؟......یا تعیین کنیم کجا ذخیره گردد برای همیشه؟

[mhamedm2008]

سلام
اصلاح شد
حالا می تونی با کیلیک بر روی دکمه انتخاب پوشه، مسیر دلخواه خود را وارد کنی

[bemilove]

سلام..البته دکمه ایجاد شده برای انتخاب فولدر کار میکند...ولی پس از اسکن همان مسیر قبلی ذخیره می گردد نه فولدر انتخاب شده؟..متاسفانه مشکل حل نگردید...
چه کنیم...
فکر کنم باید در event دکمه اسکن تعغیراتی ایجاد گردد..که دست شما می بوسد!
این خط کد دکمه اسکن
PictureFile = mypathofdb() & Me.ID & "image.jpg"
لطفا حتما با اسکن تست شود...ممنون

[bemilove]

خودم کد را تصحیح کردم...البته اگرمیشد که هر بار ما نخواهیم فولدر را انتخاب کنیم ،بهتر بود...فقط یکبار فولدر پیش فرض انتخاب میشد..
کد دکمه اسکن :
Dim strFolder As StringstrFolder = BrowseFolder("choose folder")
If Not IsNull(strFolder) Then
PictureFile = strFolder & "\" & Me.num & "image.jpg"
End If


Ret = TWAIN_AcquireToFilename(Me.hwnd, PictureFile)


If Ret = 0 Then


Me.pic_path = PictureFile
Me.pic.Picture = Me.pic_path


Else
Kill PictureFile
MsgBox "ÇÓßä ÊÕæíÑ áÛæ ÔÏ", vbCritical, "ÊæÌå"
End If

[mhamedm2008]

شرمنده. چون روی سیستمم اسکنر نداشتم نتونستم کد و چک کنم.

برای سوال دوم هم کافیست آدرس انتخاب شده را در تیبلی ذخیره کنید و در هر بار آن را فراخوانی کنید