Delphi调用C++编写的DLL

Posted

tags:

篇首语:本文由小常识网(cha138.com)小编为大家整理,主要介绍了Delphi调用C++编写的DLL相关的知识,希望对你有一定的参考价值。

第一步:用C++编写的调用系统时间的源码:
Time.h源码:
extern "C" _declspec(dllexport) void main();
Time.cpp源码:
//调用系统时间
#include <stdio.h>
#include <string.h>
#include <time.h>
#include "Time.h"

extern "C" _declspec(dllexport) void main()

struct tm *newtime;
char am_pm[] = "AM";
time_t long_time;

time( &long_time ); /* Get time as long integer. */
newtime = localtime( &long_time );
/* Convert to local time. */

if( newtime->tm_hour > 12 ) /* Set up extension. */
strcpy( am_pm, "PM" );
if( newtime->tm_hour > 12 ) /* Convert from 24-hour */
newtime->tm_hour -= 12; /* to 12-hour clock. */
if( newtime->tm_hour == 0 ) /*Set hour to 12 if midnight. */
newtime->tm_hour = 12;
printf( "%.19s %s\n", asctime( newtime ), am_pm );

然后编译生成了获取系统时间的Time.dll动态库文件。
第二步:在Delphi中调用这个Time.dll文件。
在Form1中,我放置了一个Button1和一个Edit1,当单击按钮时,触发事件,调用Time.dll,将系统时间显示是Edit1中,如何实现???
其中按钮事件代码如下:
procedure TForm1.Button1Click(Sender: TObject);
var
Handle:THandle;
main:Tmain;

begin
Handle:=LoadLibrary('Time.dll'); //将“Time.dll”的文件映象映射进调用进程的地址空间
if Handle<>0 then
begin
@main:=GetProcAddress(Handle,'main'); //取得DLL中函数main( )的地址
if (@main<>nil) then
begin
//edtMin.Text:=IntToStr(main(StrToInt(edtInt1.Text),
Edit1.Text:=IntToStr(main());
end
else
ShowMessage('调用函数“GetProcAddress”时出错!');
FreeLibrary(Handle); //从进程的地址空间中解除“Time.dll”文件的映射
end
end;
end.
能通过编译,但结果并没有显示出系统时间。是怎么回事?还望有人能够指点一二,谢谢。
DLL函数已作出部分修正,如将: printf( "%.19s %s\n", asctime( newtime ), am_pm );语句修改。同时也不能将DLL函数设为main函数。但修改后,Delphi调用时还是存在了一些问题。仍在探索中,还希望高手能给出意见和自己的理解。
Warning:不会的不熟悉的就不要为了得分给出很SB的答案,谢谢。

我对C++不是非常熟,但是你这个main函数为什么不用return一个整型时间戳呢?

以下是delphi下调用C DLL的一种方法
Function main():integer; cdecl; external \'Time.dll\' name \'main\';
参考技术A C main函数没有返回值
Edit上肯定无值
看下你调试工具message view上有无显示
参考技术B 注意导出函数的调用方式.

编写从 C++ 应用程序链接的 Delphi DLL:访问 C++ 接口成员函数会导致访问冲突

【中文标题】编写从 C++ 应用程序链接的 Delphi DLL:访问 C++ 接口成员函数会导致访问冲突【英文标题】:Writing a Delphi DLL linked in from C++ Application: Access to C++ Interface Member Functions creates Access Violation 【发布时间】:2011-05-05 00:01:01 【问题描述】:

我需要编写一个 DLL(在 Delphi 2009 中),该 DLL 将链接到用 MS VC++ 编写的第三方应用程序中。这个概念非常类似于插件系统,这意味着应用程序在没有 DLL 的情况下运行良好,并在它存在时加载它。

在发生某些事件时,应用程序会调用 DLL 导出的函数。文档中有一个已定义函数的列表,所谓的 SDK 提供了一些示例代码,当然也包括 C++。我无权访问应用程序本身的源代码。

以下是一些冗长的介绍以及一些代码示例。 问题(将在本文底部再次提出)是:如何在 Delphi DLL 中实现应用程序 C++ 类,作为指向接口的指针传递?我已经阅读了有关 *** 和其他来源的几个线程,但其中大多数都涉及修改 both 端(C++ 应用程序和 Delphi DLL),这不是一个选项。所以,我要找的是可以协助将 C++ DLL 代码转换为 Delphi DLL 代码的人。

被调用的函数通常接收一些参数(主要是 TCHAR*、int 和一些 ENUM)并具有 HRESULT 类型的返回值。其中一些确实还有一个参数,该参数被描述为指向“类 COM 接口”的指针,旨在使调用应用程序内部定义的成员函数成为可能。在翻译过程中,我只是简单地在类型前加上一个“T”并在一个单独的单元中声明了相应的类型(TCHAR* 变为 PTCHAR 并被定义为 PTCHAR = PAnsiChar。如果证明有必要,这可以很容易地替换类型) .

目前,应用程序已经调用了 DLL 函数,并且 DLL 中的代码可以完全访问“标准”参数,如字符串或整数。返回值被传递回应用程序,因此认为导出函数的实现是正确的。在较短的示例中(适用于 Delphi 实现):

// C++ function defined in the SDK
DLLAPI int FPHOOK_OnStartFlowInstance(const TCHAR* strSvcAppName, 
           const TCHAR* strAppName,
           const FLOW_SECTION_TYPE eSectionType,
           IIFlowContext* pContext)

 return 0;



// Delphi translation of the same function
function FPHOOK_OnStartFlowInstance( const strSvcAppName : PTCHAR;
                                     const strAppName : PTCHAR;
                                     const eSectionType : TFLOW_SECTION_TYPE;
                                     pContext : PIIFlowContext) : Int; stdcall;
begin
  dbg('ENTER FPHOOK_OnStartFlowInstance: strSvcAppName = ''%s'', strAppName = ''%s''',[String(strSvcAppName),String(strAppName)]);
  result := 0;
end;

现在,问题是我需要调用其中一个成员函数。这是类(C++)resp的定义。界面(德尔福)。为了节省空间,我省略了大部分功能,但如果有帮助,我很乐意提供更多源代码。

// (shortened) class definition from C++
class IIFlowContext : virtual public CIUnknown

   // Operation
   public:
   virtual HRESULT getContextID(/*[out]*/unsigned short* pContextId) = 0;
   virtual HRESULT cleanExecutionState() = 0;
   /* skipped some other 'virtual HRESULT ...' */
;

// (shortened) interface declaration from Delphi
type IIFlowContext = Interface(IUnknown)
       function getContextID(pContextId : Punsigned_short) : HRESULT; stdcall;
       function cleanExecutionState : HRESULT; stdcall;
       // skipped some other 'function ...'
end;

如果我现在尝试访问其中一个成员函数:

function FPHOOK_OnStartFlowInstance( ...,pContext : PIIFlowContext) : Int; stdcall; 
var fphookResult : HRESULT;
begin
  try
    fphookResult := pContext.cleanExecutionState;
  except On E: Exception do
    dbg('FPHOOK_OnStartFlowInstance, pContext.cleanExecutionState: %s::%s',[E.ClassName,E.Message]);
  end;
  result := 0;
end;

EAccessViolation 错误被 except 块捕获并写入调试日志。我已经尝试过不同的约定(不确定“约定”是否是正确的术语),例如 cdeclsafecall 而不是 stdcall,所有结果相同。

这是我目前完全不知道在哪里看的地方...我从来都不是 C++(甚至 C)程序员,所以我对 Delphi 的翻译很可能是错误的。也许还有一些我遗漏的地方。

无论如何,如果有一点(或更多)经验的人能给我一些提示,我会很高兴。

提前致谢

帕特里克

// 2010-11-05:我从 cmets 中提取的内容、答案和 cmets 的答案

Remko 建议将参数定义为

var pContext : IIFlowContext;

给出的结果与我最初的尝试几乎相同

pContext : PIIFlowContext;

两种情况都抛出异常,但变量的内容不同。下面给出了更多信息,我列出了不同的测试用例。

Barry 提到 Delphi(与 C++ 相对)中的接口已经是指针。虽然 C++ 需要传递一个指向类的指针(也称为传递 reference),但 Delphi 已经期望一个对类的引用。因此该参数应声明为

pContext : IIFlowContext;

即不作为接口的指针,也不带var修饰符。

我运行了以下三个测试用例,所有测试用例都在 dll 导出的函数的第一条指令处有一个调试断点:

1) 将参数声明为指向接口的指针

pContext : PIIFlowContext;

结果:根据调试器,pContext 包含指向内存地址 $EF83B8 的指针。调用其中一个接口方法会导致跳转到内存地址 $560004C2t 并引发 EAccessViolation 异常。

2) 将参数声明为对接口的引用

var pContext : IIFlowContext;

结果:调试器将 pContext 的内容显示为“Pointer($4592DC) as IIFlowContext”。调用接口方法会导致跳转到相同的内存地址 $560004C2,然后抛出相同的执行。

3) 将参数声明为接口本身(不带修饰符)

pContext : IIFlowContext;

结果:导出的 dll 函数甚至没有被调用。在跳转到 dll 函数发生之前,会引发 EAccessViolation(并被调试器捕获)。

从上面我得出的结论是,参数被声明为 var pContext : IIFlowContextpContext : PIIFlowContext 应该没有太大区别,但它如果它被声明为 pContext : IIFlowContext.

根据要求,这是调试器反汇编视图的输出。在 cmets 中,我记录了执行左侧操作后寄存器的值:

SystemHook.pas.180: fcnRslt := pContext.cleanExecutionState;
028A3065 8B4514           mov eax,[ebp+$14]        // EAX now = $00EF83D0
028A3068 8B00             mov eax,[eax]            // EAX now = $004592DC
028A306A 50               push eax
028A306B 8B00             mov eax,[eax]            // EAX now = $0041DE86
028A306D FF5010           call dword ptr [eax+$10]     // <-- Throws Exception, EAX+$10 contains $560004C2
028A3070 59               pop ecx
028A3071 8BD8             mov ebx,eax

反汇编完全一样,无论参数是指向接口的指针还是var引用。

我还有什么需要提供的吗?

我想到的另一个问题...

在SDK的原始头文件中,类定义为

class IIFlowContext : virtual public CIUnknown

CIUnknown 又在另一个头文件 (win_unknown.h) 中定义为

class CIUnknown

//  Operation
public:
    virtual HRESULT QueryInterface(REFIID iid, void ** ppvObject) = 0;
    virtual unsigned long AddRef(void) = 0;
    virtual unsigned long Release(void) = 0;
    static bool IsEqualIID(REFIID iid1, REFIID iid2)
    
        if (memcmp(&iid1, &iid2, sizeof(IID)) == 0)
            return true;

        return false;
    
;

可以使用 IUnknown 作为 Delphi 接口的基础吗?我想不会,因为据我所知,IUnknown 没有实现 IsEqualIID,因此 VMT 会发生变化。但是,我将如何在 Delphi 中实现这一点? C++static和Delphi的类函数一样吗?

// 2010-11-18:一些更新

不幸的是,我还没有找到让它工作的方法。确实改变行为的一件事是将接口引用传递为

const pContext : IIFlowContext;

正如 Barry 所说,这会阻止 delphi 在接口上“自动”调用 _AddRef()。这样,我就能够启动和调试对接口成员函数的调用。现在我可以跟踪执行相当长的时间,甚至可以看到对 Windows API 的一些调用(例如,CriticalSections),但有时它仍然会引发 EAccessViolation 错误。

目前我没有进一步的想法。我想我会尝试使用 MSVC++ 编译器,这样我就可以像 SDK 推荐的那样构建 DLL。如果这可行,那么也许使用 C++ 创建一个由 Delphi 代码围绕的包装器将是解决方案。

无论如何,非常感谢您迄今为止的帮助!不过,我们将非常感谢您提供任何额外的意见。

【问题讨论】:

您是否将 C++ 版本截断太多?我没有看到调用约定说明符,因此 C++ 接口将默认为 Delphi 调用的 cdecl,除非另有说明(例如,一些奇怪的 C++ 寄存器(如 MS fastcall)调用约定,没有 Delphi 翻译)被指定直接到 C++ 编译器命令行。 FWIW,我调试的方法是转到 CPU 视图 (Ctrl+Alt+C) 并单步执行调用,观察 Delphi 推送参数并调度接口方法,然后然后单步执行 C++ 端(由 Delphi 调试器反汇编)并查看它如何访问参数。 Barry,我查看了 C++ 源代码,但没有找到任何调用约定,除了一些其他类(未在 DLL 中使用):virtual HRESULT STDMETHODCALLTYPE setErrorText(...)。 dll 函数中使用的类定义似乎没有这样的约定说明符。 MS VC++ 项目文件也不包含任何看起来像命令行选项的东西来指定它们。 我的调试问题是 C++ 应用程序实际上是一个 Windows 服务。我还没有找到一种附加调试器的方法,以便在调用 dll 中的导出函数时停止。但我仍在努力 - 感谢您的提示。 只要调试器有足够的权限,附加到服务应该没有问题(运行|附加到进程)。如果服务直到调用它之前才加载 DLL(因此不容易设置正确的断点),然后考虑在 DLL 的入口函数或类似函数中调用 DebugBreak(库开始/结束)给你时间设置断点等。 【参考方案1】:

根据您最近的评论,我想我知道发生了什么;我应该早点发现的。

IIFlowContext 在 C++ 端是一个类; IIFlowContext* pContext 正在传递一个指向类的指针,这就是 C++ 中 COM 样式接口的表示方式。

但是 Delphi 接口已经是指针了;假设是间接的,因为 Delphi 类永远不会像 C++ 类那样按值传递。您应该在 Delphi 入口点中直接使用 IIFlowContext,而不是 varconst 修饰符。

接口方法声明可能还是有问题;更多信息会更清楚:请参阅我对您的问题的最新评论。

【讨论】:

【参考方案2】:

我的翻译是:

function FPHOOK_OnStartFlowInstance( const strSvcAppName : TCHAR; 
                                     const strAppName : TCHAR; 
                                     const eSectionType : TFLOW_SECTION_TYPE; 
                                     var pContext : IIFlowContext) : Int; stdcall;

PS:你是如何定义 TCHAR 是 Ansi 还是 Unicode/Wide ?

【讨论】:

TCHAR 被定义为 TAnsiChar。 PTCHAR(我用于 TCHAR*)被定义为 PAnsiChar。使用 PAnsiChar,字符串参数包含预期值,例如写入日志。无论如何我都会尝试使用 TCHAR。 什么是 TFLOW_SECTION_TYPE ?它是一个枚举吗?如果是这样设置 $MINENUMSIZE 4 好点。我已经设置了它,但是你的提示让我去仔细检查,只是为了发现我错过了一个单元。真丢脸……我会用 MINENUMSIZE = 4 再试一次。 幸运的我 ;-) 设置 MINENUMSIZE 并没有解决它,所以至少它不像忘记编译器指令那样愚蠢的错误。 回复我的第一条评论:变量 pContext 需要声明为指向接口的指针,将其声明为 pContext :一旦应用程序调用导出的函数,IIFlowContext 就会引发 EAccessViolation。字符串值确实作为 PAnsiChar 传递。

以上是关于Delphi调用C++编写的DLL的主要内容,如果未能解决你的问题,请参考以下文章

编写从 C++ 应用程序链接的 Delphi DLL:访问 C++ 接口成员函数会导致访问冲突

delphi调用vc编写的dll,出现错误

delphi编写dll遇到的问题

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

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

Delphi7调用DelphiXE编写的DLL问题