とりあえず使い方とソース。クラス名などへぼへぼですが、PNGのチャンクの操作方法のサンプルということで。
プロジェクトファイル(名無し2.001.pr)とそのサムネイル画像(名無し2.gif)からプロジェクトファイルを埋め込んだPNG画像(002.png)生成:
上記PNG画像からプロジェクト読込:
ソースプログラム:
PNGSqeuakObject.st
プロジェクトファイル(名無し2.001.pr)とそのサムネイル画像(名無し2.gif)からプロジェクトファイルを埋め込んだPNG画像(002.png)生成:
| writer image project newName | project := FileStream readOnlyFileNamed: '名無し2.001.pr'. project binary. newName := '002'. image := ImageReadWriter formFromFileNamed: '名無し2.gif'. writer := PNGSqeuakObject on: (FileStream newFileNamed: newName, '.png'). [ writer nextPutImage: image interlace: 0 filter: 0 Object: project contents] ensure: [writer close. project close]
上記PNG画像からプロジェクト読込:
| reader | reader := PNGSqeuakObject on: (FileStream readOnlyFileNamed: '002.png'). reader nextImage
ソースプログラム:
PNGSqeuakObject.st