uses jpeg,;
type
TForm1 = class(TForm)
...
Image1: TImage;
IdHTTP1: TIdHTTP;
...
end;
- procedure TForm1.FormCreate(Sender: TObject);
- var
- tmp:string;
- IMS:TMemoryStream;
- ijpeg : TJPEGImage;
- IdHTTP1: TIdHTTP;
- begin
- IMS:=TMemoryStream.Create;
- IdHTTP1:=TIdHTTP.Create;
- IdHTTP1.Get('http://192.168.1.168/2008/Services/images/1_r4_c2.jpg',IMS);
- Image1.Picture.Assign(nil);
- ijpeg := TJPEGImage.Create;
- IMS.Position :=0;
- ijpeg.LoadFromStream(IMS);
- IMS.Free;
- Image1.Picture.Assign(ijpeg);
- ijpeg.Free;
- IdHTTP1.Free;
- end;