BASP21によるbase64のデコードについて
base64でエンコードされた画像ファイルを表示したいと思っています。
basp21でデコードして、BinaryWriteで書き出したんですがうまく表示できません。
CAPICOMを使った場合は正しく表示されます。
basp21でデコードする際になにか処理をはさむ必要があるのでしょうか？
以下作成したサンプルソースです。
---ソース------------------------------------------
<%@ Language="VBScript" %>
<%
Set Stream = Server.CreateObject("ADODB.Stream")
Set CAPIUtil = Server.CreateObject( "CAPICOM.Utilities" )
Set objBasp = Server.CreateObject("basp21")
strEncoded = "/9j/kL・・base64でエンコードされたJpegファイル"
strDecoded = CAPIUtil.Base64Decode( strEncoded )
strDecoded2 = objBasp.Base64(strEncoded, 1)
Response.ContentType = "image/jpeg"
' Response.BinaryWrite strDecoded
' Response.BinaryWrite strDecoded2
%>
---------------------------------------------ここまで-----
以上よろしくお願いいたします。
お礼
回答ありがとうございます。 標準ではないのですね。 勧めていただいたように、ライブラリを作成してみたいと思います。
補足
これから検索してみますが、 もしよろしければ、ライブラリの作成のサンプル等の情報のあるHPを 紹介いただけないでしょうか？