Delphi webbrowser获取tthread对象中的所有链接

发布时间：2020-12-15 09:12:19 所属栏目：大数据来源：网络整理

导读：我在tthread对象中运行代码时遇到问题.如果网址包含“http://www.ebay.com/itm/”,它应该通过twebbrowser中的所有链接然后将其复制到备忘录中.代码在mainform中完美运行,但在tthread对象中不起作用. 我的代码： begin count := 0; loop := 0; repeat link :=

我在tthread对象中运行代码时遇到问题.如果网址包含“http://www.ebay.com/itm/”,它应该通过twebbrowser中的所有链接然后将其复制到备忘录中.代码在mainform中完美运行,但在tthread对象中不起作用.

我的代码：

begin
  count := 0;
   loop := 0;
    repeat
    link := Webbrowser1.OleObject.Document.Links.Item(loop).href;
     if AnsiContainsStr(link,'http://www.ebay.com/itm/') then
    begin
     Form1.Memo1.Lines.Add(link);
    end;

  end;

     loop := loop + 1;
    count := count + 1;
  until count = Webbrowser1.OleObject.Document.links.Length;
end;

我得到的错误

Access violation at address xxxxxx in module mshtml.dll

感谢阅读和所有回复.

解决方法

您的控件仍然具有GUI线程的无限性.因此,您无法从工作线程访问它.

您只需稍微调整线程设计即可实现此功能.处理页面的源代码以拉出GUI线程中的所有链接.这必须在那里完成,你别无选择.但是然后让工作线程进行链接的继续处理.我假设真正的应用程序更多的链接,而不是把它们放在备忘录中！

你应该有一个简单的生产者/消费者设计. GUI线程生成链接列表.工作线程消耗它们.线程安全队列将允许您在线程之间同步任务.并且您可能会受益于使用像OTL这样的更高级别的库而不是编写原始线程.

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!