多线程中遇到 'interface not supported' 怎么解决？

[weiming3119]

不使用线程，很正常，使用了线程，就出现：project raised exception class EintfcastError with message 'interface not supported'.Process stopped.Use Step or Run to contiune

请有经验的高手指点一下。

function g_getHtml(http:string):string; //截取网页的方式
var
   req:IXMLHTTPRequest;
begin
   req:=CoXMLHTTPRequest.Create;//这句代码在多线程中执行时候报错
   req.open('Get',http, False,EmptyParam, EmptyParam);
   req.send(EmptyParam);
   result:=req.responseText;
end;

[武稀松]

线程没初始化COM环境,在你的线程里先做一件事. CoInitialize(nil)

[lyhoo163]

试试： req := CoXMLHTTP.Create; 早期版本： req := CoXMLHTTPRequest.Create;