mój kod wygląda następująco
procedure TForm1.Button4Click(Sender: TObject);
begin
if RadioButton1.checked = true then
WebBrowser.Navigate('www.costa.pl.');
timer3.enabled:=true;
if RadioButton2.checked = true then
WebBrowser.Navigate('www.costam1.pl');
timer6.enabled:=true;
Niby wszystko ok a teraz kod z timer 3
begin
Memo9.Text := GetLinks(WebBrowser); ///pobiera linki
memo9.Lines.SaveToFile('bza/rbza.rft') ;
memo8.Lines.Loadfromfile('bza/rbza.rft') ;
Memo1.Lines.add('Kompletuje baze danych...');
WebBrowser.Navigate('http://www.fotka.pl/ranking/kobiety_dolnoslaskie.html');
Memo1.Lines.add('Proszę czekac');
Teraz:=Now;
repeat
Application.ProcessMessages; // Pozwalamy aplikacji obsłużyć komunikaty
until Teraz+5/SecsPerDay<Now; // 5 to liczba sekund pauzy
Memo9.Text := GetLinks(WebBrowser); ///pobiera linki
memo9.Lines.SaveToFile('bza/rbza.rft') ;
memo8.Lines.Loadfromfile('bza/rbza.rft') ;
WebBrowser.Navigate('http://www.fotka.pl/ranking/kobiety_malopolskie.html');
Memo1.Lines.add('Prosze czekac');
// Tu operacje wykonywane po pauzie
end;
begin
Memo9.Text := GetLinks(WebBrowser); ///pobiera linki
memo9.Lines.SaveToFile('bza/rbza.rft') ;
memo8.Lines.Loadfromfile('bza/rbza.rft') ;
Memo1.Lines.add('Kompletuje baze danych...');
WebBrowser.Navigate('str2l');
Teraz:=Now;
repeat
Application.ProcessMessages; // Pozwalamy aplikacji obsłużyć komunikaty
until Teraz+5/SecsPerDay<Now; // 5 to liczba sekund pauzy
Memo9.Text := GetLinks(WebBrowser); ///pobiera linki
memo9.Lines.SaveToFile('bza/rbza.rft') ;
memo8.Lines.Loadfromfile('bza/rbza.rft') ;
WebBrowser.Navigate('str3');
Memo1.Lines.add('Jeszcze chwilke ;)');
end;
a timer 6
jets taki sam tyylko ma inne link
program zachowuje sie dziwnie wchodzi na linki z timera 2 gdy powinien z 1 i cały czas siedzi na 1 str.