Delphi 调用 Fortran 编译的 DLL

cbwang · 发表于 2016-12-19 19:49:57

搞了很久才搞清楚如何二者混编，先上代码

Delphi中的：

[Delphi] 纯文本查看 复制代码

01type
02  Tvar=function(a:integer;b:array of real):real;stdcall;
03 
04procedure TForm1.Button1Click(Sender: TObject);
05var shuzu:TFarProc;
06    onehandle:THandle;
07    myf:Tvar;
08    sz:array of Real;
09    i:Integer;
10begin
11   SetLength(sz,StrToInt(Edit2.Text));
12   for I := Low(sz) to High(sz) do
13     begin
14       sz[i]:=Random(100);
15       Memo1.Lines.Add(FloatToStr(sz[i]));
16     end;
17 
18   onehandle:=LoadLibrary('D:\TestDll.dll');
19   try
20     if onehandle <> 0 then
21     begin
22       shuzu:=GetProcAddress(onehandle,'Sortandfindmax');
23     end;
24 
25     if shuzu <> nil then
26     begin
27       myf:=tvar(shuzu);
28       Edit1.Text:=FloatToStr(myf(Length(sz),sz));
29       for I := Low(sz) to High(sz) do
30         Memo2.Lines.Add(FloatToStr(sz[i]));
31     end;
32   finally
33     FreeLibrary(onehandle);
34   end;
35end;

Fortran中的

[Fortran] 纯文本查看 复制代码

01FUNCTION SORTANDFINDMAX(LENGTH,ARRAY)
02!------------------------------如果将变量的顺序调换为 ARRAY,LENGTH，那么就出现传输数组时数组长度少一位
03!DEC$ ATTRIBUTES DLLEXPORT::SORTANDFINDMAX
04!DEC$ ATTRIBUTES STDCALL,ALIAS:'Sortandfindmax'::SORTANDFINDMAX
05DOUBLE PRECISION ::ARRAY(LENGTH)
06INTEGER::I,J
07DOUBLE PRECISION::SORTANDFINDMAX,TEMP
08SORTANDFINDMAX=ARRAY(1)
09DO I=1,LENGTH-1
10    DO J=I+1,LENGTH
11        IF(ARRAY(I).GT.ARRAY(J)) THEN
12            TEMP=ARRAY(I)
13            ARRAY(I)=ARRAY(J)
14            ARRAY(J)=TEMP                                      不讨论算法效率
15            SORTANDFINDMAX=ARRAY(J)
16            END IF
17    END DO
18    END DO
19END