Einzelnen Beitrag anzeigen

m0sch3r

Registriert seit: 29. Mär 2004
121 Beiträge
 
Delphi 7 Enterprise
 
#5

Re: Daten reinpacken in Tbytes...

  Alt 11. Mär 2005, 15:40
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"......!?
  Mit Zitat antworten Zitat