在Delphi中动态调用C++的DLL

最新推荐文章于 2022-08-14 12:45:55 发布

原创最新推荐文章于 2022-08-14 12:45:55 发布 · 1.3k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#delphi #c++ #integer #dll #function #c

Delphi 专栏收录该内容

32 篇文章

订阅专栏

本文介绍了一个跨语言DLL调用的例子，演示了如何在VC++中创建一个导出函数，并在Delphi中调用该DLL。文章通过具体的代码展示了整个过程，包括头文件的声明、DLL的实现及Delphi中的加载调用。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

/*--------------------------*/

VC中的.H代码：

/*--------------------------*/

#ifndef CFUN_H
#define CFUN_H

extern "C" __declspec(dllexport) int add(int a, int b);

#endif

/*--------------------------*/

VC中的CPP代码：

/*--------------------------*/

// cfun.cpp : 定义 DLL 应用程序的入口点。
//

#include "stdafx.h"

#ifdef _MANAGED
#pragma managed(push, off)
#endif

BOOL APIENTRY DllMain( HMODULE hModule,
                       DWORD ul_reason_for_call,
                       LPVOID lpReserved
                    )
{
    return TRUE;
}

extern "C" __declspec(dllexport) int add(int a, int b)
{
    return a + b;
}

#ifdef _MANAGED
#pragma managed(pop)
#endif

/*--------------------------*/

Delphi中的代码：

/*--------------------------*/

type
    Tadd = function(num1:Integer; num2:Integer):Integer; cdecl;

procedure TForm1.btn1Click(Sender: TObject);
var
    handle:THandle;
    FPointer:TFarProc;
    MyFunc:Tadd;
    i:Integer;
begin
    handle := LoadLibrary('cfun.dll');

    if (handle<> 0) then
    try
        FPointer := GetProcAddress(handle, 'add');
        if FPointer <> nil then
        begin
            MyFunc := Tadd(FPointer);
            i := MyFunc(10,20);

            edt1.Text := IntToStr(i);

        end;

        finally
            FreeLibrary(handle);
        end
    else
      ShowMessage('未找到动态链接库cfun.dll');

end;