iTunes-Track herausfinden

[shmia]

Delphi-Quellcode:

procedure TEventHandler.OnPlayerPlayEvent(Sender: TObject; iTrack: OleVariant); 
var 
  Track: IITTrack; 
begin
  // kleine Sicherheitsüberprüfung
  Assert(VarType(iTrack) = varDispatch);

  // umwandeln
  Track := IDispatch(iTrack) as  IITTrack;