Народ помогите пожалуста. Надо переделать на прогу Саурона в FS
begin
if FromClient and (pck[1]=#$0F) then pck:=pck+#$01#$00#$00#$00;
end.
Вот что написал сам
begin
if (not _gFromServ) and StrCmp(copy(_gBuff,1,3), HStr('1F 00 0F')) then
_gOutBuff := _gBuff + #01+#00+#00+#00;
end.
Вообщем дело такое, меняет первый пакет а потом клиент перестаёт обращать внимание на команды, но в тоже время соединение не обрывается.
|