本文整理自网络,侵删。
uses
jpeg;function TForm1.GetImage(url: string): boolean;
var
MemoryStream:TMemoryStream;
Idhttp:TIdhttp;
Img: TJPEGImage;
begin
MemoryStream:=TMemoryStream.Create ;
Idhttp:=Tidhttp.Create(nil);
Img := TJPEGImage.Create;
try
Idhttp.Get(url,MemoryStream);
MemoryStream.Position := 0;
Img.LoadFromStream(MemoryStream);
Image1.Picture.Bitmap.Assign(Img);
finally
MemoryStream.Free ;
Idhttp.Free;
Img.Free;
end;
end;
相关阅读 >>
Delphi代码,直截注入别的进程,之后直截运行在别的进程中的代码!
Delphi 利用windows api判断文件共享锁定状态
更多相关阅读请进入《Delphi》频道 >>