一个简单的语法，放在线程中程序就崩溃，放在BUTTON下就没问题，有代码
var
FHTTPObj: OleVariant;
begin
FHTTPObj := CreateOleObject('WinHttp.WinHttpRequest.5.1');
log(3);
// FHTTPObj.Charset :='GB2312';
FHTTPObj.setTimeouts(50000, 50000, 50000, 50000);
FHTTPObj.Open('GET', 'https://www.baidu.com/', False);
FHTTPObj.SetRequestHeader('User-Agent', MyUserAgent);
FHTTPObj.SetRequestHeader('Content-Type', 'application/x-www-form-urlencoded');
end;
这个函数 放在线程下 程序就崩溃 放在BUTTON主程序下 就完全没问题，请教哪出了问题 多线程 gb2
[解决办法]
试下这样：
uses ActiveX;
var
FHTTPObj: OleVariant;
begin
coInitialize(nil);
try
FHTTPObj := CreateOleObject('WinHttp.WinHttpRequest.5.1');
log(3);
// FHTTPObj.Charset :='GB2312';
FHTTPObj.setTimeouts(50000, 50000, 50000, 50000);
FHTTPObj.Open('GET', 'https://www.baidu.com/', False);
FHTTPObj.SetRequestHeader('User-Agent', MyUserAgent);
FHTTPObj.SetRequestHeader('Content-Type', 'application/x-www-form-urlencoded');
finally
CoUninitialize;
end;
end;
