Dynamischen Record mir sendbuff (TServerSocket) versenden

**Jackie1983**

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

zusammenfalten · markieren

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....

Dynamischen Record mir sendbuff (TServerSocket) versenden

Dynamischen Record mir sendbuff (TServerSocket) versenden

Forumregeln