HSPTV!掲示板

いのびあ氏が公開している、mbase64.asを使用しているのですが、画像ファイルをエンコードしようと思っているのですが、なぜかエンコードしてからデコードしようとするとなぜか落ちてしまいます。
何が原因なのでしょうか。

#include "mbase64.as"

dim be,2048
bload "元のファイル.png",be
datasize=strsize

sdim af,(int(datasize+2)/3)*4
Base64Encode be,datasize,af

sdim af2,strlen(af)
Base64Decode af,strlen(af),af2
bsave dir_desktop+"\\テスト.png",af2

最初のはdimではなくsdimでは？
(int(datasize+2)/3)*4だと少数部分か切り捨てられてしまうので
(datasize*4)/3+2の方がいいかもしれません。

変えてみましたがダメでした…。

RFC 2045 - MIME規格に準拠？してるようで
76文字ごとに改行コード（CR+LFなので2バイト）が付与されるので、
その分のバッファも足さないとダメかも？

#include "mbase64.as"

元のファイル名 = "元のファイル.png"
出力ファイル名 = dir_desktop+"\\テスト.png"

exist 元のファイル名
元のファイルサイズ = strsize
if (元のファイルサイズ == -1) : dialog "ファイルがありません" : end

sdim 元のファイルバッファ, 元のファイルサイズ
bload 元のファイル名, 元のファイルバッファ

改行なしサイズ = (元のファイルサイズ * 4) / 3 + 2
改行ありサイズ = 改行なしサイズ + (改行なしサイズ / 76) * 2 + 1	// 終端NULL

sdim BASE64テキストバッファ, 改行ありサイズ
Base64Encode 元のファイルバッファ, 元のファイルサイズ, BASE64テキストバッファ

sdim 再変換後のバッファ, strlen(BASE64テキストバッファ)
Base64Decode BASE64テキストバッファ, strlen(BASE64テキストバッファ), 再変換後のバッファ

bsave 出力ファイル名, 再変換後のバッファ
exec 出力ファイル名, 16

スレッドを見落としてました…！
ありがとうございます！