Witam. Mam problem z poprawnym rozpisaniem pakietów. Otóż chodzi o ten skrypt:
procedure Dzialaj(typ:string);
var
PacketBuffer: array [0..1000] of byte;
ProcessID: Cardinal;
begin
GetWindowThreadProcessId(FindWindow('Gierka',Nil), @ProcessID);
PacketBuffer[0] := $0B;
PacketBuffer[1] := $00;
PacketBuffer[2] := $84;
PacketBuffer[3] := $FF;
PacketBuffer[4] := $FF;
PacketBuffer[5] := $07;
PacketBuffer[6] := $00;
PacketBuffer[7] := $00;
if(typ='Thing1')then
PacketBuffer[8] := $D5;
PacketBuffer[9] := $07;
if(typ='Thing2')then
PacketBuffer[8] := $D6;
PacketBuffer[9] := $07;
if(typ='Thing3')then
PacketBuffer[8] := $CF;
PacketBuffer[9] := $0F;
if(typ='Thing4')then
PacketBuffer[8] := $D0;
PacketBuffer[9] := $0F;
if(typ='Thing7')then
PacketBuffer[8] := $0F;
PacketBuffer[9] := $0E;
//na koniec to
PacketBuffer[10] := $00;
PacketBuffer[11] := $01;
SendPacket(ProcessID, @PacketBuffer, TRUE, FALSE);
end;
Do pewnego momentu działa wszystko poprawnie. Załóżmy że chcę wysłać pakiet z Thing1, więc cały początek jest dobry ( aż do pakietu 7), później 8 pakiet z thing1 też jest poprawny i niestety pakiet 9 jest wysyłany z thing9 niestety, czyli kończy się to $D5, $0E, $00, $01. Chciałbym by kończyło się to tak: $D5 $07, $00, $01.
Co zrobiłem nie tak że idzie to nie po mojej myśli?