hi zusammen,
erst mal Frohe Ostern
Möchte gerne folgeneden Record versenden
Delphi-Quellcode:
TDatenPack = packed record
dCMD : string[10];
dParam : string; // <- edit
end;
dParam hat keine feste länge. Diese speicher ich im Header.
Das versenden mache ich wie folgt
Delphi-Quellcode:
var
daten : TDatenPack;
s,sDaten : string;
begin
s := 'Text';
daten.dCMD := 'COMMAND';
setlength(daten.dParam,Length(s));
daten.dParam := s;
header.hDynSize := Length(s);
setlength(sDaten,SizeOf(Daten));
Move(Daten,PChar(sDaten)^,SizeOf(Daten));
fClient.Socket.SendBuf(PChar(sDaten)^,length(sDaten));
end;
Irgend wo muss da noch ein Fehler sein....