|
はじめまして。
どうしてもわからないので、教えて下さい。
メモリ上のデータを圧縮書庫に追加保存し、その圧縮書庫をメモリ上に解凍したいと思います。
UnlhaCompressMemとUnlhaExtractMemを使うと思い、下記のようにプログラムしましたが、オーバーフローになってしまいます。
間違いを御指摘いただけませんか。よろしくお願い申し上げます。
Private Sub Command1_Click()
Dim comlin As String
Dim strbuff As String
Dim rr As Long
Dim lpTime As Long
Dim lpwAttr As String
Dim lpdwWriteSize As Long
strbuff = Space(20000)
strbuff = Text1.Text
comlin = "a -d1 -y1 -h2 -jm2 " & Chr(34) & "c:\temp\aaa2.lzh" & Chr(34) & " " & Chr(34) & "test.dat"
rr = UnlhaCompressMem(Form1.hWnd, comlin, VarPtr(strbuff), LenB(strbuff), lpTime, lpwAttr, lpdwWriteSize)
End Sub
Private Sub Command2_Click()
Dim comlin As String
Dim strbuff As String
Dim rr As Long
Dim lpTime As Long
Dim lpwAttr As String
Dim lpdwWriteSize As Long
strbuff = Space(20000)
comlin = "x -d1 -y1 " & Chr(34) & "c:\temp\aaa2.lzh" & Chr(34) & " " & Chr(34) & "c:\temp" & Chr(34) & "\ *.*"
rr = UnlhaExtractMem(Form1.hWnd, comlin, VarPtr(strbuff), LenB(strbuff), lpTime, lpwAttr, lpdwWriteSize)
Label1.Caption = strbuff
End Sub
|
|