Волкер от vpnbot

[dyh9l]

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

Это немного другая проблема. Иероглифы побеждены благодаря
buf:=#$4A;
WriteD(0);
WriteD(type);// чтобы чат разделялся на общий, пм и тд
WriteS('');
WriteS(' '+Msg+#0+#0+#0+#0);;(от Фбоса, за что ему респект)
SendToClientEx(name);
Дальше я подставляю в msg:
msg1:=ReadS(10);//ник
msg2:=ReadS(24);//сообщение НО ВОТ ЭТОТ № БАЙТА ВСЕ ВРЕМЯ МЕНЯЕТСЯ
type:=ReadD(6);
SendMsg2((msg1)+':'+(msg2));
Как мне узнать первый байт сообщения в пакете?
Если нада выложу весь скрипт

a:=10;
msg1:=ReadS(a);
msg2:=ReadS(a);

если я правильно тебя понял

[michonik]

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

a:=10;
msg1:=ReadS(a);
msg2:=ReadS(a);

если я правильно тебя понял

Нет, 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);//а=скока нада
Только теперь почемуто длинные сообщения не выводит полностью

[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] (сообщение)

[dyh9l]

Сообщение от 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);//а=скока нада
Только теперь почемуто длинные сообщения не выводит полностью

это смещение, можно еще как то поколдовать с length но у мну дружеских отношений с этой функцией не сложились) можешь по гуглить)