在vb.net中怎样用socket传送自定义结构体

[discoverer1978]

我在程序中有一个自定义结构体：
structure str
dim a() as byte
dim b() as byte
end structure
请问怎样使用socket类在两个程序之间进行传递？

[rustical]

socket类 传输的是 字符流 ,所以你要先序列化为流 !
你如果要传输对象用 Remoting 或 Webservices !
Remoting 和 Webservices 可以传输 （ 可序列化的对象)

[chenzhanyiczy]

可以用串行化传送然后再另外一端反串行化

[discoverer1978]

关键就是不知道怎么将自定义结构转化为流，自定义结构不能直接转化为Byte型数组。我这个自定义结构是用于存储一个文件的内容的，a()存储文件名，b()存储文件内容。

[yanransoft]

[Serializable]
struct B
{
public string MyStr;
}
class Program
{
static void Main(string[] args)
{
B b=new B();
IFormatter formatter = new BinaryFormatter();
Stream stream = new FileStream("c:\\MyFile.bin", FileMode.Create, FileAccess.Write, FileShare.None);
formatter.Serialize(stream, b);
stream.Close();
}
}

[discoverer1978]

虽然c语言很好，但我只懂一点，主要还是用vb.net，只好回去慢慢翻译了，呵呵，多谢！

[OneDotRed]

<Serealizable>
Public Structure B
..
End Structure

Sub Main
Dim b as new B();
Dim formatter as new BinaryFormatter()
Dim MemoryStream ms as new MemoryStream()

formatter.Serealize( ms , b )

Dim buffer as new byte( ms.Length )
ms.Read( buffer , 0 , buffer.Length )
ms.Close()


process byte array...
End Sub

[兔子-顾问]

up

[ballnan]

参考一下吧
http://www.codeproject.com/useritems/QMailClient.asp

[discoverer1978]

回OneDotRed(武装到眼神) ：
代码已用，但是仍有问题：
ms.Read( buffer , 0 , buffer.Length )执行过后，buffer仍为空。不知为何？
我的代码：
<System.Serializable()> Public Structure DictFileClass
Dim FileName() As Byte
Dim FileType() As Byte
Dim FileContent() As Byte
End Structure

Dim aa As New DictFileClass

Dim RenewFile As New IO.FileStream("c:\billd.txt", IO.FileMode.OpenOrCreate, IO.FileAccess.Read)
aa.FileName = System.Text.Encoding.Default.GetBytes(Disk.GetFileName("c:\billd.txt").ToCharArray)
Dim Fssize(RenewFile.Length) As Byte
Dim StrRead As New IO.BinaryReader(RenewFile)
StrRead.Read(Fssize, 0, Fssize.Length)
aa.FileContent = Fssize
aa.FileType = System.Text.Encoding.Default.GetBytes("ini".ToCharArray)

Dim Formatter As New Formatters.Binary.BinaryFormatter
Dim Ms As New IO.MemoryStream
Formatter.Serialize(Ms, aa)
Dim buffer(Ms.Length) As Byte
Ms.Read(buffer, 0, buffer.Length)

Client.GetStream.Write(buffer, 0, buffer.Length)
Ms.Close()