idhttp获取验证码范例

idhttp获取验证码范例  

2011-11-10 18:46:28|  分类： delphi |  标签： |字号大中小 订阅

imgVerify: TImage;　//image控件

procedure TForm1.btnverifyClick(Sender: TObject);
var
  vergif:TGIFImage;
  memc:TMemoryStream;
  verifyurl:string;
begin
  verifyurl := cbbVerify.Text;
  vergif := TGIFImage.Create;
  memc   := TMemoryStream.Create;

  IdHTTP1.Get(verifyurl,memc);
  memc.Position := 0;
  vergif.LoadFromStream(memc);
  //Canvas.Draw(10,10,vergif);
  imgVerify.Canvas.Draw(0,0,vergif);
end;