Daten reinpacken in Tbytes...

[m0sch3r]

wie kann ich meine struktur

Delphi-Quellcode:

TUDPPacket    = record
                case ID : integer of
                $00 : (ClientReceive00  :  TSearchFile);
                $11 : (ClientReceive11  :  TSearchFile);
                ******************************************
 
TSearchFile   = record
                SFilename  : string[100];
                SMD5       : string[50];
                SArtist    : string[50];
                STitle     : string[50];
                STyp       : string[4];
                SSize      : String[10];
                S_IP       : string[16];
                end;

in eine Struktur vom Typ Tbytes reinpacken...!?

Delphi-Quellcode:

TBytes = array of Byte;

[Sprint]

Mit SizeOf ermittelst du die Größe deiner Records. Mit SetLength setzt du die Größe deines Array's. Und mit Move kopierst du die Daten.

[m0sch3r]

Köntest du eventuell ein beispiel zeigen...!?

[Sprint]

Delphi-Quellcode:

type
  TMyRecord = packed record
  ...
  end;

Delphi-Quellcode:

type
  TBytes = array of Byte;

Delphi-Quellcode:

var
  MyRec: TMyRecord;
  MyArry: TBytes;
begin

  SetLength(MyArry, SizeOf(TMyRecord));
  Move(MyRec, MyArry[0], SizeOf(TMyRecord));

end;

[m0sch3r]

ich habe es auf die Weise gemacht...

Delphi-Quellcode:

procedure TForm1.UDPSendMyRecord(ip : string; SomeRecord: TUDPPacket);
var
    dummy : Tbytes;
begin
     setlength(dummy, sizeof(SomeRecord));
     move(SomeRecord, dummy[0], sizeof(someRecord));
     form1.IdUDPClient1.Host := ip;
     form1.IdUDPClient1.SendBuffer(dummy);
end;

Leider beim Empfang sind die Daten nicht mehr wieder erkennbar
sie werden folgendermaßen "Entpackt

Delphi-Quellcode:

var
    paketik    : TUDPPacket;
begin
          move(Adata, paketik, sizeof(adata));
          //Wenn man hier den wert von paketik untersucht dann erhält er nicht die gewünschten daten

Liegt es vieleicht an der Methode wie ich die Daten "entpacke"......!?

[Luckie]

Kann es sein, dass du den Zeiger verschickst? Die Adresse ist im Adressraum des anderen Prozesses natürlich nicht mehr gültig.

[maximov]

Auch für dieses problem würden sich serialisierbare objekte anbieten. Records sind version-anfällig und blöde in der handhabung. -> dpCollection rules :)

[m0sch3r]

Besteht denn eine effiziente Möglichkeit, ein Record meines typs (sehe oben) per UDP zu verschicken (indy 10, Es ist im prinzip ein andreres Thema..:) )

[maximov]

Warum willst du das überhaupt in ein Array kopieren. Ist doch unnötig...

Delphi-Quellcode:

form1.IdUDPClient1.SendBuffer(SomeRecord, sizeOf(SomeRecord));

..oder so. und auf der anderen seite genauso wieder rein. Allerdings kenne ich das interface auch nicht.

:)

[SirThornberry]

den müsstest den String mit angabe der Länge + Inhalt des Strings verschicken. Das heißt du müsstest bevor du was verschicken kannst die teile des records erstmal in einen buffer kopieren und dann kannst du den buffer verschicken.