Zitat von
Smiley:
Also diese Lösung bekomme ich auch nicht hin, habe es gerade versucht.
Und was hast du versucht?
Also welche schritte hast du gemacht, was für Meldungen kamen, was hast du dann versucht?
"Geht nicht" ist keine Frage und "Hab ich versucht" ist keine Antwort.
Ich versuche mal dir trotz der fehlenden Infos einen Ansatz zu geben:
Nehmen wir an, du hast das Interface als SharedStringListIntf.pas gespeichert un die Klasse als SharedStringListImpl.pas.
Die
DLL braucht nur das Interface, die
Unit mit der Implementierung hat da drin NIX zu suchen.
Delphi-Quellcode:
library ShareIntfTestDLL;
uses
FastMM4,
uSharedInterface in '..\SharedStringListIntf.pas';
procedure FillTableNames(const aTableNames : ISharedStringList); stdcall;
var
i : Integer;
begin
for i := 1 to 10 do
aTableNames.Add('Table' + StrToInt(i));
end;
exports
FillTableNames;
Ausgeführt werden kann das ganz einfach. Die Echse muss beide Units enthalten, SharedStringListIntf & SharedStringListImpl.
Da Delphi automatisch die Referenzen von interfaces zählt muss man die "Verpackung" um die Stringlist NICHT manuell freigeben.
Delphi-Quellcode:
procedure FillTableNamesCore(const aTableNames : ISharedStringList); stdcall;
external DllPath name 'FillTableNames';
procedure FillTableNames(const aTableNames : TStrings);
begin
FillTableNamesCore(TSharedStringListWrapper.Wrap(aTableNames));
end;
procedure DeinForm.SomeButtonClickHandler(aSender : TObject);
begin
FillTableNames(deineListBox.Items);
end;
Da shabe ich mir mangels Delphi nur aus den Fingern gesaugt. Können also noch ein paar Eier drin versteckt sein.
wenn es nicht so geht wie du willst, sei bitte ausführlich damit WAS du WIE versucht hast, WELCHE Fehlermeldungen du bekamst und was du daraufhin versucht hast.