проблема с DLL

← →
Al_jus (2005-07-23 05:57) [0]

Добрый вечер!
У меня возникла следующая проблема - ниже приведен код программы и код ДЛЛ, которая вызывает ошибку.

код программы:
..............
var Form1: TForm1; getDayOfWeek :function(a:integer):integer; LibHandle : THandle; implementation {$R *.DFM} procedure TForm1.Button2Click(Sender: TObject); begin @getDayOfWeek := nil; LibHandle := LoadLibrary("MyDLL.DLL"); if LibHandle >= 32 then begin @getDayOfWeek := GetProcAddress(LibHandle,"getDayOfWeek"); if @getDayOfWeek <> nil then ShowMessage(inttostr(getDayOfWeek(7))); end; FreeLibrary(LibHandle); end;
......................

код ДЛЛ:
......................
function getDayOfWeek(a :integer):integer; stdcall; begin result := a; end; exports getDayOfWeek; begin end.
......................

проблема состоит в том, что мне не возвращается значение а, а возвращается черт знает что :(
Да еще и ошибка при этом возникает!
Помогите разобраться и понять!

Заранее спасибо!

← →
alex-drob © (2005-07-23 10:27) [1]

Добавь в приложении stdcall;

getDayOfWeek :function(a:integer):integer;stdcall;

или убери в библиотеке

function getDayOfWeek(a :integer):integer;

← →
isasa © (2005-07-23 11:47) [2]

stdcall; - везде.
приложение
getDayOfWeek :function(a:integer):integer; stdcall;
DLL
function getDayOfWeek(a :integer):integer; stdcall;

← →
Leonid Troyanovsky © (2005-07-23 11:53) [3]

> isasa © (23.07.05 11:47) [2]
> stdcall; - везде.

Нигде - проще.

--
Regards, LVT.

← →
begin...end © (2005-07-23 11:54) [4]

Здесь не видно преимуществ использования stdcall. Поэтому его лучше убрать. И там, и там.

← →
begin...end © (2005-07-23 11:55) [5]

> Leonid Troyanovsky © (23.07.05 11:53) [3]
> Нигде - проще.

И быстрее.

>Здесь не видно преимуществ использования stdcall.

Руководствовался простой мыслью:
If you want your library to be available to applications written in other languages, it"s safest to specify stdcall in the declarations of exported functions. Other languages may not support Delphi"s default register calling convention.
Иначе потом метить все библиотеки с типом вызова pascal.

> isasa © (23.07.05 12:32) [6]
> Руководствовался простой мыслью...

Я тоже руководствовался простой мыслью. В коде [0] DLL используется в Delphi. И ничего не сказано о том, будет ли DLL использоваться в других языках. Поэтому я и написал вполне очевидную вещь: "здесь не видно преимуществ использования stdcall".

Спор риторический. Поставил слово, и лишил себя проблем на будующее.
На чем писал, что ставил ....

проблема с DLL Найти похожие ветки