Formloses SocketProgramm

[napsterxx]

Habe einen Server mit einer Form und einen SocketCLient ohne Form. Ich will dass der Client den Server connectet:

Delphi-Quellcode:

program Client;

uses
  ScktComp, windows, SysUtils;

var
  Connected : Boolean = False;
  ClientSocket : TClientSocket;

{$R *.res}

begin

  ClientSocket := TClientSocket.Create(nil);
  ClientSocket.Port := 3460;
  ClientSocket.Host := 'localhost';

  while Connected = False do
  begin            
    sleep(10000);
    ClientSocket.Open;
  end;

end.

Sobald beim Server jemand connced dann wird die Caption der Form geändert:

Delphi-Quellcode:

procedure TForm1.ServerSocketClientConnect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
  Form1.Caption := 'Neuer Client';
end;

Aber es funktioniert nicht.
Beim Server habe ich außerdem noch folgendes:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  ServerSocket.Port := 3460;
  ServerSocket.Open;
end;

Kann jemand helfen? Please

[Bernhard Geyer]

Mit sleep(10000) legst du den ganzen Prozess schlafen. Da kann also im Hintergrund nix connecten.

[napsterxx]

Wenn ich das aber weglasse dann kommt immer ein Fehler das ich so ein Maximum überschritten habe oO

[DeddyH]

Zitat von napsterxx:

Delphi-Quellcode:

while Connected = False do
  begin           
    sleep(10000);
    ClientSocket.Open;
  end;

Wann wird Connected eigentlich true?

[napsterxx]

Das wollte ich ja eigenltich machen^^ soll True werden wenn verbindet ist aber irgendwie wird ja nie verbindet

[mkinzler]

Klar wenn das Programm einmal in deiner Schleife ist, kommt es da nicht mehr raus.

[Bernhard Geyer]

Zitat von napsterxx:

Das wollte ich ja eigenltich machen^^ soll True werden wenn verbindet ist aber irgendwie wird ja nie verbindet

Kann es auch gar nicht wenn du den Prozess schlafen legt. Der Implementierung von TClientSocket ist auf asynchronität/Events ausgelegt. AFAIK basiert im Hintergrund des TCP/IP-Stacks über Windows-Messages.

Willst du einen blockierenden Ansatz so brauchst du TCP/IP-Komponenten die einen synchronen ablauf ermöglichen. Es gibt für Delphi welche, aber der Name fällt mir im Moment nicht ein.

[sirius]

Ich kenn die Socket-Komponenten nicht ganz auswendig. Aber es könnte sein, dass sie mit Messages arbeiten. Deswegen würde ich mal eine Messageschleife vorschlagen. Ob das die Lösung ist kann ich so nicht sagen.
Messageschleife an sich sieht so aus

Delphi-Quellcode:

uses windows, messages
var msg:Tmsg;
...
while getmessage(msg,0,0,0) do 
begin
  translatemessage(msg); //nur nötig, wenn Tastendrücke ausgewertet werden müssen
  dispatchmessage(msg);
end;

Die Schleife wird mittels postquitmessage beendet. aber du müsstest dir das wahrscheinlich anders anpassen (vielleicht auch peekmessage und/oder waitmessage benutzen)....

[napsterxx]

what?? jetzt versteh ich nichts mehr.
wie kann ich dsa dann machen das mein Prozess nicht schlafen gelegt wird, aber nur alle 10 sekunden beginnt zu verbinden?

[mkinzler]

Timer