Fortran Coder

查看: 6419|回复: 2

[混编] Delphi 调用 Fortran 编译的 DLL

[复制链接]

1

帖子

1

主题

0

精华

新人

F 币
9 元
贡献
3 点
发表于 2016-12-19 19:49:57 | 显示全部楼层 |阅读模式

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

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[i]:=Random(100);
       Memo1.Lines.Add(FloatToStr(sz[i]));
     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[i]));
     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

1948

帖子

12

主题

5

精华

论坛跑堂

臭石头雪球

F 币
1298 元
贡献
547 点

美女勋章热心勋章星光勋章新人勋章贡献勋章管理勋章帅哥勋章爱心勋章规矩勋章元老勋章水王勋章

发表于 2016-12-20 08:35:46 | 显示全部楼层
我手上没有 Delphi,你能不能把 数组在前,数组在后,分别编译成2个exe,然后压缩以后传上来?

490

帖子

4

主题

0

精华

大宗师

F 币
3298 元
贡献
1948 点

水王勋章元老勋章热心勋章

发表于 2016-12-20 14:48:04 | 显示全部楼层
[Fortran] 纯文本查看 复制代码
implicit none


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

都没有,编译器凭啥认定length就是整数?!
您需要登录后才可以回帖 登录 | 极速注册

本版积分规则

捐赠本站|Archiver|关于我们 About Us|小黑屋|Fcode ( 京ICP备18005632-2号 )

GMT+8, 2024-3-29 10:17

Powered by Tencent X3.4

© 2013-2024 Tencent

快速回复 返回顶部 返回列表