منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - تغيير مكان حفظ الصورة من قاعدة البيانات إلى مجلد في مسار البرنامج

الصفحات : 1 2 3 4

لا بأس أخي العزيز F.H.M
أرجو لك التوفيق في مشروعك ، وأن تكون سعيدا به .
تحياتي الخالصة لك .

أخي العزيز أبوخالد الله يحفظك

إذا كان العقد به صفحات متعددة كيف أضيفهم مع الصورة الرئيسية بحيث يكون كل صورة في مجلد خاص بدل أن تكون الصورة بإسم ID بحيث أقوم بإضافة كذا صورة بنفس العقد سواء بإختيارها من الكمبيوتر أو بسحبها عن طريق السكينر أو تكون الصورة بصيغة PDF بحيث تستقبل كذا صفحة وإذا أمكن ذلك كيف أقوم بجعل السكينر يسحب كذا صورة مع بعض

هذا كود السكينر

كود :

Private Function ScanMe(ByVal myDPI As Integer, ByVal myHeight As Double, ByVal myWidth As Double, ByVal ShowSelectScanner As Boolean, ByVal ShowScanPreview As Boolean) As Byte()

    Dim CD As New WIA.CommonDialog

    Dim device As WIA.Device = CD.ShowSelectDevice(WIA.WiaDeviceType.ScannerDeviceType, ShowSelectScanner, False)

    If device Is Nothing Then Return Nothing

    Dim item As WIA.Item = device.Items(1)

    Try

        With item

            .Properties("Horizontal Resolution").Value = myDPI

            .Properties("Vertical Resolution").Value = myDPI

            .Properties("Horizontal Extent").Value = myDPI * myWidth

            .Properties("Vertical Extent").Value = myDPI * myHeight

        End With

        Dim F As WIA.ImageFile

        If ShowScanPreview Then

            F = CD.ShowAcquireImage(WiaDeviceType.ScannerDeviceType, WiaImageIntent.ColorIntent, WiaImageBias.MaximizeQuality, WIA.FormatID.wiaFormatBMP, False, True, False)

        Else

            F = CD.ShowTransfer(item, WIA.FormatID.wiaFormatPNG, False)

        End If

        Dim myBuffer As Byte() = F.FileData.BinaryData

        Return myBuffer

    Catch ex As Exception

        MsgBox(ex.Message)

        Return Nothing

    End Try

End Function

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

    Try

        Dim myMS As MemoryStream

        myMS = New MemoryStream(ScanMe(300, 11.6, 8.3, False, False))

        Car_Doc.Image = Image.FromStream(myMS)

        Car_Doc.SizeMode = PictureBoxSizeMode.Zoom

    Catch ex As Exception

        MessageBox.Show(ex.Message, "", MessageBoxButtons.OK, MessageBoxIcon.Error, MessageBoxDefaultButton.Button1, MessageBoxOptions.RightAlign)

    End Try

End Sub

هذا مشروع للسحب من السكانر وتحويله إلى PDF

الله يعطيك العافية أخ justforit

طيب ممكن تعدل على المثال السابق الذي قمت بتعديله

وهل يمكن للـ PictureBox أن يعرض صور متتالية بحيث أقلب بين الصور

الله يعطيك العافية أخي العزيز justforit

ظهر لي هذا الخطأ عند تشغيل البرنامج

عندي فكرة ربما تكون أسهل في البرمجة

فقط إجعل الصورة في مجلد وضع زر لفتح هذا المجلد

لاداعي لإضافة عدد من الصور

نفس التنسيق السابق بالضبط فقط زيادة زر فتح المجلد والصورة تحفظ في مجلد

وأنا أسحب الصور الباقية بالسكانر وأحولها PDF خارج البرنامج وأحفظها في نفس المجلد

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

بدل أن تكون اسم الصورة برقم الآيدي يكون المجلد برقم الآيدي

يوجد اداه اسمها سبريد شت. مثل الاكسل. تعتمد الامتداد وتحطهم في ملف وتطلبهم وقت ماتريد

وجدت هذا الكود لإنشاء مجلد داخل مجلد الـ Images ولكن لم أعرف كيف أكمله

كود :

Dim folderPath As String = Path.Combine(Application.StartupPath, "\Images\")

If Not Directory.Exists(folderPath) Then

    ' Create folder with a unique ID

    Dim uniqueID As String = Guid.NewGuid().ToString()

    Dim newFolderPath As String = Path.Combine(folderPath, uniqueID)

    Directory.CreateDirectory(newFolderPath)

    Console.WriteLine("New folder created at: " & newFolderPath)

Else

    Console.WriteLine("Folder already exists at: " & folderPath)

End If

كيف أغير كود الصورة ليتوافق مع الكود السابق

كود :

Dim imagePath As String = folderPath & ID.ToString & ".jpg"

Dim ms As New MemoryStream

Car_Doc.Image.Save(ms, Car_Doc.Image.RawFormat)

هلا بالغالي justforit

نفس المثال بالمرفق إلي إنت عدلت عليه بالسابق وتعديلك 100% هو المطلوب فقط أريد زيادة مجلد قبل الصورة بحيث يكون بهذا الشكل images\1\1.jpg

و زر في البرنامج يفتح فولدر الصورة المعروضة في PictureBox

مثال على ذلك الصورة المعروضة في PictureBox هي 1.jpg فإذا ضغطت على الزر الصورة المعروضة يفتح لي المجلد 1

تكون بهذا الشكل

طبعاً هذي الصورة معدلة بالفوتوشوب

المطلوب ليس في تعديلك الأخير ولكن في تعديلك بالرابط التالي

http://vb4arb.com/vb/showthread.php?tid=...#pid200623

في الرد رقم ( 13 )

الصفحات : 1 2 3 4

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

أبو خالد الشكري

F.H.M

F.H.M

F.H.M

F.H.M

F.H.M

F.H.M

bbbbbb@gmail.com

F.H.M

F.H.M