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