web sayfasından bir resmin alınması

procedure TForm1.Button1Click(Sender: TObject);

var

strStream: String;

memStream: TMemoryStream;

jpegimg: TJPEGImage;

begin

strStream := idhttp1.Get('http://www.inetport.com/~shipman/scroller.jpg');

memStream := TMemoryStream.Create;

jpegimg := TJPEGImage.Create;

try

memStream.Write(strStream[1], Length(strStream));

memStream.Position := 0;

jpegimg.LoadFromStream(memStream);

Image1.Picture.Assign(jpegimg);

finally

memStream.Free;

jpegimg.Free;

end;

end;