جعل السكنر يقوم باخذ اكثر من صورة وتحويلها الى ملف pdf

زياد الحسناوي · أكتوبر 5, 2023

اساتذتي الاعزاء انا اعمل على برنامج الارشفة الالكترونية

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

حيث لم اجد طريقة لسحب الكتاب مع مرفقاته بالكامل عن طريق السكنر بضغطة واحد الا ورقة ورقة

بينما يمكنني عمل ذلك عن طريق برنامج السكنر الخاص

وليكن التعديل على الملف المرفق

web browser & image.accdb

تم تعديل أكتوبر 5, 2023 بواسطه زياد الحسناوي
ارفاق ملف

**دروب مبرمج** · أكتوبر 5, 2023

تفضل هذا المثال

جربه عندك و اذا ضبط يصير نكمل الباقي

Scanner.accdb

زياد الحسناوي · أكتوبر 5, 2023

9 دقائق مضت, دروب مبرمج said:

تفضل هذا المثال

جربه عندك و اذا ضبط يصير نكمل الباقي

Scanner.accdb 1.46 \u0645\u064a\u062c\u0627 \u0628\u0627\u064a\u062a · 0 downloads

تظهر هذه المشكلة

**kkhalifa1960** · أكتوبر 5, 2023

مشاركة مع أخي @دروب مبرمججرب المرفق عندك ووافني بالرد . :fff:

BABA_Scan.rar

زياد الحسناوي · أكتوبر 5, 2023

14 دقائق مضت, kkhalifa1960 said:

مشاركة مع أخي @دروب مبرمججرب المرفق عندك ووافني بالرد .

BABA_Scan.rar 28.08 kB · 2 downloads

بنفس المشكلة

**Foksh** · أكتوبر 5, 2023

للأسف ليس لدي سكانر لأقوم بالمساعدة إن استطعت ☺️

زياد الحسناوي · أكتوبر 5, 2023

3 دقائق مضت, Foksh said:

للأسف ليس لدي سكانر لأقوم بالمساعدة إن استطعت ☺️

,ولا يهمك اخي بأنتظار الاساتذة

محمد الوكيل123 · أكتوبر 6, 2023

أظن الخاصية متعلقه بنوع الماسح الضوئي الذي تعمل عليه إذا يمسح الصور بشكل متتابع مرة واحده . مثال الماسح الضوئي أدناه >>

تم تعديل أكتوبر 6, 2023 بواسطه محمد الوكيل123

زياد الحسناوي · أكتوبر 6, 2023

6 ساعات مضت, محمد الوكيل123 said:

أظن الخاصية متعلقه بنوع الماسح الضوئي الذي تعمل عليه إذا يمسح الصور بشكل متتابع مرة واحده . مثال الماسح الضوئي أدناه >>

بلضبط عندي مثله

**Ahmed_J** · أكتوبر 6, 2023

السلام عليكم

هذا النوع هو (فيدر سكانر) يعمل سكانر عادي و سكانر متعدد

انا عندي نفس المشكلة مع جهاز كانون (Scanner-Canon-DR-F120-Feeder )

اتمنى من الاخوة ايجاد حل لهذه المشكلة

figo82eg · أكتوبر 8, 2023

وانا لدى نفس المشكلة مع برنامج الأرشفة الذى أقوم بالعمل عليه حيث يتم سحب ورقة واحدة فقط على صيغة JPG عن الضغط على زر اسكان بالبرنامج

رغم انى اقوم بسحب مجموعة من الصور بشكل متتابع على صيغة PDF على برنامج الاسكانر

ارجو من اساتذتنا الكرام التعاون معنا فى حالة هذه المشكلة

تم تعديل أكتوبر 8, 2023 بواسطه figo82eg

**Foksh** · أكتوبر 8, 2023

لعدم وجود سكانر عندي ، وددت المشاركة بمصادر قد تفيد إن لم تكن مجربة من قبل ،

الفكرة الأولى :-

option Compare Database
Option Explicit
Const WIA_FORMAT_JPEG = "{B96B3CAE-0728-11D3-9D7B-0000F81EF32E}"

Public Sub ScanDocs()

    Dim intPages As Integer 'number of pages
    Dim img As WIA.ImageFile 
    Dim strPath As String 
    Dim strFileJPG As String

    strPath = CurrentProject.Path 'set path to save files
    intPages = 1


On Error GoTo ErrorHandler

 'scan
ScanStrat:

    Dim DialogScan As New WIA.CommonDialog, dpi As Integer, pp As Integer, l    As Integer
    dpi = 250
    Dim Scanner As WIA.Device
    Set Scanner = DialogScan.ShowSelectDevice(WIA.WiaDeviceType.ScannerDeviceType, False, False)

    'set properties device
        Scanner.Properties("3088").Value = 1 'Automatic Document Feeder
        Scanner.Items(1).Properties("6146").Value = 4 'Colour intent
        Scanner.Items(1).Properties("6147").Value = dpi 'DPI horizontal
        Scanner.Items(1).Properties("6148").Value = dpi 'DPI vertical
        Scanner.Items(1).Properties("6149").Value = 0 'x point to start scan
        Scanner.Items(1).Properties("6150").Value = 0 'y point to start scan
        Scanner.Items(1).Properties("6151").Value = 8.27 * dpi  'Horizontal extent
        Scanner.Items(1).Properties("6152").Value = 11.7 * dpi    'Vertical extent for A4
        Scanner.Items(1).Properties("6154").Value = 80 'brightness
      '  Scanner.Items(1).Properties("6155").Value = 30 'contrast

 'Start Scan if err number -2145320957 Scan document finish 

    Do While Err.Number <> -2145320957 'error number is ADF status don't feed document

        Set img = Scanner.Items(1).Transfer(WIA_FORMAT_JPEG) 
        strFileJPG = strPath & "\FileScan\temp\" & CStr(intPages) & ".jpg"
        img.SaveFile (strFileJPG) 'save files .jpg in temp folder
        DoCmd.SetWarnings False 
       DoCmd.RunSQL "insert into scantemp (picture) values ('" & strFileJPG & "')" 'insert picture temp to table scan temp

        intPages = intPages + 1 'add number pages
   Loop

'after finish scan start convert to pdf
StartPDFConversion: 

    Dim strFilePDF As String '
    Dim RptName As String
    strFilePDF = CurrentProject.Path & "\FileScan\" & txt_id.Value & ".pdf" 'pdf file name by textbox
    RptName = "rptScan" 'report picture file for export to PDF 
    DoCmd.OpenReport RptName, acViewDesign, , , acHidden
    DoCmd.Close acReport, RptName, acSaveYes
    DoCmd.OutputTo acOutputReport, RptName, acFormatPDF, strFilePDF
    DoCmd.RunSQL "delete from scantemp" 'delete all data from table scantemp



DeleteTemp:
'delete files temp (JPG)
Dim i As Integer
Dim filesname As String
i = 1

'loop pages number (intpages)
Do While i < intPages
    filesname = CurrentProject.Path & "\FileScan\temp\" & i & ".jpg"

    If Dir(filesname) <> "" Then
        'SetAttr filesname, vbNormal
        Kill filesname
    Else
        Exit Do
    End If
    i = i + 1
Loop


MsgBox ("done")
    Exit Sub


ErrorHandler:
Select Case Err.Number
    Case -2145320957
    If intPages = 1 Then
        MsgBox ("not found document to scan")
        Exit Sub
    Else
      GoTo StartPDFConversion
      End If
    End Select


 MsgBox "Error" & ":  " & Err.Number & vbCrLf & "Description: " _
    & Err.Description, vbExclamation, Me.Name & ".ScanDocs"
End Sub

المصدر :

الفكرة الثانية :-

eb038766-af8d-4aeb-86d3-dd54a6abb481?upl

المصدر :

* ولتأكيد المعلومة مرة أخرى ؛ أنا لم أقم بتجربة الأكواد لعدم امتلاكي سكانر للتأكد من صحة المواقع .

**دروب مبرمج** · أكتوبر 8, 2023

مع استعمال المكتبة

image.png.da659e1179662d095325dfce7a695a7a.png

انشى موديول جديد و الصق فيه الكود التالي

Option Compare Database
Option Explicit

Const WIA_FORMAT_JPEG = "{B96B3CAE-0728-11D3-9D7B-0000F81EF32E}"

Public Function MyScan()
  Dim ComDialog As WIA.CommonDialog
  Dim DevMgr As WIA.DeviceManager
  Dim DevInfo As WIA.DeviceInfo
  Dim dev As WIA.Device
  Dim img As WIA.ImageFile
  Dim i As Integer
  Dim wiaScanner As WIA.Device

  Set ComDialog = New WIA.CommonDialog
  Set wiaScanner = ComDialog.ShowSelectDevice(WiaDeviceType.UnspecifiedDeviceType, False, True)

  Set DevMgr = New WIA.DeviceManager

  For i = 1 To DevMgr.DeviceInfos().Count
    If DevMgr.DeviceInfos(i).DeviceID = wiaScanner.DeviceID Then
      Set DevInfo = DevMgr.DeviceInfos(i)
    End If
  Next i

  Set dev = DevInfo.Connect

  Set img = dev.Items(1).Transfer(WIA_FORMAT_JPEG)

  img.SaveFile CurrentProject.Path & "\img.jpg"

  Set img = Nothing
  Set dev = Nothing
  Set DevInfo = Nothing
  Set DevMgr = Nothing
  Set ComDialog = Nothing


End Function

زياد الحسناوي · أكتوبر 8, 2023

1 ساعه مضت, دروب مبرمج said:

مع استعمال المكتبة

انشى موديول جديد و الصق فيه الكود التالي

Option Compare Database
Option Explicit

Const WIA_FORMAT_JPEG = "{B96B3CAE-0728-11D3-9D7B-0000F81EF32E}"

Public Function MyScan()
  Dim ComDialog As WIA.CommonDialog
  Dim DevMgr As WIA.DeviceManager
  Dim DevInfo As WIA.DeviceInfo
  Dim dev As WIA.Device
  Dim img As WIA.ImageFile
  Dim i As Integer
  Dim wiaScanner As WIA.Device

  Set ComDialog = New WIA.CommonDialog
  Set wiaScanner = ComDialog.ShowSelectDevice(WiaDeviceType.UnspecifiedDeviceType, False, True)

  Set DevMgr = New WIA.DeviceManager

  For i = 1 To DevMgr.DeviceInfos().Count
    If DevMgr.DeviceInfos(i).DeviceID = wiaScanner.DeviceID Then
      Set DevInfo = DevMgr.DeviceInfos(i)
    End If
  Next i

  Set dev = DevInfo.Connect

  Set img = dev.Items(1).Transfer(WIA_FORMAT_JPEG)

  img.SaveFile CurrentProject.Path & "\img.jpg"

  Set img = Nothing
  Set dev = Nothing
  Set DevInfo = Nothing
  Set DevMgr = Nothing
  Set ComDialog = Nothing


End Function

وكيف يتم استدعاء الامر من خلال الزر ؟

11 ساعات مضت, Foksh said:

لعدم وجود سكانر عندي ، وددت المشاركة بمصادر قد تفيد إن لم تكن مجربة من قبل ،

الفكرة الأولى :-

option Compare Database
Option Explicit
Const WIA_FORMAT_JPEG = "{B96B3CAE-0728-11D3-9D7B-0000F81EF32E}"

Public Sub ScanDocs()

    Dim intPages As Integer 'number of pages
    Dim img As WIA.ImageFile 
    Dim strPath As String 
    Dim strFileJPG As String

    strPath = CurrentProject.Path 'set path to save files
    intPages = 1


On Error GoTo ErrorHandler

 'scan
ScanStrat:

    Dim DialogScan As New WIA.CommonDialog, dpi As Integer, pp As Integer, l    As Integer
    dpi = 250
    Dim Scanner As WIA.Device
    Set Scanner = DialogScan.ShowSelectDevice(WIA.WiaDeviceType.ScannerDeviceType, False, False)

    'set properties device
        Scanner.Properties("3088").Value = 1 'Automatic Document Feeder
        Scanner.Items(1).Properties("6146").Value = 4 'Colour intent
        Scanner.Items(1).Properties("6147").Value = dpi 'DPI horizontal
        Scanner.Items(1).Properties("6148").Value = dpi 'DPI vertical
        Scanner.Items(1).Properties("6149").Value = 0 'x point to start scan
        Scanner.Items(1).Properties("6150").Value = 0 'y point to start scan
        Scanner.Items(1).Properties("6151").Value = 8.27 * dpi  'Horizontal extent
        Scanner.Items(1).Properties("6152").Value = 11.7 * dpi    'Vertical extent for A4
        Scanner.Items(1).Properties("6154").Value = 80 'brightness
      '  Scanner.Items(1).Properties("6155").Value = 30 'contrast

 'Start Scan if err number -2145320957 Scan document finish 

    Do While Err.Number <> -2145320957 'error number is ADF status don't feed document

        Set img = Scanner.Items(1).Transfer(WIA_FORMAT_JPEG) 
        strFileJPG = strPath & "\FileScan\temp\" & CStr(intPages) & ".jpg"
        img.SaveFile (strFileJPG) 'save files .jpg in temp folder
        DoCmd.SetWarnings False 
       DoCmd.RunSQL "insert into scantemp (picture) values ('" & strFileJPG & "')" 'insert picture temp to table scan temp

        intPages = intPages + 1 'add number pages
   Loop

'after finish scan start convert to pdf
StartPDFConversion: 

    Dim strFilePDF As String '
    Dim RptName As String
    strFilePDF = CurrentProject.Path & "\FileScan\" & txt_id.Value & ".pdf" 'pdf file name by textbox
    RptName = "rptScan" 'report picture file for export to PDF 
    DoCmd.OpenReport RptName, acViewDesign, , , acHidden
    DoCmd.Close acReport, RptName, acSaveYes
    DoCmd.OutputTo acOutputReport, RptName, acFormatPDF, strFilePDF
    DoCmd.RunSQL "delete from scantemp" 'delete all data from table scantemp



DeleteTemp:
'delete files temp (JPG)
Dim i As Integer
Dim filesname As String
i = 1

'loop pages number (intpages)
Do While i < intPages
    filesname = CurrentProject.Path & "\FileScan\temp\" & i & ".jpg"

    If Dir(filesname) <> "" Then
        'SetAttr filesname, vbNormal
        Kill filesname
    Else
        Exit Do
    End If
    i = i + 1
Loop


MsgBox ("done")
    Exit Sub


ErrorHandler:
Select Case Err.Number
    Case -2145320957
    If intPages = 1 Then
        MsgBox ("not found document to scan")
        Exit Sub
    Else
      GoTo StartPDFConversion
      End If
    End Select


 MsgBox "Error" & ":  " & Err.Number & vbCrLf & "Description: " _
    & Err.Description, vbExclamation, Me.Name & ".ScanDocs"
End Sub

المصدر :

الفكرة الثانية :-

المصدر :

* ولتأكيد المعلومة مرة أخرى ؛ أنا لم أقم بتجربة الأكواد لعدم امتلاكي سكانر للتأكد من صحة المواقع .

هذا الكود أين يتم وضعه وياريت لو تفضلت بملف جاهز

**Foksh** · أكتوبر 8, 2023

29 دقائق مضت, زياد الحسناوي said:

هذا الكود أين يتم وضعه وياريت لو تفضلت بملف جاهز

في حدث الزر الذي سيقوم بعملية السكانر ، وهذا الملف الذي تريده ( مع التأكيد أنني لم أجربه لعدم امتلاكي لسكانر )

Desktop.zip

**ابو جودي** · أكتوبر 9, 2023

طيب تابه الموضوع الاتى

زياد الحسناوي · أكتوبر 9, 2023

8 ساعات مضت, Foksh said:

في حدث الزر الذي سيقوم بعملية السكانر ، وهذا الملف الذي تريده ( مع التأكيد أنني لم أجربه لعدم امتلاكي لسكانر )

Desktop.zip 42.73 kB · 0 downloads

للاسف كذلك ورقة واحدة

3 ساعات مضت, ابو جودي said:

طيب تابه الموضوع الاتى

عاشت ايدك تم تجربة الملف HALABI
بس السحب يكون على شكل صور اكو طريقة نحولها PDF

و كذلك السحب عن طريق السكنر بطيء الظاهر انه اعدادات دقة السحب عالية ممكن تخفيضها ؟

تم تعديل أكتوبر 9, 2023 بواسطه زياد الحسناوي

**ابو جودي** · أكتوبر 9, 2023

منذ ساعه, زياد الحسناوي said:

طريقة نحولها PDF

تقدر تعمل تقرير بالصور وتصدير التقرير الى PDF

منذ ساعه, زياد الحسناوي said:

و كذلك السحب عن طريق السكنر بطيء الظاهر انه اعدادات دقة السحب عالية ممكن تخفيضها ؟

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

ووجب التنويه الى شئ لو حدث تعليق للتطبيق الوسيط استخدم الكود الاتى

زياد الحسناوي · أكتوبر 9, 2023

1 ساعه مضت, ابو جودي said:

تقدر تعمل تقرير بالصور وتصدير التقرير الى PDF

بس ما راح ياخذ الفورة بالمباشر وينزل بمسار الملف بدلا من مسار الصورة

ومن خلال الفورم استطيع معاينة الملف

1 ساعه مضت, ابو جودي said:

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

كيف يمكنني تقليل الدقة ؟ ؟ ؟ لأن البرنامج اعدادته منخفضة ولكن عن طريق الاكسس عالية

1 ساعه مضت, ابو جودي said:

ووجب التنويه الى شئ لو حدث تعليق للتطبيق الوسيط استخدم الكود الاتى

فعلا واجهتني هالمشكلة وكنت اريد ان اطرحها للمناقشة والحل ... شكرا استاذي

**Ahmed_J** · أكتوبر 9, 2023

السلام عليكم اساتذتي الاعزاء

استاذ @زياد الحسناوي

قلت سابقا ان لدي سكانر كانون فيدر كما في الصورة

عند وضع اي كود لسحب الصور من الماسح الضوئي يسحب صورة واحدة فقط

وعند الدخول الى اعدادات الجهاز وجدت هنالك خيارين لعمل سكانر

1- مصدر الورق (paper source) = flatbed وهو يقوم بسحب صورة واحدة فقط وهو الخيار الافتراضي للجهاز

2- مصدر الورق (document feeder ) = وهو يقوم بسحب صورة متعددة (اكثر من صورة)

سؤالي هل يمكن وضع دالة if او غير ذلك لغرض اختيار نوع المسح الضوئي اما صورة واحدة او متعدد الصور

وشكرا

تم تعديل أكتوبر 9, 2023 بواسطه Ahmed_J

**ابو جودي** · أكتوبر 9, 2023

3 دقائق مضت, Ahmed_J said:

السلام عليكم اساتذتي الاعزاء

قلت سابقا ان لدي سكانر كانون فيدر كما في الصورة

حضرتك انا والله مش عندى اسكانر الان وانتقلت من عملى لذلك لا استطيع تجربة اى شئ

ولكن هل قمت بتجربة المرفق الذى اشرت اليه فى مشاركتى ؟!

**Ahmed_J** · أكتوبر 10, 2023

السلام عليكم

استاذ @ابو جودي

نعم جربت المرفق HALABI _ up1

وهو يعمل بشكل طبيعي

لكن اضم صوتي للاستاذ @زياد الحسناوي لو كان في اختيار حفظ الصور اما (image) او (pdf)

وواجهتني هذه المشكلة عند عمل سكانر مرة اخرى كما في الصورة

اعتقد انك وجدت حل المشكلة؟؟ ساقوم بالتجربة ووافيك بالنتيجة استاذ ي العزيز

تحياتي للجميع

في 9‏/10‏/2023 at 11:07, ابو جودي said:

ووجب التنويه الى شئ لو حدث تعليق للتطبيق الوسيط استخدم الكود الاتى

تم تعديل أكتوبر 10, 2023 بواسطه Ahmed_J

**ابو جودي** · أكتوبر 10, 2023

49 دقائق مضت, Ahmed_J said:

السلام عليكم

استاذ @ابو جودي

نعم جربت المرفق HALABI _ up1

وهو يعمل بشكل طبيعي

لكن اضم صوتي للاستاذ @زياد الحسناوي لو كان في اختيار حفظ الصور اما (image) او (pdf)

وواجهتني هذه المشكلة عند عمل سكانر مرة اخرى كما في الصورة

اعتقد انك وجدت حل المشكلة؟؟ ساقوم بالتجربة ووافيك بالنتيجة استاذ ي العزيز

تحياتي للجميع

نعم استاذى الكريم الحل فى هذه المشاركة

زياد الحسناوي · أكتوبر 10, 2023

في 9‏/10‏/2023 at 11:07, ابو جودي said:

تقدر تعمل تقرير بالصور وتصدير التقرير الى PDF

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

ووجب التنويه الى شئ لو حدث تعليق للتطبيق الوسيط استخدم الكود الاتى

فعلا واجهتني هالمشكلة وشكرا على الحل

وجاري تجربة الملف و عمل تقرير لتحويل الصور الى pdf واعود اليك بالنتائج

استاذ @Ahmed_J انتظرني اذا امكن غدا سأقوم بتجربة الملف و تصديره الى PDF

تسجيل الدخول

جعل السكنر يقوم باخذ اكثر من صورة وتحويلها الى ملف pdf

الردود الموصى بها

زياد الحسناوي

دروب مبرمج

زياد الحسناوي

kkhalifa1960

زياد الحسناوي

Foksh

زياد الحسناوي

محمد الوكيل123

زياد الحسناوي

Ahmed_J

figo82eg

Foksh

دروب مبرمج

زياد الحسناوي

Foksh

ابو جودي

زياد الحسناوي

ابو جودي

زياد الحسناوي

Ahmed_J

ابو جودي

Ahmed_J

ابو جودي

زياد الحسناوي

Join the conversation

تصفح هذا الموضوع مؤخراً 0 اعضاء متواجدين الان

تصفح الموقع

تصفح جديد الموقع

Support

Important Information