****高分求助,关于类型转换和文件处理的问题,有回报*****

zceast 2003-08-20 05:49:30
在VB(其实是EVB)中,如何将一个文件流(应该是二进制流)转换成byte数组。
如何将这个数组保存成二进制文件(实际上是照片)。
还有其他一些类型转换的问题,我实在是个VB的菜鸟。
谁可以用聊天的方式告诉我,我的zceast@hotmail.com(MSN).

其实我是用JAVA语言将数据库中保存的照片用byte[]数组读了出来,然后通过apache soap 进行处理,在客户端,我可以用JAVA语言还原照片,但我有一部分
是装pocket pc的掌上电脑,所以就要用到EVB,简单数据处理没有问题,但就是照片
我真的没有办法了,所以求助。

如果谁帮我解决这个问题,我将把服务器端用JAVA操作apache soap的源程序给他,
以表示我的感谢!程序包括:数据库处理,XML操作,序列化,复杂数据类型处理,
以及发布到服务器的方法(xml,dtd).
...全文
48 7 打赏 收藏 转发到动态 举报
写回复
用AI写文章
7 条回复
切换为时间正序
请发表友善的回复…
发表回复
yunfeng007 2003-08-22
  • 打赏
  • 举报
回复
open "1.bmp" For Binary Access Write As #1
Put #1,,arr
close #1
射天狼 2003-08-21
  • 打赏
  • 举报
回复
Dim lb_Wd() As Byte '定义一个动态BYTE类型数组

'读文件到byte数组
Open "c:\aa.bin" For Binary Access Read As #1
Get #1, , lb_Wd
Close #1

'由BYTE数组写到文件里
Open "c:\aa.bin" For Binary Access Write As #1
Put #1, , lb_Wd
Close #1

Erase lb_Wd '清空数组,释放内存
xayzmb 2003-08-21
  • 打赏
  • 举报
回复
我一直想用EVB
但总是装不好开发环境.
zceast 2003-08-21
  • 打赏
  • 举报
回复
没有帮呀,只好自己UP了
zceast 2003-08-21
  • 打赏
  • 举报
回复
cuizm(射天狼) 感谢你的程序,可能你没有看懂我的意思。我的程序在上面已经贴出来了。

我用的是无线掌上设备,操作系统是pocket pc 也就是 win ce 的,我要打开的文件不在本地,而在服务器上面,因为EVB没有办法打开服务器上的文件,所以我就用SOAP协议发送了一个byte[]数组,现在问题是我接收了这个文件,怎么转换成byte数组。
zceast 2003-08-20
  • 打赏
  • 举报
回复
cuizm(射天狼)感谢你,我知道可以这样做,但不知道怎么做,指点一下,下面是EVB的程序。

Dim lsRequest As String
Dim ret As Variant
Dim arr(13791) As Byte
pEnvelope.SetMethod "loadImg", "urn:mysoap.ImgServer"
//服务器端的方法为public byte[] loadImg(String name)

pEnvelope.Parameters.Clear
pEnvelope.Parameters.Create "name", "1.bmp"
lsRequest = pEnvelope.Serialize

pHTTP.send "http://192.168.0.108:8080/soap/servlet/rpcrouter", lsRequest
pEnvelope.parse pHTTP
arr = pEnvelope.Parameters.Item(0).Value
//pEnvelope.Parameters.Item(0).Value 为返回值既 byte[]数组。
//在往下我就不会处理了,怎么样把这个数组正取的保存到文件中,如/1.bmp;
射天狼 2003-08-20
  • 打赏
  • 举报
回复
不用文件流,打开的时候直接存到BYTE数组中不行吗!?

7,759

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧