Re: Кто перекомпилил ПакетХак под Дельфи?
Вкратце, дело происходит примерно так:
1 - считываем два байта, это как раз длина следующих за ними данных, т.е. длина пакета - 2
GetSocketData(SSockl,Packet,2);
2 - считываем сам пакет
if not GetSocketData(SSockl,Packet.DataB,Packet.Size-2) then Break;
3- отсылаем в обработчик пакетов
if IsGamel then PacketProcesor(PacketB,CSockl,id,4)
else PacketProcesor(PacketB,CSockl,id,2);
Все обернуто в цикл и всякие проверки.
|