Dit declareer ik bovenaan:
code:
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
| type
TDetails = packed record
Version: Longint; // -1 of +1
M: Char; // 'm'
NetAddress: string;
HostName: string;
MapName: string;
GameDir: string;
GameDescription: string;
ActiveClientCount: Byte;
MaxClients: Byte;
ProtocolVersion: Byte; // 37
ServerType: Char; // 'l' voor listen of 'd' voor dedicated
ServerOS: Char; // 'w' voor win32 of 'l' voor linux
Password: Boolean;
Clientnumber: Byte;
PlayerName: string;
FragsCount: Longint;
TotalTime: Single;
case ModRunning: Boolean of
False: ();
True: (
InfoURL: ShortString;
FTPURL: ShortString;
ModVersion: Longint;
ModSize: Longint;
ServerSideOnly: Boolean;
ClientDLL: Boolean);
end; |
Dit is m'n Function van DecodeStream
code:
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
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
| function DecodeStream(P: Pointer): TDetails;
var
i: integer;
NullPos: Integer;
begin
with Result do
begin
// pointer wijst naar Version
Version := Cardinal(P^);
Inc(Cardinal(P), SizeOf(Version)); // pointer voorbij Version verschuiven
// pointer wijst nu naar M
M := Char(P^);
if (M = 'm') then
begin
{ raise Exception.Create('verkeerde commando'); // afbreken met een fout}
Inc(Cardinal(P), SizeOf(Version));
NetAddress := PChar(P); // null-terminated string (exclusief #0)
NullPos := Length(PChar(P)) +1; // waar is de eerste #0 (n-de karakter)?
Inc(Cardinal(P), NullPos); // pointer voorbij NetAddress verschuiven
HostName := PChar(P);
NullPos := Length(PChar(P)) +1;
Inc(Cardinal(P), NullPos);
MapName := PChar(P);
NullPos := Length(PChar(P)) +1;
Inc(Cardinal(P), NullPos);
GameDir := PChar(P);
NullPos := Length(PChar(P)) +1;
Inc(Cardinal(P), NullPos);
GameDescription := PChar(P);
NullPos := Length(PChar(P)) +1;
Inc(Cardinal(P), NullPos);
ActiveClientCount := Byte(P^);
Inc(Cardinal(P), SizeOf(ActiveClientCount));
MaxClients := Byte(P^);
Inc(Cardinal(P), SizeOf(MaxClients));
ProtocolVersion := Byte(P^);
Inc(Cardinal(P), SizeOf(ProtocolVersion));
ServerType := Char(P^);
Inc(Cardinal(P), SizeOf(ServerType));
ServerOS := Char(P^);
Inc(Cardinal(P), SizeOf(ServerOS));
Password := Boolean(P^);
Inc(Cardinal(P), SizeOf(Password));
ModRunning := Boolean(P^);
if ModRunning then
begin
Inc(Cardinal(P), SizeOf(ModRunning));
InfoURL := PChar(P);
NullPos := Length(PChar(P)) +1;
Inc(Cardinal(P), NullPos);
FTPURL := PChar(P);
NullPos := Length(PChar(P)) +1;
Inc(Cardinal(P), NullPos);
ModVersion := Longint(P^);
Inc(Cardinal(P), SizeOf(ProtocolVersion));
ModSize := Longint(P^);
Inc(Cardinal(P), SizeOf(ProtocolVersion));
ServerSideOnly := Boolean(P^);
Inc(Cardinal(P), SizeOf(ProtocolVersion));
ClientDLL := Boolean(P^);
end;
end else if (M = 'D') then
begin
ActiveClientCount := Byte(P^);
Inc(Cardinal(P), SizeOf(ActiveClientCount));
for i := 0 to ActiveClientCount - 1 do
begin
Clientnumber := Byte(P^);
Inc(Cardinal(P), SizeOf(ClientNumber));
PlayerName := PChar(P);
NullPos := Length(PChar(P)) +1;
Inc(Cardinal(P), NullPos);
FragsCount := Longint(P^);
Inc(Cardinal(P), SizeOf(ProtocolVersion));
TotalTime := Single(P^);
end;
end;
end;
end; |
Hieronder staat de code, voor als de NMUDP component iets ontvangt:
code:
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
| procedure TForm1.NMUDP1DataReceived(Sender: TComponent;
NumberBytes: Integer; FromIP: String; Port: Integer);
var
MemStream: TMemoryStream;
StreamPointer: Pointer;
Details: TDetails;
begin
MemStream := TMemoryStream.Create;
try
NMUDP1.ReadStream(MemStream);
StreamPointer := MemStream.Memory;
Details := DecodeStream(StreamPointer);
{ doe nu iets met Details - een voorbeeld }
with Details do
begin
if (M = 'm') then
begin
Label30.Caption := 'Monitoring: tod.rentone.nl';
Label38.Caption := 'Naam: ' + HostName;
Label39.Caption := 'Game: ' + GameDescription;
Label40.Caption := 'Map: ' + MapName;
Label41.Caption := 'Aantal spelers op server: ' + IntToStr(ActiveClientCount);
Label42.Caption := 'Maximum spelers: ' + IntToStr(MaxClients);
ProgressBar3.Max := MaxClients;
ProgressBar3.Position := ActiveClientCount;
end;
if (M = 'D') then
begin
Label4.Caption := PlayerName;
Label47.Caption := 'PlayerName';
end;
end;
finally
MemStream.Free;
end; |
En hieronder staat een procedure van een knopje waarbij ik de details van de server opvraag:
code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
| procedure TForm1.Button10Click(Sender: TObject);
var
MemStream: TMemoryStream;
Command: string;
begin
Ping11.DnsLookup('tod.rentone.nl');
NMUDP1.ReportLevel := Status_Basic;
NMUDP1.RemoteHost := 'tod.rentone.nl';
NMUDP1.RemotePort := StrToInt('27015');
Command := #$FF + #$FF + #$FF + #$FF + 'details' + #0;
MemStream := TMemoryStream.Create;
try
MemStream.Write(Command[1], Length(Command));
NMUDP1.SendStream(MemStream);
finally
MemStream.Free;
end;
end; |
En hieronder een procedure van een knopje waarbij ik de players opvraag van de server
code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
| procedure TForm1.Button6Click(Sender: TObject);
var
MemStream: TMemoryStream;
Command: string;
begin
NMUDP1.ReportLevel := Status_Basic;
NMUDP1.RemoteHost := 'tod.rentone.nl';
NMUDP1.RemotePort := StrToInt('27015');
Command := #$FF + #$FF + #$FF + #$FF + 'players' + #0;
MemStream := TMemoryStream.Create;
try
MemStream.Write(Command[1], Length(Command));
NMUDP1.SendStream(MemStream);
finally
MemStream.Free;
end;
end; |
Je mag dik gaan testen, maar ik krijg iedere keer een weirde foutmelding als ik op het knopje voor de 'players' klik. Geen echte DELPHI foutmelding, maar zoiets van, fatale uitzondering enzo, blabla. Geen informatie over de foutmelding stat hierin.
Wat moet ik nou doen om het werkend te maken.
Even erbij vermelden WAT ik nou eigenlijk ontvang als ik commando 'details' verstuur:
code:
1
2
3
4
5
6
7
8
9
10
| "players"
Server responds with the following packet:
(int32) -1
(byte) ASCII 'D' (players response, S2A_PLAYER)
(byte) active client count
for each active client
(byte) client number / index
(string) player name
(int32) client's frag total
(float32) client's total time in-game |
Dus, tja. (tussen de codes door staan normale berichten)
:strip_exif()/u/15310/tomato60%252072%2520frames%25205%2520deg%2520per%2520frame%2520optimized%252026%2520colors.gif?f=community)
. Maar de rest is dus wel ontvangen! Daarom moeten we wat handwerk doen 
./u/13464/Delphi.png?f=community)
.
:strip_exif()/u/39469/calvingot.gif?f=community)