06-02-20, 02:53 AM
(06-02-20, 02:11 AM)محمدالزند كتب : بحاول احفظ صورة علي الجهاز متخزنة في قاعدة البيانات BIT
PHP كود :Dim x() As Byte
Dim temp As Object = Nothing
x = temp.Rows(0).Item("image1")
Dim ms As New MemoryStream(x)
pbox.Image = Image.FromStream(ms)
ms.Dispose()
ofd.FileName = ""
ofd.Filter = "Image Files (JPEG,GIF,BMP,PNG,ICO)|*.jpg;*.jpeg;*.gif;*.bmp;*.png;*ico"
Dim SaveFileAs As New SaveFileDialog
SaveFileAs.Title = "Save File As"
SaveFileAs.FileName = ""
SaveFileAs.Filter = "Image Files (JPEG,GIF,BMP,PNG,ICO)|*.jpg;*.jpeg;*.gif;*.bmp;*.png;*ico"
If SaveFileAs.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
pbox.Image.Save(SaveFileAs.FileName, Imaging.ImageFormat.Jpeg)
End If
كود :
If DataGridView1.SelectedRows.Count > 0 Then
pbox.Image = DataGridView1.SelectedRows(0).Cells("image1").Value
If pbox.Image IsNot Nothing Then
Dim SaveFileAs As New SaveFileDialog
SaveFileAs.Title = "Save File As"
SaveFileAs.Filter = "Image Files (JPEG)|*jpg;*.jpeg"
If SaveFileAs.ShowDialog() = DialogResult.OK Then
pbox.Image.Save(SaveFileAs.FileName, Imaging.ImageFormat.Jpeg)
End If
End If
End If

![[صورة مرفقة: p_149628ik21.png]](https://j.top4top.io/p_149628ik21.png)
![[صورة مرفقة: p_1496k9lz01.png]](https://c.top4top.io/p_1496k9lz01.png)
![[صورة مرفقة: p_14968co771.png]](https://k.top4top.io/p_14968co771.png)