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