将VB的函数改为PB的不能执行解决方法

将VB的函数改为PB的不能执行
VB函数
Function DSSendData Lib "gprsdll.dll" (ByVal id As Long, ByVal length As Integer, mess As Byte) As Long
改后的PB函数
第一种改法：
Function Long DSSendData(Long id, integer length,character mess) LIBRARY "GPRSDLL.DLL" 
第二种改法：
Function Long DSSendData(Long id, integer length,ref character mess) LIBRARY "GPRSDLL.DLL" ALIAS FOR "DSSendData;ANSI"
这两种改法调用时都不成功，请给予解答！

------解决方案--------------------
试试做2个结构：
s_buf
character buf1
character buf2
character buf3
character buf4
character buf5
character buf6
character buf7
character buf8
------
s_pPhone
character p1
...
character p11



Function Long DSSendData(ref s_pPhone s_pPhone, integer length,ref s_buf s_buf)LIBRARY "GPRSDLL.DLL"