PDFファイルのbinary化+binary化から復元

Question

    Dim pdf_file_path As String
    pdf_file_path = "C:\test2.jpg"

    Dim pdf_size As Long
    pdf_size = FileLen(pdf_file_path)

    '空いているファイル番号を取得
    Dim file_number As Integer
    file_number = FreeFile

    '指定されたファイルを取得したファイル番号としてバイナリモードで開く
    Open pdf_file_path For Binary As #file_number

    'ファイルサイズ分のバイト配列を用意
    Dim pdf_binary_data() As Byte
    ReDim pdf_binary_data(0 To pdf_size - 1)

    'バイト配列に指定ファイルを展開
    Get #file_number, , pdf_binary_data
    Close #file_number

    Dim outputFileName As String
    outputFileName ="C:\test2.jpg"


    '空いているファイル番号
    file_number = FreeFile

    Dim i As Long
    'バイナリファイル書き込み
    Open outputFileName For Binary As #file_number
        For i = 0 To UBound(pdf_binary_data) - 1
            'ファイルにByteを書き込み
            Put #file_number, , pdf_binary_data(i)
        Next
    Close #file_number

上記のソースでは、画像ファイルをbinary化し、ファイルを復元しています。

同じファイルなので、画像ファイルパスのところにPDFにしてみましたが、うまくファイルを復元することができません。
PDFのbinary化と復元方法をご教示いただけないでしょうか？

Answer 1

For i = 0 To UBound(pdf_binary_data) - 1
のところが

For i = 0 To pdf_size - 1
または
For i = LBound(pdf_binary_data) To UBound(pdf_binary_data)
だと思われます。

ファイルサイズを確認されれば、1バイト小さくなっているはずです。

参考までに配列をLOOPさせずに

'バイナリファイル書き込み
Open outputFileName For Binary As #file_number
    Put #file_number, , pdf_binary_data
Close #file_number

と簡潔に記述できます。

Comments

[sobue]

'空いているファイル番号
file_number = FreeFile

Dim i As Long
'バイナリファイル書き込み
Open outputFileName For Binary As #file_number
For i = 0 To UBound(pdf_binary_data)
'ファイルにByteを書き込み
Put #file_number, , pdf_binary_data(i)
Next
Close #file_number
---------------------------------------------------------------
Open outputFileName For Binary As #file_number
Put #file_number, , pdf_binary_data
Close #file_number
---------------------------------------------------------------
教えていただいたコードではPDFは復元できませんでした。
pngはできるのですが、何故かPDFはできません。

[takanaweb5]

修正前のコードでは1バイト少なくなっているのを確認しましたか？

また修正後のコードでファイルサイズが元のファイルと同じになっていることを確認しましたか？

[sobue]

はい、ファイルサイズが変わっていることは確認しました。
pngは変更されていましたが、どちらもファイルを開くことができました。
PDFはどちらもファイルを開くことができません。

[sobue]

ReDim pdf_binary_data(0 To pdf_size - 1)
↓
ReDim pdf_binary_data(0 To pdf_size)
で解決しました。
ヒントをありがとうございます。

Answer 2

あなたのいうbinary化ってのは、たんにバイト配列にファイルを読み込んでいるだけ、です。
元ファイルが画像だろうとPDFだろうとそれは変わりません。
で、それで書き戻したときにうまく復元できないってのは、あなたのコードがうまく動いていないため、正常に書き込みできない、あるいは正常に読み込みができていないってことです。

まずは、元ファイルと書き出したファイル、双方のデータを比較し、どこがどういうふうに変わっているのかを調べましょう。
はなしはそれから、となります。