Also, dann nochmal mein Beispiel von vorhin, mit Pointern...
Bei mir ist das kompilierbar und läuft ohne Exceptions durch. Ein Speichermanager muss weder in der
DLL
noch in der Anwendung eingebunden werden. (Meine erste Version scheint nämlich nur bei statischem Linken
der Testfunktion einwandfrei zu funktionieren.)
Einmal die
DLL...
Delphi-Quellcode:
library Project1;
type
TTestArray = array of ShortString; // <--- ShortString !!!
PTestArray = ^TTestArray;
function GetTestArray: PTestArray; stdcall;
var
a: TTestArray;
begin
SetLength(a, 3);
a[0] := 'Hallo';
a[1] := 'Welt';
a[2] := '!';
Result := PTestArray(a);
end;
exports
GetTestArray;
begin
end.
Und hier die Unit1 von dem Testprojekt...
Delphi-Quellcode:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 =
class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
type
TTestArray =
array of ShortString;
PTestArray = ^TTestArray;
var
Form1: TForm1;
implementation
{$R *.dfm}
var
hDLL: Cardinal;
GetTestArray:
function: PTestArray;
stdcall;
procedure TForm1.Button1Click(Sender: TObject);
var
a: TTestArray;
i: Integer;
begin
hDLL := LoadLibrary(PChar('
Project1.dll'));
if hDLL <> 0
then
begin
GetTestArray := GetProcAddress(hDLL, '
GetTestArray');
if GetTestArray <>
nil then
begin
a := TTestArray(GetTestArray);
ShowMessage(IntToStr(Length(a)));
// Eine schicke "3" erscheint als Meldung
for i := Low(a)
to High(a)
do
ShowMessage(a[i]);
// Hallo *click* Welt *click* ! *click*
a :=
nil;
end;
FreeLibrary(hDLL);
end;
end;
end.