procedure TForm1.Button2Click(Sender: TObject);
var
ms:TMemoryStream;
jpg:TJpegImage;
vp:string;
begin
ms:=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用内存流方式获取页面验证码图片
最新推荐文章于 2017-06-15 22:38:00 发布