Dynamischen Record mir sendbuff (TServerSocket) versenden

[marabu]

Jetzt hast du aus dem ShortString einen AnsiString gemacht. Der Speicherplatz für dParam liegt dann aber außerhalb deines Records und dParam selbst ist intern zu einem Pointer auf diesen Speicher geworden. Damit wird dein Record als Versandeinheit unbrauchbar. Pointer eignen sich nicht für den Versand, da sie nur im aktuellen Adressraum eine Bedeutung haben.

Betrachte mal SizeOf(daten) nachdem du SetLength(daten.dParam, 100) ausgeführt hast.