Forum: Object-Pascal / Delphi-Language
Delphi
by m0sch3r,
16. Mär 2005
Funktioniert
Epfang:
procedure TForm1.IdUDPServer1UDPRead(Sender: TObject; AData: TBytes;
ABinding: TIdSocketHandle);
var
paketik : TUDPPacket;
begin
Forum: Object-Pascal / Delphi-Language
Delphi
by m0sch3r,
16. Mär 2005
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..
Forum: Object-Pascal / Delphi-Language
Delphi
by m0sch3r,
16. Mär 2005
Seltsamerweise, habe ich problemme beim "entpacken" - Daten aus einem Tbytes in MyRec wieder reinschreiben...
var
dummy : TMyRec;
begin
move(EinTBytes, dummy, sizeof(EinTBytes));
Forum: Object-Pascal / Delphi-Language
Delphi
by m0sch3r,
10. Mär 2005
Köntest du eventuell ein beispiel zeigen...!?
Forum: Object-Pascal / Delphi-Language
Delphi
by m0sch3r,
9. Mär 2005
wie kann ich meine struktur
TUDPPacket = record
case ID : integer of
$00 : (ClientReceive00 : TSearchFile);
$11 : (ClientReceive11 : TSearchFile);
******************************************
TSearchFile = record