Hallo,

ich möchte über die Indy10 UDP-Komponente "UDPClient" daten mit folgender Methode verschicken:

procedure SendBuffer(AHost: string, const APort: Integer, const ABuffer: TIdBytes); virtual; overload; Mein Problem besteht jetzt darin den ABuffer zu befüllen. Mein Code sieht so aus:

zusammenfalten · markieren

Delphi-Quellcode:

procedure TfrmMain.OnTimer1(Sender: TObject);
var
   DWA : array[0..1024] of DWORD;
   Daten : TBytes absolute DWA;
begin

    //Länge von "Daten" beschränken
    setLength(Daten,20);

    //DWord-Array füllen
    DWA[0] := SFCODE;
    DWA[1] := 0;
    DWA[2] := 5;
    DWA[3] := 111;
    DWA[4] := EFCODE;

    //Daten verschicken
    UDPClient1.Sendbuffer('127.0.0.1',43334,Daten);
end;

Leider ist "Daten" immer leer, das DWORD-Array wird korrekt gefüllt.

Kann mir jemand einen Tipp geben? Ich komme einfach nicht weiter - danke!

Ich habs jetzt mal so gelöst bekommen, denke aber dass es ziemlich "unelegant" ist:

zusammenfalten · markieren

Delphi-Quellcode:

procedure TfrmMain.OnTimer1(Sender: TObject);
var
   DWA : array[0..1024] of DWORD;
   BA : array[0..4095] of Byte absolute DWA;
   Test : TBytes;
begin

    //Länge von "Test" beschränken
    setLength(Test,20);

    //DWord-Array füllen
    DWA[0] := SFCODE;
    DWA[1] := 0;
    DWA[2] := 5;
    DWA[3] := 111;
    DWA[4] := EFCODE;

    for i := 0 to 19 do Test[i] := BA[i];

    //Daten verschicken
    UDPClient1.Sendbuffer('127.0.0.1',43334,Test);
end;