none
Byte 分解问题 RRS feed

  • 问题

  • 找到一个可以合并的类 没找到可以截去前面4个字符的类
          Dim ba As Byte() = Encoding.Default.GetBytes("图片")
            Dim bc As Byte()
    
    
    
            Dim tp As Byte() = My.Computer.FileSystem.ReadAllBytes("E:\Personal\My Documents\My Pictures\235x235.jpg")
            Dim stream As New System.IO.MemoryStream()
    
    
    
            stream.Write(ba, 0, ba.Length)
    
    
    
            stream.Write(tp, 0, tp.Length)
    
    
    
            stream.Close()
    
    
    
            bc = stream.GetBuffer()
    
    
    
            Dim leix As String = Encoding.Default.GetString(bc, 0, 4)'提出了文字    
    
    Dim tchutp As Byte()'这怎么提出图片然后保存在本地
    
    
    
            MsgBox(leix)
    
    
    
    
    

    • 已编辑 FFDY 2009年7月21日 10:24
    2009年7月21日 10:19

答案

全部回复