Edit History:Diff

Changes of 画像表示 since 2012/05/28 14:18:06 JST

+ added lines
- deleted lines
- 画像を表示する
- 
- 
- [[$$toc]]
- - →[[HSP3・サンプルスクリプト]]に戻る
- ----
- IE9へバージョンアップすると mod_img.as が使えなくなってしまい残念に思っていました。~%
- a2d.hspで良いのでは？って話なんですが、代わりになるコンポーネントを見つけてきました。~%
- モジュール化はしてません。
- 
- * スクリプト
- 
- {{{
- // PNGのアルファチャンネルもOK
- // IShellImageDataFactoryというコンポーネントを使用
- // 使用DLLはShell32.dll
- // OSに依存する。[ WindowsXP以降 (WIN8cpでも使えた。) ]
- 
- #define IID_IShellImageDataFactory  "{9be8ed5c-edab-4d75-90f3-bd5bdbb21c82}"
- #define CLSID_ShellImageDataFactory "{66e4e4fb-f385-4dd0-8d74-a2efd1bc6178}"
- 
- #usecom IShellImageDataFactory IID_IShellImageDataFactory CLSID_ShellImageDataFactory
- #comfunc _CreateImageFromFile 4 wstr,int
- 
- #usecom IShellImageData "{bfdeec12-8040-4403-a5ea-9e07dafcf530}"
- #comfunc _Decode     3 int,int,int
- #comfunc _Draw       4 int,int,int
- #comfunc _GetSize   18 int
- 
- #define  SHIMGDEC_DEFAULT    0x00000000
- #define  SHIMGDEC_THUMBNAIL  0x00000001
- #define  SHIMGDEC_LOADFULL   0x00000002
- 
- onexit *exit
- 
- screen 1
- 
- cls 4
- dialog "png|bmp|jpg|jpeg|gif|tiff",16,""
- path=""+refstr
- 
- newcom pshell,IShellImageDataFactory
- 
- newcom pdata
- _CreateImageFromFile pshell,path,varptr(pdata)
- 
- _Decode pdata,SHIMGDEC_DEFAULT,0,0
- 
- dim size,2
- _GetSize pdata,varptr(size)
- 
- dim rect1,4
- dim rect2,4
- 
- rect1=0,0,size(0),size(1)
- rect2=0,0,size(0),size(1)
- 
- _Draw pdata,hdc,varptr(rect1),varptr(rect2)
- redraw
- 
- title "読み込み完了["+path+"]"
- delcom pdata : pdata=0
- delcom pshell : pshell=0
- 
- screen 0
- picload "sky_bg.jpg",0 //背景は適当に
- gmode 2
- gcopy 1,0,0,size(0),size(1)
- stop
- 
- *exit
- end
- 
- }}}