R
renzq
Unregistered / Unconfirmed
GUEST, unregistred user!
我现在的论文模拟计算部分是用delphi做界面设计和数据库，用fortran做算法程序，现在在delphi使用fortran产生的动态连接库时，遇到下面的问题，请大侠赐教！
用的版本：Fortran Powerstation4.0
Delphi 7.0
用的fortran 的 dll源码如下：
SUBROUTINE SumInt(a,b,c)
! MS $ ATTRIBUTES DLLEXPORT::SumInt
! MS $ ATTRIBUTES C,ALIAS:'SunInt'::SumInt
! MS $ ATTRIBUTES VALUE::a,b
! MS $ ATTRIBUTES REFERENCE::c
IMPLICIT NONE
INTEGER(4)::a,b,c
c=a+b
END SUBROUTINE
在delphi中的调用如下：
procedure SumInt(var a,b,c:integer);stdcall;external'test.dll';
procedure TForm1.Button1Click(Sender: TObject);
var
a,b,c:integer;
begin
b:=5;
a:=-5;
SumInt(a,b,c);
end;
出现的错误提示是：应用程序初始化(0xc000007b)失败.
请问大侠是怎么回事呀，急呀，要做论文计算。
用的版本：Fortran Powerstation4.0
Delphi 7.0
用的fortran 的 dll源码如下：
SUBROUTINE SumInt(a,b,c)
! MS $ ATTRIBUTES DLLEXPORT::SumInt
! MS $ ATTRIBUTES C,ALIAS:'SunInt'::SumInt
! MS $ ATTRIBUTES VALUE::a,b
! MS $ ATTRIBUTES REFERENCE::c
IMPLICIT NONE
INTEGER(4)::a,b,c
c=a+b
END SUBROUTINE
在delphi中的调用如下：
procedure SumInt(var a,b,c:integer);stdcall;external'test.dll';
procedure TForm1.Button1Click(Sender: TObject);
var
a,b,c:integer;
begin
b:=5;
a:=-5;
SumInt(a,b,c);
end;
出现的错误提示是：应用程序初始化(0xc000007b)失败.
请问大侠是怎么回事呀，急呀，要做论文计算。