- 浏览: 254935 次
- 性别:
- 来自: 深圳
-
最新评论
-
whizkid:
[img] private void enableNdefEx ...
android通过NFC读写数据 -
zhangminglife:
您好!不错,最近正在弄这个东西,能否把demo发给我一份谢谢了 ...
SSL双向认证java实现(转) -
water卡:
android如何调用显示和隐藏系统默认的输入法 -
water卡:
android如何调用显示和隐藏系统默认的输入法 -
sjp524617477:
good
生成android使用的BKS证书
C/C++调用Delphi制作的dll时发现的一些问题 收藏
做了一个网络业务逻辑实体,是用C++编写的dll,内部有一个全局的业务实体,外部准备用Delphi编写的界面程序来控制并显示状态......
1. C++的dll中不能用C++风格的导出方式:_declspec(dllexport)来导出函数,要用C风格的导出方式:extern "C" _declspec(dllexport),否则Delphi在加载C++的dll时报错:无法定位函数xxxFun()于xxxDll.dll上。(这里假设只讨论这两种导出方式)不知道delphi能不能调用其他C风格的dll...?
例子:
C++中要这样声明函数,
extern "C" _declspec(dllexport) int Initialize();
Delphi中声明要这样,
Function Initialize():Integer; cdecl; external 'c_test.dll' name 'Initialize';
注意,这里的 cdecl 是必须的,其他的(如stdcall,pascal...)貌似都不行......似乎它是delphi调用c编写的dll的唯一合法标识,因为这由C++的dll中的_declspec方式决定了,然而在C++中为了能给delphi调用,又不允许使用其他的(如WINAPI,CALLBACK,PASCAL...)导出方式,所以就只能这样使用_declspec了。
但是,有人说过这样的对应方式:
C++的参数调用方式 对应的DELPHI的参数调用方式
_declspec cdecl
WINAPI,CALLBACK stdcall
PASCAL pascal
附注:C++中的char *对应PASCAL中的PChar。
不是没有试过,只是没有调试成功过,所以最终还是用的以上方式,即在C++中用extern "C" _declspec(dllexport)声明函数,在Delphi中用cdecl声明函数,然后Delphi应用程序调用C++的dll。
2.在1中的调用为主动调用,即delphi主动调用C++的dll,倘若反过来,用C++或者C来调用Delphi的函数,问题有些不一致了,这里又要分为两种情形:
1)C++的应用程序,调用Delphi编写的dll。
2)Delphi在调用C++的dll时,传递函数指针给dll,在dll内部根据业务逻辑,回叫这个delphi函数。
(其实1)和2)的情形似乎都一样...)
因为pascal和c是两种不同风格的语言,它们的参数列表的出栈进栈方式不一样,所以,最容易出问题的就是函数的参数列表了。不光参数列表中参数顺序会乱,而且乱得没有规律可循,当只涉及到一个整型参数时,没有问题,正常调用,但是,这只是碰巧没有问题而已......
首先,对于C++应用程序调用Delphi编写的dll,
可以这样,在C++程序里,
#include <Windows.h>
#include <iostream>
#include <stdio.h>
#include <string>
using namespace std;
typedef int(*myFun)(int arg1,int arg2,int arg3,int arg4);
int main(int argi,char* argv[])
{
HINSTANCE hDll;
hDll=LoadLibrary("delphi_dll.dll");
if (hDll!=NULL)
{
myFun fun;
fun=(myFun)GetProcAddress(hDll, "c_exe_test2");
if(fun!=NULL)
{
for(int i=0;i<5;i++)
{
printf("%d,%d,%d,%d\n",i,i+1,i+2,i+3);
fun(i,i+1,i+2,i+3);
}
}
FreeLibrary(hDll);
}
system("pause");
return 0;
}
然后在Delphi编写的dl内部,
library delphi_dll;
uses
SysUtils,
Classes,
Dialogs;
Function c_exe_test2(arg1,arg2,arg3,arg4: Integer): Integer; cdecl;
Begin
ShowMessage(
'arg1='+IntToStr(arg1)+' '+
'arg2='+IntToStr(arg2)+' '+
'arg3='+IntToStr(arg3)+' '+
'arg4='+IntToStr(arg4));
end;
exports
c_exe_test2 index 1;
begin
//todo...dll被加载时执行一次...
end.
注意了,在Delphi的dll内部,cdecl 声明是必不可少的,否则就会出现参数列表的混乱...
接下来,就去调试下C++的dll内部回叫Delphi程序的函数指针,再次检查参数列表是否正确,
在C++的dll中,
//--------------------------------------------------------------------------------
//xxx.h:
typedef int(*OnTest)(int arg1,int arg2,int arg3,int arg4);
extern "C" _declspec(dllexport) int setcb_on_test(OnTest pFun);
//--------------------------------------------------------------------------------
//xxx.cpp:
#include <Windows.h>
static OnTest CallBackOnTest = NULL;
extern "C" _declspec(dllexport) int setcb_on_test(OnTest pFun)
{
CallBackOnTest=pFun;
return 0;
}
void fun(void* arg)
{
int i=0,arg1=1,arg2=2,arg3=3,arg4=4;
while(1)
{
i++;
if(i%5==0)
if(CallBackOnTest)
{
CallBackOnTest(arg1,arg2,arg3,arg4);
arg1++;arg2++;arg3++;arg4++
}
Sleep(1000);
if(i>=100) break;
}
}
BOOL APIENTRY DllMain(HANDLE hModule,DWORD ul_reason_for_call,LPVOID lpReserved )
{
switch(ul_reason_for_call)
{
case DLL_PROCESS_ATTACH:
{
HANDLE threadHandle;
DWORD threadID;
threadHandle = CreateThread(
NULL,
0,
(LPTHREAD_START_ROUTINE)fun,
NULL,
0,
&threadID);
}
break;
case DLL_THREAD_ATTACH:
case DLL_THREAD_DETACH:
case DLL_PROCESS_DETACH:
break;
}
return TRUE;
}
在Delphi应用程序中,
unit UnitMain;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Dialogs;
Type
TObjMain = class(TObject)
private
{ Private declarations }
Public
{ Public declarations }
Constructor Create(owner: TObject);
Destructor Free();
end;
var
myObj: TObjMain ;
type
TOnTest = Function(arg1,arg2,arg3,arg4: Integer): Integer; cdecl;
Function SetCB_OnTest(pFun: TOnTest): Integer; cdecl; external 'c_test.dll' name 'setcb_on_test';
Function OnTest(arg1,arg2,arg3,arg4: Integer): Integer; cdecl;
implementation
{$R *.pas}
Function OnTest(arg1,arg2,arg3,arg4: Integer): Integer;
begin
ShowMessage(
'arg1='+IntToStr(arg1)+' '+
'arg2='+IntToStr(arg2)+' '+
'arg3='+IntToStr(arg3)+' '+
'arg4='+IntToStr(arg4 );
result:=0;
end;
constructor myObj.Create(owner: TObject);
begin
inherited;
//todo...
SetCB_OnTest(OnTest);
end;
destructor myObj.Free();
begin
//todo...
inherited;
end;
再在工程文档中,
program d_test;
uses
UnitMain in 'UnitMain.pas' {myObj};
{$R *.res}
Begin
Application.Initialize;
myObj:=TObjMain.Create(Application);
Application.Run;
end.
做了一个网络业务逻辑实体,是用C++编写的dll,内部有一个全局的业务实体,外部准备用Delphi编写的界面程序来控制并显示状态......
1. C++的dll中不能用C++风格的导出方式:_declspec(dllexport)来导出函数,要用C风格的导出方式:extern "C" _declspec(dllexport),否则Delphi在加载C++的dll时报错:无法定位函数xxxFun()于xxxDll.dll上。(这里假设只讨论这两种导出方式)不知道delphi能不能调用其他C风格的dll...?
例子:
C++中要这样声明函数,
extern "C" _declspec(dllexport) int Initialize();
Delphi中声明要这样,
Function Initialize():Integer; cdecl; external 'c_test.dll' name 'Initialize';
注意,这里的 cdecl 是必须的,其他的(如stdcall,pascal...)貌似都不行......似乎它是delphi调用c编写的dll的唯一合法标识,因为这由C++的dll中的_declspec方式决定了,然而在C++中为了能给delphi调用,又不允许使用其他的(如WINAPI,CALLBACK,PASCAL...)导出方式,所以就只能这样使用_declspec了。
但是,有人说过这样的对应方式:
C++的参数调用方式 对应的DELPHI的参数调用方式
_declspec cdecl
WINAPI,CALLBACK stdcall
PASCAL pascal
附注:C++中的char *对应PASCAL中的PChar。
不是没有试过,只是没有调试成功过,所以最终还是用的以上方式,即在C++中用extern "C" _declspec(dllexport)声明函数,在Delphi中用cdecl声明函数,然后Delphi应用程序调用C++的dll。
2.在1中的调用为主动调用,即delphi主动调用C++的dll,倘若反过来,用C++或者C来调用Delphi的函数,问题有些不一致了,这里又要分为两种情形:
1)C++的应用程序,调用Delphi编写的dll。
2)Delphi在调用C++的dll时,传递函数指针给dll,在dll内部根据业务逻辑,回叫这个delphi函数。
(其实1)和2)的情形似乎都一样...)
因为pascal和c是两种不同风格的语言,它们的参数列表的出栈进栈方式不一样,所以,最容易出问题的就是函数的参数列表了。不光参数列表中参数顺序会乱,而且乱得没有规律可循,当只涉及到一个整型参数时,没有问题,正常调用,但是,这只是碰巧没有问题而已......
首先,对于C++应用程序调用Delphi编写的dll,
可以这样,在C++程序里,
#include <Windows.h>
#include <iostream>
#include <stdio.h>
#include <string>
using namespace std;
typedef int(*myFun)(int arg1,int arg2,int arg3,int arg4);
int main(int argi,char* argv[])
{
HINSTANCE hDll;
hDll=LoadLibrary("delphi_dll.dll");
if (hDll!=NULL)
{
myFun fun;
fun=(myFun)GetProcAddress(hDll, "c_exe_test2");
if(fun!=NULL)
{
for(int i=0;i<5;i++)
{
printf("%d,%d,%d,%d\n",i,i+1,i+2,i+3);
fun(i,i+1,i+2,i+3);
}
}
FreeLibrary(hDll);
}
system("pause");
return 0;
}
然后在Delphi编写的dl内部,
library delphi_dll;
uses
SysUtils,
Classes,
Dialogs;
Function c_exe_test2(arg1,arg2,arg3,arg4: Integer): Integer; cdecl;
Begin
ShowMessage(
'arg1='+IntToStr(arg1)+' '+
'arg2='+IntToStr(arg2)+' '+
'arg3='+IntToStr(arg3)+' '+
'arg4='+IntToStr(arg4));
end;
exports
c_exe_test2 index 1;
begin
//todo...dll被加载时执行一次...
end.
注意了,在Delphi的dll内部,cdecl 声明是必不可少的,否则就会出现参数列表的混乱...
接下来,就去调试下C++的dll内部回叫Delphi程序的函数指针,再次检查参数列表是否正确,
在C++的dll中,
//--------------------------------------------------------------------------------
//xxx.h:
typedef int(*OnTest)(int arg1,int arg2,int arg3,int arg4);
extern "C" _declspec(dllexport) int setcb_on_test(OnTest pFun);
//--------------------------------------------------------------------------------
//xxx.cpp:
#include <Windows.h>
static OnTest CallBackOnTest = NULL;
extern "C" _declspec(dllexport) int setcb_on_test(OnTest pFun)
{
CallBackOnTest=pFun;
return 0;
}
void fun(void* arg)
{
int i=0,arg1=1,arg2=2,arg3=3,arg4=4;
while(1)
{
i++;
if(i%5==0)
if(CallBackOnTest)
{
CallBackOnTest(arg1,arg2,arg3,arg4);
arg1++;arg2++;arg3++;arg4++
}
Sleep(1000);
if(i>=100) break;
}
}
BOOL APIENTRY DllMain(HANDLE hModule,DWORD ul_reason_for_call,LPVOID lpReserved )
{
switch(ul_reason_for_call)
{
case DLL_PROCESS_ATTACH:
{
HANDLE threadHandle;
DWORD threadID;
threadHandle = CreateThread(
NULL,
0,
(LPTHREAD_START_ROUTINE)fun,
NULL,
0,
&threadID);
}
break;
case DLL_THREAD_ATTACH:
case DLL_THREAD_DETACH:
case DLL_PROCESS_DETACH:
break;
}
return TRUE;
}
在Delphi应用程序中,
unit UnitMain;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Dialogs;
Type
TObjMain = class(TObject)
private
{ Private declarations }
Public
{ Public declarations }
Constructor Create(owner: TObject);
Destructor Free();
end;
var
myObj: TObjMain ;
type
TOnTest = Function(arg1,arg2,arg3,arg4: Integer): Integer; cdecl;
Function SetCB_OnTest(pFun: TOnTest): Integer; cdecl; external 'c_test.dll' name 'setcb_on_test';
Function OnTest(arg1,arg2,arg3,arg4: Integer): Integer; cdecl;
implementation
{$R *.pas}
Function OnTest(arg1,arg2,arg3,arg4: Integer): Integer;
begin
ShowMessage(
'arg1='+IntToStr(arg1)+' '+
'arg2='+IntToStr(arg2)+' '+
'arg3='+IntToStr(arg3)+' '+
'arg4='+IntToStr(arg4 );
result:=0;
end;
constructor myObj.Create(owner: TObject);
begin
inherited;
//todo...
SetCB_OnTest(OnTest);
end;
destructor myObj.Free();
begin
//todo...
inherited;
end;
再在工程文档中,
program d_test;
uses
UnitMain in 'UnitMain.pas' {myObj};
{$R *.res}
Begin
Application.Initialize;
myObj:=TObjMain.Create(Application);
Application.Run;
end.
发表评论
-
PBOC规范研究之六、变长记录文件
2014-08-14 20:11 921PBOC规范研究之六、变长记录文件 此博文包含图片 (20 ... -
Windows桌面共享中一些常见的抓屏技术
2014-06-06 15:01 10551. BitBlt 我想做Windows开 ... -
error C2440 “static_cast” 无法从“void (__thiscall )(void)”转换为“LRESULT
2013-11-18 13:51 1546error C2440 “static_cast” 无法从 ... -
WOSA/XFS结构、背景等介绍
2013-11-14 13:28 1209前言: 写给 ... -
查看oracle用户数据库连接数
2013-10-30 12:31 662查看oracle用户数据库连接数 1、查询oracle的连接 ... -
几种穿透防火墙技术
2013-07-12 18:28 981本人对几种穿透防火墙技术 以下是本人对几种穿透技术学习笔记和一 ... -
C# Socket编程笔记
2013-06-16 08:58 0看到这个题目,是不是 ... -
金融行业密钥详解
2013-05-15 16:48 903金融行业因为对数据比较敏感,所以对数据的加密也相应的比较重视。 ... -
rdp delphi实现远程桌面
2012-11-11 00:17 75981. 首先确保你的机器上存在mstscax.dll,如果没有这 ... -
xml通配符
2012-11-09 09:33 2419解析xml字符串 < -> < &g ... -
cobol中常用的数据类型
2012-08-22 15:13 1256COBOL上的基本类型大致分为:常量、变量、直接数和结构体。下 ... -
(转)学习maven的使用,看到一篇很实用的入门教程(菜鸟级入门)
2012-07-12 15:19 839一、前言 早 ... -
NFC相关研究
2012-05-15 14:07 1143NFC概述 NFC是短距离的无线通信,通常距 ... -
Android 面试题
2012-05-15 14:05 978Android 面试题 经典 1、 Android dvm的进 ... -
使用Java实现CA
2012-04-11 14:31 920一. 准备 1. JDK 1.6 2. 安 ... -
Eclipse快捷键汇总
2012-03-20 10:39 800自动补齐类名 Alt+. 作用 ... -
SSL的工作流程简介(转)
2012-03-01 16:47 9281:客户端的浏览器向服务器传送客户端 SSL 协议的版本号,加 ... -
Http之Get/Post请求区别
2011-09-06 15:24 8731.HTTP请求格式: <request line> ... -
keystore提取私钥和证书
2011-07-19 10:46 2704keytool -genkey -alias test -ke ... -
Keytool命令行参数说明
2011-07-11 15:47 1138Keytool命令行参数说明 2010-03-19 17:05 ...
相关推荐
本文档说明了Delphi调用c++ dll的一些技术细节,讲述了如何调用c++的动态链接库接口技术
jni调用c++ delphi中的dll.
C++、VB、DELPHI调用DLL的小例子。DLL是用VC++写的。同学在做毕业设计时要求调用DLL,我就顺便把VB和DELPHI的也做上了
将sqlite的简单功能(execsql, query)封闭到dll中.可通过标准c函数接口操作. 以前写过一个简单的类.可以供c/c++调用. 现在写了一个dll可以供其它语言环境使用. 代码中预留了其它数据库接口的扩展性.
C++、VB、DELPHI调用DLL的小例子。DLL是用VC++写的。同学在做毕业设计时要求调用DLL,我就顺便把VB和DELPHI的也做上了。 继加了JAVA调用DLL后,空闲的时候又加了个C#调用的例子。根据以前下载过的朋友的要求,...
在VC中的DLL类导出以后完全是可以被delphi调用的. 源码中有详细介绍和说明文档.
Silverlight使用WebService调用C++,Delphi编写的DLL文件实例源码,
这段时间调用C++的DLL带有CALLBACK回调参数的方法,经过一端时间研究,已经成功调用了,拿出去同大家分享一下
把C++中的类封装成DLL,导出此类的对象给Delphi层调用。区别于以往的导出函数的方式,此示例是导出对象。
专家包以 DLL 的方式集成到 IDE 中,包括一组以菜单和快捷键调用的工具、扩展的属性编辑器、组件编辑器及代码、窗体资源模板等。当前支持的编译器有 Borland Delphi 5/6/7, C++Builder 5/6 和 BDS 2005/2006、RAD ...
之前发布过C++、VB、DELPHI调用DLL的。今天新增JAVA调用DLL的。用的是Jawin库,省得自己另外再写东西了。
本实例介绍用Delphi调用C++写的dll的一个简单的例子
32bit程序调用64bit dll 的解决办法 32bit程序不能直接调用64bit的dll,我们采用COM进程外组件的方式来实现间接调用。
Delphi中制作DLL •一 Dll的制作一般分为以下几步: 1 在一个DLL工程里写一个过程或函数 2 写一个Exports关键字,在其下写过程的名称。不用写参数和调用后缀。 二参数传递 1 参数类型最好与window C++的参数类型一致...
在 C# 中调用 C++ 的 DLL 文件还需要注意一些其他问题,例如指针的处理、内存操作等。同时,我们也可以在 C# 中调用多个 C++ 函数,或者将 C++ 函数封装成 COM,提高开发效率。 C# 调用 C++ 的 DLL 文件对于提高...
基本上覆盖了目前主流的开发语言,DLL使用C++编写,演示了VB、C++、DELPHI、JAVA、C#、汇编、易语言调用这个DLL的方法。有些语言我提供了静态和动态2种调用方法。没有写的恕我孤陋寡闻,如果谁知道请联系我QQ:...
delphi封装的回调函数DLL,为了自动触发事件
delphi的RSA的加解密,delphi生成dll,然后demo调用该dll进行加解密
点量Http、FTP多线程断点续传下载...点量Http、FTP下载内核源码使用高效的c++代码编写,提供标准的动态链接库(DLL),可供C/C++、Delphi、C#、Java、VB等语言和各常用开发环境调用,让您完全像调用系统API一样的调用。
这两年,我在VBA应用方面一直有几大痛点: ...本DLL库可以被C++、VB6、Delphi、VBA等多种语言调用(接口提供VBA示例,其它语言自己写。)。支持32位和64位操作系统。 运行环境:需要.net Framework 4.0或以上,支持XP。