Objekt in einer DLL kapseln

[Bernhard Geyer]

Zitat:

Zitat von DelphiManiac

ja bpls kann ich leider nicht nutzen, da ich die DLL von Visual Basic-Programmierern (aaah) genutzt werden soll :shock:

VB? Dann erstell doch ein Automatisierungsobjekt. Das diese DLL dann registriert werden muß ist doch für VB (Nicht VB.NET)-Entwickler eh das normalste der Welt.

[DelphiManiac]

@Robert Marquardt

Super Klasse!!

Genau so klappts (zumindest meine erste Methode :-))

Also kann ich den Methodenaufruf in einer normalen Funktion kapseln und diese veröffentlichen, so nutze ich intern das Objekt,
das aber extern vollkommen uninteressant ist.

Danke dir nochmal

@Bernhard Geyer:

Was meinst du genau mit Automatisierungsobjekt??

[Bernhard Geyer]

Zitat:

Zitat von DelphiManiac

Was meinst du genau mit Automatisierungsobjekt??

Du erstellst für deine Klasse ein (COM-)Interface welches dann vom VB-Programmierer per Referenz in sein Projekt gezogen wird und verwendet werden kann. Beispiel liegen unter <Demos\ActiveX> bereit.

[DelphiManiac]

@Bernhard Geyer:

Ich gucke mir das ActiceX Beispiel mal an. Danke


@alle:

In Delphi gibt es ja den Datentyp Single (einfache Genauigkeit) als 32 Bit Wert (mit Mantisse, Exponent...)

Ich nutzt den Datentyp und muss ihn als Rückgabetyp (bzw als Pointer) entgegen nehmen und dann den Wert
an die Adress schreibe, so wie ich das auch mit Integern mache, kein Problem,.

meine Frage ist nur, gibt es da Probleme mit VB?? eigentlich doch nicht, dort gibt es doch auch ein Fliesskommatyp
mit einfacher Genauigkeit, oder??

Gruß
und Dank

[MStoll]

Ich habe so was ähnliches auch mal gemacht, allerdings etwas ausführlicher:

DLL:

Delphi-Quellcode:

var Objekte : array of TObject;

function CreateObject : integer; stdcall;
begin
     SetLength(Objekte, length(Objekte)+1);
     Objekte[high(Objekte)].create;
     result := high(Objekte);
end;

procedure MachWas(index : integer); stdcall;
begin
     Objekte[index].MachWas;
end;

procedure DestroyObject(index : integer); stdcall;
begin
     Objekte[index].Free;
end;

exports
    CreateObject,
    DestroyObject,
    MachWas;

Wenn du nun im Programm eine Klasse nach folgendem Muster erstellst:

Delphi-Quellcode:

type TMeineKlasse = class(TObject)
                    private
                       index : integer;
                    public
                       constructor Create;
                       destructor Destroy; override;
                       procedure MachWas;
                    end;

function CreateObject : integer; stdcall; external 'Beispiel.dll';
procedure DestroyObject(index : integer); stdcall; external 'Beispiel.dll';
procedure MachWas(index : integer); stdcall; external 'Beispiel.dll';

constructor TMeineKlasse.Create;
begin
     index := CreateObject;
end;

destructor TMeineKlasse.Destroy;
begin
     DestroyObject(index);
end;

procedure TMeineKlasse.MachWas;
begin
     MachWas(index);
end;

dann kannst du quasi Objekte "aus" der DLL benutzen. Es reicht dann völlig aus wenn du in der DLL für jede public-Methode sowie Konstruktor und die Free-Methode ne eigene Prozedur/Funktion mit dem Index als Parameter (außer beim Konstruktor) schreibst und diese exportierst. Find ich immer wieder praktisch, wenn man auch mal mehrere Instanzen eines Objektes aus einer DLL erzeugen und benutzen will.

Gruß
Michael