2カ所にアップしましたのでお好きな方からどうぞ。
http://firestorage.jp/download/d070de261c3ec1466da8a9ade99973c81723f646
http://www1.axfc.net/uploader/Sc/so/470163
既存のa2d.hspに上書きすればそのまま使えます。
Artlet2D改造内容
1.packfileの画像ファイルやmemfileのメモリデータからの読み込みに対応。
2.jpeg画像を保存するときに画質設定を可能にした。
alSaveFileで7番目のパラメータに0〜100の値を設定することで
jpeg形式で画像保存するときに画質設定を可能にした。
0に近いほどファイルサイズ優先、100に近いほど画質優先。
デフォルトは75。
検索して見つけたけどすでにアップローダから消えてた人用
Artlet2Dをpackfile対応にする方法。
GdipLoadImageFromFile p1, varptr(tmpImage)を検索してtmpImage=LoadImageFromHspfile(p1)に置換(2カ所ある)
その後以下のモジュールをa2d.hspの最後に追加。
#module
#defcfunc LoadImageFromHspfile str p1 ; filename
#uselib "gdiplus.dll"
#func GdipLoadImageFromStream "GdipLoadImageFromStream" int,int
#uselib "kernel32.dll"
#cfunc GlobalAlloc "GlobalAlloc" int,int
#cfunc GlobalLock "GlobalLock" int
#func GlobalUnlock "GlobalUnlock" int
#func GlobalFree "GlobalFree" int
#uselib "ole32.dll"
#func CreateStreamOnHGlobal "CreateStreamOnHGlobal" int,int,int
#define GMEM_MOVEABLE 2
exist p1
if strsize==-1:return 0
hMemory=GlobalAlloc(GMEM_MOVEABLE,strsize)
if hMemory==0:return 0
dupptr tmpmem,GlobalLock(hMemory),strsize,2
bload p1,tmpmem,strsize
dim tmpmem,1
GlobalUnlock hMemory
CreateStreamOnHGlobal hMemory,1,varptr(pIStream)
if stat:GlobalFree hMemory:return 0
GdipLoadImageFromStream pIStream, varptr(gpimage)
newcom Istream,,-1,pIStream
delcom Istream
return gpimage
#global