Форум АНТИЧАТ - Заставить файл ждать...[delphi]

Форум АНТИЧАТ (https://forum.antichat.xyz/index.php)

- С/С++, C#, Delphi, .NET, Asm (https://forum.antichat.xyz/forumdisplay.php?f=24)

- - Заставить файл ждать...[delphi] (https://forum.antichat.xyz/showthread.php?t=176629)

Заставить файл ждать...[delphi]

Всем привет! Подскажите как выполнить такие действия:
Цикл бесконечный:
1. Загружаем файл.
2. Вырезаем ссылку.
3. TWeBrowser на нее переходит.

Реализовал:

Код:

procedure TForm1.Button1Click(Sender: TObject);

var

s: string;

i: integer;

begin

While true do begin

If GetInetFile('http://site.ru', 'opa.js')=true then Memo1.Lines.LoadFromFile('opa.js');

s:=memo1.Lines.Strings[1];

Delete(s,1,21);

Delete(s,81,136);

WebBrowser1.Navigate(s);

end;

end;

, но как проверить условие - загрузилась ли ссылка или нет, и если да, то следующий круг цикла?

под рукой сейчас Delphi нету, но возможно у TWebBrowser'а есть событие что-то типа OnNavigateComplete...советую там посмотреть.

Вот код:

Код:

procedure navig;

begin

{здесь твоя процедура навигации}

Form1.WebBrowser1.Navigate('google.ru');

end;



{$R *.dfm}



procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;

  const pDisp: IDispatch; var URL: OleVariant);

begin

navig;

end;



procedure TForm1.Button1Click(Sender: TObject);

begin

Navig;

end;

Код:

OnDocumentComplete=WebBrowser1DocumentComplete