delphi获取网页中验证码图片解决方案

delphi获取网页中验证码图片

Delphi(Pascal) code

procedure TfrmMain.GetImg(imgName: String);var  rang:IHTMLControlRange;begin  rang:=((IHTMLDocument2(WebBrowser.Document).body as HTMLBody).createControlRange)as IHTMLControlRange;  rang.add(IHTMLDocument2(WebBrowser.Document).images.item(imgName,EmptyParam)as IHTMLControlElement);  rang.execCommand('Copy', False, 0);  img.Picture.Assign(ClipBoard);end;

使用IE6.0.2900.2180获取不到图片，img.Picture.Assign(ClipBoard);出错 “invalid clipboard format”
使用IE6.0.2900.6036或IE8就可以获取到。
高手指点怎么能IE6.0以上版本都可以获取到。

[解决办法]

Delphi(Pascal) code

  //取验证码  strm := TMemoryStream.Create;  gif := TGIFImage.Create;  try    strm.Clear;    FHttp.Request.Referer := URL_Login;    FHttp.Get(Url,strm);    strm.Position := 0;    gif.LoadFromStream(strm);    CodePic.Assign(gif);  except    Result := False;    strm.Free;    gif.Free;    Exit;  end;  strm.Free; 

 

查看更多 下一篇