CARREGA IMAGENS DA INTERNET EM PICTUREBOX. [VB6]

MARIOW0071 14/07/2012 19:55:58
#406106
Bom Dia, Boa Tarde ou Boa Noite.
Pessoal Preocurei encasavelmente no forum, mas não encontrei nada relacionado ao que eu procuro.
Gostaria de saber alguma forma de carregar uma imagem em .jpg da internet, no PictureBox.
Agradeço desde de já a sua ajuda.
TECLA 15/07/2012 12:07:05
#406126
Uma alternativa possível, seria você fazer o DOWNLOAD da imagem da web (por ex. usando o controle INET) e em seguida carregar o PICTUREBOX com a imagem [Ô]local[Ô] recém-baixada.
MARIOW0071 15/07/2012 12:57:48
#406130
Mas não existe uma forma aprimorada de fazer isso, por favor!
TECLA 15/07/2012 13:28:06
#406132
Citação:

:
Mas não existe uma forma aprimorada de fazer isso, por favor!



Não diria aprimorada, mas é possível exibir uma imagem sem a necessidade do download com o controle WebBrowser.
MARCELO.TREZE 15/07/2012 15:27:03
#406136
Eu fiz um projetinho e até transformei em ocx que vc passa o link da imagem e ela é carregada na pictue mas so amanhâ poderei passar apenas me lembre.
MARIOW0071 15/07/2012 19:35:30
#406144
OK...!
Irei esperar anciosamente.
MARCELO.TREZE 16/07/2012 11:15:33
#406172
bom colega veja simples de mais

coloque em um form um Picturebox, um CommandButton e um TextBox

e cole


Option Explicit

[ô] API URLDownloadToFile
 Private Declare Function URLDownloadToFile _
     Lib [Ô]urlmon[Ô] _
     Alias [Ô]URLDownloadToFileA[Ô] ( _
         ByVal pCaller As Long, _
         ByVal szURL As String, _
         ByVal szFileName As String, _
         ByVal dwReserved As Long, _
         ByVal lpfnCB As Long) As Long

Private Sub Command1_Click()
  Call Descargar(Text1.Text)
End Sub

 Sub Descargar(Url As String)

     Me.MousePointer = vbHourglass
    
     Call URLDownloadToFile(0, Url, App.Path & [Ô]\imagen.gif[Ô], 0, 0) [ô] a imagem é salva em um arquivo

     Me.MousePointer = vbDefault

     Picture1 = LoadPicture(App.Path + [Ô]\imagen.gif [Ô]) [ô]depois carregada na picture
     Picture1.AutoSize = True

If Len(Dir(App.Path & [Ô]\imagen.gif[Ô])) Then
         Kill App.Path & [Ô]\imagen.gif[Ô] [ô] em seguida ela é apagada
End If
End Sub


Coloque a url da imagem no textbox e teste
ex: http://www.pbs.org/deepspace/images/einstein.gif

PS: codigo retirado aqui mesmo do site, ele não aceita imagens png, por um simples motivo o picture não aceita png.

porém se precisar de png mando uma ocx retirada aqui do site tambem e funcionará que é uma maravilha
MARIOW0071 16/07/2012 14:14:01
#406191
Muito Obrigado MARCELO-TREZE .
Você Simplismente é um otimo programador.
MARCELO.TREZE 16/07/2012 14:17:16
#406192
Disponha colega, só reforçando o código não é meu, mas ja ajudou a muitos.
Tópico encerrado , respostas não são mais permitidas
Voltar