FreeBasic写DLL给VB6调用(直接用API创建和修改VB字符串方法)

写DLL给VB用，不是什么难题，但我们要做到字符变量，从FreeBasic到VB6，从VB6到FreeBasic，在VB6端无痛使用，那就要费点功夫了。

VB6代码：直接写 String
Private Declare Function GetStr Lib "FBtoVB.dll" Alias "GETSTR@0" () As String '返回字符串

FreeBasic和VB6的字符变量的内存格式是不同的，因此我们要在FreeBasic的地方搞个转换函数。

FB代码：
'=====================关键函数================
'--------------------------------------------------------------------------
Function BStrToString(nBStr As BStr) As String  '将VB里的字符串转换为FB里使用的字符串Dim L As Long =Peek(Long,Cast(UInteger,nBStr) -4)Dim ss As String = String(L,0)memcpy StrPtr(ss),nBStr,LFunction = ss
End Function
'--------------------------------------------------------------------------
Function StringToBStr(nStr As String) As BStr  '将FB里的字符串转换为VB里使用的字符串Function = SysAllocString( Cast(WString Ptr, StrPtr(nStr) ) ) '伪造 VB 字符串
End Function
'--------------------------------------------------------------------------
Function BStrToStringW(nBStr As BStr) As String  '将VB里的字符串转换为FB里使用的字符串,用于字符数组'注意，假如字符串里包含 chr(0) 将会在此被截断Dim ss As StringIf nBStr <> 0 Thenss = *CPtr(WString Ptr, nBStr)End IfFunction = ss
End Function
'--------------------------------------------------------------------------
Sub SetBstr(ByRef nBStr As BStr,nStr As String ) ' 修改VB字符串,用于字符数组
'必须是 ByRef ，不然修改不了nBStr，默认是 ByValIf nBStr=0 Then '无字符nBStr=SysAllocString(nStr) '新增字符串Else'有字符SysReAllocString(@nBStr,nStr) '修改字符串End If
End Sub

下面是FB里的导出函数代码，测试例题用：

'--------------------------------------------------------------------------
Function JiaFa(ByVal a As Long ,ByVal b As Long ) As Long Export  '参数全是数字例题
'ByVal 由于VB和FB默认表达不同，避免发生不一至的情况，前面的必须加个，和VB那边一样。Return a+b
End Function
'--------------------------------------------------------------------------
Sub Dizi(ByRef a As Long ) Export'以地址传来参数a=666
End Sub
'--------------------------------------------------------------------------
Sub LongShuZhu(ByVal a As Long Ptr,ByVal b As Long) Export '处理VB的数组
'FB 和 VB 之间，处理数组的方式不同，因此无法直接传数组
'只能以指针的方式处理For i As Long =0 To b-1a[i]=Rnd *10000Next
End Sub
'--------------------------------------------------------------------------
Function GetStr() As BStr Export  '返回字符例题
'直接将字符返回到VB里，由于VB与FB的字符内存不同，必须用转换Dim a As String a="返dd回dd字dd符dd例dd题dd"Return StringToBStr(a)
End Function
'--------------------------------------------------------------------------
Function LenDuoStr(ByVal a As BStr ,ByVal b As BStr ,ByVal c As BStr ,ByVal d As BStr ) As Long Export  '处理VB发来的字符例题
'由于VB与FB的字符内存不同，必须用转换AfxMsg BStrToString(a)Return Len(BStrToString(b) & BStrToString(c) & BStrToString(d))
End Function
'--------------------------------------------------------------------------
Sub StrShuZhu(ByVal a As BStr Ptr ,ByVal b As Long) Export '处理VB的数组
'FB 和 VB 之间，处理数组的方式不同，因此无法直接传数组
'只能以指针的方式处理Dim bb As String For i As Long =0 To b-1bb=BStrToStringW(a[i])If Len(bb) Then AfxMsg bb,"读取字符"SetBstr a[i],Str(Rnd *999 )Next
End Sub

再来看VB6这边的DLL声明例题：

'==============处理数字变量===================
Private Declare Function JiaFa Lib "FBtoVB.dll" Alias "JIAFA@8" (ByVal a As Long, ByVal b As Long) As Long '数字例题
'Alias 里的全部是大写，不管FB里如何，一律大写
'@8 标准符号，是为了兼容C语言默认带的， 表示有2个参数，无参数是 @0 ,1个参数为 4 ，几个就 几个*4Private Declare Sub Dizi Lib "FBtoVB.dll" Alias "DIZI@4" (ByRef a As Long) '传地址数字
'以地址方式传数字参数给FB，FB那里可以修改参数值了Private Declare Sub LongShuZhu Lib "FBtoVB.dll" Alias "LONGSHUZHU@8" (ByVal 数组地址 As Long, ByVal 数组长度 As Long) '数组例题
'FB 和 VB 之间，处理数组的方式不同，因此无法直接传数组，数组长度是为了FB那边知道长度，不然超边界了软件会崩溃的。
'其它数字和Long 一样处理，对应FB那边类型名是
'VB类型：Byte  Integer Single Double
'FB类型：UByte Short   Single Double'==============处理字符串变量===================
Private Declare Function GetStr Lib "FBtoVB.dll" Alias "GETSTR@0" () As String '返回字符串
'从FB里传来的字符，VB这边直接使用，无障碍。
Private Declare Function LenDuoStr Lib "FBtoVB.dll" Alias "LENDUOSTR@16" (ByVal a As String, ByVal b As String, ByVal c As String, ByVal d As String) As Long '传字符串给FB
'传VB的字符到FB那边使用。注意，FB那边中文算2个，英文算1个。
Private Declare Sub StrShuZhu Lib "FBtoVB.dll" Alias "STRSHUZHU@8" (ByVal 数组地址 As Long, ByVal 数组长度 As Long) '数组例题
'FB 和 VB 之间，处理数组的方式不同，因此无法直接传数组，数组长度是为了FB那边知道长度，不然超边界了软件会崩溃的。
'

还增加了数组的操作方法，下面是VB6调用DLL例题

Private Sub Form_Load()ChDrive App.Path '必须先设置软件文件夹，否则，万一不在EXE文件夹开启软件，会发生找不到DLL文件的错误ChDir App.PathEnd Sub
Private Sub Command4_Click()Dim a As Longa = 100Dizi aDebug.Print a
End SubPrivate Sub Command5_Click()Dim a(10) As Long, i As LongLongShuZhu VarPtr(a(0)), UBound(a) + 1For i = 0 To 10Debug.Print a(i),Next
Debug.PrintEnd SubPrivate Sub Command6_Click()Dim a(10) As String, i As Longa(0) = "dd"a(2) = ""StrShuZhu VarPtr(a(0)), UBound(a) + 1For i = 0 To 10Debug.Print a(i),Next
Debug.Print
End SubPrivate Sub Command1_Click()Label1 = JiaFa(10, 20)
End Sub
Private Sub Command2_Click()Dim b As Stringb = GetStrLabel1 = bDebug.Print b, Len(b)End Sub
Private Sub Command3_Click()Dim a As Stringa = "w我o"Label1 = LenDuoStr(a, "p单位c", "", "ddd")
End Sub

勇芳编程群里，有搞好的工程源码，感兴趣的，请进群下载。

FreeBasic写DLL给VB6调用(直接用API创建和修改VB字符串方法)相关推荐

如何直接用maven创建java项目，不用eclipse，不用idea，不用任何ide
不用eclipse,不用idea,不用任何ide,如何直接用maven创建java项目写作背景 maven简介安装maven 配置镜像与本地仓库更改镜像下载地址更改本地仓库配置环境变量建立 ...
调用接口登录禅道_调用禅道api创建新用户
调用禅道api创建新用户使用禅道API是一件非常麻烦的事,因为它没有详细的API文档. 官方在网站内嵌的API文档极其简略,根本不知道需要传递什么参数. 如何知道该如何使用它提供的API呢? 你必须 ...
易语言和java接口_易语言写接口让其他调用易语言api使用教程
易语言如何调用API函数? 你代码方法错了,如果传出参数为文本或字节集必须先"申请内存缓冲",如图1 源码中有两种方法,建议你采用"长整数"的那个,比较方便~! ...
python文件之间的相互调用_用Python创建功能模块——截取字符串模块
用Python创建模块本篇文章小编给大家分享在Python如何创建属于自己的模块,实现更多的功能! 一.模块模块是什么?简单来说,当程序的功能很多.代码量很大时,我们可以编写一个实现一定功能的py ...
快速实现分页器(超简单) 可以直接用
1.如果想直接,用请直接滑到最后(方便省事,有详细用法) 2. 如果想自己了解,下面有详细注释下面是效果图: 1.首先创建一个组件定义为全局(结构已写好,可直接cv大法) <div class ...
python有道api-python 调用有道api接口的方法
初学python ,研究了几天,写了一个python 调用有道api接口程序效果看下图: 申明:代码仅供和我一样的初学者学习交流申请很简单的 ps:审核不用花时间的,请勿滥用!! #-*- co ...
SQL恢复XP_CMDSHLL 以及XPLOG70.DLL被删直接用SQL连接器开启3389
SQL恢复XP_CMDSHLL 以及XPLOG70.DLL被删直接用SQL连接器开启3389 用SQL连接器恢复XP_CMDSHLLE的命令 (1)SQL Query Analyzer sp_add ...
VB6 调用 Nim 生成的 DLL
2019独角兽企业重金招聘Python工程师标准>>> 关于 Nim Nim 是德国人开发的编程语言,最初叫 Nimrod.Nim 有下面几个特点: 强制缩进语法 AST 操控编 ...
用IKVMC将jar转成dll供c#调用
目录前言 ikvmc介绍 ikvmc下载安装下载并解压设置环境变量 jar->dll 常用参数说明具体操作解决方案前言实习到现在所需要的工具类给的都是jar包,但是我需要在.net ...

FreeBasic写DLL给VB6调用(直接用API创建和修改VB字符串方法)

FreeBasic写DLL给VB6调用(直接用API创建和修改VB字符串方法)相关推荐

最新文章

热门文章