delphi 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;

来路http://www.lsworks.net/article/74.html

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

相关推荐

评论