סריקה באקסס

[קוזמירר]

אני מחפש קוד VBA שיתן לי גישה ל-twain של הסורק, תוך שליטה על מיקום, שם, איכות ופורמט הקובץ הנשמר.
אם יש למישהו קוד מוכן אודה לו מאוד.

 

[שמח לעזור]

http://www.prog.co.il/showthread.php?t=118759

 

[שמח לעזור]

http://lmik.sweb.cz/

דרך WIA של Windows:
http://social.msdn.microsoft.com/Fo...7e669491e16/operate-scanner-from-vba-in-excel
http://www.access-programmers.co.uk/forums/showthread.php?t=246348
http://stackoverflow.com/questions/...eturns-0-even-though-the-adf-has-pages-loaded

 

[נדמ]

מצ"ב מודול שמקורו מאי שם.

וזה הפונקציה שמפעילה את המודול

Function ScanAndSave(FName As String)
    Dim lRtn As Long, dib As Long, s As String
 
    s = "DelMeTemp.Bmp"
 
    lRtn = mdlTwain.TransferWithoutUI(200, BW, 0, 0, 8.27, 11.69, s)
'    lRtn = mdlTwain.TransferWithUI(s)
    dib = FreeImage_Load(FIF_BMP, s, 0)
 
    'FreeImage_Invert dib
    lRtn = FreeImage_Save(FIF_TIFF, dib, FName, FISO_SAVE_DEFAULT)
'    lRtn = FreeImage_Save(FIF_JPEG, dib, FName, FISO_SAVE_DEFAULT)
    FreeImage_Unload (dib)
    Kill s
End Function

 

[קוזמירר]

מצ"ב מודול שמקורו מאי שם.

כפי שהבטחתי, אני מודה לך מאוד

 

[ari rm]

האם מישהו יוכל בבקשה לעזור לי איך אני עושה שהקוץ (התמונה) שאני סורק ייכנס לתוך שדה של אובייקט OLE או לשדה של קובץ מצורף, בטופס הפתוח

 

[ari rm]

בס"ד

אולי מוישי יכול לעזור בזה.

 

[FullTime]

האם מישהו יוכל בבקשה לעזור לי איך אני עושה שהקוץ (התמונה) שאני סורק ייכנס לתוך שדה של אובייקט OLE או לשדה של קובץ מצורף, בטופס הפתוח

לא בדקתי את הקוד, אבל זה נראה שהמשתנה fname הוא נתיב ושם הקובץ, מציבים אותו בתוך האובייקט או שדה הקובץ מצורף ומרעננים עם פקודה refresh