[:vb急救:],调用.dll中函数时,传递参数出错。
xiangzi 说:
我在vb底下调用zlib.dll中的一个函数compress2
xiangzi 说:
时,需要传递一个int level给compress2
xiangzi 说:
可是,运行的时候每次都说接受的数据不对。ft.我用dll的debug状态跟踪也确实没有接受正确。
xiangzi 说:
你帮我看看?
xiangzi 说:
vb下的申明为:
Private Declare Function compress2 Lib "zlib.dll" (dest As Any, destLen As Any, src As Any, ByVal srcLen As Long, level As Any) As Long
xiangzi 说:
dll中的为:
ZEXTERN int ZEXPORT compress2 OF((Bytef *dest, uLongf *destLen,
xiangzi 说:
xiangzi 说:
dll中的为:
ZEXTERN int ZEXPORT compress2 OF((Bytef *dest, uLongf *destLen,
const Bytef *source, uLong sourceLen,
int level));
xiangzi 说:
使用的时候为:
Dim level As Integer
level = -1
result = compress2(TempBuffer(0) , BufferSize, TheBytes(0) , UBound(TheBytes) + 1, level)