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.