Auf interfaces zugreifen, wie?

[MathiasSimmack]

Die meisten Interfaces müssen vorher erzeugt werden, wie bspw. hier bei MS-XML 4:

Delphi-Quellcode:

var
  xmldoc : DomDocument40;
begin
  xmldoc := CoDomDocument40.Create;

  { ... }
end;

So etwas finde ich aber in der von dir gezeigten Unit nicht. Daher reicht eine einfache Zuweisung wahrscheinlich schon aus. Zur Sicherheit solltest du aber "CoInitialize" und "CoUninitialize" im Programm aufrufen. Wenn du ein typisches VCL-Programm schreibst, dann wird sich der Code für dein Programm ja wohl in einer Unit befinden, und da könntest du das so machen:

Delphi-Quellcode:

unit Unit1;

uses
  { ... }, ActiveX;


{ ... }


initialization
  CoInitialize(nil);
finalization
  CoUninitialize;
end.

Wenn es ein Konsolen- oder nonVCL-Programm ist, dann könntest du das im Hauptteil wie folgt machen:

Delphi-Quellcode:

begin
  if(CoInitialize(nil) = S_OK) then
  try
    // Fenster erzeugen, oder Befehle abarbeiten
    { ... }
  finally
    CoUninitialize;
  end;
end.