首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VB >

求教高手:HTTP下传的文件读写原理。[

2013-01-01 
求教高手:HTTP上传的文件读写原理。。。[根据我理解过程应该是这样的:从客户端把二进制文件转换成字符串,然后

求教高手:HTTP上传的文件读写原理。。。[
根据我理解过程应该是这样的:  从客户端把二进制文件转换成字符串,然后流到服务器上用ADODB.Stream再转换成二进制文件保存,中间从客户端到服务器的传递过程一直是字符串 

这样对么?为什么我在写VB模拟表单上传文件的时候,把文件用二进制读取,然后转换成字符串POST总是没发成功。。。 

我的文件读取+字符串转换模块如下 


Public Function BinaryToString(ByVal BinaryStr As Variant) As String
      'On Error Resume Next
      Dim lnglen     As Long
      Dim tmpBin     As Variant
      Dim strC     As String
      Dim skipflag     As Long
      Dim i     As Long
      skipflag = 0
      strC = ""
        
      If Not IsNull(BinaryStr) Then
              lnglen = LenB(BinaryStr)
              For i = 1 To lnglen
                      If skipflag = 0 Then
                          tmpBin = MidB(BinaryStr, i, 1)
                          If AscB(tmpBin) > 127 Then
                                  strC = strC & Chr(AscW(MidB(BinaryStr, i + 1, 1) & tmpBin))
                                  skipflag = 1
                          Else
                                  strC = strC & Chr(AscB(tmpBin))
                          End If
                      Else
                          skipflag = 0
                      End If
              Next
          End If
          BinaryToString = strC
  End Function


Public Function Getfile(FileName As String)


Dim DAT() As Byte
Dim FileSize As Long '文件长度

FileSize = FileLen(FileName) '获取文件长度
ReDim DAT(FileSize - 1) As Byte
Open FileName For Binary As #1
Get #1, , DAT
Close
Getfile = BinaryToString(DAT)
End Function


[解决办法]
看来楼主需要补习一下网络知识!
在网络中,不论你用任何类型发送/接收数据,在数据传送过程中都是使用“位”来传送滴
与数据类型无关!

而一般系统自带的网络发射/接收器,都是发送/接收二进制数据的!
[解决办法]
有没有可能是编码的问题呢~

热点排行