Delphi Chromium Embedded And Loop - PullRequest
Новая
       21

Delphi Chromium Embedded And Loop

1 голос
/ 31 января 2012

У меня небольшая проблема с Chrome, встроенным в Delphi.
Я хотел бы получить текст страницы, загруженной из списка URL-адресов в ListBox (цикл).

Кажется,легко !Мой код выглядит так: 

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
Должно дождаться окончания загрузки страницы.

У кого-то есть идеи по этому поводу?
Заранее спасибо!:)

Бени

...