iTunes-Track herausfinden

**CalganX**

Hi,
ganz so einfach, wie der Titel es scheinen lässt, ist es auch wieder nicht.

Ich versuche gerade ein wenig mit der iTunes-COM-API herumzuspielen. Soweit funktioniert das auch ganz akzeptabel, aber es hakt bei einer Sache:

In einem Event erhalte ich als Parameter eine ID eines Tracks in Form eines OleVariants. Darüber ist es irgendwie Möglichkeit eine Variable vom Typ IITTrack zu erhalten. Da ich das nicht so ganz kapiert habe, habe ich mal gesucht und im CodeProject auch was

gefunden.
Dort steht für C#:

markieren

Code:

			protected void myiTunes_OnPlayerPlayEvent(object iTrack)

{

  string myArtist, myName;

  IITTrack myTrack = (IITTrack) iTrack;

  myArtist = myTrack.Artist;

  myName = myTrack.Name;

}

Ich hab's ausprobiert: das funktioniert wirklich.

Also dachte ich mir, dass es unter Delphi ja fast genauso gehen könnte:

markieren

Delphi-Quellcode:

			procedure TEventHandler.OnPlayerPlayEvent(Sender: TObject; iTrack: OleVariant);

var

  Track: IITTrack;

begin

  {Einen Track aus iTunes Anhand der ID finden}

  Track := IITTrack(iTrack); {Zeile 54}

  // ...

end;

Doch leider funktioniert das nicht mit dem Fehler

Fehlermeldung:

[Fehler] uITunes.pas(54): E2089 Ungültige Typumwandlung

Hat jemand eine zündende dafür?

Chris

**shmia**

markieren

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;

**CalganX**

Hi,
yeah, danke dir!

Scheint zu funktionieren.

Chris

**jakobwenzel**

Kannst du bitte mal den gesamten Quellcode posten, denn ich habe das Problem, dass ich nicht verstehe, wie man die Ereignisse von iTunes implementieren muss.

**CalganX**

Hi,
guck dir mal

diesen Thread an. Mit dem verlinkten Tool (EventSinkImp) kannst du dir eine Unit erstellen, die alle Events so wrappt, dass du sie einfacher verwenden kannst.

Wenn du dann die Typenbibliothek und die neue Unit in deine Uses eingefügt hast, kannst du dir die Unit im Anhang ansehen (!). Direktes Weiterverwenden der Unit untersagt.

Chris

**jakobwenzel**

Ich glaub, dass das bei mir nich geht. Ich hab nur die Personal-Version von Delphi, und da gibt es das Tool TLibImp.exe anscheinend nicht, von dem EventSinkImp wird es aber benötigt. Das heißt, es klappt nicht. Könntest du mir bitte den von EventSinkImp erzeugten Quelltext geben?

**shockrocker**

Zitat von jakobwenzel:

Ich hab nur die Personal-Version von Delphi, und da gibt es das Tool TLibImp.exe anscheinend nicht, von dem EventSinkImp wird es aber benötigt.

ich habe delphi 5 std und da gibts das leider auch nicht - gibts sonst noch nen weg die events einfacher zu wrappen?

gruß
shockrocker

**DaCoda**

Ich wüsste auch gerne, wie ich diese Events einbinde...
Alle meine Versuche waren atm. ohne Erfolg....
Hat nicht jemand einen Codeschnipsel ?????

**CalganX**

Zitat von Chakotay1308:

guck dir mal

diesen Thread an. Mit dem verlinkten Tool (EventSinkImp) kannst du dir eine Unit erstellen, die alle Events so wrappt, dass du sie einfacher verwenden kannst.

Schreib ich hier süd-aramäisch?

In

dem verlinkten Thread ist ein Code-Schnipsel + ein Tool gepostet worden. Damit funktioniert es im Normalfall. Und wenn es trotz Tool nicht funktionieren sollte, wäre ein Formulierung dementsprechend sinnvoll, anstatt zu sagen "geht nicht" ("geht trotz tool nicht" wäre ja schonmal ganz nützlich).

Chris

**DaCoda**

Hallo Chakotay,

Zitat:

Schreib ich hier süd-aramäisch?

Nein, das tust du nicht... Aber ich habe genau dieses Tool und die dabei entstandene Unit getestet...
Und TROTZDEM kommen keine Events an !!!
Ich habe iTunes 7.0.1.8. Die Steuerung klappt einwandfrei, aber eben keine Events...
Und meine Frage war auch simpel, ich fragte ja nicht nach einem Codeschnipsel für Jabber

, sondern für iTunes...

Danke für deine Mühen, ich habe alle Threads hier gelesen und auch entsprechendes getestet, nur funzt es nicht, ich weiss atm. nicht wieso. Und ich programmiere seit über 10 Jahren Pascal/Delphi, von daher will ich mal sagen, das ich schon weiss, was ich gemacht habe. Leider muss ich gestehen COM ist momentan Neuland...

Themen-Optionen	Thema durchsuchen
Druckbare Version zeigen Jemanden per E-Mail auf dieses Thema hinweisen	Thema durchsuchen: Erweiterte Suche
Ansicht
Linear-Darstellung Zur Hybrid-Darstellung wechseln Zur Baum-Darstellung wechseln

iTunes-Track herausfinden

iTunes-Track herausfinden

Re: iTunes-Track herausfinden

Re: iTunes-Track herausfinden

Re: iTunes-Track herausfinden

Re: iTunes-Track herausfinden

Re: iTunes-Track herausfinden

Re: iTunes-Track herausfinden

Re: iTunes-Track herausfinden

Re: iTunes-Track herausfinden

Re: iTunes-Track herausfinden

Forumregeln

shmia Registriert seit: 2. Mär 2004 5.508 Beiträge Delphi 5 Professional	#2 Re: iTunes-Track herausfinden 19. Aug 2005, 18:14 markieren 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; Andreas
	Zitat

CalganX Registriert seit: 21. Jul 2002 Ort: Bonn 5.403 Beiträge Turbo Delphi für Win32	#3 Re: iTunes-Track herausfinden 19. Aug 2005, 18:22 Hi, yeah, danke dir! Scheint zu funktionieren. Chris
	Zitat

jakobwenzel Registriert seit: 31. Aug 2005 Ort: Ingelheim am Rhein 141 Beiträge FreePascal / Lazarus	#4 Re: iTunes-Track herausfinden 6. Nov 2005, 16:10 Kannst du bitte mal den gesamten Quellcode posten, denn ich habe das Problem, dass ich nicht verstehe, wie man die Ereignisse von iTunes implementieren muss. Jakob Wenzel "My store now sells Ninja Weapons!" Comicverkäufer bei den Simpsons
	Zitat

shockrocker Registriert seit: 16. Apr 2006 Ort: Karlsruhe 9 Beiträge Delphi 5 Standard	#7 Re: iTunes-Track herausfinden 29. Apr 2006, 21:33 Zitat von jakobwenzel: Ich hab nur die Personal-Version von Delphi, und da gibt es das Tool TLibImp.exe anscheinend nicht, von dem EventSinkImp wird es aber benötigt. ich habe delphi 5 std und da gibts das leider auch nicht - gibts sonst noch nen weg die events einfacher zu wrappen? gruß shockrocker Frederik Trinkmann
	Zitat

DaCoda Registriert seit: 21. Jul 2006 Ort: Hamburg 74 Beiträge Delphi 12 Athens	#8 Re: iTunes-Track herausfinden 24. Okt 2006, 21:05 Ich wüsste auch gerne, wie ich diese Events einbinde... Alle meine Versuche waren atm. ohne Erfolg.... Hat nicht jemand einen Codeschnipsel ?????
	Zitat