直接用API函数是否可以将。BMP，。GIF文件转换为BYTE（）数组???

Question

欢迎您：ccblmpt 可用分：0 总信誉分：100 注销我的登录 
我确实没有分了
自己先UP

Answer 1

Dim a
  Dim c() As Byte
  Dim sd As ADODB.Stream
  Set sd = New ADODB.Stream
  sd.loadfromfile filename
  a = sd.Read
  c = a

Answer 2

Dim c() As Byte
Dim sd As ADODB.Stream
  Set sd = New ADODB.Stream
  sd.write c
sd.savefile filename

Answer 3

谢谢楼上的，但是我需要API完成，不是使用ADO组件

Answer 4

用Api的话：OpenFile,ReadFile
实际Vb就行呀！
dim bytAry() as byte
dim lngL as long 
filhandle = FreeFile()
lngL = filelen(filename)
Open filename for binary as #filehandle
redim bytAry(0 to lngl -1 )
input #filehandle,,bytAry
close #filehandle

Answer 5

Private Sub Command1_Click()
Dim n As Long
     Dim arrBytes() As Byte
     
     Open "c:\windows\1stboot.bmp" For Binary As 1    '转换
     n = LOF(1)
     ReDim arrBytes(1 To n) As Byte
     Get 1, , arrBytes
     Close 1
     Open "c:\temp.bmp" For Binary As 1     '逆转换
        Put 1, , arrBytes
     Close 1
    MsgBox " ok！"
     
End Sub

Answer 6

关于BMP文件，先建立Bitmap，然后LoadImage，GetBitmapBits就OK了

Answer 7

Gif文件麻烦，有个CGIF的类模块你看看

Answer 8

谢谢楼上，发一个给我看看
[email protected]