Модератор: Модераторы
Alex. S писал(а): Пытаюсь протестировать dll, добавив в параметрах запуска свою программу, которую я переместил в папку dll проекта.
Код: Выделить всё
...
TDWordArray = array of Cardinal;
...
procedure GetData(var Data: TDWordArray);
begin
//
SetLength(Data, 1);
//
Data[0]:=5;
end;
Код: Выделить всё
...
procedure GetData(Data: TDWordArray); external 'MyDLL.dll';
...
var
//
i, k: Cardinal;
//
Data: TDWordArray;
begin
//
GetData(Data);
//
k:=Length(Data);
//
if k > 0 then
begin
//
Dec(k);
//
for i:=0 to k do
//
ShowMessage(IntToStr(Data[i]));
end;
end.
Alex. S писал(а):Частичный код DLL: Код программы:
Alex. S писал(а):По поводу рекурсии, я её тут не вижу.
Код: Выделить всё
procedure GetData(Data: TDWordArray); external 'MyDLL.dll';
var
Data: TDWordArray;
begin
//
GetData(Data); <==== вот она, рекурсия. Процедура ссылается на саму себя.
// Всё! <== дальше - программа, никогда не перейдёт, т.к. вызовется GetData(Data); ,
// которая дойдёт до предыдущей строки GetData(Data); и снова вызовет GetData(Data);
и так до бесконечности, пока не закончится память, допустимое значение вариантов или бсода.
Код: Выделить всё
procedure GetData(Data: TDWordArray); external 'MyDLL.dll';Код: Выделить всё
var
//
i, k: Cardinal;
//
Data: TDWordArray;
begin
//
GetData(Data);
//
k:=Length(Data);
//
if k > 0 then
begin
//
Dec(k);
//
for i:=0 to k do
//
ShowMessage(IntToStr(Data[i]));
end;
end.
Код: Выделить всё
library edt_cablelaying;
{$mode objfpc}{$H+}
uses
windows, Classes, SysUtils, FileUtil, Interfaces,
Forms, Controls, Graphics, Dialogs;
const
PackageName = 'Plugin';
PackageAuthor = 'My';
PackageVersion = '0.4';
PackageLic = 'Freeware';
PackageMenuCaption = 'Прокладка кабелей';
PackageLibName = 'edt_cablelaying.dll';
//var
//ThisApp :TCustomAssiApp;
function PluginInit(AppClass: Pointer):Boolean; stdcall;
begin
//проверки
//ThisApp :=TCustomAssiApp((AppClass);
Result :=True;
end;
procedure PluginDeinit(AppClass: Pointer); stdcall;
begin
end;
procedure PluginProjectInit(AppClass: Pointer;AStr:WideString); stdcall;
begin
end;
procedure PluginProjectDeinit(AppClass: Pointer;AStr:WideString); stdcall;
begin
end;
function PluginType: WideString; stdcall;
begin
//PT_EDITFORM - Редактор с формой
Result:= PT_EDITFORM;
end;
function PluginName: WideString; stdcall;
begin
Result:= Utf8ToAnsi(PackageName);
end;
function PluginMenuCaption: WideString; stdcall;
begin
Result:= Utf8ToAnsi(PackageMenuCaption);
end;
function PluginAuthor: WideString; stdcall;
begin
Result:= Utf8ToAnsi(PackageAuthor);
end;
function PluginVersion: WideString; stdcall;
begin
Result:= PackageVersion;
end;
function PluginLicense: WideString; stdcall;
begin
Result:= Utf8ToAnsi(PackageLicDescriptionStr);
end;
function PluginWindow: Pointer; stdcall;
begin
Result := nil;
if Assigned(ThisApp) then
begin
//Процедура вызывается если PluginType возвращает PT_EDITFORM, PT_EXPORTIMPORT
end;
end;
exports
PluginInit name 'PluginInit',
PluginDeinit name 'PluginDeinit',
PluginProjectInit name 'ProjectInit',
PluginProjectDeinit name 'ProjectDeinit',
PluginType name 'PluginType',
PluginName name 'PluginName',
PluginAuthor name 'PluginAuthor',
PluginVersion name 'PluginVersion',
PluginLicense name 'PluginLicense',
PluginWindow name 'PluginWindow',
PluginMenuCaption name 'PluginMenuCaption';
{$R *.res}
begin
Application.Initialize;
end.
Код: Выделить всё
@some_proc:=getProcAddress(DLLHandle, 'proc_name');Код: Выделить всё
function TFLauncher.LoadPlugin(Filename: String): Boolean;
var
PluginPath :PChar;
newPlugin :TPluginItem;
PluginCorrect:Boolean;
DLLHandle :THandle;
sResult :WideString;
i :Integer;
begin
try
PluginCorrect:=true;
Result:=false;
// загружаем dll динамически
PluginPath:=pchar(UTF8ToSys(Filename));
DLLHandle := loadLibrary (PluginPath);
if DLLHandle > 32 then
begin
newPlugin :=TPluginItem.Create;
newPlugin.LibHandle:=DLLHandle;
newPlugin.PluginFileName :=Filename;
newPlugin.faRun :=GetProcAddress( DLLHandle, 'PluginRun');
newPlugin.faWindow :=GetProcAddress( DLLHandle, 'PluginWindow');
///property faWindow :Pointer read FPluginWindow
/// write FPluginWindow;
newPlugin.faVersion :=GetProcAddress( DLLHandle, 'PluginVersion');
//**
if newPlugin.faVersion =nil then PluginCorrect:=false;
//**
if newPlugin.faProjectInit =nil then PluginCorrect:=false;
if not PluginCorrect then
begin
ThisApp.SystemLog('', Format('Плагин %s не загружен. Необходимые ресурсы не найдены.',[ExpandFileNameUTF8(Filename)]));
newPlugin.Free;
freeLibrary(DLLHandle);
end
else begin
ThisApp.PluginAdd(newPlugin);
Result:=true;
end;
end
else begin
// DLL не найдена
ThisApp.SystemLog('', Format('Плагин %s не загружен. Не удалось прочитать.',[ExpandFileNameUTF8(Filename)]));
end;
except
freeLibrary(DLLHandle);
if assigned(newPlugin) then newPlugin.Free;
end;
end;