Ni wyrobie już z tym gglite

[fdavid]

Wytłumaczy mi ktoś dlaczego do jasnej anielki to nie działa?? Chodzi mi o sprawdzanie połączenia co jakiś czas:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
gglite.login := StrToInt(edit1.Text);
gglite.password := Edit2.Text;
gglite.GGInitHost;
gglite.GGLogon;
gglite.GGChangeUserStatus;

if gglite.GGLogon <> 0 then Form1.Timer1.Enabled:=true // jeśli gglite nie podłączony to timer aktywny (znowu spróbuje się połączyć)
else Form1.Timer1.Enabled:=false; // w innym przypadku (jeśli gglite podłączony) to timer nieaktywny

end;



Co jest błędnego w tym kodzie?? Na zdrowy rozum wszystko wygląda ok ale po odpaleniu servera robi się on co jakiś czas dostępny i potem niedostępny przez dłuższy czas........i tak w kółko

 

[rafal]

pisze to z glowy ale sprobuj moze tak :

procedure TForm1.Timer1Timer(Sender: TObject);
begin
gglite.login := StrToInt(edit1.Text);
gglite.password := Edit2.Text;
gglite.GGInitHost;
if GGLite.GGLogon()=0 then //jesli udane polaczenie z serwerem gg
begin
gglite.GGChangeUserStatus;
timer1.enabled:=false; //wylaczenie timera zeby nonstop sie nie laczyl gdy jestesmy polaczeni
end
else begin
Timer1.Enabled:=true; //wlaczenei timera w przypadku braku polaczenia (profilaktycznie)
end;
end;

jeszcze ustawilbym w funkcji OnDisconnecting aby w przypadku rozlaczenia wlaczyl sie timer

 

[fdavid]

THX maSs pomogło