AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Netzwerke Delphi UDP Empfangen / ArtNet / ArtDMX
Thema durchsuchen
Ansicht
Themen-Optionen

UDP Empfangen / ArtNet / ArtDMX

Ein Thema von ljmarkus · begonnen am 22. Nov 2007 · letzter Beitrag vom 26. Nov 2007
Antwort Antwort
Seite 2 von 3     12 3      
generic

Registriert seit: 24. Mär 2004
Ort: bei Hannover
2.416 Beiträge
 
Delphi XE5 Professional
 
#11

Re: UDP Empfangen / ArtNet / ArtDMX

  Alt 23. Nov 2007, 21:25
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.
Coding BOTT - Video Tutorials rund um das Programmieren - https://www.youtube.com/@codingbott
  Mit Zitat antworten Zitat
ljmarkus

Registriert seit: 14. Apr 2007
Ort: Göttingen
46 Beiträge
 
Delphi 7 Personal
 
#12

Re: UDP Empfangen / ArtNet / ArtDMX

  Alt 23. Nov 2007, 23:20
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
  Mit Zitat antworten Zitat
ljmarkus

Registriert seit: 14. Apr 2007
Ort: Göttingen
46 Beiträge
 
Delphi 7 Personal
 
#13

Re: UDP Empfangen / ArtNet / ArtDMX

  Alt 24. Nov 2007, 20:50
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
  Mit Zitat antworten Zitat
Benutzerbild von sirius
sirius

Registriert seit: 3. Jan 2007
Ort: Dresden
3.443 Beiträge
 
Delphi 7 Enterprise
 
#14

Re: UDP Empfangen / ArtNet / ArtDMX

  Alt 24. Nov 2007, 22:29
Ui, das ist ja Big Endain.
LengthHi*256+Length (256=2^8)
Dieser Beitrag ist für Jugendliche unter 18 Jahren nicht geeignet.
  Mit Zitat antworten Zitat
ljmarkus

Registriert seit: 14. Apr 2007
Ort: Göttingen
46 Beiträge
 
Delphi 7 Personal
 
#15

Re: UDP Empfangen / ArtNet / ArtDMX

  Alt 25. Nov 2007, 12:27
@ 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
  Mit Zitat antworten Zitat
Benutzerbild von sirius
sirius

Registriert seit: 3. Jan 2007
Ort: Dresden
3.443 Beiträge
 
Delphi 7 Enterprise
 
#16

Re: UDP Empfangen / ArtNet / ArtDMX

  Alt 25. Nov 2007, 15:32
Ist das ein String hinten? Ich kenne Indy nicht.

Du kannst ja den String in einer For-Schleife mit chr(Channel-Wert) zusammensetzen.
Dieser Beitrag ist für Jugendliche unter 18 Jahren nicht geeignet.
  Mit Zitat antworten Zitat
ljmarkus

Registriert seit: 14. Apr 2007
Ort: Göttingen
46 Beiträge
 
Delphi 7 Personal
 
#17

Re: UDP Empfangen / ArtNet / ArtDMX

  Alt 25. Nov 2007, 17:05
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
  Mit Zitat antworten Zitat
ljmarkus

Registriert seit: 14. Apr 2007
Ort: Göttingen
46 Beiträge
 
Delphi 7 Personal
 
#18

Re: UDP Empfangen / ArtNet / ArtDMX

  Alt 25. Nov 2007, 18:37
*gelöscht*
  Mit Zitat antworten Zitat
Benutzerbild von sirius
sirius

Registriert seit: 3. Jan 2007
Ort: Dresden
3.443 Beiträge
 
Delphi 7 Enterprise
 
#19

Re: UDP Empfangen / ArtNet / ArtDMX

  Alt 26. Nov 2007, 07:02
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.)
Dieser Beitrag ist für Jugendliche unter 18 Jahren nicht geeignet.
  Mit Zitat antworten Zitat
ljmarkus

Registriert seit: 14. Apr 2007
Ort: Göttingen
46 Beiträge
 
Delphi 7 Personal
 
#20

Re: UDP Empfangen / ArtNet / ArtDMX

  Alt 26. Nov 2007, 09:40
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
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 2 von 3     12 3      


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 17:42 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz