本文整理自网络,侵删。
procedure TForm1.Button2Click(Sender: TObject);varms:TMemoryStream;jpg:TJpegImage;vp:string;beginms:=TMemoryStream.Create;jpg:=TJpegimage.Create;vp:='http://ptlogin2.qq.com/getimage?aid=15000102&0.04531191241475274';IdHTTP1.Get(vp,ms);ms.Position:=0;jpg.LoadFromStream(ms);image1.Picture.Assign(jpg);
ms.Free;jpg.free;end;
相关阅读 >>
Delphi twebbrowser与嵌入youtube视频崩溃
Delphi2010:把stringgrid数据保存到excel
Delphi firemonkey的屏幕分辨率hdpi、mdpi、ldpi的差别
更多相关阅读请进入《Delphi》频道 >>