Einzelnen Beitrag anzeigen

flossinger

Registriert seit: 22. Aug 2005
Ort: südlich der Alpen
109 Beiträge
 
Delphi 5 Standard
 
#8

Re: Problem mit Verbindungsaufbau

  Alt 1. Dez 2005, 10:51
ja den Text solltest du erst senden, wenn die Verbindung steht.
Code:
clientsocket1.open;

repeat
application.processmessages;
until clientsocket.active;

ClientSocket1.Socket.SendText('test');
Das geht, hat aber noch einen Schönheitsfehler. Wenn der Server die Verbindung nicht annehmen kann, bleibst du mit dem client Programm in der Schleife hängen. Darum solltest du in die repeat Schleife noch eine Fehlerabfrage einbauen.

Eine bewährte Variante ist die, dass du in der onerror routine eine globale Variable veränderst, die in der repeat Schleife abgefragt wird. Das sendtext machst du auch noch von der Variablen abhängig.

der Flossinger
  Mit Zitat antworten Zitat