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

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

проблема с DLL [D5, WinXP]

Al_jus ©   (2005-07-23 05:57:00) 

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

код программы:
..............
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.
......................

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

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

---

isasa   (2005-07-23 12:46:00) [1]

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

---

begin...end   (2005-07-23 12:36:00) [2]

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

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

---

isasa   (2005-07-23 12:32:00) [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.

---

begin...end   (2005-07-23 11:55:00) [4]

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

И быстрее.

---

begin...end   (2005-07-23 11:54:00) [5]

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

---

Leonid Troyanovsky   (2005-07-23 11:53:00) [6]

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


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

--
Regards, LVT.

---

isasa   (2005-07-23 11:47:00) [7]

stdcall;- везде.
приложение

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

DLL

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


---

alex-drob   (2005-07-23 10:27:00) [8]

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

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

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

function getDayOfWeek(a :integer):integer;

---

Наверх