PDA

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

Юрьевич
13.05.2012, 01:17
Помогите сделать сохранение расшифрованых пакетов в файл
вот сам скрипт:

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
14.05.2012, 00:02
(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
14.05.2012, 00:39
Юрьевич, пробуй s.Add(StrToHex(pck));
Demion
14.05.2012, 03:33
(ReadC(1)=$0C) тут ошибка, ReadC(1) если #$0C#$**#$**#$** = 12

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

Да, сам понял что бред написал :D но уже поздно))
Юрьевич
15.05.2012, 12:35
никто не знает? :(
Breadfan
02.06.2012, 09:46
http://coderx.ru/showpost.php?p=184999&postcount=3