UDP Empfangen / ArtNet / ArtDMX

[sirius]

Zitat:

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

Wieso nimmst du shortstring?

[ljmarkus]

hmm,

s: string;
ist bei mir so in den VAR.
wie muss es denn lauten damit es ein long string ist ?

so schaut es derzeit aus:

Delphi-Quellcode:

procedure TForm1.ArtNetSend(Sender: TObject);
var i: integer;
  buffer_0_1: string;     // Buffer Universe 0 - Teil 1/4
  buffer_0_2: string;     // Buffer Universe 1 - Teil 2/4
  buffer_0_3: string;
  buffer_0_4: string;

begin
if U0.Checked then begin
  for i:= 0 to 127 do buffer_0_1:= buffer_0_1+chr(Inbu0[i]);
  for i:= 128 to 255 do buffer_0_2:= buffer_0_2+chr(InBu0[i]);
  for i:= 256 to 382 do buffer_0_3:= buffer_0_3+chr(InBu0[i]);
  for i:= 383 to 511 do buffer_0_4:= buffer_0_4+chr(InBu0[i]);
  IdUDPClient1.Send(('Art-Net')+head0+buffer_0_1+buffer_0_2+buffer_0_3+buffer_0_4);
end;

end;

lg, markus

[sirius]

Ah, da hast du was verwechselt.

Delphi-Quellcode:

var 
    kurz:shortstring; //255 Zeichen
    lang:string;      //2 GB

Du hast problemlos Platz in einem string.

[ljmarkus]

Aha, jetzt hab ich es Verstanden.

Danke, Markus