Text von Server zum Client senden nur on Connect

[blah]

Zitat von Aenogym:

hi und herzlich willkommen in der DP !

Danke
auch danke für die schnelle antwort.

Zitat von Aenogym:

du kannst ja einen TTimer aufdein formular setzen und den intervall auf 300000 setzen (=300 sek.).
dann musst du irgendwo eine variable deklarieren, die entscheidet, ob der server sich tot stellt, oder nicht. im OnTimer-Event des Timers setzt du die variable dann auf false.
nun, im OnClientConnect-Event des TSocketServers schreibst du:

Delphi-Quellcode:

procedure TForm1.ServerSocket1ClientConnect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
  if dead := true then
    socket.close;
end;

damit wird eine gerade geöffnete verbindung sofort geschlossen, wenn dead = true.

alternativ könntest du auch einfach die eigenschaft active des SocketServers auf false setzen und der timer setzt diese iegenschaft nach 300 sek wieder auf true

beide Idee'n sind gut jedoch gefallen mir beide nicht. Das beste wäre wenn er nur für den eine in dieser zeitspanne totermann spielen würde ala: ServerSocket1.Active := False; jedoch *nur* für diese eine IP z.B.

Zitat von Aenogym:

edit: entferne in deinem obigen code das serversocket1. vor den statements, damit die socket-variable des events angesprochen wird (sprich: genau die verbindung, die das event auslöst)

Danke dies war die Lösung.

Kleine frage wofür steht dieses 'T' meist davor z.B. TTimer?

--
Gruss blah