哪位大神帮我看下 这段程序困扰我3天了

离开鱼的水

这段程序的目的是拉腾讯一个验证码到 image1里
三个控件 button  idhttp image  use 加入 Jpeg。

procedure TForm1.Button1Click(Sender: TObject);
var
  Response2:    TStringStream;
  n :  string;
  jpg:TJpegImage;
begin
  Response2 := TStringStream.Create('');
  jpg:=TJpegImage.Create;
  n:='https://ssl.captcha.qq.com/getimage?uin=303649128@qq.com&aid=46000101&0.174133981036801.js'; //验证码的抓包地址
  idhttp1.Head(n);//这句我不懂 好像要不要都可以
  idhttp1.Get(n,Response2);//get 验证码的地址。保存到流里
  Response2.Position:=0;//流位置返回开头
  jpg.LoadFromStream(Response2);
  image1.Picture.Assign(jpg);
end;

之前还有一个思路是把图片下载保存到本地在本机获取。
可是 SAVETOFILE 时候报错 最后放弃了。
求comeheres大神指点迷津:sweat:

comeheres

idhttp访问https需要加个IdSSLIOHandlerSocketOpenSSL吧，不然会出错，具体我也没试过

comeheres

这是我以前写的获取验证码代码，不过是http的

var
  image: TMemoryStream;
  jpg: TJPEGImage;
begin
  image := TMemoryStream.Create;
  IdHTTP1.Get('http://captcha.qq.com/getimage?uin=' + qq_n +
    '&aid=24000201&0.9444628176279366', image);
  image.Position := 0;
  jpg := TJPEGImage.Create;
  jpg.LoadFromStream(image);
  Image1.Picture.Assign(jpg);
  jpg.Free;
  image.Free;
end;

还有提醒下你，Response2和jpg创建了，用完记得释放，不然有内存泄露问题

comeheres

模拟登录手机网页版的腾讯微博吧，比这个简单多了

离开鱼的水

comeheres  大神威武。
手机网页的之前找人做过一个软件只能维持很短的时间。 aip的网页登陆确确实实可以到达1年的时间。转播收听的限制也少一些。