Показать сообщение отдельно
  #1  
Старый 05.02.2008, 23:03
НВ25 НВ25 вне форума
Прохожий
 
Регистрация: 05.02.2008
Сообщения: 4
Репутация: 10
По умолчанию Помогите новичку с TWebBrowser.Navigate2()

пробую написать программку в которой
по количеству строк в таблице SG происходит навигация

//********************
// выполнение навигации
procedure SendData(TargetData:integer);
begin
....
в которой навигация осуществляется :
GForm.WebB.Navigate2(URLN, Flags, TargetFrameName, PostData, Headers);
ShowMessage('Данные отправлены');
end;
//***************
procedure TGForm.Timer1Timer(Sender: TObject);
var
i:integer;
begin
For i:=1 to SG.RowCount do
begin
GForm.SendData(i);
end;
end;
//**************

происходит выполнение только первого перехода

видимо цикл проходит раньше чем webBrowser справляется с командой...
пробовал в цикл ставить задержку sleep(1000*10);
не помогло - помогите пож - кто знает.
Ответить с цитированием