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:
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!