您提的这个问题 C#调用delphi的DLL"尝试读取或写入受保护的内存。这通常指示其他内存已损坏,如何解决的?

Posted

tags:

篇首语:本文由小常识网(cha138.com)小编为大家整理,主要介绍了您提的这个问题 C#调用delphi的DLL"尝试读取或写入受保护的内存。这通常指示其他内存已损坏,如何解决的?相关的知识,希望对你有一定的参考价值。

参考技术A 调用dll出错了。一般dll文件不存在或者dll损坏容易出现这个问题 参考技术B 解决的办法很简单本回答被提问者采纳

Delphi简单调用DLL

DLL无任何函数,就是一个DLL初始函数而已如果要用Delphi调用这个DLL应该怎么写如果Delphi退出窗口要释放这个DLL的话请高手给出完整代码

所谓的静态调用DLL是指程序加载的时候直接就把需要的DLL全部加载了,一直到程序运行结束才释放这些加载的DLL这个就是所谓的静态加载,动态加载就是需要一个DLL中某个函数的时候加载这个DLL运行完成了这个函数就释放DLL,这个就是动态加载!
你要静态加载DLL就用Delphi自己写一个DLL,并且写一个引出库(*.pas的),然后在你的应用程序中包含这个*.pas就根本不用声明DLL中那些乱七八糟的引出函数,直接用就可以了,如果该DLL不存在,那么整个应用程序将无法使用,但是动态调用DLL就不同了,就算DLL不在,应用程序仍然可以使用

访问DLL库有两种方式,一种是静态引用,另一种是动态引用。
用静态引用这种方法装入DLL要做两件事情:为DLL 库创建一个输入单元,以及用USES把输入单元连接到要使用DLL 函数的程序模块中。为DLL库创建的输入单元与普通的单元的区别仅在于:在它的接口处声明的过程、函数,并不在它的实现部分给出真正的实现代码,而是用external关键字把过程、函数的实现细节委托给外部DLL模块。
external命令的使用语法如下:
procedure /function 过程/函数名;external DLL模块名;
下面给出为上面创建的minmax.DLL库写的输入单元源文件testdll .pas,从中可看出输入单元 与一般 单元的一些差别,代码如下所示:
unit testdll;
interface
uses
function Min (X, Y: Integer): Integer;
function Max (X, Y: Integer): Integer;

implementation

function Min; external ‘minmax.DLL’;
function Max; external ‘minmax.DLL’;
end.

一个应用程序若想调用minmax.DLL中的函数,只须在其uses语句中加入testdll 单元即可。
动态装入DLL,要用到Windows的三个API函数。Loadlibrary、Freelibrary和GetprocAddress 。loadlibrary函数用来装入DLL库,其调用格式如下:
function loadlobrary (DLLfileName:Pchar): THandle:
当不再需要一个DLL库时,应调用FreeLibrary函数将其释放,以空出宝贵的内存资源,其调用格式如下:
procedure FreeLibrary (Libmodule:THandle)
Libmodule 为由LoadLibrary调用得到的DLL库句柄。在用loadlobrary 函数装入某个DLL库和调用FreeLibrary释放该DLL库之间的程序段中, 可以使用该DLL库中的过程和函数,
具体使用方法是:用GetprocAddress函数把DLL库中函数的地址传递给程序中某个函数变量,再用该变量实现DLL函数的调用。GetprocAddress函数声名如下,
function GetprocAddress (Libmodule:THandle:procname:pchar):TFarProc:

如下例所示:
type
TTimeRec = record
Second: Integer;
Minute: Integer;
Hour: Integer;
end;
TGetTime = procedure(var Time: TTimeRec);
THandle = Integer;
var
Time: TTimeRec;
Handle: THandle;
GetTime: TGetTime;
...
begin
Handle := LoadLibrary('DATETIME.DLL');
if Handle > 0 then
begin
@GetTime := GetProcAddress(Handle, 'GetTime');
if @GetTime > nil then
begin
GetTime(Time);
with Time do
WriteLn('The time is ', Hour, ':', Minute, ':', Second);
end;
FreeLibrary(Handle);
end;
end;
在调用动态链接库时应注意, 所需动态链接库须与应用程序在同一目录或Windows System 目录下。

静态调用
Function fun(para:Longint):Longint; stdcall; external 'xxx.dll';
动态调用
loadlibrary,getprocaddress,freelibrary三个函数
参考技术A 假设你的dll名为:test.dll,里面有过程:procedure init(),则调用写法如下:

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Edit1: TEdit;
procedure Button1Click(Sender: TObject);
private
Private declarations
public
Public declarations
end;

var
Form1: TForm1;

implementation

$R *.DFM
procedure init;stdcall;External 'test.dll'; //在此声明引入dll函数,注意dll与程序在同一路径下

procedure TForm1.Button1Click(Sender: TObject);
begin
init;
end;

end;

退出窗口,不用释放dll。本回答被提问者和网友采纳

以上是关于您提的这个问题 C#调用delphi的DLL"尝试读取或写入受保护的内存。这通常指示其他内存已损坏,如何解决的?的主要内容,如果未能解决你的问题,请参考以下文章

从 C# 代码调用 delphi DLL 函数

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

Delphi程序怎么调用C#写的dll类库

Delphi编写DLL供C#调用的实例

尝试从 VS2013 C# 程序调用 DELPHI XE2 DLL 时出错

c#调用Delphi DLL参数为结构体数组