CreateComObject Fehler abfangen

[EWeiss]

Ich erstelle ein Object mit
comObjType := CreateComObject(sCLSID) as IWMPEffects; Mein Problem wenn die Klasse nicht registriert ist oder gesperrt bekomme ich einen EOleSysError.
Die Message kann ich unterdrücken und wird auch nicht zur Laufzeit angezeigt da ich diese mit try.. abfange.
Das problem bleibt jedoch bestehen und ist nicht gerade eine sauberer sache.

Wie prüft ihr ob das ComObject registriert bzw.. verfügbar ist ?
CoCreateInstance bringt meinen code durcheinander.

gruss Emil

[Bernhard Geyer]

Ist schon die sauberste Methode wirklich sicher zu sein ob die Komponente registiert ist, alle abhänigen DLLs in Richtiger Version an richtiger Stelle liegen und Windows sonst irgendwas gegen einer Erzeugung hat.

[EWeiss]

Zitat von Bernhard Geyer:

Ist schon die sauberste Methode wirklich sicher zu sein ob die Komponente registiert ist, alle abhänigen DLLs in Richtiger Version an richtiger Stelle liegen und Windows sonst irgendwas gegen einer Erzeugung hat.

Das problem ist halt das die Klassen Registriert sind aber nicht öffentlich zur verfügung stehen.
Wie will man das prüfen ohne den besagten Fehler zu riskieren.

Finde kein Funktion innerhalb der ActiveX.pas wo ich ansetzen könnte.

gruss Emil

[Bernhard Geyer]

Zitat von EWeiss:

Das problem ist halt das die Klassen Registriert sind aber nicht öffentlich zur verfügung stehen.
Wie will man das prüfen ohne den besagten Fehler zu riskieren.

Was stört daran? Eine Exception ist ein legitimes Programmiermittel für Fehlerfälle und im COM-Umfeld m.E. die optimale Lösung. Falls es dich in der IDE stört dann mach halt eine Ausnahme für EOleSysError.

[EWeiss]

Zitat von Bernhard Geyer:

Zitat von EWeiss:

Das problem ist halt das die Klassen Registriert sind aber nicht öffentlich zur verfügung stehen.
Wie will man das prüfen ohne den besagten Fehler zu riskieren.

Was stört daran? Eine Exception ist ein legitimes Programmiermittel für Fehlerfälle und im COM-Umfeld m.E. die optimale Lösung. Falls es dich in der IDE stört dann mach halt eine Ausnahme für EOleSysError.

Ein Exception unter anderen Programmiersprachen kann mehr probleme verursachen als man denkt.
Unter VB_NET, C# zu Beispiel.
Solange ich diese in Delphi (EXE/DLL) verwende sehe ich da auch keine problem.

Versuche halt sowenig Exception zu produzieren wie möglich.

gruss Emil