本文整理自网络,侵删。
Idhttp 验证码登录 常规的操作应该没什么难度,如果是验证码呢?我只贴出关键的代码,其实也不是很复杂。但是网络上就是没有这方面的教程。
//第一步:获取验证码,代码如下:
procedure TForm1.btn2Click(Sender: TObject); var Jpg:TJPEGImage; Memory:TMemoryStream;begin Jpg := TJPEGImage.Create; Memory := TMemoryStream.Create; idhtp1.Get('这里是验证码的网址,在验证码图片上单击右键复制图像地址',Memory); Memory.Position := 0; Jpg.LoadFromStream(Memory); img1.Picture.Assign(Jpg); Jpg.Free; Memory.Free;end;
//第二步:获取验证码成功后,再获取验证码的Cookie,这个很关键;还要截取Cookie
基本来说只截取标该关键字的一行就可以了 Set-Cookie:****************************..;
截取完后,修改Set-Cookie:为Cookie:这个有基本idhttp编程的都应该知道。
procedure TForm1.btn3Click(Sender: TObject);begin mmo2.Text := idhtp1.Response.RawHeaders.Text;end;
//第三步:设置idhttp的Cookie,这个同样关键;
procedure TForm1.btn1Click(Sender: TObject);begin idhtp1.Request.CustomHeaders.Text := mmo2.Text; end;
//以上内容成功后,就可以使用Post或Get方式登陆了
相关阅读 >>
Delphi firemonkey app 如何获得当前系统语言设置
Delphi xe ttask.waitforall/waitforany 一不小心会造成内存泄露
Delphixe4 版本中,已针对移动平台 引入了 arc 模型
Delphi 5-7 桥接让Delphi xe2 datasnap中间层支持Delphi低版本开发客户端
更多相关阅读请进入《Delphi》频道 >>