Problem mit iTunes und COM

[sebi87]

Hallo Leute,

ich versuche mein iTunes über COM zu stueren was auch mittels Buttons ganz gut funktioniert. Hier mal eine Beispielprocedure

Delphi-Quellcode:

procedure play;
var
  iTunes : OleVariant;
begin
  try
    iTunes := CreateOleObject('iTunes.Application');
    if not VarIsNull(iTunes) then begin
      iTunes.Play;
      iTunes := Unassigned;
    end;
  except
  end;
end;

Funktioniert auch ganz gut. Wenn ich die Procedure über ein Ereignis des IndyHTTPServers aufrufe bekomme ich immer diese Fehlermeldung

Code:

Im Projekt HomeServer.exe ist eine Exeption der Klasse EOleSysError aufgertreten. Meldung: 'CoInitialize wurde nicht aufgerufen'. Prozes....

ich habe es schon mit OleInitialize(nil); vor dem Aufruf und bei Formcreate versucht.

Wo mache ich den Fehler?

Viele Grüße
Sebastian

[s.h.a.r.k]

Warum rufst du nicht mal CoInitialize() auf?

[sx2008]

Man braucht eigentlich nur die Unit ActiveX oder ComObj *) mit der Uses-Klausel einbinden und der Initialization-Abschnitt sorgt dann dafür das CoInitialize() bzw. CoInitalizeEx() aufgerufen wird.
Im Finalization-Abschnitt wird das Gegenstück CoUninitialize() aufgerufen.
Diese angenehme Automatik betrifft aber nur den Hautpthread; bei eigenen Threads muss man selbst Hand anlegen.

*) kann gerade mangels einer Delphi Installation nicht genau sagen, welche Unit es genau ist.
Bitte selber nachforschen.

[sebi87]

Trotz CoInitialize(nil) und das einbinden von der Unit ActivX und Comobj bekomme ich den selben fehler.

[CCRDude]

Zitat von sx2008:

Man braucht eigentlich nur die Unit ActiveX oder ComObj *) mit der Uses-Klausel einbinden und der Initialization-Abschnitt sorgt dann dafür das CoInitialize() bzw. CoInitalizeEx() aufgerufen wird.

ComObj ist's. Hilft aber hier nicht, hast Du ja schon selber erwähnt eigentlich

@sebi87: bist Du sicher, daß Du CoInitialize an der richtigen Stelle aufgerufen hast? Du sprichst von einem HTTP-Server; da wird jede Instanz in einem eigenen Thread laufen (sonst könnte ein Server nie mehr als einen HTTP-Client gleichzeitig bedienen), in dem Du das dann aufrufen musst, siehe auch sx2008's Nebenkommentar:

Zitat von sx2008:

bei eigenen Threads muss man selbst Hand anlegen.

[sebi87]

Wie kann ich herrausfinden in welchen Thread dieses Event läuft?

Delphi-Quellcode:

procedure TForm1.IdHTTPServer1CommandGet(AThread: TIdPeerThread;
  RequestInfo: TIdHTTPRequestInfo; ResponseInfo: TIdHTTPResponseInfo);
begin
  if RequestInfo.Params.Strings[0] = 'in:request' then
  begin
    Label1.Caption := 'Eingehender Anruf von ' +  RequestInfo.Params.Strings[2] ;
    if iTunesRunning then iTunesPause ;
  end ;
  if RequestInfo.Params.Strings[0] = 'in:cancel' then
  begin
    Label1.Caption := 'Verpasster Anruf' ;
    if iTunesRunning then iTunesPlay ;
  end ;
end;

Oder reicht es wenn ich das CoInitialize(nil) am Anfang der procedure aufrufe?

[CCRDude]

Du setzt einen Debugger-Breakpoint in dieser Funktion, und öffnest die Thread-Liste in der IDE (View -> Debug Windows -> Threads).

Oder Du liest Dir einfach die Indy-Sourcen dazu durch. Ich sehe gerade, daß Du im Handler VCL-Aktionen durchführst. Wenn das erlaubt ist, könnte es sein, daß das Event synchronisiert geliefert wird und Du Dich damit doch im Hauptthread befindest.

Wenn Du CoInitialize hinzufügst, vergiss das CoUnitialize nicht. Also in etwa:

Code:

if CoInitialize(nil)=S_OK then begin
   try
      // code
   finally
      CoUnitialize;
   end;
end;