Проблема с ДЛЛ

← →
Al_jus (2005-07-23 14:09) [0]

простите за назойливость, но предыдущее обсуждение по каким то причинам закрыли, а проблема так и осталась нерешенной!

Есть программа:

.............. var Form1: TForm1; getDayOfWeek :function(a:integer):integer;stdcall 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. ......................

при выполнении функции из ДЛЛ программа выводит сообщение "1242939" хотя я ожидаю просто "7". А потом вылетает с ошибкой "access violation"

Помогите разобраться, что я делаю не так!
И не закрывайте, пожалуйста, пост до тех пор, пока проблема существует.
Заранее спасибо

← →
alex-drob © (2005-07-23 14:29) [1]

Такое может быть если например в длл stdcall написанно а в приложении нет.

Перекомпелируй dll, и приложение.

← →
Al_jus (2005-07-23 14:35) [2]

так в том то и дело что написано! :(

> так в том то и дело что написано! :(

А ты все-таки проверь еще раз. Потому как код, приведенный тобой содержит ошибку, значит он был не из Delphi скопирован в том виде в каком он здесь, а правился уже прямо здесь.

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