Fórum carregar foto de um endereço na net #385855

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;