[Ahmed_Mansoor]

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

- أهلا بكم إخواني الكرام , تم تحديث المثالين وإضافة خيارات عديدة للصفحات التي يتم مسحها , الشرح موجود في نص هذه المشاركة , بالتوفيق والنجاح للجميع .

[ياسر عبد الكريم]

شكراً أخي أحمد على هذا المشروع الرائع
المشروع فعلاً مفيد جداً وكنت بحاجة اليه
جزاك الله الف خير ووفقك في كل خطاك

[jumhagripa]

شكرا .. بارك الله فيكم .. بالتوفيق انشاء الله ..

[mhareek]

السلام عليكم اخى الغالى الاستاذ احمد منصور عند عمل مسح يعطى خطاء The parameter is incorrect ولكنة فى نفس الوقت يؤدى المهمة
السوال الثانى يوجد لدى طابعة زيروكس وبها سكنر موجودة على الشبكة والبرنامج لا يتعرف عليها

[ابوعبدالملك]

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

هل يمكن تحويله الى دوت نت ؟؟

[Kamil]

و عليكم السلام و رحمة الله و بركاته 
المثال  vb.net

إعداد المشروع لاستخدام WIA:
قم بإضافة مرجع إلى مكتبة WIA:

افتح مشروعك في Visual Studio.
من القائمة، اختر Project > Add Reference.
في علامة التبويب COM، ابحث عن Microsoft Windows Image Acquisition Library v2.0 وأضفها.
أضف استيرادًا لمكتبة WIA في بداية الكود:

PHP كود :

Imports WIA
Imports System.IO

Public Class Form1
    Private Sub BtnScan_Click(sender As Object, e As EventArgs) Handles BtnScan.Click
        Try
            ' إنشاء حاوية للأجهزة
            Dim deviceManager As New DeviceManager()

            ' اختيار الجهاز (الماسح الضوئي)
            Dim selectedDevice As Device = Nothing
            For Each deviceInfo As DeviceInfo In deviceManager.DeviceInfos
                If deviceInfo.Type = WiaDeviceType.ScannerDeviceType Then
                    selectedDevice = deviceInfo.Connect()
                    Exit For
                End If
            Next

            If selectedDevice Is Nothing Then
                MessageBox.Show("لم يتم العثور على أي ماسح ضوئي متصل.")
                Return
            End If

            ' تحديد خيارات المسح الضوئي
            Dim commonDialog As New CommonDialog()
            Dim imageFile As ImageFile = commonDialog.ShowAcquireImage(WiaDeviceType.ScannerDeviceType)

            If imageFile IsNot Nothing Then
                ' حفظ الصورة الممسوحة
                Dim outputPath As String = Path.Combine(Application.StartupPath, "ScannedImage.jpg")
                SaveImageToFile(imageFile, outputPath)
                MessageBox.Show("تم حفظ الصورة بنجاح في: " & outputPath)
            Else
                MessageBox.Show("تم إلغاء عملية المسح.")
            End If

        Catch ex As Exception
            MessageBox.Show("حدث خطأ أثناء المسح الضوئي: " & ex.Message)
        End Try
    End Sub

    Private Sub SaveImageToFile(image As ImageFile, filePath As String)
        ' تحويل الصورة إلى ملف وحفظها
        Dim imageData As Byte() = DirectCast(image.FileData.BinaryData, Byte())
        File.WriteAllBytes(filePath, imageData)
    End Sub
End Class 


[aymanwzo]

جزاك الله خير الجزاء

هل يوجد كود جاهز لتحويل الملف إلى Pdf في vb6


لأني استخدمت الملفات ويعطي مشكلة