我对 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
它应该等待页面加载结束。
有人对此有想法吗?
提前致谢 !:)
贝尼