Problem z radio buttonem i pętelka

0

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.

0

problem główne polega na tym że app zapętla się na odwiedzaniu 1 str. z timera ;/

0

oki juz sobie proadzilem tylko nie potrafie zorbic jednej rzeczy:
ze gdy zaznaczony rediobutton 1 to wlacz tim er czy gdy radiobutton 2 to wlacz timer 6

odpala u mnie oba timerki ;/

0

w onclick RadioButton1 daj coś takiego:

Timer3.Enabled := RadioButton1.Checked; //Włącz timer
Timer6.Enabled := not RadioButton1.Checked; //Wyłącz timer

i tak samo dla RB2 tyle że włączasz Timer6 a wyłączasz Timer3

1 użytkowników online, w tym zalogowanych: 0, gości: 1