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