使用WinHttpApi異步時記憶體會泄露？-有解無憂

程式我已經打開了FastMM，關閉的時候沒有提示任何的記憶體泄露
但是在執行的時候，訪問一個5kb大小的埠，2000次左右記憶體就上50m了，很蛋疼。
代碼：
h_Session,
h_Connect,
h_Request:Pointer;//該單元內全域變數

while true do

begin
  Submit;
  Sleep(5);//延遲五毫秒的時間
end;

procedure Submit;
begin
h_session:= WinHttpOpen(nil, WINHTTP_ACCESS_TYPE_NO_PROXY, nil, nil, WINHTTP_FLAG_ASYNC);

WinHttpSetStatusCallback(h_session, AsyncCallBack, WINHTTP_CALLBACK_FLAG_ALL_NOTIFICATIONS, 0);

h_connect:= WinHttpConnect(h_session, PChar('c.tieba.baidu.com'), Url.port, 0);

h_request:= WinHttpOpenRequest(h_connect, PChar('GET'),  PChar('/c/s/filluname'), PChar('HTTP/1.1'), nil, nil, 0);

WinHttpSendRequest(h_request, nil, 0, nil, 0, 0, 0);

end;

回呼函式代碼；
procedure AsyncCallBack(hInternet: Pointer; dwContext: DWORD;dwInternetStatus:
      DWORD; lpvStatusInformation: Pointer; dwStatusInformationLength:DWORD); stdcall;
var
   Res : TMemoryStream;
   Size: DWORD;
   Buff: Array[1..4096] of Char;
begin
   case dwInternetStatus of
     WINHTTP_CALLBACK_STATUS_SENDREQUEST_COMPLETE:
     begin
       WinHttpReceiveResponse(hInternet, nil);
     end;
     WINHTTP_CALLBACK_STATUS_HEADERS_AVAILABLE:
     begin
       WinHttpSetStatusCallback(hInternet, nil, 0, 0);
       try
         Res:= TMemoryStream.Create;
         Size := 0;
         while WinHttpReadData(hInternet, @Buff, 4096, Size) do
         begin
           if Size <= 0 then Break;
           Res.Write(Buff[1], Size);
           Size:= 0;
         end;
       finally
         if Assigned(hInternet) then WinHttpCloseHandle(hInternet);
         FreeAndNil(Res);
       end;
     end;
     WINHTTP_CALLBACK_STATUS_HANDLE_CLOSING:
     begin
       if Assigned(hInternet) then WinHttpCloseHandle(hInternet);
     end;
   end;
end;

uj5u.com熱心網友回復：

后臺資源不會立即釋放，具體解釋看下面吧。
http://stackoverflow.com/questions/12652868/winhttpopen-leaking-memory

uj5u.com熱心網友回復：

參考 1 樓 pathletboy 的回復:

后臺資源不會立即釋放，具體解釋看下面吧。
http://stackoverflow.com/questions/12652868/winhttpopen-leaking-memory

哦，也就是說，繼續等待一定的時間它會自動釋放掉嘛？

uj5u.com熱心網友回復：

參考 2 樓 u013162070 的回復:

Quote: 參考 1 樓 pathletboy 的回復:

后臺資源不會立即釋放，具體解釋看下面吧。
http://stackoverflow.com/questions/12652868/winhttpopen-leaking-memory

哦，也就是說，繼續等待一定的時間它會自動釋放掉嘛？

就是這樣，你可以加點超長的sleep，看他最后釋放沒。

uj5u.com熱心網友回復：

參考 3 樓 pathletboy 的回復:

Quote: 參考 2 樓 u013162070 的回復:

Quote: 參考 1 樓 pathletboy 的回復:

后臺資源不會立即釋放，具體解釋看下面吧。
http://stackoverflow.com/questions/12652868/winhttpopen-leaking-memory

哦，也就是說，繼續等待一定的時間它會自動釋放掉嘛？

就是這樣，你可以加點超長的sleep，看他最后釋放沒。

那請問，我可不可以用SetProcessWorkingSetSize？

轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/86090.html

標籤：網絡通信/分布式開發

上一篇：delphi7寫讀寫xml單元時，提示：程式有錯，不能完成呼叫

下一篇：PageControl 和PageControl1 多頁問題