delphi – 如何跟踪TIdHttp的原始请求和响应内容

概述我使用delphi和 python实现了相同的代码(发布表单). python代码运行完美,但delphi代码失败.在python中,我可以简单地编写httplib2.debuglevel = 4来查看实际发送到服务器的内容.但我不知道如何在delphi中打印内容. def python_request_data(url, cookie, data): httplib2.debugleve 我使用delphi和 python实现了相同的代码(发布表单). python代码运行完美,但delphi代码失败.在python中,我可以简单地编写httplib2.deBUGlevel = 4来查看实际发送到服务器的内容.但我不知道如何在delphi中打印内容.

def python_request_data(url,cookie,data):    httplib2.deBUGlevel = 4    conn = httplib2.http()    conn.follow_all_redirects = True    headers = {'cookie': cookie,'Content-Type': 'application/x-www-form-urlencoded'}    response,contents = conn.request(url,'POST',data,headers=headers)procedure DelphiRequestData(const Url,cookie,Data: string);var  ClIEnt: TIDhttp;  Params: TStringList;  Response: string;begin  ClIEnt := TIDhttp.Create(nil);  try    ClIEnt.httpOptions := [hoKeepOrigProtocol];    ClIEnt.Request.Customheaders.AddValue('cookie',cookie);    Params := TStringList.Create;    try      Params.QuoteChar := #0;      Params.Delimiter := '&';      Params.DelimiterText := Data;      ClIEnt.Request.ContentType := 'application/x-www-form-urlencoded';      ClIEnt.Request.ContentLength := Length(Params.delimitedText);      Response := ClIEnt.Post(Url,Params);    finally      Params.Free;    end;  finally    ClIEnt.Free;  end;end;

任何提示都表示赞赏.

解决方法 您可以使用TIDLogDeBUG作为您的IDhttp的拦截. 事件OnSend和OnReceive将在数组或TBytes中提供所需的信息. 总结

以上是内存溢出为你收集整理的delphi – 如何跟踪TIdHttp的原始请求和响应内容全部内容，希望文章能够帮你解决delphi – 如何跟踪TIdHttp的原始请求和响应内容所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。