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

В чём ошибка?   Найти похожие ветки 

← →
Шишкин Илья ©   (2003-01-15 17:25) [0]

Создаю dll:

library MyDll;


{$R *.RES}


function Kvadrat(x:integer):integer; Export;
begin
Result:=x*x;
end;

exports
Kvadrat index 1;


begin
end.

Компилирую

Затем в новом проекте объявляю функцию

function Kvadrat(x:integer):integer;external "MyDll" index 1;

И при нажатии кнопки пишу

y:=Kvadrat(x);

Почему при закрытии окна выдаётся RunTime Error?

---

← →
D   (2003-01-15 17:30) [1]

Может, надо загрузить библ-ку (LoadLibrary)?

---

← →
Smithson ©   (2003-01-15 17:45) [2]

Видимо, ошибка не в приведенном коде. Покажи все.

---

← →
Skier ©   (2003-01-15 17:52) [3]

function Kvadrat(x:integer):integer; stdcall;
begin
Result:=x*x;
end;

exports
Kvadrat index 1;


begin
end.

//..................................

function Kvadrat(x:integer):integer; stdcall;
external "MyDll" index 1;

Не поможет ?

---

← →
Шишкин Илья ©   (2003-01-15 18:53) [4]

2 Skier
А какую роль имеет stdcall? Что это обозначает?
2 Smithson
Ошибка где-то здесь, так как я писал всё это только для ознакомления с dll (это весь код)

---

← →
Skier ©   (2003-01-15 18:58) [5]

>Шишкин Илья


> А какую роль имеет stdcall?

Можно и без него тогда будет использоваться соглашение register
(по умолчанию)

> Что это обозначает?

Способ передачи параметров
(F1 нажми...:) )

---

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

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



Память: 0.46 MB
Время: 0.011 c