delphi Idhttp 验证码登录


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方式登陆了

联系电话:
020-00000000
联系电话:
020-00000000
联系电话:
020-12345678