VB.net 2010 视频教程 VB.net 2010 视频教程 python基础视频教程
SQL Server 2008 视频教程 c#入门经典教程 Visual Basic从门到精通视频教程
当前位置:
首页 > 编程开发 > vb >
  • vb教程之VB自定义数据结构的传输转换

大连舰艇学院 孙永侃 

---- 用VB使用MSCOMM、WINSOCK等控件实现数据传输都方便,但这些控件提供的方法都只能传输字符串、Byte数组等,没有提供用户自定义数据结构直接传输的方法。但如果解决了用户自定义数据结构与Byte数组的互相转换,就自然可以实现用户自定义数据结构的传输了。目前我们使用的转换方法主要是以下两种方法: 

---- (1)依靠磁盘文件实现转换:把自定义数据结构的变量(或Byte数组变量)存入一个用Binary方式打开的数据文件,然后用对应字节数的Byte数组变量(或自定义数据结构的变量)读出,即可实现用户自定义数据结构与Byte数组的互相转换。 

---- (2)利用内存拷贝实现转换:用VC编写内存拷贝函数,VB调用该函数,实现用户自定义数据结构与Byte数组的互相转换。 

---- 现分别对这两种方法的程序实现详细进行说明。 

---- (一)程序定义说明 

'用户自定义的数据结构 
Type myDATE '该自定义的数据结构可以任意复杂和嵌套 
Bchar As Byte 
fsingle As Single 
End Type 
Dim typeA As myDATE '定义自定义数据结构变量 
Dim bArray() As Byte '定义Byte数组变量 
Dim MaxLenB As Long '定义确定Byte数组长度的值 

'用内存拷贝实现转换还须如下转换函数说明: 
'实现Byte数组到用户自定义数据结构的转换函数Copy_BA 

Public Declare Function Copy_BA Lib 
"copymem.dll" (ByRef pByte As Byte, 
ByRef pData As myDATE, ByVal LONG cbSize) 

'实现用户自定义数据结构到Byte数组的转换函数Copy_AB 

Public Declare Function Copy_AB Lib 
" copymem.dll " (ByRef pData As myDATE, 
ByRef pByte As Byte, ByVal LONG cbSize) 

'其中copymem.dll为VC编写的动态连接库 

---- (二)依靠磁盘文件实现转换说明 
MaxLenB = Len(typeA) 
'其中Len()为VB提供的函数,返回typeA写至文件的大小。 
'该例中 MaxLenB = 5 
ReDim bArray(MaxLenB) As Byte 
'用户自定义数据结构变量typeA存入文件C:\FNANE中 
Open "C:\\ FNANE " For Binary As #1 
Put #1, , typeA 
Close #1 
……….. 
'从文件C:\FNANE中读出字节数组bArray (MaxLenB) 
Open "C:\\ FNANE " For Binary As #1 
Get #1, , bArray 
Close #1 

---- 以上就实现用户自定义数据结构typeA到Byte数组bArray()的转换过程;若想实现Byte数组bArray()到自定义数据结构typeA的转换,只须用以上的方法存入bArray()、读出typeA。该方法程序实现简单,但由于要读写磁盘文件,所以运行速度较慢。 
---- (三)利用内存拷贝实现转换说明 

MaxLenB = LenB(typeA) 
'其中LenB()为VB提供的函数, 
返回typeA在内存中的大小,包括元素之间的填塞。 
'该例中 MaxLenB = 8 
ReDim bArray (MaxLenB) As Byte 
'实现用户自定义数据结构typeA到Byte数组bArray()的转换 
Call Copy_BA (bArray, typeA, MaxLenB) 
'实现Byte数组bArray()到用户自定义数据结构typeA的转换 
Call Copy_AB (typeA,bArray, MaxLenB) 

---- (四)用VC编写内存拷贝函数 
用以下两个函数编写成动态连接库:copymem.dll 
void __stdcall copy_BA(LONG pMem, 
LONG pSource, LONG cbSize) 

memcpy((void*)pMem, (void*)pSource, cbSize); 

void __stdcall copy_AB(LONG pMem, LONG pSource, LONG cbSize) 

memcpy((void*)pMem, (void*)pSource, cbSize); 

相关教程