F
flagship
Unregistered / Unconfirmed
GUEST, unregistred user!
小弟最近做论文时，用到了Delphi和Fortran，主要是用Delphi
做前台界面，用Fortran做后台数据处理及计算。主要用法是将
Fortran编译成DLL,然后直接用Delphi进行调用。在Delphi中我
是这样声明的：
proceduredo
WNCURVE( var PForce :do
uble;
var X :do
uble;
var Y :do
uble;
var Z :do
uble);
stdCall;
External 'f:/Fast/Fortran/Curve/Debug/Curve.Dll';
在Fortran中我是这样声明的
SUBROUTINEdo
WNCURVE(PFORCE,X,Y,Z)
!DEC$ ATTRIBUTES DLLEXPORT:
OWNCURVE
......
当我程序运行的时候，第一次运行该DLL程序完全正常，
但是当我第二次同样调用是，Delphi程序就被莫名其妙
地关掉，就想正常退出一样。我逐步的追踪该程序，
执行到该DLL完毕的时就发生了该现象。有那位大虾
遇到过这种情况，即Delphi在什么情况下能将程序这
样正常的“杀掉”，还望指教。事关小弟论文前途，
200大洋奉上
做前台界面，用Fortran做后台数据处理及计算。主要用法是将
Fortran编译成DLL,然后直接用Delphi进行调用。在Delphi中我
是这样声明的：
proceduredo
WNCURVE( var PForce :do
uble;
var X :do
uble;
var Y :do
uble;
var Z :do
uble);
stdCall;
External 'f:/Fast/Fortran/Curve/Debug/Curve.Dll';
在Fortran中我是这样声明的
SUBROUTINEdo
WNCURVE(PFORCE,X,Y,Z)
!DEC$ ATTRIBUTES DLLEXPORT:
OWNCURVE......
当我程序运行的时候，第一次运行该DLL程序完全正常，
但是当我第二次同样调用是，Delphi程序就被莫名其妙
地关掉，就想正常退出一样。我逐步的追踪该程序，
执行到该DLL完毕的时就发生了该现象。有那位大虾
遇到过这种情况，即Delphi在什么情况下能将程序这
样正常的“杀掉”，还望指教。事关小弟论文前途，
200大洋奉上
