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:

TForm1 = class(TForm)
[...]
procedure ParseBuffer;
function GetCmdToken(const StrToken: String): TCmdToken;
procedure Execute(const Command: TCmdToken; Data: TStringList);
[...]
// Empfangspuffer nach Befehlen durchsuchen und dann ausführen
procedure TForm1.ParseBuffer;
var
Data: TStringList; // zum Zerlegen des Empfangspuffers
Current: TCmdToken; // aktuelles Kommando
OutOfArg: Boolean; // Flag zum Abbrechen der Befehlssuche
begin
Data := TStringList.Create;
try
Data.Text := ReceiveBuffer; // Empfangspufferdaten in Pakete zerlegen
OutOfArg := FALSE; // wir nehmen mal an, es sind genug Argumente da
while ( (Data.Count > 0) // solange noch Befehle da sind und
and (NOT OutOfArg) ) do begin // die Argumente dafür reichen
// Befehl erkennen (gross/klein egal)
Current := GetCmdToken(UpperCase(Data.Strings[0]));
// ausreichend Argumente dafür da?
if (Data.Count >= Syntax[Current].ArgCount) then
Execute(Current,Data) // ja, dann bearbeiten
else // nein -> auf neue Daten warten...
OutOfArg := TRUE;
end;
// noch nicht verarbeitete Werte wieder in den Puffer zurück
ReceiveBuffer := Data.Text;
finally
Data.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:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ScktComp;

const
// Port, an dem der ServerSocket auf Clients wartet
SERVER_PORT = 6786;
 Syntax: Array[TCmdToken] of TCmdSyntax = (
(Text: ''; ArgCount: 1), // NOP
(Text: 'SAID'; ArgCount: 3), // SAID
(Text: 'USER'; ArgCount: 2), // USER
(Text: ''; ArgCount: 1) // ERROR; ist nur ein Dummy-Befehl -> kein Text
);
type
TCmdSyntax = record
Text: ShortString; // Kommando-Text
ArgCount: Integer; // Anzahl der Argumente incl. dem Kommando-Text
end;
// bekannte Kommandos aufzählen
TCmdToken = (
cmdNOP = 0, // nichts tun (bis D5 das "= 0" weglassen!)
cmdSAID, // Textnachricht ausgeben
cmdUSER, // neue User-Liste
cmdERROR // Fehler, ungültiger Befehl
);

TCmdSyntax = record
Text: ShortString; // Kommando-Text
ArgCount: Integer; // Anzahl der Argumente incl. dem Kommando-Text
end;

TCmdToken = (
cmdNOP = 0, // nichts tun (bis D5 das "= 0" weglassen!)
cmdSAID, // Textnachricht ausgeben
cmdUSER, // neue User-Liste
cmdERROR // Fehler, ungültiger Befehl
);

TMyConState = (
mcsOffline, // nicht verbunden
mcsPending, // Verbindungsstatus ändert sich gerade
mcsOnline // verbunden
);

  TForm1 = class(TForm)                    

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

const
// Port, an dem der ServerSocket auf Clients wartet
SERVER_PORT = 6786;
 Syntax: Array[TCmdToken] of TCmdSyntax = (
(Text: ''; ArgCount: 1), // NOP
(Text: 'SAID'; ArgCount: 3), // SAID
(Text: 'USER'; ArgCount: 2), // USER
(Text: ''; ArgCount: 1) // ERROR; ist nur ein Dummy-Befehl -> kein Text
);

type
TCmdSyntax = record
Text: ShortString; // Kommando-Text
ArgCount: Integer; // Anzahl der Argumente incl. dem Kommando-Text
end;
// bekannte Kommandos aufzählen
TCmdToken = // ...                    

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

const
// Port, an dem der ServerSocket auf Clients wartet
SERVER_PORT = 6786;
 type
TCmdSyntax = record
Text: ShortString; // Kommando-Text
ArgCount: Integer; // Anzahl der Argumente incl. dem Kommando-Text
end;
// bekannte Kommandos aufzählen
TCmdToken = // ...

Syntax: Array[TCmdToken] of TCmdSyntax = (
(Text: ''; ArgCount: 1), // NOP
(Text: 'SAID'; ArgCount: 3), // SAID
(Text: 'USER'; ArgCount: 2), // USER
(Text: ''; ArgCount: 1) // ERROR; ist nur ein Dummy-Befehl -> kein Text
);