Servus,
Zitat von
Jackie1983:
Hier mal der Timer.
Sieht aber nicht wie ein TTimer aus, was Du da machst.
Zitat von
Jackie1983:
Delphi-Quellcode:
//Noch Online?
if not fClient.Active then begin
Synchronize(SetClientOnline); //-> fClient.Active := true;
//auf verbindung kurz warten
while not fClient.Active do
begin
sleep(100);
inc(i);
if (i=10) or (fClient.Active) then break;
end;
if not fClient.Active then fClient.Active := false;
end;
//Jobs zum server senden
if fClient.Active then
begin
//...
kann es sein das zu viele Verbindungen geöffnet werden und nicht richtig geschlossen, oder so?
Ja.
Vermutlich muesstest Du noch ein wenig mehr Code posten.
1.) wurde die var i initialisiert?
Wenn nicht startet sie bspw. bei 389198 und erreicht niemals 10
2.)
if not fClient.Active then fClient.Active := false;
Was soll dieses Statement. Wenn die Variable false ist wird sie auf false gesetzt????
Wenn man so etwas sieht, steht zu befuerchten, dass noch mehr Fehler im Code aussenherum sind.