COM Server erstellen

[Luckie]

Ich versuche gerade einen eigenen COM Server zu erstellen. Dazu habe ich ein neues Projekt angelegt: ActiveX Bibliothek undd ann habe ich ein COM Objekt hinzugefügt. Als nächstes habe ich meinen Code geschrieben:

Delphi-Quellcode:

unit Unit1;

{$WARN SYMBOL_PLATFORM OFF}

interface

uses
  Windows, ActiveX, Classes, ComObj, COM_Test_TLB, StdVcl;

type
  TTest = class(TTypedComObject, ITest)
  protected
    function Add(a, b: Integer): Integer;
  end;

implementation

uses ComServ;

{ TTest }

function TTest.Add(a, b: Integer): Integer;
begin
  Result := a + b;
end;

initialization
  TTypedComObjectFactory.Create(ComServer, TTest, Class_Test,
    ciMultiInstance, tmApartment);
end.

Die Funktion Add ist von mir, den Rest hat Delphi schon für mich erzeugt gehabt. Wenn ich jetzt in einem anderen Projekt unter "Typebibliothek importieren meine DLL auswähle und eine Unit erzeugen lasse, taucht diese Funktion aber niergens auf, och kann sie also nicht verwenden.

Da ich mich mit COM erst gestern angefangen habe zu beschäftigen, weiß ich nicht was ich falsch mache bzw. wo ich ansetzen müsste.

[iKilledKenny]

Du musst die Funktion Add mit dem TypeLibrary-Editor erstellen, damit sie dann auch im Interface zur Verfügung steht.

Viele Grüße
Alex

[Luckie]

Dumme Frage, wo finde ich den TypeLibrary Editor?

[iKilledKenny]

Delphi 5:
View->Type Library

[Luckie]

Danke funktioniert alles.