Aktuelle Spielzeit vom Titel in .txt

Deutsch / German Scripts
1

Hallöchen, ich würde gerne mal wissen ob dies Funktioniert… das man die abgelaufende Titel Spielzeit in ein .txt speichern kann die sich auch dann jede Sek. aktualisiert. Gibt es sowas als Skript für Mairlist? Version 6 habe ich.

2

Jetzt ja:

const
  PFAD  = 'C:\path\to\file\';
  DATEI = 'Spieldauer.txt';

var 
  pi:  IPlaylistItem;
  sl:  IStrings;
  src: IAudioSource;
  
procedure WriteText(Text: string);
begin
  sl := Factory.CreateStrings;
  sl.Add(Text);
  sl.SaveToFile(PFAD + DATEI);
end;

procedure OnTimer;
begin
  src := CurrentPlaylist.GetPlayer(CurrentPlaylist.GetPlayerOfItem(pi)).
    GetSource;
  if src <> nil then
    WriteText(FormatDateTime('nn:ss', src.GetPosition / 86400));
end;

procedure OnPlayerStart(PlaylistIndex: integer; PlayerIndex: integer; 
  Item: IPlaylistItem);
begin
  pi := Item;
  EnableTimer(1000);
end;

procedure OnPlayerStop(PlaylistIndex: integer; PlayerIndex: integer; 
  Duration: TTimeValue; Item: IPlaylistItem);
begin
  if Item = pi then
    DisableTimer;
end;

begin
end.
3 Likes
3

Dankeschön, wie kann man das mit der abgelaufende Zeit machen? das ist ja jetzt er Zählt hoch :slight_smile:

4

Ach so, hab ich übersehen. Kommt.

5

Ich danke dir für die Hilfe! :slight_smile:

6

Zum Abwärtszählen ersetze den entsprechenden Abschnitt durch:

procedure OnTimer;
begin
  src := CurrentPlaylist.GetPlayer(CurrentPlaylist.GetPlayerOfItem(pi)).
    GetSource;
  if src <> nil then
    WriteText(FormatDateTime('nn:ss', (pi.GetEffectivePlaybackDuration - 
    src.GetPosition) / 86400));
end;

Du weißt aber schon, daß jede Sekunde die Datei überschrieben wird und Du entsprechend Probleme beim Zugriff bekommen könntest. Nur mal so der Vollständigkeit halber.

7

Darf man fragen, was mit dem Vorhaben erreicht werden soll?

8

Ich probiere es einfach aus. Danke dir

9

Ich möchte dies in OBS mit einbinden.

1 Like
10

Klappt einwandfrei, keine Probleme.

1 Like