Webbrowser同时访问两个网址导致程序出错的解决办法

    有些时候我们用Webbrowser,在一些配置不好的机器上,访问网页会比较卡,特别是自动提交表单的时候。这时,如果一先一后访问两个网址或两个表单,而正好这时机器卡了一下。那这两个网址就变成一起传递给机器,这会造成系统文件M***.dll(具体文件名记不清了)出错而程序出错退出。想了好久,用了好多办法也没有解决这个问题,今天在写多线程程序的时候,突发奇想,用多线程访问网页怎么样呢?我就写了下面的例子,发现完美解决程序出错问题。有遇到这个问题的菜鸟拿去看看吧,高手就不要看了,见笑了。

var
  Form1: TForm1;
  Tid1, Tid2: DWord;

implementation

{$R *.dfm}

procedure Goto1();
begin
  WebBrowser1.Navigate('www.google.cn');
end;

procedure Goto2();
begin
  WebBrowser1.Navigate('www.baidu.com');
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  BeginThread(nil, 0, @Goto1, nil, 0, Tid1);
  BeginThread(nil, 0, @Goto2, nil, 0, Tid2);
end;

end.

但是如果像下面这样写,十个机器有五六个会发生出错程序退出的状况:

procedure TForm1.Button1Click(Sender: TObject);
begin
  WebBrowser1.Navigate('www.google.cn');
  WebBrowser1.Navigate('www.baidu.com');
end;



评论: 0 | 引用: 0 | 查看次数: -
发表评论
昵 称:
密 码: 游客发言不需要密码.
邮 箱: 邮件地址支持Gravatar头像,邮箱地址不会公开.
网 址: 输入网址便于回访.
内 容:
验证码:
选 项:
虽然发表评论不用注册,但是为了保护您的发言权,建议您注册帐号.
字数限制 1000 字 | UBB代码 开启 | [img]标签 关闭