如何在VB中将字符传参数传递给VC做成的动态库

2002-07-26 08:47:43 101 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

Ubuntu 22.04 上 Mezzanine CMS 完整安装指南 CMS（内容管理系统）是构建博客、企业官网等静态与动态内容混合站点的核心技术栈；Django 作为 Python 生态中最成熟的 Web 框架，凭借其 ORM、Admin 和安全机制，成为 CMS 开发的首选基础。Mezzanine 是基于 Django 的轻量级 CMS，以开箱即用、零配置多语言和内置 SEO 工具为特色，特别适合中小项目快速落地。在 Ubuntu 这类强调稳定性的服务器操作系统上部署时，关键挑战并非代码逻辑，而是系统层依赖协同——如 Python 版本锁定、SQLite FTS5 支持、阅读详情

vc中定义函数原形为CreateWaveFile(char *strFileName)

vb中
Declare function CreatWaveFile(byval strFileName as string) as long
函数的调用为
L=CreatWaveFile("d"\FileName.wav")
vb中提示的错误信息为dll约定错误。请教各位高手应该在vb中使用字符串变量，使传递不发生错误

...全文

LabVIEW数据采集-数字I/O/计数器 labview 数据采集数字I/O 计数器阅读详情

black_mask

VC/MFC 16,550 成员 421,606 内容

+ 关注 + 加入社区

切换为时间正序

Eastunfail 2002-07-30

打赏
举报

ByVal别忘了阿。否则你传给函数的是指针的指针

Eastunfail 2002-07-30

打赏
举报

那么就将strFileName的地址传给那个函数，试试
L=CreateWaveFile(ByVal StrPtr("d:\FileName.wav"))
这样应该行的通，我以前也遇到类似的问题，解决了，要是实在是不行，就将字符串转换为Byte数组，将第一个元素传给该函数

black_mask 2002-07-30

打赏
举报

谢谢你的回复,不过你的办法行不通

siphonelee 2002-07-26

打赏
举报

应该是byref strFileName as string
别忘了给分哦：）

mahongxi 2002-07-26

打赏
举报

'////////////////////////////////////////////////
'Fromdll.bas
'本模块是本系统与动态链接库dfgl.dll的接口
'2001.4.17
'write by mahongxi
'
'dfgl.dll已经过测试 2001.4.19
'注意：
'在相应的C++源程序中要用关键字: _stdcall
'进行有关清栈原则的约定
'////////////////////////////////////////////////

Public Declare Function InitRegistry Lib "dfgl.dll" () As Boolean
Public Declare Function UserAdd Lib "dfgl.dll" (ByVal UserName As String, ByVal password As String) As Long
Public Declare Function UserDel Lib "dfgl.dll" (ByVal UserName As String) As Long
Public Declare Function GetUserPassword Lib "dfgl.dll" (ByVal UserName As String, ByRef pwd As String, ByRef length As Long) As Long
Public Declare Function GetUser Lib "dfgl.dll" (ByVal num As Long, ByRef name As String, ByRef length As Long) As Long

DFGL.h FILE

#include <windows.h>
//////////////////////////////////////////////////////////
#define LENGTH 30
#define MYAPPNAME "SimDfMis"
#define MYAPPKEY "SOFTWARE\\SimDfMis"
#define MYAPPPWDKEY "SOFTWARE\\SimDfMis\\dfgl_data"
#define FAILED_PWD "admin"
#define MYCODE {272,238,18,29,23,4,1,27,14,140,7,248,284,149,151}
//////////////////////////////////////////////////////////
extern "C" bool __stdcall InitRegistry();
extern "C" int __stdcall UserAdd(LPTSTR UserName,LPTSTR Password);
extern "C" int __stdcall GetUserPassword(LPTSTR User,LPTSTR & pwd,int & length);
extern "C" int __stdcall UserDel(LPTSTR User);
extern "C" int __stdcall GetUser(int num,LPTSTR & name,int & length);
extern "C" int __stdcall EncryptDB(LPTSTR DBName,bool Flag);

如何在VB中将字符传参数传递给VC做成的动态库

相关推荐