Появилась такая проблема. Не могу заполнить динамический массив в DLL, переданный из программы.
Текст приложения:
| Код |
unit uMainForm;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ValEdit;
type
TMainForm = class(TForm)
Button1:TButton;
ML:TValueListEditor;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
const PluginsM:array[1..2] of PAnsiChar = ('mmgll001.dll','mmgll002.dll');
var
MainForm: TMMGMainForm;
ParCount:integer;
InitParam:array of real;
implementation
{$R *.dfm}
procedure TMainForm.Button1Click(Sender: TObject);
var LibHandle: THandle;
fGiveParToVar: procedure (ParMass:array of real; MatL:TValueListEditor);
begin
SetLength(InitParam,0);
for i:=1 to ParCount do SetLength(InitParam,Length(InitParam)+i);
LibHandle := LoadLibrary(PluginsM[CurentConstr]);
if LibHandle = 0 then
raise Exception.Create('Невозможно загрузить библиотеку '+PluginsM[CurentConstr])
else
begin
try @fGiveParToVar:= GetProcAddress(LibHandle, 'GiveParToVar');
if @fGiveParToVar <> nil then fGiveParToVar(InitParam,MList);
except
on E: Exception do ShowMessage('Ошибка: ' + E.Message);
end;
end;
FreeLibrary(LibHandle);
end;
end;
|
Текст DLL:
| Код |
library mmgll001;
uses
ShareMem,
SysUtils,
Classes,
ValEdit;
{$R *.res}
procedure GiveParToVar(ParMass:array of real; MatL:TValueListEditor);
begin
ParMass[0]:=StrToFloat(MatL.Cells[1,1]);
end;
exports
GiveParToVar;
begin
end.
|
Подскажите, в чём ошибка? |
)