Автосохранение расшифрованого пакета

[Юрьевич]

Помогите сделать сохранение расшифрованых пакетов в файл
вот сам скрипт:

var
s:TstringList;

procedure init;
begin
s:=TStringList.Create;
end;

procedure Free;
begin
s.SaveToFile('C:\NPCinfo.txt');
s.Free;
end;

begin
if (FromServer) and (ReadC(1)=$0C) then s.Add(pck);
end.

создает пустой файл, пакеты расшифрованые не записует

пробовал без

and (ReadC(1)=$0C)

сохраняет лог пакетов через раз не пойму почему так

скрипт нужен для парсинга инфы о нпс\htm файлов и прочего с PTS Goddess of Destruction
если кто не жадный поделитесь скриптами\програмами для данной работы =) буду очень благодарен

[kpa9pt]

(ReadC(1)=$0C) тут ошибка, ReadC(1) если #$0C#$**#$**#$** = 12
надо написать if (FromServer) and (ReadC(1)=12) then s.Add(pck);
или if (FromServer) and (pck[1])=#$0C) then s.Add(pck);

[supernewbie]

Юрьевич, пробуй s.Add(StrToHex(pck));

[Demion]

Сообщение от kpa9pt

(ReadC(1)=$0C) тут ошибка, ReadC(1) если #$0C#$**#$**#$** = 12

Паскаль уже не помню, но похоже на бред. Если ReadC возвращает число (байт), то 0x0C ($0C) и 12 одно и тоже.

[kpa9pt]

Сообщение от Demion

Паскаль уже не помню, но похоже на бред. Если ReadC возвращает число (байт), то 0x0C ($0C) и 12 одно и тоже.

Да, сам понял что бред написал но уже поздно))

[Юрьевич]

никто не знает?

[Breadfan]

http://coderx.ru/showpost.php?p=184999&postcount=3