Баг при отправке пакетов

[qqsda]

Пытаюсь ставить на продажу ботом шмотки +12. Если ставить 1-2 шмотки, то все отлично работает. Но если попытаться поставить больше, то вылазит ошибка. Пакет должен выглядеть вот так

'4C0003002B00310032000000F953633EA245B63E9A9959BF6 F12833ABD7413BD6766A63EA470BDBE6BBCF43E8816193FB39 D6FBF508D37BF52B81E3FEE7C3F3F69914A180000000000000 10000008093DC145F18000001000000010000008093DC14630 7000002000000010000008093DC14'

Но отправляет вот такое
'4C0003002B00310032000000F953633EA245B63E9A9959BF6 F12833ABD7413BD6766A63EA470BDBE6BBCF43E8816193FB39 D6FBF508D37BF52B81E3FEE7C3F3F69914A180000000000000 10000008093DC145F18000001000000010000008093DC14630 7000002000000010000008093DC14F418002E954C004C6CDE0 10000000000000000000000000000000000000000000000000 00000000000000000000000000000000000000000000000000 00000000000000000000000000000000000000000000000000 00000000000000000000000000000000000000000000000000 00000000000000000000000000000000000000000000000000 00000000000000000000000000000000000000000000000000 00000000000000000000000000000000000000000000000000 00000000000000000000000000000000000000000000000000 00000000000000000000000000000000000000000000000000 00000000000000000000000000000000000000000000000000 00000000000000000000000000000000000000000000000000 00000000000000000000000000000000000000000000000000 00000000000000000000000000000000000000000000000000 00000000000000000000000000000000000000000000000000 00000000000000000000000000000000000000000000000000 0000000000000000000000000'

Если отправить этот пакет через PWPL, все отлично работает. Инжект использую вот из этой темы https://zhyk.ru/forum/showthread.php?t=144558 Знает кто в чем проблема?

[j091]

Длину пакета задаёте неверно.

[qqsda]

Цитата: Сообщение от j091 Длину пакета задаёте неверно.

Я так понял это в процедуре StrToByte. Как это исправить? Остальные пакеты нормально отправляет.

[Dinmaite]

Проверь верно ли определяется длина строки в методе StrToByte.

[qqsda]

Цитата: Сообщение от Dinmaite Проверь верно ли определяется длина строки в методе StrToByte.

Там всё как было в теме на форуме.

i:=(length(Packet) div 2)-1;
aParams.Param1:=i+1;
for i:=0 to i do
aParams.Packet[i]:=strtoint('$'+packet[i*2+1]+packet[i*2+2]);

Считает вроде правильно. 196/2-1 = 97

[j091]

Под буфер для пакета выделяется 100 байт

type
  PParams = ^TParams;
  TParams = packed record
    Packet: array [0..100] of byte;
    Param1,Param2,Param3: DWord;
    Param4: array [1..100] of widechar;
  end;

Пакет из 1 поста занимает больше.

[qqsda]

Действительно. Зачем изначально было давать пакету всего 100 байт