Волкер от vpnbot

[Kilatif]

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

Нет, msg1:=ReadS(10); /это ник, ево начало 10 й байт пакета
msg2:=ReadS(х); /тело сообщения
но а у них разные, тоесть
4A 00 00 00 00 11 00 00 00 00 00 20 00 20 00 56 00 65 00 72 00 6E 00 65 00 72 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
черное ник, и он начинается всегда с 10 байта
а цветное это сообщение и оно начинается с другова байта в зависимости от длинны ника. ППЦ, как быть?
!!!
Все разобрался! Спасибо dyh9l! Походу выполнения операции переменная а изменяется.
msg1:=ReadS(a);//а=10
msg2:=ReadS(a);//а=скока нада
Только теперь почемуто длинные сообщения не выводит полностью

Лично для меня проще пользоваться процедурой ReadMask; Пример на твоем пакете:

var temp : array [0..10] of variant;
...
...
ReadMask('DDSS', 2, temp);
...
...

Теперь у тебя в массиве temp будет хранится весь прочитанный пакет. Конкретно строки будут храниться в temp[2] (ник) и temp[3] (сообщение)