تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
ما سبب المشكلة :(
#1
بحاول احفظ صورة علي الجهاز  متخزنة في قاعدة البيانات 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.FileNameImaging.ImageFormat.Jpeg)
 
       End If 
الرد
تم الشكر بواسطة:
#2
السلام عليكم...
يمكنك حفظها من ال picturebox بسهولة،
تفضل:
كود :
If picturebox1.Image Is Nothing Then
       Else
           picturebox1.Image.Save("D:\" & "الاسم" & ".jpg", Imaging.ImageFormat.Jpeg)
       End If
 الذي يدعي ان لغته هي افضل لغة برمجة، فاعلم انه مستخدم وليس مبرمج.
الرد
تم الشكر بواسطة:
#3
(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.FileNameImaging.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
الرد
تم الشكر بواسطة: اسامه الهرماوي
#4
برضه مش شغال لاسف
الرد
تم الشكر بواسطة:
#5
مش لاقي حل
الرد
تم الشكر بواسطة:
#6
(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

لمن تقول مش شغال،
اكيد تقصد انه لو يحفظ ولم تظهر رسالة خطا
الرد
تم الشكر بواسطة:
#7
(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
الرد
تم الشكر بواسطة:
#8
(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

انتظر الرد
الرد
تم الشكر بواسطة: محمدالزند
#9
تم حل المشكلة
بهذا الكود
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(objThen
            Dim stream 
As New IO.MemoryStream(CType(objByte()))
 
           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.FileNameImaging.ImageFormat.Jpeg)
 
           End If
 
       End If 
الرد
تم الشكر بواسطة:



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم