Ergebnis der Suchanfrage

• Forum: Netzwerke

  Re: ServerSocket fehler?? Wenn es ein Fehler ist

    Delphi
    by tomate007, 29. Jun 2007
  naja es klappt ja jetzt, allerdings mißbrauche ich den Thead mal direkt weiter.
  
  
  Und zwar, wenn ich den Client schließe, dann soll er ja die Connection zum Server abbauen. Also hab ich es so gemacht:
  
  procedure TForm1.FormDestroy(Sender: TObject);
  begin
  if (ClientSocket1.Active) then // noch online?
  ClientSocket1.Close; // ja, dann trennen
  end;
• Forum: Netzwerke

  Re: ServerSocket fehler?? Wenn es ein Fehler ist

    Delphi
    by tomate007, 28. Jun 2007
  Nichts für ungut... aber laut meiner bescheidenen Meinung nach sind fehler in deinem Code, habe nun den genommen:
  
  
  daten := Socket.ReceiveText;
  repeat
  p := Pos('#10',daten); // Suche nach Befehlstrenner
  if p <> 0 then
  begin
  Status_Nachricht := Copy(daten, 1, p-1); // einzelnen Befehl rausziehen
  Delete(daten, 1, p+2); // Befehl aus Puffer löschen
• Forum: Netzwerke

  ServerSocket fehler?? Wenn es ein Fehler ist

    Delphi
    by tomate007, 28. Jun 2007
  Hallo, ich bin Anfänger und versuche mich gerade dadran einen Netzwerkchat zu programmieren. Also folgende Sache:
  
  Wenn der Client auf Connect klickt, soll der Server folgende 2 Zeilen schicken.
  
  Einmal:
  Servernachricht: User '+Benutzer+' hat sich eingeloggt.
  
  und einmal
  '+Benutzer+''