Послать/принять динамический Record через сокеты

[VaBank]

Ну зачем нужно было делать некропост? Уже 6 лет прошло, как бы и ни к чему уже.
Вот кусок кода выдрал из древних исходников (установка размера структуры перед отправкой):

function TServerThreadMaps.SetSize(aCount: Word): Integer;
var 
  fSize: Cardinal;
begin
  fPInfoDataMaps := nil;
  fPInfoDataMaps := @fInfoDataMaps;
  fSize := aCount * SizeOf(fPInfoDataMaps^.fDot) + SizeOf(fPInfoDataMaps^) - SizeOf(fPInfoDataMaps^.fDot);
  fPInfoDataMaps := VirtualAlloc(nil, fSize, MEM_COMMIT or MEM_TOP_DOWN, PAGE_READWRITE);
  fPInfoDataMaps^.fDotCount := aCount;
  Result := fSize;
end;

Прием:

MSOut.Seek(0, soFromBeginning);
fPInfoDataMaps:=VirtualAlloc(nil, MSOut.Size,MEM_COMMIT or MEM_TOP_DOWN,PAGE_READWRITE);
MSOut.Read(fPInfoDataMaps^, MSOut.Size);

Я не буду объяснять что к чему, т.к. сам уже не помню как и что работает. Вникать не хочется. В общем надо было перед отправкой определить размер структуры через VirtualAlloc и при приеме так же выделить память под структуру.

Тут на форуме не помогли, в другом месте нашел решение тогда, в далеком 2009 году. Поэтому именно тут не стал писать решение проблемы.

P.S. Модераторы, закройте тему что ли...