Как "динамически" использовать "DLL"

[Air]

Нужно "динамически" загрузить DLL в приложение, не подключая его на прямую.

Var
function VersionInfo:string; external 'msVer.dll';

[rpy3uH]

type
  tf= function:string;

procedure TForm1.Button1Click(Sender: TObject);

var
  p:pointer;
  pr:tf;
begin
  p:=GetProcAddress(LoadLibrary('путь к библиотеке'),'VersionInfo');
  pr:=tf(p);
  pr;
end;

P.S. сам не проверял.

[Air]

Результат "Invalid pointer operation", а что за данные хранит тип "pointer" ?

[Alter]

Приер динам. загрузки:

Создадим простую библиотеку DLL:

{Project file name: c:\example\exdouble\exdouble.dpr}

library ExDouble;
// my simple dll

function calc_double(r: real): real; stdcall;
begin
  result := r * 2;
end;

exports
  calc_double index 1;

end;

Динамическая загрузка DLL:

unit untMain;

interface

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

type
  Tcalc_double = function ( r: real ): real;

  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
var
  hndDLLHandle: THandle;
  calc_double: Tcalc_double;
begin
  try
    // загружаем dll динамически
    hndDLLHandle := loadLibrary ( 'ExDouble.dll' );

    if hndDLLHandle <> 0 then
    begin

      // получаем адрес функции
      @calc_double := getProcAddress ( hndDLLHandle, 'calc_double' );

      // если адрес функции найден
      if addr ( calc_double ) <> nil then
      begin
        // показываем результат ( 21...)
        showMessage ( floatToStr ( calc_double ( 10.5 ) ) );
      end
      else
        // DLL не найдена ("handleable")
        showMessage ( 'Function not exists...' );

    end
    else
      // DLL не найдена ("handleable")
      showMessage ( 'DLL not found...' );

  finally
    // liberar
    freeLibrary ( hndDLLHandle );
  end;
end;

end.

_______________________________
Смотрите DelphiWorld

[Air]

Спасибо большое за код, но если Вас не затруднит, почему этот метод не работает со строками и массивами?
P.S. Без ошибок.
P.S. Хотя всё нормально , я поставил обработчик ошибок, благорарю за помошь.

[bill]

Сообщение от Air

Спасибо большое за код, но если Вас не затруднит, почему этот метод не работает со строками и массивами?

Если функция передает строки, то нужно подключать модуль sharemem, который позволяет корректно работать со строками. Также как вариант- перевести строки к типу pchar, что значительно проще и не нужны доп. модули.

[Alter]

Сообщение от Air

Спасибо большое за код, но если Вас не затруднит, почему этот метод не работает со строками и массивами?
P.S. Без ошибок.
P.S. Хотя всё нормально , я поставил обработчик ошибок, благорарю за помошь.

В DLL НАДО использовать тип PChar, т.к при использовании типа STRING возникают ошибки с памятью.
Пример перевода форматов:

Var P :Array[0..255]of char;
     S :String;
begin
 S := 'Menu';
  P := PChar( S ); // String -> PChar
 S := Strring( P ); // PChar -> String
end;

[Air]

Ясно, спасибо всем.