如何将自定义的structure转换为byte数组(VB.Net)

前端之家收集整理的这篇文章主要介绍了如何将自定义的structure转换为byte数组(VB.Net)前端之家小编觉得挺不错的,现在分享给大家,也给大家做个参考。

如何将自定义的structure转换为byte数组(VB.Net)
Dim myStru As aa
myStru.a1 = "AA"
myStru.a2 = 1
myStru.a3 = 2
Dim rawsize As Integer = Runtime.InteropServices.Marshal.SizeOf(myStru)
Dim buffer As IntPtr = Runtime.InteropServices.Marshal.AllocHGlobal(rawsize)
Runtime.InteropServices.Marshal.StructureToPtr(myStru,buffer,False)
Dim rawdatas(rawsize - 1) As Byte
Runtime.InteropServices.Marshal.Copy(buffer,rawdatas,rawsize)
Runtime.InteropServices.Marshal.FreeHGlobal(buffer)
MsgBox(UBound(rawdatas))
'rawdatas 就是你需要的Byte()
从WEB SERVICE 上返回大数据量的DATASET
前段时间在做一个项目的时候,遇到了要通过WEB SERVICE从服务器上返回数据量比较大的DATASET,当然,除了显示页面上以外,有可能还要用这些数据在客户端进行其它操作。查遍了网站的文章,问了一些朋友,也找了一些解决方法.
众所周知,如果不用其它方法,直接从WEB SERVICE上传回一个10W条记录的DATASET,可想而知的后果是什么,cpu要占用 100%,且要等上几分钟,这是任何一个项目都无法忍受的.在我上网找资料的过程中,试验了几种不同的方法,如通过压缩SOAP改善XML Web service性能,这篇文章所介绍的方法用了SOAP扩展,是通过在WEB SERVICE端用已经过时了的NZIPLIB库来压缩SOAP响应,据称文本压缩率可达80%.文章里面的代码是VB.NET的,费了好大劲翻译成C#的,照上面建项目,但是很可惜,我没有编译成功,总是出错.
这里我找我建好的项目提供大家下载,大家有时间看看是什么问题. SOAP压缩代码下载
而后,找到了用序列化的方式来减少网络传输量,Microsoft .NET Framework 1.x 中内建两种将物件序列化的 Formatter类别,SoapFormatter 和 BinaryFormatter,两种方式均能减轻网络传输量提高性能,但SoapFormatter方式传输的方式其实还是XML形式,加了很多XML标识,因此压缩率不是很理想,BinaryFormatter用纯二进制的方式序列化DATASET,能使压缩率大大提高,这是台湾作者李匡正 (台灣微軟應用架構技術經理提供的例子里对sql范例库Northwind的测试结果:
SoapFormatter 
BinaryFormatter 
Dataset 序列化後 Bytes 數 
1,953,078
1,448,399 
显示然BinaryFormatter 明显优于SoapFormatter ,而我也确实用了BinaryFormatter 这种方式实现了提高效率.
再者,用微软提供的DataSetSurrogate 类可以此基础上进一步压缩数据大小,DataSetSurrogate 在.net 2.0里自带。这是比较结果.
  SoapFormatter BinaryFormatter
Dataset 序列化後Bytes數 1,078 1,399
DataSetSurrogate 序列化後Bytes數 2,371,942 575,684
在这里,有两种方式:可把序列化后的数据用文件形式保存在客户端硬盘;也可用Byte[]方式传回客户端,以下是代码
[WebMethod(Description="循环获取远程DATASET")]
public void SurrogateReadTable(string TableName)
{
//把DataSet通过Surrogate Class 序列化成 Binary Stream
DataSet ds;
ds=sqlHelper.ExecuteDataset(cnn,CommandType.Text,"select * from "+TableName);
//实例化DataSetSurrogate,传取出的DATASET到构造函数
sds = new DataSetSurrogate(ds);
//实例化二进制流
BinaryFormatter bf=new BinaryFormatter();
StreamWriter swDat;
//写到本地一个文件
swDat = new StreamWriter(@"c:/output_surrogate_dataset.dat");
bf.Serialize(swDat.BaseStream,sds);
//这里可以知道序列化后的文件的大小
long size = swDat.BaseStream.Length;
swDat.Close();
}
private void button1_Click(object sender,System.EventArgs e)
{
label1.Text=DateTime.Now.ToString();

button1.Enabled=false;
//反序列化Binary Stream能通过Surrogate Class转换成 DataSet

//从WEB SERVICE上读取方法
svs.SurrogateRead("t_busdocbase");
BinaryFormatter bf=new BinaryFormatter();
StreamReader swDat;
swDat = new StreamReader(@"c:/output_surrogate_dataset.dat");
object o=bf.Deserialize(swDat.BaseStream);
DataSet ds;
sds = (DataSetSurrogate) o;
ds = sds.ConvertToDataSet();
dataGrid1.DataSource=ds.Tables[0];
swDat.Close();
}
[WebMethod(Description="获取业务资料远程DATASET")]
public byte[] SurrogateRead1()
{
DataSet ds;
ds=sqlHelper.ExecuteDataset(cnn,"select * from t_busdocbase");
sds = new DataSetSurrogate(ds);
MemoryStream s= new MemoryStream();
BinaryFormatter bf = new BinaryFormatter();
bf.Serialize(s,sds);
byte[] e = s.ToArray();
return e;
}
private void button3_Click(object sender,System.EventArgs e)
{
label1.Text=DateTime.Now.ToString();

button3.Enabled=false; //*反序列化Binary Stream能通过Surrogate Class转换成 DataSet*/ //从WEB SERVICE上读取方法 byte [] bb=svs.SurrogateRead1(); MemoryStream br=new MemoryStream(bb); BinaryFormatter bf=new BinaryFormatter(); object o=bf.Deserialize(br); sds = (DataSetSurrogate) o; ds = sds.ConvertToDataSet(); dataGrid1.DataSource=ds.Tables[0]; br.Close(); }

原文链接:https://www.f2er.com/vb/261977.html

猜你在找的VB相关文章