Send string via socket

Man gør vel som alle andre steder: pakker strengen ind i en datastruktur der beskriver den

TStringHeader = record
  Size : integer;
end;

StringHeader.Size := length(st);

aSocket.WriteBuffer(StringHeader,sizeof(TStringHeader));
aSocket.WriteBuffer(pchar(st),length(st));

Noget i den retning. Tror ikke ovenstående vil køre pga "pchar(st)". Lav en pchar og kopiér data over

Takker.