Ich bin mal wieder in dieses Thema hier eingestiegen.
Diese Script Syntax bring mich noch mal um (den Vestand).
Das hier kam dann am ende raus.
var
i: integer;
Cue: string;
Item: IPlaylistItem;
begin
CurrentPlaylist.BeginUpdate;
try
for i := 0 to CurrentPlaylist.GetCount - 1 do
Item := CurrentPlaylist.GetItem(i);
if Item.GetItemType = pitShow then begin
Factory.CreateMetadataHandler(Item.AsFile).ReadNativeTags;
Cue := IFilePlaylistItem(Item).GetFilename + '.cue';
Item.GetCueData.LoadFromCueSheet(Cue);
end;
finally
CurrentPlaylist.EndUpdate;
end;
end.
Problem: Es passiert nichts.
Nun wollte ich anfangen, den Fehler zu suchen ud wollte ganz simpel ein SystemLog einfügen.
Nach dem Item über Item := CurrentPlaylist.GetItem(i); gesetzt worden ist, möchte ich mir das ins Log schreiben. Ich hätte angenommen, dass das über SystemLog (Item); hätte funktionieren müssen. Stattdessen bekomme ich einen Type Missmatch. Wahlweise auch SystemLog (Item.GetItemType);
Das gleiche weiter unten, den Inhalt von Cue.
Verzweifelte Grüße