idhttp.post方法后内存问题

2020-10-09 04:21:00 315 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

http 调用soap webservice delphi 使用控件idhttp，post xml字符串，获取返回结果有用记得回复一下，满足我小小的虚荣心 //下面是是调用AAA的接口，返回的也是xml字符串 //这个调了一整天，网上没找到完整的资料，一些属性猜了又猜，还用抓包工具不断调，才搞定，程序员有时也要踩狗屎才行啊很多人都习惯用httprio控件，不过我用的是delphi7, 然后这个控件就不稳定了，要到De 阅读详情

请教个问题：
调试时发现我每执行一次IDHTTP.post 方法，就会有一个叫TidSSLCipher没有释放内存，这该如何处理呀？

...全文

从无人机到机械臂：深入聊聊LQR和LQG在实际项目里的那些‘坑’与最佳实践本文深入探讨了LQR和LQG在无人机和机械臂等实际项目中的应用挑战与最佳实践。从系统建模的妥协艺术到调参的系统化方法，再到离散化的细节处理，文章分享了工程实践中的宝贵经验。特别强调了如何应对传感器噪声、未建模动态等现实问题，并提供了实用的调试工具和诊断流程，帮助工程师避免常见陷阱，提升控制系统的稳定性和性能。阅读详情

linghengmao

Delphi 5,944 成员 262,941 内容

+ 关注 + 加入社区

切换为时间正序

linghengmao 2020-11-27

打赏
举报

还有人知道吗？

BlueStorm 2020-11-27

打赏
举报

解决方法1：升级indy版本。Delphi中的indy可以更新到较新的indy版本，毕竟indy是第三方组件，最新版本都是支持D7的。解决方法2：自己修复这个Bug。跟踪看一下TidSSLCipher是什么时候创建的，有没有释放。解决方法3：升级delphi版本。不少人一直认为D7“经典”，我觉得那纯属放屁。Windows98， Dos6.22也很经典，怎么不见他们用？

tanqth 2020-11-27

打赏
举报

引用 8 楼 linghengmao 的回复:

还有人知道吗？

还没搞定啊，不行就换高版本开发嘛，我之前专门给你测试了，现在的版本没你出现这情况。不想换版本开发还有一条路，就是单独用高版本封装POST功能为DLL，然后你现在的系统去调用。

linghengmao 2020-10-10

打赏
举报

释放了的，但好像释放得不干净，不知从哪里冒出 TidSSLCipher 这个没有被释放

tanqth 2020-10-10

打赏
举报

你那应该就是没有释放掉。或者说是在释放时出了问题。

linghengmao 2020-10-10

打赏
举报

我的版本是D7, 没有您所说的组件，现在的问题是代码可以执行，就是会有一点点内存泄漏，执行多了，原来程序只有几兆，一天下来就有100多兆了

tanqth 2020-10-09

打赏
举报

你的代码看上去是没什么问题的。测试了一下，没问题，可能是我们版本不同，我使用的是TIdSSLIOHandlerSocketOpenSSL，没有TIdSSLIOHandlerSocket。


Function HttpPost(MsgSend: String; vUrl: String): String;
var
  vHttp: TIdHTTP;
  vIdSSL: TIdSSLIOHandlerSocketOpenSSL;
  mStream: TStringStream;
  FUrl: string;
begin
  Result := '';
  FUrl:= vUrl;
    vHttp := TIdHTTP.Create(nil);
    try
      vHttp.Request.ContentType := 'application/x-www-form-urlencoded';
      mStream := TStringStream.Create(MsgSend,CP_UTF8);

      //使用https安全通讯方式
      vIdSSL := TIdSSLIOHandlerSocketOpenSSL.Create(nil);
      vHttp.IOHandler := vIdSSL;

      //Post 数据
      Result := vHttp.Post(FUrl,mStream);

    finally
      vHttp.IOHandler := nil;
      //vHttp.Disconnect;
      //vIdSSL.Destroy;
      FreeAndNil(vIdSSL);
      FreeAndNil(vHttp);
      FreeAndNil(mStream);
    end;

end;

procedure TForm8.Button1Click(Sender: TObject);
begin
  HttpPost('test','https://open.youzanyun.com/api/youzan.trade.get/4.0.0');
end;

你可以试试换成TNetHTTPClient去POST。

linghengmao 2020-10-09

打赏
举报

httpGet创建如下： HttpGet:= TIdHTTP.Create(nil); HttpGet.HTTPOptions:= []; HttpGet.AllowCookies:= False; IdSSLIOHandlerSocket1:= TIdSSLIOHandlerSocket.Create(nil); IdSSLIOHandlerSocket1.SSLOptions.Method:= sslvSSLv23; HttpGet.IOHandler:= IdSSLIOHandlerSocket1; 释放如下： HttpGet.IOHandler:= nil; FreeAndNil(IdSSLIOHandlerSocket1); FreeAndNil(HttpGet); inherited;

linghengmao 2020-10-09

打赏
举报

代码如下，就是调用了有赞商城的接口 var resultStr: string; sToken: string; begin sToken:= frmdm.GetAccessTokenByYun; if Trim(sToken) = '' then Exit; HttpGet.Request.ContentType:= 'application/x-www-form-urlencoded' ; Liststr.Clear; ListStr.Values['tid'] := tid; resultStr := DecodeUtf8Str(HttpGet.Post('https://open.youzanyun.com/api/youzan.trade.get/4.0.0'+ sToken, Liststr)); Result:= resultStr; end;

tanqth 2020-10-09

打赏
举报

给出你使用的代码。正常情况下没这样的情况发生。

idhttp.post方法后内存问题

相关推荐