• 0
mkyh86

خزن الصورة من قاعدة على الحاسبة

سؤال

السلام عليكم

 

ممكن طريقة لخزن الصورة التي خزنة في قاعدة البيانات مباشرة على القرص الصلب او بعد عرضها باستخدام اداة pictureBox

 

مع الشكر والتقدير

 

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

2 إجابة على هذا السؤال .

  • 0

لتخزين الصور

  OpenFileDialog1.ShowDialog()    imageFilename = OpenFileDialog1.FileName    Dim imageUpload As Image    imageUpload = Image.FromFile(OpenFileDialog1.FileName)    If imageFilename <> "" Then        Dim imageNameTemp As String        imageNameTemp = imageFilename        While (imageNameTemp.Contains("\"))            imageNameTemp = imageNameTemp.Remove(0, imageNameTemp.IndexOf("\") + 1)        End While        Dim ms As New IO.MemoryStream        If imageFilename.Contains("jpeg") Or imageFilename.Contains("jpg") Then            imageUpload.Save(ms, System.Drawing.Imaging.ImageFormat.Jpeg)        End If        If imageFilename.Contains("png") Then            imageUpload.Save(ms, System.Drawing.Imaging.ImageFormat.Png)        End If        If imageFilename.Contains("gif") Then            imageUpload.Save(ms, System.Drawing.Imaging.ImageFormat.Gif)        End If        If imageFilename.Contains("bmp") Then            imageUpload.Save(ms, System.Drawing.Imaging.ImageFormat.Bmp)        End If        'Dim cmd As New SqlCommand("INSERT INTO projectimages (imagename,imagedate,csvprojectref) VALUES ('" + imageFilename + "',@BLOBData,CHECKSUM('" + textboxFileRef.Text + "'))", con)        Dim b() As Byte = ms.ToArray()        Dim cmd As New SqlCommand("INSERT INTO projectimages (imagename,imagedate,csvprojectref) VALUES ('" + imageNameTemp + "',@BLOBData,CHECKSUM('" + textboxFileRef.Text + "'))", con)        cmd.Parameters.Add("@BLOBData", SqlDbType.Image, b.Length).Value = b        '    Dim cmd As New SqlCommand("insert projectimages(imagename,imagedate,csvprojectref) values('imagma','" + img + "',CHECKSUM('" + textboxFileRef.Text + "'))", con)        cmd.ExecuteNonQuery()        '  cmdTemp.Parameters.Add("@photo", SqlDbType.Image, b.Length).Value = b    End If

لعرض الصور

 cmd.CommandText = "select imagedate from projectimages where imagename = '" +      ListBox1.Text + "' and CSVprojectref=checksum('" + textboxFileRef.Text + "')"        cmd.Connection = con        Dim da As New SqlDataAdapter(cmd)        Dim ds As New DataSet()        da.Fill(ds, "projectimages")        Dim c As Integer = ds.Tables(0).Rows.Count        If c > 0 Then            Dim bytBLOBData() As Byte = _                ds.Tables(0).Rows(c - 1)("imagedate")            Dim stmBLOBData As New MemoryStream(bytBLOBData)            PictureBox1.Image = Image.FromStream(stmBLOBData)        End If

و لا تنسى عمل الfield in database as blob

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

مشكور اخي على الرد

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

 

مع الشكر

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان

  • يستعرض القسم حالياً   0 members

    لا يوجد أعضاء مسجلين يشاهدون هذه الصفحة .