Moin,
ich bin gerade von Version 2.2 auf Version 5.1 umgestiegen und musste nun mein kleines Script etwas anpassen.
Leider will das noch nicht so wie ich. mAirList spuckt zwar keine Fehler aus, aber dennoch werden die Strings nicht übertragen.
Sieht jemand einen Fehler? Ausprobiert habe ich auch ComPort(8) statt ComPort(‘COM8’) und auch das obligatorische Mitsenden von #13#10 habe ich versucht. Auch den Port vorher mit ComPort('COM8').Open; zu öffnen brachte nichts.
Leider ohne Erfolg. Die Einstellungen zum Comport (Baudrate etc.) sind identisch mit der vorher genutzten V2.2, bei der alles lief.
[code]procedure OnStartup;
begin
ComPort(‘COM8’).SendStr(‘9’);
end;
procedure OnPlayerStop(PlaylistIndex: integer; PlayerIndex: integer);
begin
ComPort(‘COM8’).SendStr(‘0’);
end;
procedure OnCartPlayerStop(PlaylistIndex: integer; PlayerIndex: integer);
begin
ComPort(‘COM8’).SendStr(‘0’);
end;
procedure OnPlayerEOFWarning(PlaylistIndex: integer; PlayerIndex: integer);
begin
ComPort(‘COM8’).SendStr(‘1’);
end;
procedure OnCartPlayerEOFWarning(PlaylistIndex: integer; PlayerIndex: integer);
begin
ComPort(‘COM8’).SendStr(‘1’);
end;
begin
end.[/code]
Danke im Voraus!
