ersion + tmpGerVersion; except end; tmpIdHTTP.Free; end; //取得验证码 function GetVerifyPic(aIdHTTP:TIdHTTP; var aImage: TImage): boolean; var ms:TMemoryStream; pic:TJPEGImage; begin Result:=False; try ms:=TMemoryStream.Create; try aIdHTTP.Request.SetHeaders; aIdHTTP.Request.RawHeaders.Clear; aIdHTTP.Request.Accept:= '*/*'; aIdHTTP.Request.AcceptLanguage:= 'zh-CN'; aIdHTTP.Request.Referer:= 'ui.ptlogin2.qq/cgi-bin/login? link_target=blank&;appid=15000102&;#39;; aIdHTTP.Request.ContentType:= 'application/x-www-form-urlencoded'; aIdHTTP.Request.AcceptEncoding:= 'gzip, deflate'; aIdHTTP.Request.UserAgent:= 'Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1)'; aIdHTTP.Request.Connection:= 'Keep-Alive';
aIdHTTP.Request.CacheControl:= 'no-cache'; aIdHTTP.Request.Host:= 'ptlogin2.qq'; aIdHTTP.Request.URL:= Format('/getimage?aid=15000102&;%0.15f', [Time ()]); aIdHTTP.Host:= 'ptlogin2.qq'; aIdHTTP.ReadTime