我有一个应用程序,它大量使用Wininet
函数从互联网获取一些数据。我有时会收到一个非常奇怪的与句柄相关的错误消息:
Internal error in ConnectToHost when trying to create a session
ERROR_INTERNET_OUT_OF_HANDLES: No more handles could be generated at this time. Wininet error code = 12001;
发生这种情况时,我注意到我的应用程序创建了 5000 多个句柄。我运行了一个资源配置文件,发现一些由创建的句柄wininet
没有被释放。
因此,我创建了一个小应用程序来重现该问题。wininet
代码很简单,除了分配一些句柄然后释放它们之外什么都不做。那是代码:
procedure request(const AUrl : AnsiString);
var
sMethod : AnsiString;
pSession : HINTERNET;
pConnection : HINTERNET;
pRequest : HINTERNET;
port : Integer;
flags : DWord;
begin
pSession := InternetOpen(nil, INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);
if Assigned(pSession) then
try
Port := INTERNET_DEFAULT_HTTP_PORT;
pConnection := InternetConnectA(pSession, PAnsiChar(AUrl), port, nil, nil, INTERNET_SERVICE_HTTP, 0, 0);
if Assigned(pConnection) then
try
sMethod := 'GET';
flags := INTERNET_SERVICE_HTTP;
pRequest := HTTPOpenRequestA(pConnection, PAnsiChar(sMethod), PAnsiChar(AUrl), nil, nil, nil, flags, 0);
try
if Assigned(pRequest) then
ShowMessage('ok');
finally
InternetCloseHandle(pRequest);
end;
finally
InternetCloseHandle(pConnection);
end;
finally
InternetCloseHandle(pSession);
end;
end;
在我的分析器上运行这个示例,我得到了相同的句柄相关问题。
我认为这InternetCloseHandle
并没有像应该那样释放句柄,因为我的资源配置文件告诉我,当我关闭应用程序时,我有 3 个活动句柄。这些是未被释放的句柄:
pRequest
pConnection
pSession
有谁知道如何摆脱这个?
编辑
该函数InternetCloseHandle
工作正常,返回值为true
.
编辑
我在互联网上搜索了很多,但我找不到任何人抱怨这一点。但它正在发生。我想知道是否有人复制了这个问题,或者只是我一个人。