Скачать: CL | DM;

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

← →
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]

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

---

← →
evvcom ©   (2005-07-23 14:50) [3]

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

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.033 c