Ошибка (Linking DLL)

[CORBA]

написал dll на Delphi и решил опробывать её в VB, но чё то VB она не пошла хотя в делфях длл'ка работает на ура. Вроде как библиотеки длл должны быть совместимы с любой визуальной (и не только) средой или я не прав?

ЗЫ
Программа выдаёт следующую ошибку:

Run-time Error '49';
Bad calling convention

А вот код вызова функции:

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

Private Declare Function Sum Lib "Project2.dll" (X As Integer, Y As Integer) As Integer



Private Sub Command1_Click()
Label1.Caption = CStr(Sum(CInt(Text1.Text), CInt(Text2.Text)))

End Sub


[Amed]

Поиск по форуму "Bad calling convention". Все слова. ничего не даёт?

[GSerg]

Вроде как библиотеки длл должны быть совместимы с любой визуальной (и не только) средой или я не прав?

Или ты не прав.

Run-time Error '49';
Bad calling convention

Не сомневаюсь.

А вот код вызова функции:

Угу. Уже вижу.
Но, тем не менее, для чистоты эксперимента код на дельфи в студию.

[CORBA]

Да без проблем

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


library Project2;

uses
  SysUtils,
  Classes;

{$R *.res}
  function Sum(X,Y:Integer):Integer;
  begin
  Result:=X+Y;
  end;
  exports Sum;
begin
end.



[GSerg]

Угу.
В точечности так.

То, что в дельфи по дефолту byval, а в VB byref, мы, конечно, не знаем?
То, что в дельфи integer равен VB long, мы не знаем тоже?
Как и то, что по умолчанию дельфи использует неподдерживаемую в VB свою собственную конвенцию pascal?

[CORBA]

Угу.
В точечности так.

То, что в дельфи по дефолту byval, а в VB byref, мы, конечно, не знаем?
То, что в дельфи integer равен VB long, мы не знаем тоже?
Как и то, что по умолчанию дельфи использует неподдерживаемую в VB свою собственную конвенцию pascal?

Так какой собственно вывод? Можно или нельзя использовать в ВБ длл сделаные в делфи??? И если можно киньте в меня кодом как это сделать правильно, а то я как раз со всеми пунктами не знаком.

[GSerg]

function Sum(X,Y:Integer):Integer; stdcall;


Остальное легко выводится из моих маленьких замечаний...