代码部分如下: OleInitialize(nil);
wb:=TWebBrowser.Create(nil);
try
wb.Navigate('www.sina.com.cn'); while wb.ReadyState < READYSTATE_COMPLETE do
Application.ProcessMessages; Docs := wb.OleObject.Document;
在多线程里用,为什么while循环里出不来如果TWebBrowser不是手工创建,而是放控件在form上
代码则没有问题
wb:=TWebBrowser.Create(nil);
try
wb.Navigate('www.sina.com.cn'); while wb.ReadyState < READYSTATE_COMPLETE do
Application.ProcessMessages; Docs := wb.OleObject.Document;
在多线程里用,为什么while循环里出不来如果TWebBrowser不是手工创建,而是放控件在form上
代码则没有问题
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货