Fortran Coder

标题: Delphi 调用 Fortran 编译的 DLL [打印本页]
作者: cbwang    时间: 2016-12-19 19:49
标题: Delphi 调用 Fortran 编译的 DLL

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

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


type

  Tvar=function(a:integer;b:array of real):real;stdcall;



procedure TForm1.Button1Click(Sender: TObject);

var shuzu:TFarProc;

    onehandle:THandle;

    myf:Tvar;

    sz:array of Real;

    i:Integer;

begin

   SetLength(sz,StrToInt(Edit2.Text));

   for I := Low(sz) to High(sz) do

     begin

       sz:=Random(100);

       Memo1.Lines.Add(FloatToStr(sz));

     end;



   onehandle:=LoadLibrary('D:\TestDll.dll');

   try

     if onehandle <> 0 then

     begin

       shuzu:=GetProcAddress(onehandle,'Sortandfindmax');

     end;



     if shuzu <> nil then

     begin

       myf:=tvar(shuzu);

       Edit1.Text:=FloatToStr(myf(Length(sz),sz));

       for I := Low(sz) to High(sz) do

         Memo2.Lines.Add(FloatToStr(sz));

     end;

   finally

     FreeLibrary(onehandle);

   end;

end;

Fortran中的
[Fortran] 纯文本查看 复制代码
FUNCTION SORTANDFINDMAX(LENGTH,ARRAY)

!------------------------------如果将变量的顺序调换为 ARRAY,LENGTH，那么就出现传输数组时数组长度少一位

!DEC$ ATTRIBUTES DLLEXPORT::SORTANDFINDMAX

!DEC$ ATTRIBUTES STDCALL,ALIAS:'Sortandfindmax'::SORTANDFINDMAX

DOUBLE PRECISION ::ARRAY(LENGTH)

INTEGER::I,J

DOUBLE PRECISION::SORTANDFINDMAX,TEMP

SORTANDFINDMAX=ARRAY(1)

DO I=1,LENGTH-1

    DO J=I+1,LENGTH

        IF(ARRAY(I).GT.ARRAY(J)) THEN

            TEMP=ARRAY(I)

            ARRAY(I)=ARRAY(J)

            ARRAY(J)=TEMP                                      不讨论算法效率

            SORTANDFINDMAX=ARRAY(J)

            END IF

    END DO

    END DO

END

哪位给指点一下，为什么需要将数组放在最后呢

无标题.png (8.82 KB, 下载次数: 235)

无标题.png
作者: fcode    时间: 2016-12-20 08:35
我手上没有 Delphi，你能不能把 数组在前，数组在后，分别编译成2个exe，然后压缩以后传上来？
作者: pasuka    时间: 2016-12-20 14:48
[Fortran] 纯文本查看 复制代码
implicit none

或
[Fortran] 纯文本查看 复制代码
implicit a-h,o-z

都没有，编译器凭啥认定length就是整数？！



欢迎光临 Fortran Coder (http://bbs.fcode.cn/) Powered by Discuz! X3.2