Hab jetzt nochmal das ganze Programm nach einem Tutorial geschrieben, Server-Client Verbindung steht da ja keine Fehlermeldung mehr kommt. Aber wenn sich ein Client an den Server verbindent, kommt keine Nachricht beim Server.
Serverausschnitt:
Delphi-Quellcode:
procedure TForm1.ServerSocket1ClientConnect (Sender: TObject; Socket: TCustomWinSocket);
var Nachricht: TChatNachricht;
var I: Integer;
begin
Memo1.Lines.Add ('Status: Neuer user verbunden');
Nachricht.nick := 'Server';
Nachricht.state :='msg';
Nachricht.chat := 'Willkommen am Chat-Server';
Socket.SendBuf (Nachricht, SizeOf(Nachricht));
with ServerSocket1.Socket do begin
Nachricht.nick := 'Server';
Nachricht.state :='msg';
Nachricht.chat := 'Jetzt ' + IntToStr(ActiveConnections) + ' Teilnehmer';
for I := 0 to ActiveConnections-2 do
Connections[I].SendBuf (Nachricht, SizeOf(Nachricht))
end; {with}
Memo1.Lines.add ('New user connected');
end;
Diese Prozedur wird gar nicht aktiviert, da ja in der Memo-Box nix erscheint.
Beim Clien sollte diese Prozedur aktiviert werde:
Clientausschnitt:
Delphi-Quellcode:
procedure TForm1.ClientSocket1Connect (Sender: TObject; Socket: TCustomWinSocket);
begin
Memo1.Lines.Add ('Status: Verbindung wurde erfolgreich hergestellt');
end;
Das wird aber leider auch in der Memo-Box angezeigt. Wenn ich den Clienten nun ohne Server starte kommt sofort ein Fehler. Starte ich alles mit Server so kommt gar nichts -.-