Отослать необъявленый массив сокетом

[Johnson]

Здравствуйте, уважаемые!
Снова у меня проблема...

Есть процедура:

procedure OnSrvPacket(var pck; len: Integer); stdcall;
var
  pckf: packed record
    size: Word;
    id: Byte;
  end absolute pck;
begin
  SendPacketToClient(pck,len);// на это не смотрите, это не на сокет...
  if pckf.id = $4a then begin
    ThrSock.CLSock.Socket.SendBuf(pck[1],len);
  end;
end;

В неё приходит указатель на массив байтов и длина массива.

Нужно отослать этот массив с нужной длиной через сокет.

Но при таком исполнении как указал, компилятор ругается на то, что процедуре отправки нужен тип данных в виде массива.
Приведение типов не помогает (или привожу не правильно), код работает из библиотеки, и приложение, в котором эта библиотека обитает, вылетает с ошибкой памяти (AV).

Как правильно отослать?

ЗЫ: изначально параметры процедуры выглядели так:
(const pck; len: Integer)
Но SendBuf() ругается, что ей нельзя передавать константы....

[Johnson]

Топик ап, не ругайтесь сильно... просто очень нужна помощь...

Ни как не могу разобраться...
Вро де бы правильный вариант, но сервер всеравно принимает данные не правильные...

procedure OnSrvPacket(var pck; len: Integer); stdcall;
var
  pckf: packed record
    size: Word;
    id: Byte;
  end absolute pck;
  pcks:string;
begin
  SendPacketToClient(pck,len);
  if pckf.id = $4a then begin
    SetLength(pcks,len);
    Move(pck,pcks[1],len);
    debug('S->C: '+MemToHex(pcks[1],len,' '));
    ThrSock.CLSock.Socket.SendBuf(pcks[1],len);
  end;
end;

процедура MemToHex возвращает читаемую строку в виде хекс-значений байтов...
процедура debug записывает строку в файл.

итого в файле правильные байты данных, а сервер принимает билеберду...

в той же процедуре такой код:

var
s:string;
begin
....
s:='привет!';
ThrSock.CLSock.Socket.SendBuf(s[1],length(s));

работает нормально, сервер принимает слово правильно...

Сервер тоже принимает правильно (иначе бы не принял слово "Привет!"):

procedure TDLLInjectForm.SockClientRead(Sender: TObject; Socket: TCustomWinSocket);
var
  pck:string;
begin
  Memo1.Lines.Add('Клиентский сокет сказал ('+IntToStr(Socket.ReceiveLength)+' байт): ');
  SetLength(pck,Socket.ReceiveLength);
  Socket.ReceiveBuf(pck[1],Socket.ReceiveLength);
  Memo1.Lines.Add( pck );
  Memo1.Lines.Add( MemToHex(pck,length(pck),' ') );
end;