delphi Tidhttp用法说明.docxVIP

IDHttp的基本用法一、IDHTTP的基本用法IDHttp和WebBrowser一样，都可以实现抓取远端网页的功能，但是http方式更快、更节约资源，缺点是需要手动维护cook，连接等IDHttp的创建，需要引入IDHttpprocedure InitHttp();beginhttp := TIdHTTP.Create(nil);http.ReadTimeout := 30000;http.OnRedirect := OnRedirect;http.Request.Accept := image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/x-shockwave-flash, */*;//idhtp.Request.Accept := //Accept=text/hmxl,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8;http.Request.AcceptLanguage := zh-cn;//idhtp.Request.AcceptCharSet:=Accept-Charset=gb2312,utf-8;q=0.7,*;q=0.7;http.Request.ContentType := application/x-www-form-urlencoded;http.Request.UserAgent := Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; Maxthon; .NET CLR 1.1.4322);http.ProxyParams.ProxyServer := 代理服务器地址;http.ProxyParams.ProxyPort := 代理服务器端口;end;二、如何取得服务端返回的cookie信息，并添加到http的request对象中procedure Setcookie;vari: Integer;tmp, cookie: String;begincookie := ;for i := 0 to http.Response.RawHeaders.Count - 1 dobegintmp := http.Response.RawHeaders[i];if pos(set-cookie: , LowerCase(tmp)) = 0 then Continue;tmp := Trim(Copy(tmp, Pos(Set-cookie: , tmp) + Length(Set-cookie: ), Length(tmp)));tmp := Trim(Copy(tmp, 0, Pos(;, tmp) - 1));if cookie = then cookie := tmp else cookie := cookie + ; + tmp;end;if cookie thenbeginfor i := 0 to http.Request.RawHeaders.Count - 1 dobegintmp := http.Request.RawHeaders[i];if Pos(cookie, LowerCase(tmp)) = 0 then Continue;http.Request.RawHeaders.Delete(i);Break;end;http.Request.RawHeaders.Add(cookie: + cookie);end;end;三、如何取得网页中的所有连接，对代码做修改你也可以实现查找所有图片等等function GetURLList(Data: String): TStringList;vari: Integer;List: TStringList;tmp: String;function Split(Data, Node: String): TStringList;varCount, i, j: Integer;function GetFieldCount(Data, Node: String): Integer;vari: Integer;beginResult := -1;i := Pos(Node, Data);if i = 0 then Exit;Result := 0;while i 0 dobeginInc(Result);Delete(Data, 1, i + Length(Node) - 1);i := Pos(Node, Data);end;end;beginResult := TStringList.Create;　Count := GetFieldCount(Data,