文件压缩 autoit

ljxu

除了调用winrar，autoit有可以专门压缩文件的函数或者udf吗？

如果有的话，能告诉我嘛？

pusofalse

#include <WinAPIEx.au3>
_WinAPI_CompressBuffer

ljxu

回复 2# pusofalse

有例子吗?麻烦给我看看

楼上风云

回复 3# ljxu


    帮助文件UDFs3CHS.chm中有示例，P版都把函数给您 指出来了啊、

ljxu

回复 4# 楼上风云


查看过，没找到，是最近更新的函数吗？

xjdjpbp

v3.3.8.1下的Autoit UDFs Help查過，無此函數

xjdjpbp

會錯意了!

#include <WinAPIEx.au3>


_WinAPI_CompressBuffer

WinAPIex.au3

lxwlxwayy

Func _WinAPI_CompressBuffer($pUncompressedBuffer, $iUncompressedSize, $pCompressedBuffer, $iCompressedSize, $iFormatAndEngine = 0x0002)

        Local $Ret, $pWorkSpace = 0, $Error = 1

        Do
                $Ret = DllCall('ntdll.dll', 'uint', 'RtlGetCompressionWorkSpaceSize', 'ushort', $iFormatAndEngine, 'ulong*', 0, 'ulong*', 0)
                If (@error) Or ($Ret[0]) Then
                        ExitLoop
                EndIf
                $pWorkSpace = __HeapAlloc($Ret[2])
                If @error Then
                        ExitLoop
                EndIf
                $Ret = DllCall('ntdll.dll', 'uint', 'RtlCompressBuffer', 'ushort', $iFormatAndEngine, 'ptr', $pUncompressedBuffer, 'ulong', $iUncompressedSize, 'ptr', $pCompressedBuffer, 'ulong', $iCompressedSize, 'ulong', 4096, 'ulong*', 0, 'ptr', $pWorkSpace)
                If (@error) Or ($Ret[0]) Or (Not $Ret[7]) Then
                        ExitLoop
                EndIf
                $Error = 0
        Until 1
        __HeapFree($pWorkSpace)
        If $Error Then
                If IsArray($Ret) Then
                        Return SetError(1, $Ret[0], 0)
                Else
                        Return SetError(9, 0, 0)
                EndIf
        EndIf
        Return $Ret[7]
EndFunc   ;==>_WinAPI_CompressBuffer

shuangliudaxia

路过学习了先