1:
2:
3:
4:

client: login deruser daspasswort
server: ok
oder
server: error					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:

procedure TForm1.ClientRead(Sender: TObject; Socket: TCustomWinSocket);
var
  TextRcv: TStringList;
  i: Integer;
begin
  TextRcv := TStringList.Create;
  try
    TextRcv := self.Split(Socket.ReceiveText,#1);
    if TextRcv[0] = 'Client:' then
    begin
      //Liste was gemacht werden soll, wenn der Sender Client ist.
      //Client:, !Text, Sender, Text
      if TextRcv[1] = '!Text' then
      begin
        self.SchreibeChat(TextRcv[2],TextRcv[3],TRUE);
      end;
      //...
    end;
    if TextRcv[0] = 'Server:' then
    begin
      //Liste was gemacht werden soll, wenn der Sender Server ist.
      //Server:, ?Benutzername, Begrüßungstext
      if TextRcv[1] = '?Benutzername' then
      begin
        Socket.SendText('Client:'+#1+'!Benutzername'+#1+LabeledEditNick.Text);
        self.SchreibeChat('Server',TextRcv[2],TRUE);
      end;

      //Server:, !Benutzerliste, Kommt/Geht, Benutzername, Benutzer 1,Benutzer 2,...,Benutzer n
      if TextRcv[1] = '!Benutzerliste' then
      begin
        if TextRcv[2] = 'Kommt' then
        begin
          self.SchreibeChat(TextRcv[3],TextRcv[3]+' hat den Chat betreten.',TRUE);
          ListBoxLeute.Clear;
          for i := 4 to TextRcv.Count-1 do
            ListBoxLeute.AddItem(TextRcv[i],ListBoxLeute);
        end;
        if TextRcv[2] = 'Geht' then
        begin
          self.SchreibeChat(TextRcv[3],TextRcv[3]+' hat den Chat verlassen.',TRUE);
          ListBoxLeute.Clear;
          for i := 4 to TextRcv.Count-1 do
            ListBoxLeute.AddItem(TextRcv[i],ListBoxLeute);
          if TextRcv[3] = LabeledEditNick.Text then
          begin
            Client.Close;
            ListBoxLeute.Clear;
            if Server.Active = TRUE then
            begin
              Server.Close;
              BenutzerListe.Free;
            end;
          end;
        end;
      end;
      //...
    end
  finally
    TextRcv.Free;
  end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:

procedure TForm1.ServerClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
var
  TextRcv : TStringList;
  i,index : Integer;
begin
  try
    TextRcv := self.Split(Socket.ReceiveText,#1);
    //Client:, !Text, Sender, Text
    if TextRcv[1] = '!Text' then
      try
        for i := 0 to Server.Socket.ActiveConnections-1 do
          if Server.Socket.Connections[i].Connected then
            Server.Socket.Connections[i].SendText(self.SetzeZusammen(TextRcv,#1));
      except
        ShowMessage('Ein Fehler ist aufgetreten.');
      end;
    //Client:, !Benutzername, Nickname
    if TextRcv[1] = '!Benutzername' then
    begin
      BenutzerListe.Add(TextRcv[2]);
      try
        for i := 0 to Server.Socket.ActiveConnections-1 do
          if Server.Socket.Connections[i].Connected then
            Server.Socket.Connections[i].SendText('Server:'+#1+'!Benutzerliste'+#1+'Kommt'+#1+TextRcv[2]+#1+self.SetzeZusammen(BenutzerListe,#1));
      except
        ShowMessage('Ein Fehler ist aufgetreten.');
      end;
    end;
    //Client:, !Trennt, Nickname
    if TextRcv[1] = '!Trennt' then
    begin
      if BenutzerListe.Sorted = FALSE then
        BenutzerListe.Find(TextRcv[2],index);
      BenutzerListe.Exchange(BenutzerListe.Count-1,index);
      BenutzerListe.Delete(BenutzerListe.Count-1);
      BenutzerListe.Sort;
      try
        for i := 0 to Server.Socket.ActiveConnections-1 do
          if Server.Socket.Connections[i].Connected then
            Server.Socket.Connections[i].SendText('Server:'+#1+'!Benutzerliste'+#1+'Geht'+#1+TextRcv[2]+#1+self.SetzeZusammen(BenutzerListe,#1));
      except
        ShowMessage('Ein Fehler ist aufgetreten.');
      end;
    end;
  finally
    TextRcv.Free;
  end;
end;

procedure TForm1.ServerClientConnect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
  Socket.SendText('Server:'+#1+'?Benutzername'+#1+'Verbunden mit dem ZChat2 - Server '+Socket.LocalHost+' (IP '+Socket.LocalAddress+') Alles Klar, Roger.');
end;

end.					

1:

ListBoxLeute.AddItem(TextRcv[i],ListBoxLeute);					

1:

ListBoxLeute.Items.Add(TextRcv[i]);					

1:
2:
3:

len := length(MyString);
MyMemoryStream.Write(len, SizeOf(len));
MyMemoryStream.Write(MyString[1],length(MyString));					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

HTTP/1.1 400 Bad Request
Date: Sat, 07 Apr 2007 22:45:05 GMT
Server: Apache/2.0.54 (Linux/SUSE)
Content-Length: 307
Connection: close
Content-Type: text/html; charset=iso-8859-1

<!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML 2.0//EN">
<html><head>
<title>400 Bad Request</title>
</head><body>
<h1>Bad Request</h1>
<p>Your browser sent a request that this server could not understand.
</p>
<hr>
<address>Apache/2.0.54 (Linux/SUSE) Server at linux.local Port 80</address>
</body></html>