Помогите новичку с 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);
не помогло - помогите пож - кто знает.
|