none
System.Runtime.InteropServices.ExternalException' occurred in System.Drawing.dll RRS feed

  • Pergunta

  • estou a ter o erro System.Runtime.InteropServices.ExternalException' occurred in System.Drawing.dll na função

     Private Sub Button3_Click1(sender As Object, e As EventArgs) Handles Button3.Click
            Dim wc As New WebClient
            Dim fs As System.IO.FileStream

            PictureBox1.Image = Nothing
            PictureBox1.BackColor = Color.Empty
            PictureBox1.Invalidate()
            ' workaround for 
            '   Image file is locked when you set the PictureBox Image property to a file
            fs = New System.IO.FileStream("loader.gif", IO.FileMode.Open, IO.FileAccess.Read)
            PictureBox1.Image = System.Drawing.Image.FromStream(fs)
            fs.Close()


            wc.Headers("content-type") = "application/x-www-form-urlencoded"
            Dim response As String = wc.UploadString("http://www.luisabreu.pt/new/remote_login.php", "u=" & txtUsername.Text & "&p=" & txtPWD.Text)
            If Logged(response) Then
                wc.Headers("content-type") = "application/x-www-form-urlencoded"
                response = wc.UploadString("http://www.luisabreu.pt/new/remote_profile_by_id.php", "id=" & response)

                
                Dim oP As New JSON_Profile
                oP = JsonConvert.DeserializeObject(Of JSON_Profile)(response)
                Dim pic As String = oP.pic
                If My.Computer.FileSystem.FileExists(Application.StartupPath & "\" & pic) Then
                    My.Computer.FileSystem.DeleteFile(Application.StartupPath & "\" & pic)
                    If Not My.Computer.FileSystem.DirectoryExists(Application.StartupPath & "\downloads") Then
                        My.Computer.FileSystem.CreateDirectory(Application.StartupPath & "\downloads")
                    Else
                        If My.Computer.FileSystem.FileExists(Application.StartupPath & "\downloads\" & pic) Then
                            My.Computer.FileSystem.DeleteFile(Application.StartupPath & "\downloads\" & pic)
                        End If
                    End If
                Else
                    If My.Computer.FileSystem.FileExists(Application.StartupPath & "\downloads\" & pic) Then
                        My.Computer.FileSystem.DeleteFile(Application.StartupPath & "\downloads\" & pic)
                    End If
                End If

                wc.DownloadFile("http://www.luisabreu.pt/new/profile-pics/" & pic, pic)

                My.Computer.FileSystem.MoveFile(Application.StartupPath & "\" & pic, Application.StartupPath & "\downloads\" & pic)

                TextBox1.Text = Application.StartupPath & "\downloads\" & pic
                ' workaround for 
                '   Image file is locked when you set the PictureBox Image property to a file
                fs = New System.IO.FileStream(TextBox1.Text, IO.FileMode.Open, IO.FileAccess.Read)
                PictureBox1.Image = System.Drawing.Image.FromStream(fs)
                fs.Close()

                ComboBox1.Text = oP.country
                txtFrase.Text = oP.citation
                txtAbout.Text = oP.about
                txtFname.Text = oP.member.n

            Else
                MessageBox.Show("O nome de utilizador ou a senha (ou ambos) estão errados. Tente novamente.", "Erro", MessageBoxButtons.OK, MessageBoxIcon.Error) ' erro
            End If
        End Sub

    alguém pode ajudar?

    sexta-feira, 24 de junho de 2016 18:46

Respostas

  • Não programo em vb, mas no c# quando tenho este problema geralmente o diretório que estou tentando salvar não existe, ou seja, o caminho para salvar a imagem é invalido.

    tente depurar isso

    http://www.codigoexpresso.com.br

    • Marcado como Resposta Thales F Quintas segunda-feira, 27 de junho de 2016 18:15
    sexta-feira, 24 de junho de 2016 19:09

Todas as Respostas

  • Não programo em vb, mas no c# quando tenho este problema geralmente o diretório que estou tentando salvar não existe, ou seja, o caminho para salvar a imagem é invalido.

    tente depurar isso

    http://www.codigoexpresso.com.br

    • Marcado como Resposta Thales F Quintas segunda-feira, 27 de junho de 2016 18:15
    sexta-feira, 24 de junho de 2016 19:09
  • obrigado. o erro acontece num caminho do programa sem gravações qd há gravações o erro n acontece 
    domingo, 26 de junho de 2016 15:38