Delphi调用VC++的动态库问题

2013-01-30 04:29:06 2.6k 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

Trae编程工具Cline插件深度集成与Claude 3.7 API Key高级配置实战本文详细介绍了如何在Trae编程工具中深度集成Cline插件并配置Claude 3.7 API Key的高级技巧。通过实战案例，展示了如何提升代码补全质量、实现多轮对话记忆及自定义代理设置，特别适合全栈工程师和需要私有化AI服务的团队。文章还涵盖了安装流程、API Key获取方式及企业级部署的最佳实践。阅读详情

VC++给的动态库函数说明

/******************************************************************************

* Function:	HV_OpenDevice

* Description: 打开设备

* Format:

*     HRESULT HV_OpenDevice(int nDevId) ;

* Params:

*     int nId: 设备索引

* Return: 

*     HV_SUCCESS: 成功;   HV_NO_SUCH_DEVICE: 未找到

******************************************************************************/

HVGIGE_WP_API HRESULT __stdcall HV_OpenDevice(int nDevId);

我的调用方式

function HV_OpenDevice(nDevId: Integer):Integer;stdcall;external 'HVGigE_WP.dll' name 'HV_OpenDevice';

哪里不对啊？

运行的时候直接就弹出提示：
无法定位程序输入点 HV_OpenDevice 于动态链接库 'HVGigE_WP.dll' 上

为什么？

...全文

PADS VX 蛇形走线的设置方法与绕制在PCB设计过程中，在等长的设置中是必须用到蛇形走线的，并且DDR模块也会经常使用到。因此掌握蛇形走线的设置方法对我们PCB高速板设计中有很大的帮助。下面介绍蛇形走线的设置方法与绕制。1.单根网络线的蛇形走线的设置：打开PADS router界面，点击“工具”→“选项”(快捷方式“Ctrl+Enter”)，弹出“选项”窗口，选择“布线”界面下的“调整”，在“调整”界面，设置蛇形走线，倒角比例可以灵活设置。操作如下图所示：完成蛇形走线的配置后，快捷方式“F3”进行交互式布线时，单击右键选择“添加蛇形走线”，便阅读详情

hongss

Windows SDK/API 1,184 成员 22,326 内容

+ 关注 + 加入社区

切换为时间正序

boneheart 2013-02-04

打赏
举报

关于delphi调vc DLL的问题，我深入研究过。贴些已经正常工作的代码给你参考。 vc dll代码： #define DllExport __declspec(dllexport) extern "C" DllExport int ShowVideoView(HWND HParent); extern "C" DllExport HWND GetVideoViewHandle(); extern "C" DllExport void SetSelectVWinNum(int SelectWinNum); extern "C" DllExport int GetSelectVWinNum(); extern "C" DllExport void SelectVideoModel(int SelectNum); extern "C" DllExport void PlayVideo(int VideoWindowNum,LPCTSTR StreamMediaServerIP,int StreamMediaServerPort, LPCTSTR DVRIP,int DVRPort,LPCTSTR UserName,LPCTSTR PassWord,int MonitorChannelNO); extern "C" DllExport void StopVideo(int VideoWindowNum); extern "C" DllExport SetMainFormHandle3(HWND hMainForm); extern "C" DllExport bool GetSelectVWinBigFlag(int SelectWinNum); extern "C" DllExport void SetSelectVView(int SelectNum,bool SelectFlag); extern "C" DllExport void SetPTZCtrl(int ArrowNum,int ArrowStatus); 以上是在.h文件中定义dll输出函数。对应的.cpp中。每个函数实现的代码： extern "C" DllExport SetMainFormHandle3(HWND hMainForm) { AFX_MANAGE_STATE(AfxGetStaticModuleState()); CJRVideoDLLApp* pApp = (CJRVideoDLLApp*)AfxGetApp(); pApp->m_hMainForm = hMainForm; } extern "C" DllExport bool GetSelectVWinBigFlag(int SelectWinNum) { AFX_MANAGE_STATE(AfxGetStaticModuleState()); CJRVideoDLLApp* pApp = (CJRVideoDLLApp*)AfxGetApp(); return pApp->GetVWinBigFlag(SelectWinNum); } extern "C" DllExport void SetSelectVView(int SelectNum,bool SelectFlag) { AFX_MANAGE_STATE(AfxGetStaticModuleState()); CJRVideoDLLApp* pApp = (CJRVideoDLLApp*)AfxGetApp(); pApp->SelectVView(SelectNum,SelectFlag); } extern "C" DllExport void SetPTZCtrl(int ArrowNum,int ArrowStatus) { AFX_MANAGE_STATE(AfxGetStaticModuleState()); CJRVideoDLLApp* pApp = (CJRVideoDLLApp*)AfxGetApp(); pApp->PlayWinPTZCtrl(ArrowNum,ArrowStatus); } delphi中的调用引用如下: function ShowVideoView(pHwnd:HWND): Integer;cdecl;external 'JRVideoDLL.dll'; function GetVideoViewHandle(): HWND;cdecl;external 'JRVideoDLL.dll'; function GetSelectVWinNum(): Integer;cdecl;external 'JRVideoDLL.dll'; function GetSelectVWinBigFlag(SelectWinNum:Integer):Boolean;cdecl;external 'JRVideoDLL.dll'; procedure SelectVideoModel(SelectNum:Integer);cdecl;external 'JRVideoDLL.dll'; procedure PlayVideo(VideoWindowNum:Integer; StreamMediaServerIP:String; StreamMediaServerPort:integer; DVRIP:String; DVRPort:integer; UserName:String; PassWord:String; MonitorChannelNO:integer);cdecl;external 'JRVideoDLL.dll'; procedure StopVideo(VideoWindowNum:Integer);cdecl;external 'JRVideoDLL.dll'; procedure SetMainFormHandle3(hMainForm:HWND);cdecl;external 'JRVideoDLL.dll'; procedure SetSelectVWinNum(SelectWinNum:Integer);cdecl;external 'JRVideoDLL.dll'; procedure SetSelectVView(SelectNum:Integer;SelectFlag:Boolean);cdecl;external 'JRVideoDLL.dll'; procedure SetPTZCtrl(ArrowNum:Integer;ArrowStatus:Integer);cdecl;external 'JRVideoDLL.dll'; 这些代码是一个视频监控平台的代码，已经正常工作了7,8年时间了。到现在程序还在24小时跑着。你自己对照着看看哪里出的错。仅供参考。

wzwind 2013-02-04

打赏
举报

这样的帖子置顶了~~~~~~~ extern "C" 。。。

hsfzxjy 2013-02-01

打赏
举报

呵，祝楼主成功！

terran_ye 2013-02-01

打赏
举报

c++那边 extern "C"

零-点 2013-01-31

打赏
举报

用工具查看一下函数名是不是不对

hsfzxjy 2013-01-31

打赏
举报

用另一些反编译软件也行

hongss 2013-01-31

打赏
举报

引用 8 楼 feiba7288 的回复:

修改下参数的传递方式看下，stdcall --> cdecl

不行。。。问题依旧

feiba7288 2013-01-31

打赏
举报

修改下参数的传递方式看下，stdcall --> cdecl

hongss 2013-01-31

打赏
举报

至于DLL版本，这个是最新的，而且，这个DLL在VC中调用是成功的。。。改到Delphi就不行了，烦躁！！

hongss 2013-01-31

打赏
举报

这是Depends查看到的函数名。。。
编译后的函数名都是带修饰的，这个怎么办？

山东蓝鸟贵薪 2013-01-31

打赏
举报

努力学习中

feiba7288 2013-01-31

打赏
举报

你的dll版本不是最新的，找厂商要拿最新的

hongss 2013-01-31

打赏
举报

好了，只能这么用了，谢谢各位！年前还要赶工，年终奖在哪~~~~~~

hongss 2013-01-31

打赏
举报

引用 20 楼 sgzhou12345 的回复:

应该是　接口　没有做好吧

应该是，但人家咬死这个库在他们的VC里可以正常使用。。。NND

山东蓝鸟贵薪 2013-01-31

打赏
举报

应该是　接口　没有做好吧

hsfzxjy 2013-01-31

打赏
举报


type
  PHVGigE_Dev_i = ^_HVGIGE_DEV_I;
  _HVGIGE_DEV_I = record
    pName: PChar;
    pDescription: PChar;
    pSrcMacSddr: PByte;
    pNext: PHVGIGE_DEV_I; 
  end;
  HVGIGE_DEV_I = _HVGIGE_DEV_I;

hongss 2013-01-31

打赏
举报

type
  _HVGIGE_DEV_I = record
    pName: PChar;
    pDescription: PChar;
    pSrcMacSddr: PByte;
    pNext: ^_HVGIGE_DEV_I; 
//  [Error] UnitDLL.pas(47): Type '_HVGIGE_DEV_I' is not yet completely defined 
  end;
  HVGIGE_DEV_I = _HVGIGE_DEV_I;
  PHVGigE_Dev_i = ^_HVGIGE_DEV_I;

hsfzxjy 2013-01-31

打赏
举报

sorry,打错了，把^放到前面，即_HVGIGE_DEV_I^改成^_HVGIGE_DEV_I

hongss 2013-01-31

打赏
举报

type
  _HVGIGE_DEV_I = record
    pName: PChar;
    pDescription: PChar;
    pSrcMacSddr: PByte;
    pNext: _HVGIGE_DEV_I^;
//  [Error] UnitDLL.pas(47): Type '_HVGIGE_DEV_I' is not yet completely defined
//  [Error] UnitDLL.pas(47): ';' expected but '^' found
  end;
  HVGIGE_DEV_I = _HVGIGE_DEV_I;
  PHVGigE_Dev_i = _HVGIGE_DEV_I^;
//  [Error] UnitDLL.pas(50): ';' expected but '^' found

hsfzxjy 2013-01-31

打赏
举报

typedef struct _HVGIGE_DEV_I { CHAR * pName; //设备GUID CHAR * pDescription; //设备描述符 BYTE * pSrcMacSddr; struct _HVGIGE_DEV_I * pNext; //指向下一个设备的指针 }HVGigE_Dev_i, *pHVGigE_Dev_i; 等价于： type _HVGIGE_DEV_I=record pName,pDescription:PChar; pSrcMacSddr:PBYTE; pNext:_HVGIGE_DEV_I^; end; HVGigE_DEV_I=_HVGIGE_DEV_I; PHVGIGE_Dev_I=_HVGIGE_DEV_I^;

加载更多回复（7）

Delphi调用VC++的动态库问题

相关推荐