LZOpenFile

VB聲明

Declare Function LZOpenFile Lib "lz32.dll" Alias "LZOpenFileA" (ByVal lpszFile As String, lpOf As OFSTRUCT, ByVal style As Long) As Long

説明

該函數能執行大量不同的文件處理，而且兼容於壓縮文件

返回值

Long，如函數執行成功，且樣式（style）參數不為OF_READ，就返回常規的文件句柄，具體請參考OpenFile函數的説明。如樣式參數為OF_READ，而且文件是壓縮的，就會返回一個特殊的文件句柄，以便由LZCopy， LZRead 和 LZSeek函數使用。如出錯，返回如下表所示的一個常數：

LZERROR_BADINHANDLE 源文件無效

LZERROR_BADOUTHANDLE 目標文件無效

LZERROR_GLOBALLOC 內部解壓緩衝區的內存容量不足

LZERROR_GLOBLOCK 內部解壓緩衝區的句柄無效

LZERROR_READ 無效的源文件格式

LZERROR_UNKNOWNALG 解壓DLL不能識別源文件採用的壓縮算法

LZERROR_WRITE 在磁盤上寫入輸出文件時出錯，通常是由於磁盤空間不足造成的

實例：Private Type OFSTRUCT

cBytes As Byte

fFixedDisk As Byte

nErrCode As Integer

Reserved1 As Integer

Reserved2 As Integer

szPathName As String * 128

End Type

Private Declare Function LZOpenFile Lib "lz32.dll" Alias "LZOpenFileA" (ByVal lpszFile As String, lpOf As OFSTRUCT, ByVal style As Long) As Long

Private Declare Function LZCopy Lib "lz32.dll" (ByVal hfSource As Long, ByVal hfDest As Long) As Long

Private Declare Sub LZClose Lib "lz32.dll" (ByVal hfFile As Long)

Const OF_READ = &H0

Const OF_CREATE = &H1000

Const LZERROR_BADINHANDLE = (-1)

Const LZERROR_BADOUTHANDLE = (-2)

Const LZERROR_BADVALUE = (-7)

Const LZERROR_GLOBLOCK = (-6)

Const LZERROR_PUBLICLOC = (-5)

Const LZERROR_READ = (-3)

Const LZERROR_UNKNOWNALG = (-8)

Const LZERROR_WRITE = (-4)

Private Sub Form_Load()

'KPD-Team 1999

Dim SourceStruct As OFSTRUCT, DestStruct As OFSTRUCT

Dim hSource As Long, hDest As Long, lResults As Long

'Open the source- and the destination-files

hSource = LZOpenFile("c:\myfile.tx_", SourceStruct, OF_READ)

hDest = LZOpenFile("c:\myfile.tx", DestStruct, OF_CREATE) 'Copy the files

lResults = LZCopy(hSource, hDest)

'Close the files

LZClose hSource

LZClose hDest

'Check for errors

Select Case lResults

Case LZERROR_BADINHANDLE

MsgBox "LZERROR_BADINHANDLE"

Case LZERROR_BADOUTHANDLE

MsgBox "LZERROR_BADOUTHANDLE"

Case LZERROR_BADVALUE

MsgBox "LZERROR_BADVALUE"

Case LZERROR_GLOBLOCK

MsgBox "LZERROR_GLOBLOCK"

Case LZERROR_PUBLICLOC

MsgBox "LZERROR_PUBLICLOC"

Case LZERROR_READ

MsgBox "LZERROR_READ"

Case LZERROR_UNKNOWNALG

MsgBox "LZERROR_UNKNOWNALG"

Case LZERROR_WRITE

MsgBox "LZERROR_WRITE"

End Select

End Sub

參數表

參數 類型及説明

lpszFile String，欲打開的文件名

lpOf OFSTRUCT，該結構填充的數據包括與本次處理的文件和結果有關的信息

style Long，處理方式標誌常數的一種組合。參考OpenFile函數的標誌常數表

註解

參考OpenFile函數