carregar foto de um endereço na net

Delphi

08/09/2010

 Bom pessoal, gostaria da ajuda de vocês,  estou precisando carregar uma imagem que esta no site  empresa pra poder mostrar no componet Timagem. Exite uma forma fácil de se fazer isso?
           Obrigado
Wilke Maia

Wilke Maia

Curtidas 0

Respostas

Eduardo Marcolongo

Eduardo Marcolongo

08/09/2010

Coloque um TImage e renomei para IMColoque um IdHTTP da guia Indy Clients (icone=globo)
procedure TForm1.BitBtn1Click(Sender: TObject);var  strStream: String;  memStream: TMemoryStream;  jpegimg: TJPEGImage;begin  try    strStream := Form1.idhttp1.Get('http://www.laptoppicker.com/archives/fujitsu-t5010-convertible-laptop-tablet-pc.jpg');  except    //ShowMessage('Image was not found');    Exit;  end;  memStream := TMemoryStream.Create;  jpegimg   := TJPEGImage.Create;  try    memStream.Write(strStream[1], Length(strStream));    memStream.Position := 0;    jpegimg.LoadFromStream(memStream);    im.Picture.Assign(jpegimg);  finally    memStream.Free;    jpegimg.Free;  end;end;
GOSTEI 0
Wilke Maia

Wilke Maia

08/09/2010

Resolvido
      Obrigado Amigo valeu. Funcionou certinho ok
GOSTEI 0
POSTAR