Auf interfaces zugreifen, wie?

[XCoderD7]

Hallo

Also ich bin ein anfänger in sachen Com. Ich habe eine unit in der Interfaces stehen. Die interfaces haben auch funktionen. Aber wenn ich ein objekt von einem Interface mache, kommt ein Fehler.

Was muss ich machen?
Hier die Unit
http://dd.cron.ru/dbg/dnld/phpdbgintf210.zip

Ich versuche auf das IDbgListener interface zu zu greifen. Bekomme aber immer einen Zugriffs Fehler.

danke

[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.

[XCoderD7]

Danke, scheint aber hier aber nicht zu funktionieren hier mein code

Delphi-Quellcode:

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
    Listener: IDbgListener;
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
  var ver: integer;
      desc: WideString;
begin
  Listener.GetVersion(ver, desc);
  ShowMessage(IntToStr(ver) + '   |   '+ desc);
end;

initialization
  CoInitialize(nil);
finalization
  CoUninitialize;
end.

[Jens Schumann]

Du musst auch das machen was Mathias Dir geschrieben hat.
An welcher Stelle in Deinem Source createst Du Listener???

[XCoderD7]

Zitat von Jens Schumann:

Du musst auch das machen was Mathias Dir geschrieben hat.
An welcher Stelle in Deinem Source createst Du Listener???

Hallo
Also ich mache das was Mathias sagt:

Zitat:

So etwas finde ich aber in der von dir gezeigten Unit nicht.

[Jens Schumann]

Hallo,
versuch doch mal meine Frage zu beantworten: An welcher Stelle in Deinem Source createst Du Listener???

[XCoderD7]

Zitat von Jens Schumann:

Hallo,
versuch doch mal meine Frage zu beantworten: An welcher Stelle in Deinem Source createst Du Listener???

Überhaupt nicht, wie soll ich den listener den createn?

[Jens Schumann]

Versuch es doch mal so:
Im OnCreate des Formulars
Listener:=CreateComObject(IID_IDbgListener) as IDbgListener;

[XCoderD7]

Danke, leider kommt ein Fehler Klasse nicht registriert vom typ "EOleSysError" was kann man dagegen machen?

[Jens Schumann]

Zitat von XCoderD7:

Danke, leider kommt ein Fehler Klasse nicht registriert vom typ "EOleSysError" was kann man dagegen machen?

Es müsste auch so lauten Listener:=CreateComObject(CLASS_CoDbgListener) as IDbgListener; Wenn das nicht klappt wiess ich auch nicht weiter.