منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

بحاول احفظ صورة علي الجهاز متخزنة في قاعدة البيانات 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 

السلام عليكم...
يمكنك حفظها من ال picturebox بسهولة،
تفضل:

كود :

If picturebox1.Image Is Nothing Then

        Else

            picturebox1.Image.Save("D:\" & "الاسم" & ".jpg", Imaging.ImageFormat.Jpeg)

        End If

(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

برضه مش شغال لاسف

مش لاقي حل

(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

لمن تقول مش شغال،
اكيد تقصد انه لو يحفظ ولم تظهر رسالة خطا

(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

(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

انتظر الرد

تم حل المشكلة
بهذا الكود

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 