TClient & TServer socket verbindung

[TobiasT]

Hi@all,

Komponenten:
TClient &
TServer Socket

Problemfall:
Ein Online-Spiel das die Verbindung zum Server aufbauen soll, wenn das Programm gestartet wird.
Wenn aber der Server nicht zu errichen ist, dann gibt er einen Asynchron Fehler aus und der Client versucht nicht mehr zu verbinden.

Frage:

ist es möglich den Clienten so lange verbinden zu lassen, bis das Programm geschlossen wird oder die Verbindung zum Server steht?



Mfg Tobias

[inherited]

Delphi-Quellcode:

repeat
  try
    tcpclient1.Connect;
  except
    inc(TriesToConnect);
  end;
until tcpclient1.Connected;

Bedenke aber, dass das nicht unbedingt die beste lösung ist, so wie du das machen willst!

[freak4fun]

Zitat:

Zitat von inherited

Delphi-Quellcode:

repeat
  try
    tcpclient1.Connect;
  except
    inc(TriesToConnect);
  end;
until tcpclient1.Connected;

Bedenke aber, dass das nicht unbedingt die beste lösung ist, so wie du das machen willst!

Öhm... dann hängt sich das Programm auf. Außer, da kommt ein Application.ProcessMessages; rein, das Connect kommt in einen Timer / Thread. Vielleicht sollte man auch noch andere Abbruchbedingungen einbauen. ;) Von der Grundidee aber richtig.

MfG
Freak

[inherited]

ARG, sehe jetzt erst, dass er sich auch mittendrin beenden sollen kann, sorry. Natürlich, Threads+Abbruchbedingung :wall:

[TobiasT]

Er gibt mir Leider immernoch einen Asynchron Fehler aus...

So sieht mein code zum connecten aus:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
Client.Address:='127.0.0.1';
Client.Port:=4100;
repeat
  Application.ProcessMessages;
  try
    client.Active:=true;
  except
    inc(TriesToConnect);
  end;
until client.Socket.Connected=true;
end;

Was mache ich falsch?

[freak4fun]

Hast du das programm mal über die *.exe gestartet und nicht über F9?

[ste_ett]

Prüfe mal, ob auf dem Port überhaupt was läuft, bei einem Connect auf localhost ist ein Fehler in der Verbindung eher unwahrscheinlich.

Sowas

Delphi-Quellcode:

until client.Socket.Connected=true;

macht man nicht. :)

Besser:

Delphi-Quellcode:

until ((client.Socket.Connected) or (TriesToConnect >= MAX_TRIES));

[TobiasT]

Hab das Programm über die exe gestartet und den code von ste_ett eingebaut.

Wenn der Server läuft, geht alles Wunderbar!

Wenn der Server ausgeschaltet ist, hängt sich das Programm auf, es kommt keine Form und nach einiger Zeit eine Asynchron Fehler meldung...

[ste_ett]

Zitat:

Zitat von TobiasT

Hab das Programm über die exe gestartet und den code von ste_ett eingebaut.

Wenn der Server läuft, geht alles Wunderbar!

Wenn der Server ausgeschaltet ist, hängt sich das Programm auf, es kommt keine Form und nach einiger Zeit eine Asynchron Fehler meldung...

Logisch. :)
Wenn keine Anwendung antwortet, wird ewig versucht, eine Verbindung aufzunehmen und das Programm bleibt in der Schleife hängen.
Wenn du das z.B. im FormCreate machst, siehst du keine Form, da das Programm diese noch nicht erstellt hat.

Wie hoch hast du MAX_TRIES gesetzt?

Du solltest auch in den Schleifendurchlauf ein "Sleep();" und ein "Application.ProcessMessages" einbauen.

[freak4fun]

Warum Sleep?