Das ganze koennt ihr euch hier anschauen:
KLICK FUER BILD
Das Proggie soll Client und Server sein fuer eine Chatsoftware. Wenn ich nun den server starte und sich ein client anmeldet, kommt diese meldung... hier ein paar relevante source-snips:
vom server wenn er ne verbindung erhaelt:
Delphi-Quellcode:
procedure TForm1.ServerSocket1ClientConnect(Sender: TObject;
Socket: TCustomWinSocket);
begin
Memo1.lines.add('Neuer Chat-Teilnehmer hat sich angemeldet');
end;
Vom server wenn er text erhaelt:
Delphi-Quellcode:
procedure TForm1.ServerSocket1ClientWrite(Sender: TObject;
Socket: TCustomWinSocket);
begin
memo1.lines.add(Serversocket1.Socket.ReceiveText);
end;
vom client wenn er text erhaelt:
Delphi-Quellcode:
procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
Socket: TCustomWinSocket);
begin
memo1.Lines.Add('Client:' + socket.receivetext); //Fügt dem Hauptfeld die Nachricht hinzu
end;
vom clienten wenn er connectet:
Delphi-Quellcode:
procedure TForm1.connectClick(Sender: TObject);
begin
form1.Caption := '
Client';
// Titel
ClientSocket1.Host := edit1.Text;
// Setzt die Ip-Adresse des Servers
ClientSocket1.open;
// Verbindet den Clienten
clientsocket1.Socket.SendText('
nickname:'+nick.text);
end;
Ich vermute den fehler in der vorletzen zeile im letzen code aber ich weiss nich genau was falsch dadran ist....
danke schon mal
mfg
marius