1

我对 Delphi 中嵌入的 Chrome 有一个小问题。
我想从 ListBox(循环)中的 URL 列表中获取页面的文本。

这似乎很容易!我的代码看起来像:

for i := 0 to Form1.ListBox1.Items.Count - 1 do
begin
  // Load URL
  Form1.Chromium1.Browser.MainFrame.LoadUrl(Form1.ListBox1.Items[i]);

  // Put text in StringList
  s := TStringList.Create;
  s.Text := Trim(Form1.Chromium1.Browser.MainFrame.Text);

  // Save with random name
  s.SaveToFile(ExtractFilePath(Application.Exename) +
    IntToStr(RandomRange(1000, 9999)) + '.txt');
end;

循环工作,但只需要 1-2 秒,保存的文件是空
的......实际上循环在加载页面之前完成:S
它应该等待页面加载结束。

有人对此有想法吗?
提前致谢 !:)

贝尼

4

0 回答 0