تقييم الموضوع :
  • 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 
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  ممكن حل المشكلة فى الكود التالي - من مشاركة استاذنا القدير / عبدالله الدوسري new_programer 4 169 02-03-24, 07:36 PM
آخر رد: new_programer
  حل هذه المشكلة الموضحة في الصورة Adel27213 3 361 21-11-23, 07:14 AM
آخر رد: justforit
  سؤال مهم لدي الرجاء حل المشكلة اي سفن 10 864 29-05-23, 05:01 PM
آخر رد: اي سفن
  [سؤال] أرجو المساعدة في حل المشكلة safralfahd 6 917 02-06-22, 01:47 PM
آخر رد: safralfahd
  ما هو الحل لهذه المشكلة جيولوجي مبتدئ 7 1,131 17-05-22, 09:22 AM
آخر رد: جيولوجي مبتدئ
  ماهى المشكلة فى كود صلاحيات المستخدم حماده ممدوح البحيرى 3 800 14-05-22, 07:32 AM
آخر رد: سعود
  السلام عليكم ممكن اعرف اى سبب المشكلة وحلها ؟ AhmedRamadan 13 2,848 03-10-21, 08:01 PM
آخر رد: asemshahen5
  ممكن مساعدة بخصوص المشكلة هدي Ofealas 4 1,737 13-07-21, 07:51 PM
آخر رد: Ofealas
  مشكله عند الطباعة في crystal Report " - تم حل المشكلة Rabeea Qbaha 4 4,311 15-05-21, 09:47 PM
آخر رد: ابو انس
  [VB.NET] المشكلة انني لم استطيع استدعاء الملفات pdf من قاعدة البيانات sql 304 0 1,056 31-10-20, 05:40 PM
آخر رد: 304

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


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