[lux16]

Привет, народ. Столкнулся с проблемой. Есть такая структура:

Код:

  aData = Packed Record
    aArr:   Array Of String;
  End;

И такие процедуры:

Код:

procedure TForm1.ServerSocket1ClientConnect(Sender: TObject;
  Socket: TCustomWinSocket);
var
  rec:  aData;
begin
  SetLength( rec.aArr, 3 );
  rec.aArr[1] := '1';
  rec.aArr[2] := '2';
  Socket.SendBuf( rec, SizeOf( rec ) );
end;

procedure TForm1.ClientSocket1Read(Sender: TObject;
  Socket: TCustomWinSocket);
var
  rec:  aData;
  len:  Byte;
begin
  len := Socket.ReceiveLength;
  Socket.ReceiveBuf( rec, len );
  Memo1.Lines.Add( rec.aArr[1] );
end;

И в Memo1 просто добовляется пустая строка, но если в процедуре procedure TForm1.ServerSocket1ClientConnect(Sender: TObject;
Socket: TCustomWinSocket); добавить строку ShowMessage( '' );, то есть привести ее к такому виду:

Код:

procedure TForm1.ServerSocket1ClientConnect(Sender: TObject;
  Socket: TCustomWinSocket);
var
  rec:  aData;
begin
  SetLength( rec.aArr, 3 );
  rec.aArr[1] := '1';
  rec.aArr[2] := '2';
  Socket.SendBuf( rec, SizeOf( rec ) );
  ShowMessage( '' );
end;

То все работает, и в Memo1 добовляется строка. Подскажите, что кто знает

[Aristarh Dark]

Ты передаешь всего 4 байта, и то что у тебя иногда что-то выводится - это случайность.

[lux16]

Сообщение от Aristarh Dark

Ты передаешь всего 4 байта, и то что у тебя иногда что-то выводится - это случайность.

Не, это фигня не пашет при любом размере, я и модифицировал структуру, и добовлял много данных - все равно. При стрктуре с обычным массиве Array[1 .. 10] Of String например, все работает, а с динамикой никак

[Aristarh Dark]

При чем тут размер?
Ты передаешь 4 (четыре) байта, потому что sizeof(rec) - всегда 4, потому что это по сути указатель.

[lux16]

Сообщение от Aristarh Dark

При чем тут размер?
Ты передаешь 4 (четыре) байта, потому что sizeof(rec) - всегда 4, потому что это по сути указатель.

Хм, ясно. Хорошо, а почему тогда при не динамическом массиве все нормально пашет. Может знаешь как исправить, очень надо

[lux16]

Спасибо всем, нашел решение. После отправки пишу следующий код: Application.ProccesMessages;