Последние записи

made in programmersforum 5

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

8th
Ноя

Вернуть данные из dll

Posted by Chas under Delphi

Если вызывать функции и процедуры из DLL то все понятно, через них можно передавать всякие там цифры, тексты и т.п. А как в обратную сторону? У меня в exe есть глобальная переменная, текст, как мне передать её в процедуру в dll т.е. чтобы dll подхватила это и начала там че-то делать с этим.

GunSmoker
Волшебное слово — Callback (a.k.a. функция обратного вызова).

library Project2;
uses

  Windows,

  SysUtils;
type

  TCallbackProc = function: Integer; stdcall;
var

  GetValue: TCallbackProc;
procedure Init(const ACallback: TCallbackProc); stdcall;

begin

  GetValue := ACallback;

end;
function DoSomething: Integer; stdcall;

begin

  Result := GetValue * 2;

end;
exports

  DoSomething,

  Init;
end.

unit Unit1;
...
function Callback: Integer; stdcall;

begin

  Result := Form1.Tag;

end;
procedure TForm1.Button1Click(Sender: TObject);

type

  TCallbackProc = function: Integer; stdcall;

  TInitProc = procedure(const ACallback: TCallbackProc); stdcall;

  TDoSomethingProc = function: Integer; stdcall;

var

  Lib: HMODULE;

  Init: TInitProc;

  DoSomething: TDoSomethingProc;

begin

  Lib := LoadLibrary('Project2.dll');

  Win32Check(Lib <> 0);

  try

    Init := GetProcAddress(Lib, 'Init');

    Win32Check(Assigned(Init));

    Init(Callback);

    DoSomething := GetProcAddress(Lib, 'DoSomething');

    Win32Check(Assigned(DoSomething));
    Tag := 5;

    Caption := IntToStr(DoSomething); // выведет '10'

  finally

    FreeLibrary(Lib);

  end;

end;