teacup. [ 掲示板 ] [ 掲示板作成 ] [ 有料掲示板 ] [ ブログ ]


新着順:25/148 記事一覧表示 | 《前のページ | 次のページ》

メモリ圧縮&解凍

 投稿者:まいのまま  投稿日:2006年 2月21日(火)01時48分46秒 softbank219007218012.bbtec.net
  通報
  はじめまして。
どうしてもわからないので、教えて下さい。
メモリ上のデータを圧縮書庫に追加保存し、その圧縮書庫をメモリ上に解凍したいと思います。
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
 
 
》記事一覧表示

新着順:25/148 《前のページ | 次のページ》
/148