| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Проблема с ДЛЛ [D5, WinXP]

Al_jus ©   (2005-07-23 14:09:00) 

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

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

..............
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"

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

---

evvcom   (2005-07-23 14:50:00) [1]

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

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

---

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

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

---

alex-drob   (2005-07-23 14:29:00) [3]

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

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

---

Наверх