 |
 |
 |
 |
 |
|
Antwort
|
Registriert seit: 16. Feb 2008 Ort: Baden-Württemberg 2.332 Beiträge Delphi 2007 Professional |
#11
AW: TCP Verbindug und RCON
15. Jul 2013, 14:59
fork me on
 Github
|
Zitat
|
|
Registriert seit: 14. Dez 2008 328 Beiträge Delphi XE4 Architect |
#12
AW: TCP Verbindug und RCON
20. Jul 2013, 09:16
|
|
Zitat
|
Registriert seit: 26. Dez 2005 Ort: Karlsruhe 1.223 Beiträge |
#13
AW: TCP Verbindug und RCON
20. Jul 2013, 16:01
Valentin Voigt
|
|
Zitat
|
|
Registriert seit: 14. Dez 2008 328 Beiträge Delphi XE4 Architect |
#14
AW: TCP Verbindug und RCON
21. Jul 2013, 22:16
Ok ich habe mir nochmal ein paar Gedanken gemacht und bin auf Sachen gestoßen, die eigentlich keinen Sinn machen.
Dazu hier ein kleines Beispiel, auf das ich mich beziehen werde. Bsp.:
Delphi-Quellcode:
1. Packet Size
procedure SendCommand(Command: string);
var Packet: Array[0..19] of Byte; bytes: TIdBytes; begin Command := 'passwrd'; //SetLength(Packet, 13 + length(Command)); Packet[0] := 9 + length(Command); //Packet Size Packet[1] := 0; Packet[2] := 0; Packet[3] := 0; Packet[4] := 0; // Packet ID (Positiv) Packet[5] := 0; Packet[6] := 0; Packet[7] := 0; Packet[8] := 3; // Packet Type (SERVERDATA_AUTH) Packet[9] := 0; Packet[10] := 0; Packet[11] := 0; Packet[12] := TEncoding.Default.GetBytes('p')[0]; // Body Packet[13] := TEncoding.Default.GetBytes('a')[0]; Packet[14] := TEncoding.Default.GetBytes('s')[0]; Packet[15] := TEncoding.Default.GetBytes('s')[0]; Packet[16] := TEncoding.Default.GetBytes('w')[0]; Packet[17] := TEncoding.Default.GetBytes('r')[0]; Packet[18] := TEncoding.Default.GetBytes('d')[0]; Packet[19] := 0; // Null terminator SetLength(bytes, 20); move(Packet, bytes[0], 20); Form1.idTCPClient1.IOHandler.Write(bytes); end; Diese soll die Größe des TCP Packets sein - 4 Bytes, da Packet Size nicht mitgezählt wird 
Zitat:
Note that the packet size field itself is not included when determining the size of the packet, so the value of this field is always 4 less than the packet's actual length
Zitat:
The minimum possible value for packet size is 10
Warum wird dann im Beispiel von Steam einfach "length(Command) + 9" genommen? Das wäre ja dann nur Glück. Packet(0) = Command.Length + 9 'Packet Size (Integer) 2. Array of Byte zu TIdBytes Wie mir ja schon richtig geraten wurde, muss ich das Array ja als TIdBytes senden. Dazu habe ich oben in meinem Beispiel die meiner Meinung nach richtige Lösung. Warum wurde mir auf der ersten Seite das hier vorgeschlagen?
Delphi-Quellcode:
Wenn ja Packet Size immer 4 Bytes kleiner ist als die eigentliche Länge, macht es ja keinen Sinn diese zu kopieren.
SetLength(bytes, rconpacket.Size);
Move(rconpacket, bytes[0], rconpacket.Size); 3. Statisches und dynamisches Array Oben in meinem Speispiel verwende ich ein statisches Array. Doch da die länge von "Command" ja unterschiedlich ist, müsste ich ja eigentlich dein dynamisches Array benutzen, was ich oben ja als Kommentar eingetragen habe. (Natürlich habe ich "Packet: Array[0..19] of Byte;" zu "Packet: Array of Byte;" geändert. Doch wenn ich das benutze, bekomme ich ganz wirre Zeichen angezeigt, wenn ich mir den Traffic ansehe. Das heißt, dass ja dann irgendwas nicht richtig kopiert wird. Ich habe jetzt oben meine Methode benutzt, aber bekomme wie schon im Post davor keine Antwort vom Server auf den Befehl "status". Nach der abgeänderten Version sieht der Traffic jetzt so aus:
Code:
............passwrd.
............. .........................status. Packet Typ habe ich beim Befehl "status" natürlich von 3 auf 2 geändert. Geändert von SyntaxXx (21. Jul 2013 um 22:19 Uhr) |
|
Zitat
|
ForumregelnEs ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.
BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus. Trackbacks are an
Pingbacks are an
Refbacks are aus
|
|
Linear-Darstellung
