Daten reinpacken in Tbytes...

[maximov]

Zitat:

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

Ne ne, die strings haben doch alle eine feste länge. Das problem ist, das er den Array-pointer verschickt und, daß das array überflüssig ist.

:)

[SirThornberry]

ups, hab ich gar nicht gesehen das die Strings eine feste länge haben :oops:

[m0sch3r]

Zitat:

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

:)

ich arbeite mit indy 10 unter indy 9 hat alles bestens funktioniert..nur bei indy 10 sind paar funktionen anderes ...:((( ich schlise das Thema, und verlege es unter Netzwerk..!!!

[m0sch3r]

Zitat:

Delphi-Quellcode:

var
  MyRec: TMyRecord;
  MyArry: TBytes;
begin

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

end;

Seltsamerweise, habe ich problemme beim "entpacken" - Daten aus einem Tbytes in MyRec wieder reinschreiben...

Delphi-Quellcode:

var 
   dummy : TMyRec;
begin
 
move(EinTBytes, dummy, sizeof(EinTBytes));

die daten sind unlese bar...! was mache ich falsh..!?

[himitsu]

Arbeitet MOVE nicht mit Pointern?

Code:

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

und zurück dann

Code:

     // setlength wird nicht benötigt
     move([color=#ff0000]@[/color]dummy[0], [color=#ff0000]@[/color]SomeRecord, sizeof(someRecord));

(Pointer ist nur so 'ne Vermutung...)

[m0sch3r]

die "@" Zeichen akzeptiert er nur vor TBytes, wenn ich ein "@" vor Myrecord hinpacke, sagt er es mus eine Variable da sein bzw Araay typ.

ich denke daran vieleicht mus man die Daten aus dem Tbytes nochmal in den String umwandeln..

[m0sch3r]

Funktioniert

Epfang:

Delphi-Quellcode:

procedure TForm1.IdUDPServer1UDPRead(Sender: TObject; AData: TBytes;
  ABinding: TIdSocketHandle);
var
    paketik    : TUDPPacket;
begin
      move(Adata[0], paketik, sizeof(TUDPPacket));

Senden:

Delphi-Quellcode:

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

end;

Danke allen für die Hilfe...:)))