delphi7中调用了fortran编写的dll,之前用XP系统时是可以运行出结果的,但是现在换到win7了,不能用了。

Posted

tags:

篇首语:本文由小常识网(cha138.com)小编为大家整理,主要介绍了delphi7中调用了fortran编写的dll,之前用XP系统时是可以运行出结果的,但是现在换到win7了,不能用了。相关的知识,希望对你有一定的参考价值。

已点击运行程序就出现这个对话框,这是什么问题呢?求教高手!!

borlndmm.dll 是 delphi 所需的链接库。用于内存管理。Borland Memeroy Manager
Borland 是 Delphi 厂家的名字。

建议你重新安装一下 Delphi,或者在计算机上搜索 Borlndmm.dll 文件,找到后把他所在的文件夹添加到 Path 环境变量路径下。
参考技术A 楼上正解,并且建议装delhpi,如果不装,说不定解决了这个dll,又要报其他dll找不到了。

delphi编写与调用DLL(delphi7下测试通过)

http://blog.sina.com.cn/s/blog_4dbbf76f01000anz.html

  1 delphi编写DLL
  2 下面在delphi中编写一个简单的dll,在该dll中只有一个max函数,返回2个数中的大数(Delphi 5.0)
  3 1、New->DLL;取名为DLL_0001,编写代码:
  4 library dll_0001;
  5 uses
  6    SysUtils,
  7    Classes;
  8 {$R *.RES}
  9 function max(x,y:integer):integer;stdcall;
 10 begin
 11      if(x>y) then
 12       max :=x
 13       else
 14       max :=y;
 15 end;
 16 exports max;
 17 begin
 18 end.
 19 红色部分为自己编写,这里和普通的delphi函数是一样的,只是在返回值中带个stdcall参数,然后用exports把函数导出
 20 ================================================================================
 21 Delphl调用dll
 22 调用dll分动态调用和静态调用2中,动态调用写起来简单,安全点,动态调用复杂很多,但很灵活;
 23 现在编写一个程序,来调用上面写的dll_0001.dll文件中的max函数
 24 一、new一个Application,在Form中放入2个TEdit、1个TLabek;
 25 二、
 26 1、静态调用
 27 unit Unit1;
 28 interface
 29 uses
 30    Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
 31    StdCtrls;
 32 type
 33    TForm1 = class(TForm)
 34      Edit1: TEdit;
 35      Edit2: TEdit;
 36      Label1: TLabel;
 37      procedure Edit2KeyDown(Sender: TObject; var Key: Word;
 38        Shift: TShiftState);
 39    private
 40      { Private declarations }
 41    public
 42      { Public declarations }
 43    end;
 44 var
 45    Form1: TForm1;
 46 implementation
 47 {$R *.DFM}
 48 function max(x,y:integer):integer;stdcall;
 49 external dll_0001.dll;
 50 procedure TForm1.Edit2KeyDown(Sender: TObject; var Key: Word;
 51    Shift: TShiftState);
 52 begin
 53 if key =vk_return then
 54 label1.Caption :=IntToStr(max(StrToInt(Edit1.text),StrToInt(edit2.text)));
 55 end;
 56 end.
 57 红色代码自己添加,其中external "dll_name"中的dll_name可以是dll的绝对路径,要是该dll文件在你的搜索路径中,可以直接写文件名,但是.dll不能少写
 58 2、动态调用,代码如下;
 59 unit Unit1;
 60 interface
 61 uses
 62    Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
 63    StdCtrls;
 64 type
 65    TForm1 = class(TForm)
 66      Edit1: TEdit;
 67      Edit2: TEdit;
 68      Label1: TLabel;
 69      procedure Edit2KeyDown(Sender: TObject; var Key: Word;
 70        Shift: TShiftState);
 71    private
 72      { Private declarations }
 73    public
 74      { Public declarations }
 75    end;
 76 var
 77    Form1: TForm1;
 78 implementation
 79 {$R *.DFM}
 80 procedure TForm1.Edit2KeyDown(Sender: TObject; var Key: Word;
 81    Shift: TShiftState);
 82 type
 83 TFunc =function(x,y:integer):integer;stdcall;
 84 var
 85 Th:Thandle;
 86 Tf:TFunc;
 87 Tp:TFarProc;
 88 begin
 89 if key =vk_return then
 90 begin
 91 Th :=LoadLibrary(dll_0001.dll);    {load dll}
 92 if(Th   >0) then
 93 try
 94 Tp :=GetProcAddress(Th,PChar(max));
 95 if(Tp <>nil) then
 96 begin         { begin 1}
 97 Tf :=TFunc(Tp);
 98 Label1.Caption :=IntToStr(
 99 Tf(StrToInt(Edit1.text),StrToInt(Edit2.text)));
100 end   { end 1}
101 else
102    ShowMessage(function max not found.);
103 finally
104 FreeLibrary(Th);
105 end
106 else
107 ShowMessage(dll_0001.dll not exsit.);
108 
109 end;
110 end;
111 end.

 

以上是关于delphi7中调用了fortran编写的dll,之前用XP系统时是可以运行出结果的,但是现在换到win7了,不能用了。的主要内容,如果未能解决你的问题,请参考以下文章

Delphi7调用DelphiXE编写的DLL问题

通过在 C++ 接口周围创建 C 包装器,在 FORTRAN 中调用 C++ dll 文件 [关闭]

Delphi7程序调用C#写的DLL解决办法(转)

Delphi7 dll 动态调用的问题

C++ 从 dll 调用 FORTRAN 子例程

Delphi XE3写DLL,用Delphi7调用,报错!