圧縮ファイルの作成

[usami]

zipの場合、ZIP32.DLL,ZIP32J.DLLを使えばできます。

簡単なzip圧縮例です。ZIP32.DLLとZIP32J.DLLがwindowsのsystemフォルダにあることが条件です。

Code:

{import * from CURL.LANGUAGE.DLL-INTERFACE}
{define-dll-class public ZIP
  {defaults
      calling-convention = stdcall,
      string-rep = CString
  }
  {constructor public {default}
      {construct-super {SharedLibrary "ZIP32J"}}
  }
  {dll-method public {zip("Zip")
                         hwnd:CPointer = null,
                         command:StringInterface (rep = CString)
                     }:int
  }
}
{value
    {try
        def zip = {ZIP}
        || 圧縮元ファイルパス
        def file-path = "c:\\windows\\temp\\log"
        || 圧縮ファイルパス
        def zip-path = "c:\\window\\temp\\log.zip"
        || 圧縮コマンド
        def rtn = {zip.zip "-r -q " & zip-path & " " & file-path}
        || エラー判定
        {if rtn != 0 then
            {output "Error Code = " & rtn}
        }
     catch e:Exception do
        {output e.message}
    }
}