Hallo Leute,
ich muss das Thema leider nochmal wiederbeleben da ich einfach keine Lösung finde.
Da Version 8 ja nun aus dem Beta Status raus ist stelle ich meine frage nochmal in der Hoffnung das jemand einen Tip für mich hat.
Die Punchlight USB Studio Lamp funktioniert mit dem Script in der Version 7.4.8 einwandfrei.
in der Version 8.0.1 bekomme ich die Meldung; “ Access violation at address 01E72E62 in module ‘mAirList.exe’ (offset 1102E62). Read of address 00000000 “.
Da ich an dem Script nichts geändert habe bin ich Ratlos zur Zeit.
Ich wäre echt dankbar falls jemand einen Rat hat oder @Torben das vielleicht sogar liest.
Her das besagte Script:
// PunchLight USB
const
// Recording Lamp USB (rgb)
PunchLightLAMP = 3;
procedure OnLoad;
begin
MidiOutOpen(PunchLightLAMP);
MidiOut(PunchLightLAMP, 144, 95, 0);
MidiOut(PunchLightLAMP, 144, 94, 127);
end;
procedure OnOffAir;
begin
SystemLog(‘Encoder ist OFF AIR.’);
MidiOut(PunchLightLAMP, 144, 95, 0);
MidiOut(PunchLightLAMP, 144, 94, 127);
end;
procedure OnOnAir;
begin
SystemLog(‘Encoder ist ON AIR.’);
MidiOut(PunchLightLAMP, 144, 94, 0);
MidiOut(PunchLightLAMP, 144, 95, 127);
end;
procedure OnEncoderInputToggle(Input: TEncoderInput; NewState: boolean);
begin
if Input = eiMic then
begin
if NewState = True then
begin
MidiOut(PunchLightLAMP, 144, 95, 127);
MidiOut(PunchLightLAMP, 144, 94, 0);
end
else if NewState = False then
begin
MidiOut(PunchLightLAMP, 144, 95, 0);
MidiOut(PunchLightLAMP, 144, 94, 127);
end;
end;
end;
procedure OnExecuteCommand(Command: string);
begin
{ if Command = ‘COMMAND’ then
begin
end; }
end;
procedure OnUnload;
begin
MidiOut(PunchLightLAMP, 144, 95, 0);
MidiOut(PunchLightLAMP, 144, 94, 0);
MidiOutClose(PunchLightLAMP);
end;
begin
end.
Gruß aus dem Norden
Heiko