声明internetreadfile

[fling_boy]

Public Declare Function InternetReadFile Lib "wininet.dll" ( _
ByVal hFile As Long, _
ByVal sBuffer As String, _
ByVal lNumBytesToRead As Long, _
lNumberOfBytesRead As Long) As Integer

在ＶＢ中可以用上的的方法声明internetreadfile,在读取文本文件时可正常工作，但在读取
非文本文件时因为ＶＢ中的内部转换，使读取的数据发生了变化，基本上全变了。
ＭＳＤＮ上说可以声明成下面这样，但要为sBuffer 手工分配一段内存空间，并管理这段空
间，我没有好的方法，不知道怎么办？主要是改传一个什么类型的参数给sBuffer?

Public Declare Function InternetReadFile Lib "wininet.dll" ( _
ByVal hFile As Long, _
ByVal sBuffer As long, _
ByVal lNumBytesToRead As Long, _
lNumberOfBytesRead As Long) As Integer

[ouyangke]

传一个Long类型的参数给sBuffer
‖天天写程序‖ ‖夜夜泡小妞‖
‖身兼数职做代码‖‖晚晚工作到天明‖
‖为何人生如此苦‖‖泡妞消费数目高‖
‖我看世俗本无趣‖‖程序伤神妞伤人‖
‖不再见女人‖ ‖不想写程序‖

[fling_boy]

sBuffer 应该是一个能存储数据的缓冲区，一个long类型的参数肯定不行。
我试着：dim sBuffer() as string
dim sBuffer() as byte

然后 ：internetReadFile(,varptrarray(sBuffer),,)
但都提示该内存只读而出错，直接退出VBide.

[heruzhi]

VB好象是通过数组来管理内存得（我也不太清楚，听说得）。
是不是可以把SBUFFER定义为字节数组呢？

仅作参考！

[Chice_wxg]

Public Declare Function InternetReadFile Lib "wininet.dll" ( _
ByVal hFile As Long, _
sBuffer As Any, _
ByVal lNumBytesToRead As Long, _
lNumberOfBytesRead As Long) As Long

这样。

PS:API一般都用Long声明，不要用Integer

[Chice_wxg]

还有：
dim sBuffer() as byte

redim sBuffer( 空间必须足够大 )

否则肯定非法操作。

[fling_boy]

我上面写的是ＭＳＤＮ上的，而且我也用过any 类型，也出同样的错误。
空间应该够用，我每次读取1024byte,定义时就固定成了1024了。

Chice_wxg(我怕谁？我是谁！我是流氓我最贼。) ：谢谢。

[fling_boy]

找到原因了，声明对但调用时应该是sBuffer(0).