COMPRESS BLOB

COMPRESS BLOB* ( BLOB {; compression} )

引数	型		説明
Blob	Blob	→	圧縮するBLOB
compression	Integer	→	省略されない場合: 1, 圧縮率優先で圧縮 2, 速度優先で圧縮

説明

*COMPRESS BLOB**コマンドは、圧縮アルゴリズムを使用してBLOB blobを圧縮します。

オプションのcompression引数を使用すると、BLOBを圧縮する方法を設定できます。BLOBテーマの以下の定義済み定数を指定できます:

定数	型	値	コメント
Compact compression mode	倍長整数	1	圧縮解凍の処理速度と引き換えに、BLOBをできるだけ小さく圧縮します。デフォルトモード。
Fast compression mode	倍長整数	2	圧縮率と引き換えにBLOBをできるだけ速く圧縮・解凍します (圧縮されたBLOBのサイズは大きくなります)。
GZIP best compression mode	倍長整数	-1	GZIP圧縮で圧縮率を優先します。
GZIP fast compression mode	倍長整数	-2	GZIP圧縮で速度を優先します。

他の値を渡した場合、またはcompressionを省略した場合、圧縮モード1 (compact internal compression) が使用されます。

注: このコマンドは、サイズが255バイト以上のBLOBだけを圧縮します。

呼び出し後、BLOBが圧縮されればOK変数に1が設定されます。メモリ不足やBLOBサイズが255バイト未満などの理由で圧縮が行われなかった場合、OK変数に0が設定されます。エラーは生成されず、メソッドは実行をレジュームします。
(BLOBが壊れているなど) 他のケースの場合、エラー-10600が生成されます。このエラーはON ERR CALLコマンドを使用してとらえることができます。

BLOB圧縮後、EXPAND BLOBコマンドを使用して解凍できます。

BLOBが圧縮されているかどうかを知るにはBLOB PROPERTIESコマンドを使用します。

警告: 圧縮されたBLOBもBLOBであり、そのコンテンツを編集できます。しかしそうしてしまうと、EXPAND BLOBコマンドは正しくBLOBを解凍できなくなります。

例題 1

この例題 はBLOB vxMyBlobが圧縮されているかテストし、されていなければ圧縮します:

 BLOB PROPERTIES(vxMyBlob;$vlCompressed;$vlExpandedSize;$vlCurrentSize)
 If($vlCompressed=Is not compressed)
    COMPRESS BLOB(vxMyBlob)
 End if

すでに圧縮されているBLOBにCOMPRESS BLOBを適用した場合、コマンドはそれを検知し、何も行いません。

例題 2

この例題は、ドキュメントを選択させ、それを圧縮します:

 $vhDocRef :=Open document("")
 If(OK=1)
    CLOSE DOCUMENT($vhDocRef)
    DOCUMENT TO BLOB(Document;vxBlob)
    If(OK=1)
       COMPRESS BLOB(vxBlob)
       If(OK=1)
          BLOB TO DOCUMENT(Document;vxBlob)
       End if
    End if
 End if

例題 3

GZIPで圧縮されたraw HTTPデータを送信します:

 COMPRESS BLOB($blob;GZIP Best compression mode)
 var $vEncoding : Text
 $vEncoding:="Content-encoding: gzip"
 WEB SET HTTP HEADER($vEncoding)
 WEB SEND RAW DATA($blob ;*)

システム変数およびセット

BLOBが正しく圧縮されると、システム変数OKは1に設定されます。そうでなければ0に設定されます。

参照

BLOB PROPERTIES
EXPAND BLOB

プロパティ

コマンド番号	534
スレッドセーフである	✓
システム変数を更新する	OK、error