Delphi DLL

[ACiD]

Доброго дня.
У меня небольшая проблемма с добавлением
модуля Delphi:

Код: Выделить всё

library project2;
uses
  SysUtils,
  Classes;
{$R *.res}
function xk(x:integer):integer;
begin
result:=sqr(x)
end;
exports xk;
begin
end.

Объявляю:

Код: Выделить всё

Private Declare Function xk Lib "d:\PROJECT2.DLL" _
(x As Integer) As Integer

А вот редультат:

Код: Выделить всё

error 49: Bad DLL calling convention

[CodeName33]

calling convension должен быть SDTCALL, а у тебя небось CDECL. покопайся в настройках DELPHI - там гдето в настройке проекта это по умолчанию выставляется.

[Amed]

Попробуй так

Код: Выделить всё

Private Declare Function xk Lib "d:\PROJECT2.DLL" (x As Long) As Long

В дельфях

Generic integer types:
Integer -2147483648..2147483647 signed 32-bit

[ACiD]

CodeName33, найти не могу
Amed, тоже самое

[tyomitch]

Во-первых, ByVal As Long.
Во-вторых, в делфе: function xk(x:integer):integer; stdcall;
(По дефолту там register, а не cdecl. CodeName33 всё врёт.)

[ACiD]

tyomitch, ОГРОМНОЕ СПАСИБО!!!

А почему ставить лонг надо, ведь в дельфях
тип integer?

[Amed]

http://bbs.vbstreets.ru/viewtopic.php?p=6649211#6649211

Я же во второй половине поста написал: integer - signed 32-bit. В VB это соответствует типу данных Long.
Разное именование.

[ACiD]

Разное именование.

Тепарь ясно, спасибо.