В чём ошибка?

← →
Шишкин Илья © (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;

Не поможет ?

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

>Шишкин Илья

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

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

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

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

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