DirectPlay??? 高手帮个忙吧

botton

Private Type ActorType
    X As Integer
    Y As Integer
    HP As Long
    MP As Long
End Type
Public Player As ActorType

用DirectPlay8在服务器与客户端传输“Player”的数据，应当怎么做？

望各位高手助我，在下感激不尽！

botton

我是这样做的：

dim But(3) as long

buf(0)=player.x
buf(1)=player.y
buf(2)=plaeyr.hp
buf(3)=player.mp

AddDataToBuffer bByteBuffer, Buf(0), ByteSize, lngOffset

原来的数据大小是 12 字节，但buf都是按Long计算这样就是 16 个字节

这样数据比原数据要大，且程序不易读，有没有其它的方法？

yy8354

我在vb里的socket里一般采用string把一组数据发过去 每个数据之间用个分割符号
收到后用split成数组 然后处理

boywhp

请参考我的Blog里面的CBytesString类模块，专门处理这个写的咯！

BlueViVi

敢问boywhp兄什麽地方可以找到Blog?
小弟想用VB开发网游，希望找到朋友。

botton

yy8354: ReirectPlay??? 高手帮个忙吧

我在vb里的socket里一般采用string把一组数据发过去 每个数据之间用个分割符号
收到后用split成数组 然后处理

感谢指点，string是不错的选择！

botton

谢谢 boywhp

boywhp兄的Blog
http://blog.gameres.com/show.asp?BlogID=404&colnmu=0