UDP Empfangen / ArtNet / ArtDMX

[generic]

Ok, ich hab mir das Protokoll angeschaut.

Auf Seite 19 findest du eine Paketbeschreibung für dein Paket welches du brauchst.
Ich würde ein packed Record definieren der der Spezifikation entspricht. Diesen kann du dann Blockweise einlesen.
Der Trick ist an der Stelle Length. Anschliessend werden dann die Daten übertragen.

Delphi-Quellcode:

  artdmx_header = packed record
    ID: String[8]; // Art-Net #0
    OpCode: word;
    ProtVerH,
    ProtVer: Byte;
    Sequence: Byte;
    Physical: Byte;
    Universe: Word;
    case laenge: boolean of
      true: (
         Lengthhi,
         lengthlow: byte;
       );
      false: ( Length: word );
  end;

Den vollen Record vom Interface Lesen und dann noch in length Anzahl von Bytes weiterlesen.
Dort stehen dann die Kanalwerte. Also nach dem Record bis Anzahl.

[ljmarkus]

Ich habe es heute Nachmittag dann so gelöst. Is glaube ich nicht die schönste und beste Sache, aber funktioniert.

Delphi-Quellcode:

procedure TForm1.IdUDPServer1UDPRead(Sender: TObject; AData: TStream;
  ABinding: TIdSocketHandle);

var i: Word;
    Universe: Word;
    Opcode: Word;
    x: string;
    p: PChar;

begin

AData.Position:=0;
SetLength(x,AData.Size);
AData.ReadBuffer(x[1],AData.Size);

p := PChar(x);

Opcode := PWord(p+8)^;      // Opcode auswerten
if Opcode = 20480 then      // wenn ArtDMX data packet dann an Universe weiterleiten
  begin
    edit2.Text := 'ArtDMX data packet (0x5000)';
    Universe := PWord(p+14)^;     // Universe
    if Universe = 0 then for i := 0 to 511 do DMXOutBuffer0[i] := PByte(p+18+i)^;      // Universe 0
    if Universe = 1 then for i := 0 to 511 do DMXOutBuffer1[i] := PByte(p+18+i)^;      // Universe 1
    if Universe = 2 then for i := 0 to 511 do DMXOutBuffer2[i] := PByte(p+18+i)^;      // Universe 2
    if Universe = 3 then for i := 0 to 511 do DMXOutBuffer3[i] := PByte(p+18+i)^;      // Universe 3
    if Universe = 4 then for i := 0 to 511 do DMXOutBuffer4[i] := PByte(p+18+i)^;      // Universe 4
    if Universe = 5 then for i := 0 to 511 do DMXOutBuffer5[i] := PByte(p+18+i)^;      // Universe 5
    if Universe = 6 then for i := 0 to 511 do DMXOutBuffer6[i] := PByte(p+18+i)^;      // Universe 6
    if Universe = 7 then for i := 0 to 511 do DMXOutBuffer7[i] := PByte(p+18+i)^;      // Universe 7
    if Universe = 8 then for i := 0 to 511 do DMXOutBuffer8[i] := PByte(p+18+i)^;      // Universe 8
    if Universe = 9 then for i := 0 to 511 do DMXOutBuffer9[i] := PByte(p+18+i)^;      // Universe 9
    if Universe = 10 then for i := 0 to 511 do DMXOutBuffer10[i] := PByte(p+18+i)^;      // Universe 10
    if Universe = 11 then for i := 0 to 511 do DMXOutBuffer11[i] := PByte(p+18+i)^;      // Universe 11
    if Universe = 12 then for i := 0 to 511 do DMXOutBuffer12[i] := PByte(p+18+i)^;      // Universe 12
    if Universe = 13 then for i := 0 to 511 do DMXOutBuffer13[i] := PByte(p+18+i)^;      // Universe 13
    if Universe = 14 then for i := 0 to 511 do DMXOutBuffer14[i] := PByte(p+18+i)^;      // Universe 14
    if Universe = 15 then for i := 0 to 511 do DMXOutBuffer15[i] := PByte(p+18+i)^;      // Universe 15
  end;

end;

lg, Markus

[ljmarkus]

so jetzt klemmt es bei mir ......

Berechnung der Länge (Ergebnis = 512)

Delphi-Quellcode:

var     LengthHi      : Byte;      // length of DMX512 data array High byte
        Length        : Byte;      // Low Byte
begin
...

LengthHi  := PByte(p+16)^;           // Länge
Length    := PByte(p+17)^;

Label1.Caption := ????????

mit Ethereal sehe ich die richtigen Bytes: 02 00
Wie muss ich das umwandeln und rechnen damit Dezimal 512 raus kommt damit ich das
auf einem Label.Caption anzeigen kann.

Finde den Weg nicht.

lg, markus

[sirius]

Ui, das ist ja Big Endain.
LengthHi*256+Length :zwinker: (256=2^8)

[ljmarkus]

@ sirius
Vielen Dank. Da wäre ich jetzt so nit drauf gekommen.


Nun das nächste Problemchen,

ArtNet senden:

Delphi-Quellcode:

var DMXInBuf, ArtDMXOutBuf: arry[0..511] of byte;
    
    i: integer;

begin
for i := 0 to 511 do ArtDMXOutBuf[i] := DMXInBuf[i];    // ? Richtig 

// Send packet
idUDPClient1.Send('2.255.255.255',6454,('Art-Net'#0#0#80#0#14#0#0#0#0#2#0)+ ? die 512 Channel Werte
end;

Danke, Markus

[sirius]

Ist das ein String hinten? Ich kenne Indy nicht.

Du kannst ja den String in einer For-Schleife mit chr(Channel-Wert) zusammensetzen.

[ljmarkus]

IdUDPClient1.Send ist ein (AData: String);

ich bekomme ja die DMX In Daten vom Interface als Wert für channel 1 00-FF.

um die 512 Channel ins Netz zu senden muss ich ja:
.Send('2.225.255.255',6454,'Art-Net'#0#0#80#0#14#0#0#0#0#2#0 ab hier die DMX Werte...

Beispiel: Channel 1 = 0(0), Channel 2 = FF(255) Channel 3 = 7F(127) = 00FF7F......

Nur wie bekomme ich das in den String?

lg, markus

[ljmarkus]

*gelöscht*

[sirius]

Zitat:

um die 512 Channel ins Netz zu senden muss ich ja:
.Send('2.225.255.255',6454,'Art-Net'#0#0#80#0#14#0#0#0#0#2#0 ab hier die DMX Werte...

Beispiel: Channel 1 = 0(0), Channel 2 = FF(255) Channel 3 = 7F(127) = 00FF7F......

Meinst du dann etwa so:
.Send('2.225.255.255',6454,'Art-Net'#0#0#80#0#14#0#0#0#0#2#0[b]#0#255#127

Delphi-Quellcode:

s:='Art-Net'#0#0#80#0#14#0#0#0#0#2#0;
for i:=0 to ... do s:=s+chr(ArtDMXOutBuf[i]);
//oder so (wenn da wirklich '00FF7F' als string stehen soll)
for i:=0 to ... do s:=s+inttohex(ArtDMXOutBuf[i],2);

(Schneller ist aber noch die Länge des Strings vorher zu setzen und dann die einzelnen Elemente zu füllen.)

[ljmarkus]

Hallo.

genau das habe ich gesucht *g*

Delphi-Quellcode:

s:='Art-Net'#0#0#80#0#14#0#0#0#0#2#0;
for i:=0 to ... do s:=s+chr(ArtDMXOutBuf[i]);

da der String ja nur 255 argumente haben darf, muste ich mehere Strings in einen String packen.


Danke, Markus