Main Contents
ASPで透明GIF画像を出力する方法
ASP(VBScript)で透明GIF画像を吐く方法。
バイナリを扱うときはBASP21コンポーネント頼みと思い込みつつ、
こんな方法でバイナリ出力ができたなんて。
肝になるのはChrB()関数。
bin=ChrB(b1) & ChrB(b2) & ... & ChrB(hn)
Response.ContentType="image/gif"
Response.BinaryWrite bin
というわけで1x1ピクセルの透明GIFを吐くサンプルはこちら。
Dim aGIF
aGIF=Array(&H47,&H49,&H46,&H38,&H39,&H61,&H1,&H0,&H1,&H0,&H80,&H0,&H0,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&H21,&HF9,&H4,&H5,&H14,&H0,&H0,&H0,&H2C,&H0,&H0,&H0,&H0,&H1,&H0,&H1,&H0,&H0,&H2,&H2,&H44,&H1,&H0,&H3B)
Dim i, binGIF
For i=LBound(aGIF) To UBound(aGIF)
binGIF=binGIF & ChrB(aGIF(i))
Next
Response.ContentType="image/gif"
Response.BinaryWrite binGIF
- by 宮永邦彦
- at 2003年10月30日 14:44
- in プログラミング道
TrackBacks
トラックバックURL:
Post a comment