Код:
{ TODO : не проверено. отображение пакета при отправке }
//эта функция safecalled мессаги тут не надо
if assigned(Visual) then
begin
Visual.AddPacketToAcum(Packet, not ToServer, EncDec);
Visual.processpacketfromacum;
end;
if ToServer then
begin
EncDec.EncodePacket(Packet, PCK_GS_ToServer);
sSendTo := clientsocket;
end
else
begin
EncDec.EncodePacket(packet, PCK_GS_ToClient);
sSendTo := serversocket;
end;
EncodePacket в свою очередь вызывает:
CurrentCoddingClass.EncryptGP(Packet.data, Packet.Size - 2);
а у меня в EncryptGP при отправки пакета c ID=$C0 например генерируется подпись пакета состоящия из 6 word, я увеличиваю Packet.Size и дописываю в хвост Packet.data эти 6 слов. Но....
if assigned(Visual) then
begin
Visual.AddPacketToAcum(Packet, not ToServer, EncDec);
Visual.processpacketfromacum;
end;
вызывается до того как я изменил пакет... и в результате в логе оригинальный пакет. Я вот о чем.