[prj]

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

- برنامج الاخ عبد الله بالمرفقات

[حريف برمجة]

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

اخي بعد ما تعرض الصورة في اداة الصور

هذا كود حفظ الصورة في مجلد البرنامج

كود :

PictureBox1.Image.Save(Application.StartupPath & "\Img1.jpeg", Imaging.ImageFormat.Jpeg)

ولو حبيت تحفظها في القرص المحلي C

يكون الكود كالتالي :

كود :

PictureBox1.Image.Save("C:" & "\Img1.jpeg", Imaging.ImageFormat.Jpeg)

[Genius Live]

You can use SaveFileDialog

Try this

كود :

If SaveFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
PictureBox1.Image.Save(SaveFileDialog1.FileName, Imaging.ImageFormat.Bmp)
End If

[aftfm]

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

يا اخوان الصور لا تظهر في اداة PictureBox1
تظهر في اداة Panel16
فكيف الحل مع الحفظ رعاكم الله

[kslawy]

كود :

If SaveFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
Panel16.BackgroundImage.Save(SaveFileDialog1.FileName, Imaging.ImageFormat.Bmp)
End If

[aftfm]

الف شكر على تعاونك اخي العزيز kslawy

لكن بعد وضع الكود والتنفيذ ظهر خطاء

لم يتم تعيين مرجع كائن لمثيل كائن.

[kslawy]

هل أنت متأكد أن الصورة موجودة بأداة Panel16

[prj]

شكرا على تعاونكم جميعا لكن الصورة لا يتم عرضها في اي اداة تابعة للفجوال انما اداة مستقلة من leadtools اسمها RasterImageViewer

[issatiger]

هذا كود اضافة صورة من RsterImageviewer1 الي قاعدة البيانات
  Dim myimage As RasterImage
                myimage = RasterImageViewer1.Image
                Dim ms As New IO.MemoryStream()
                Dim bmpImage As New Bitmap(myimage.ConvertToGdiPlusImage())
                bmpImage.Save(ms, System.Drawing.Imaging.ImageFormat.Jpeg)
                Dim data As Byte() = ms.GetBuffer()
                cmd.Parameters.AddWithValue("x2", data)

---

انا ابحث عن مكتبة leadtools.codecs.cmp.dll
من لديه ينزله من فضلكم 
وشكرا