المشاركات : 69
المواضيع 22
الإنتساب : Nov 2019
السمعة :
1
الشكر: 17
تم شكره 42 مرات في 18 مشاركات
بحاول احفظ صورة علي الجهاز متخزنة في قاعدة البيانات 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
المشاركات : 769
المواضيع 133
الإنتساب : Feb 2018
السمعة :
64
الشكر: 1636
تم شكره 1073 مرات في 528 مشاركات
السلام عليكم...
يمكنك حفظها من ال picturebox بسهولة،
تفضل:
كود :
If picturebox1.Image Is Nothing Then
Else
picturebox1.Image.Save("D:\" & "الاسم" & ".jpg", Imaging.ImageFormat.Jpeg)
End If
المبرمج لا يفكر في المشكلة بل في الحل!!
المشاركات : 260
المواضيع 0
الإنتساب : Jan 2020
السمعة :
41
الشكر: 0
تم شكره 381 مرات في 213 مشاركات
(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
المشاركات : 69
المواضيع 22
الإنتساب : Nov 2019
السمعة :
1
الشكر: 17
تم شكره 42 مرات في 18 مشاركات
المشاركات : 69
المواضيع 22
الإنتساب : Nov 2019
السمعة :
1
الشكر: 17
تم شكره 42 مرات في 18 مشاركات
المشاركات : 260
المواضيع 0
الإنتساب : Jan 2020
السمعة :
41
الشكر: 0
تم شكره 381 مرات في 213 مشاركات
07-02-20, 12:48 AM
(آخر تعديل لهذه المشاركة : 07-02-20, 01:06 AM {2} بواسطة alsalamoni.)
(06-02-20, 11:23 AM)محمدالزند كتب : برضه مش شغال لاسف
(07-02-20, 12:26 AM)محمدالزند كتب : مش لاقي حل
اعمل مشروع صغير جديد وارفقه
كود :
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
لمن تقول مش شغال،
اكيد تقصد انه لو يحفظ ولم تظهر رسالة خطا
المشاركات : 69
المواضيع 22
الإنتساب : Nov 2019
السمعة :
1
الشكر: 17
تم شكره 42 مرات في 18 مشاركات
07-02-20, 01:11 AM
(آخر تعديل لهذه المشاركة : 07-02-20, 01:24 AM {2} بواسطة محمدالزند.)
(07-02-20, 12:48 AM)alsalamoni كتب : (06-02-20, 11:23 AM)محمدالزند كتب : برضه مش شغال لاسف
(07-02-20, 12:26 AM)محمدالزند كتب : مش لاقي حل
اعمل مشروع صغير جديد وارفقه
كود :
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
لمن تقول مش شغال،
اكيد تقصد انه لو يحفظ ولم تظهر رسالة خطا
كود :
Dim temp As New DataTable
If Convert.ToBoolean(GetValueFromRegistry("WindowsOrSqlServer")) = True Then
Cnn = New SqlConnection(CnnString)
ElseIf Convert.ToBoolean(GetValueFromRegistry("WindowsOrSqlServer")) = False Then
Cnn = New SqlConnection(CnnString1)
End If
Cmd = New SqlCommand
Cmd.CommandText = "Select image1 From PC"
Cmd.CommandType = CommandType.Text
Cmd.Connection = Cnn
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
لو امكن تيم فيو
1521318123
الباص i r 4 d 22 بدون مسافات
كود :
Dim temp As New DataTable
If Convert.ToBoolean(GetValueFromRegistry("WindowsOrSqlServer")) = True Then
Cnn = New SqlConnection(CnnString)
ElseIf Convert.ToBoolean(GetValueFromRegistry("WindowsOrSqlServer")) = False Then
Cnn = New SqlConnection(CnnString1)
End If
Cmd = New SqlCommand
Cmd.CommandText = "Select image1 From PC"
Cmd.CommandType = CommandType.Text
Cmd.Connection = Cnn
Dim x() As Byte
x = pbox("image1")
Dim y As Object = ("image1")
Dim ms As New MemoryStream()
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
End Sub
المشاركات : 260
المواضيع 0
الإنتساب : Jan 2020
السمعة :
41
الشكر: 0
تم شكره 381 مرات في 213 مشاركات
(07-02-20, 01:11 AM)محمدالزند كتب : (07-02-20, 12:48 AM)alsalamoni كتب : (06-02-20, 11:23 AM)محمدالزند كتب : برضه مش شغال لاسف
(07-02-20, 12:26 AM)محمدالزند كتب : مش لاقي حل
اعمل مشروع صغير جديد وارفقه
كود :
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
لمن تقول مش شغال،
اكيد تقصد انه لو يحفظ ولم تظهر رسالة خطا
كود :
Dim temp As New DataTable
If Convert.ToBoolean(GetValueFromRegistry("WindowsOrSqlServer")) = True Then
Cnn = New SqlConnection(CnnString)
ElseIf Convert.ToBoolean(GetValueFromRegistry("WindowsOrSqlServer")) = False Then
Cnn = New SqlConnection(CnnString1)
End If
Cmd = New SqlCommand
Cmd.CommandText = "Select image1 From PC"
Cmd.CommandType = CommandType.Text
Cmd.Connection = Cnn
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
لو امكن تيم فيو
1521318123
الباص i r 4 d 22 بدون مسافات
كود :
Dim temp As New DataTable
If Convert.ToBoolean(GetValueFromRegistry("WindowsOrSqlServer")) = True Then
Cnn = New SqlConnection(CnnString)
ElseIf Convert.ToBoolean(GetValueFromRegistry("WindowsOrSqlServer")) = False Then
Cnn = New SqlConnection(CnnString1)
End If
Cmd = New SqlCommand
Cmd.CommandText = "Select image1 From PC"
Cmd.CommandType = CommandType.Text
Cmd.Connection = Cnn
Dim x() As Byte
x = pbox("image1")
Dim y As Object = ("image1")
Dim ms As New MemoryStream()
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
End Sub
هذا الكود للتجربة فقط
كود :
Dim cmd As New SqlCommand("Select [image1] From [PC] WHERE [code]=@code", Cnn)
cmd.Parameters.AddWithValue("@code", 10562)
If Cnn.State <> ConnectionState.Open Then Cnn.Open()
Dim obj As Object = cmd.ExecuteScalar
Cnn.Close()
If Not IsDBNull(obj) Then
Dim stream As New IO.MemoryStream(CType(obj, Byte()))
Dim img As Image = Image.FromStream(stream)
Dim SaveFileAs As New SaveFileDialog
SaveFileAs.Title = "Save File As"
SaveFileAs.Filter = "Image Files (JPEG)|*.jpg;*.jpeg"
If SaveFileAs.ShowDialog() = DialogResult.OK Then
img.Save(SaveFileAs.FileName, Imaging.ImageFormat.Jpeg)
End If
End If
انتظر الرد
المشاركات : 69
المواضيع 22
الإنتساب : Nov 2019
السمعة :
1
الشكر: 17
تم شكره 42 مرات في 18 مشاركات
07-02-20, 04:03 AM
(آخر تعديل لهذه المشاركة : 07-02-20, 04:06 AM {2} بواسطة محمدالزند.)
تم حل المشكلة
بهذا الكود
PHP كود :
Dim temp As New DataTable If Convert.ToBoolean(GetValueFromRegistry("WindowsOrSqlServer")) = True Then Cnn = New SqlConnection(CnnString) ElseIf Convert.ToBoolean(GetValueFromRegistry("WindowsOrSqlServer")) = False Then Cnn = New SqlConnection(CnnString1) End If
Dim r As DataGridViewRow = Me.DataGridView1.CurrentRow Dim code = r.Cells("clcode").Value
Dim cmd As New SqlCommand("Select [image1] From [PC] WHERE [code]=@code", Cnn) cmd.Parameters.AddWithValue("@code", code) If Cnn.State <> ConnectionState.Open Then Cnn.Open() Dim obj As Object = cmd.ExecuteScalar Cnn.Close()
If obj IsNot Nothing AndAlso Not IsDBNull(obj) Then Dim stream As New IO.MemoryStream(CType(obj, Byte())) Dim img As Image = Image.FromStream(stream)
Dim SaveFileAs As New SaveFileDialog SaveFileAs.Title = "Save File As" SaveFileAs.Filter = "Image Files (JPEG)|*.jpg;*.jpeg" If SaveFileAs.ShowDialog() = DialogResult.OK Then img.Save(SaveFileAs.FileName, Imaging.ImageFormat.Jpeg) End If End If
|