Подскажите кто-нибудь, что я делаю не так?
Суть проблемы в следующем:
Есть DLL написанная на фортране (PowerStation). Для примера, совершенно простенькая процедура суммирования двух значений.
Исходный код:

Код

SUBROUTINE abc(a,b,c)       !MS$ATTRIBUTES DLLEXPORT :: abc       REAL*4 a,b,c        c=a+b       RETURN       END

Далее пытаюсь эту DLL подключить к дельфийной программе. И затем вызвать процедуру.
Исходный код:

Код

unit main; interface uses   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,   StdCtrls, Buttons; type   TForm1 = class(TForm)     BitBtn1: TBitBtn;     procedure BitBtn1Click(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end; var   Form1: TForm1; implementation  procedure abc(a,b:single;var c:single);stdcall; external 'abc.dll'; {$R *.DFM} procedure TForm1.BitBtn1Click(Sender: TObject); var arr:myarr;     n:longint;     res:single; begin  n:=10;  abc(11,5,res);  showmessage(inttostr(n)); end; end.

Выдается ошибка:
"Точка входа в процедуру abc не найдена в библиотеке DLL abc.dll"

При этом точно такая же процедура написанная на Delphi и упиханная в DLL совершенно нормально работает. Что все-таки не так? Может кто сталкивался с подобным...
Заранее благодарен.

Это сообщение отредактировал(а) Girder - 3.6.2005, 10:42

Выполни tdump abc.dll -ee чтобы посмотреть имена экспортируемых функций DLL, посмотри, есть ли там твоя фортрановская функция...
Может имя экспортируемой функции "приукрашается" компилятором фортрана ?

Цитата(p0s0l @ 3.6.2005, 12:12)

Выполни tdump abc.dll -ee чтобы посмотреть имена экспортируемых функций DLL, посмотри, есть ли там твоя фортрановская функция... Может имя экспортируемой функции "приукрашается" компилятором фортрана ?

Спасибо за совет.
И в самом деле имя "приукрашивается"...причем весьма странным образом.
Вместо названия процедуры abc оно стало _abc@12
А в дельфях такое имя непозволительно...теперь, соответственно, возник вопрос, что же сделать в фортрановской части, чтобы имя стало нормальным?
Может кто-то знает...

LoadLibrary,GetProcAddress,FreeLibrary

Все, разобрался с проблемой.
Ошибка была в фортрановском коде. Вот решение, может кому пригодится...

SUBROUTINE abc(a,b,c)
!MS$ATTRIBUTES DLLEXPORT :: abc
!MS$ ATTRIBUTES ALIAS:'abc' :: abc
!MS$ attributes stdcall :: abc
!MS$ attributes reference :: c
REAL*4 a,b,c
c=a+b
RETURN
END

Всем спасибо, кто откликнулся...