VPF::Динамическая загрузка DLL - Форум программистов

Allexm

Дата 22.11.2010, 20:33 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 5
Регистрация: 24.10.2010

Репутация: нет
Всего: нет

Здравствуйте. Не могу разобраться с вызовом функций из динамически загруженной DLL`ки.

Код.
Программа:

Код


unit main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, WinProcs;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}          

const
  DLL_PATH = '..\dll\dll_test.dll';

procedure TForm1.Button1Click(Sender: TObject);
type
  TFunc = function(): string; stdcall;
var
  LDllHandle : THandle;
  LFunc : TFunc;
begin
  LDllHandle := LoadLibrary(DLL_PATH);
  if LDllHandle <> 0 then
    try
      @LFunc := GetProcAddress(LDllHandle, 'getText');
      ShowMessage(LFunc);
    finally
      FreeLibrary(LDllHandle);
    end;
end;

end.

Библиотека:

Код


library dll_test;
uses
  SysUtils, Classes, ShareMem;

{$R *.res}

function getText(): string; StdCall;
begin
  getText := 'Some text';
end;

exports ShowForm, getText;

begin
end.

При нажатии на "Button1", выводится окно с текстом "Some text". А после нажатии на "ОК", вываливается исключение: "Project dll_usage_text.exe raised exception class EInvalidPointer with message 'Invalid pointer operation'. Process stopped." И подсвечивается 44-ая строка.

Код


FreeLibrary(LDllHandle);

Подскажите, что я делаю не так? Спасибо.

Windows XP SP3
Borland Delphi 7

ama_kid

Дата 22.11.2010, 21:22 (ссылка)

(нет голосов)

Загрузка ...

АСУТП-кодер

Профиль
Группа: Комодератор
Сообщений: 1460
Регистрация: 5.3.2007
Где: Москва

Репутация: 9
Всего: 95

строки между dll и приложением можно передавать только shortstring, в смысле string[255], ибо разные менеджеры памяти.

Это сообщение отредактировал(а) ama_kid - 22.11.2010, 21:23

--------------------

самурай без меча подобен самураю с мечом, но только без меча

Allexm

Дата 23.11.2010, 09:44 (ссылка)

(голосов:1)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 5
Регистрация: 24.10.2010

Репутация: нет
Всего: нет

С проблемой разобрался. Поставил библиотеку ShareMem в uses на первое место.

ama_kid, это я знаю, но c библиотекой ShareMem можно и обычный string передавать.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »