Hallo,
ich habe bei mir aus dem oben genannten Beispiel folgendes gebastelt:
Delphi-Quellcode:
unit uItunes;
interface
uses
ComObj;
//Itunes Com Port
type
tItunes =
Class(tObject)
public
function getItunesVol: longint;
function getCurrentTitle :
string;
Constructor Create;
destructor free;
protected
private
iTunesApp : OleVariant;
end;
implementation
Constructor tItunes.Create;
begin
iTunesApp := CreateOleObject('
iTunes.Application');
end;
destructor tItunes.free;
begin
iTunesApp := Unassigned;
end;
function tItunes.getItunesVol: longint;
begin
Result := iTunesApp.SoundVolume;
end;
function tItunes.getCurrentTitle :
string;
begin
Result := iTunesApp.CurrentTrack.
Name + '
- ' + iTunesApp.CurrentTrack.artist;
end;
end.
wenn ich auf dies nun zugreifen möchte erhalte ich die Meldung, das der Coinitialize nicht gefunden wurde. Nach ner weile goolgen und lesen habe ich erfahren, dass ich irgendwie OEVariants oder so iregndwie nach dem
Com unterordnen muss aber schlau werde ich daraus nicht.
Auch dachte ich, den Fehler umgehen zu könne, indem ich das in eine eigene
Unit packe aber diese Hoffnung wurde dann auch zerstört.
kann mir jemand sagen, wie ich die Applikation schreiben muss, damit ich von aussen über getCurrentTitle und getItunesVol an verschiedenstellem im Ausgangsprogramm zugriffbekomme, ohne ständig irgendwelche Zugriffs- und Coinitializefehler zu produzieren?