VBAでローカル上にあるpdfファイルをサーバーに送信する方法

Question

こんばんは

VBAでhttp通信を用いて
ローカル上にあるPDFファイルを
サーバーにアップロードするところまでは行けたのですが

落ちてたソースコードを使っており、
意味も分からず利用している為、
元のPDFファイルに無駄な情報が付与されてしまったようで、
破損ファイル扱いされてしまいました。

'送信側---------------------------------------------------------
 Sub Sample()
 '---------------------------------------------------------
    Const UserID = "Mook"
    Const PassWD = "OpenSesami"
    Const CabinetID = 1
    FileUpload "C:\Users\PC1\Desktop\AAAA.pdf", CabinetID, UserID, PassWD
 End Sub
 '---------------------------------------------------------
 Sub FileUpload(filePath, CabID, UserID, PassWD)
 '---------------------------------------------------------
    Const Server = "11.222.333.44/test.php"
    Dim strBoundary: strBoundary = DateDiff("s", "1970/1/1 0:00:00", DateAdd("h", -9, Now))
    Set objHTTP = CreateObject("MSXML2.XMLHTTP")
    Set Stream = CreateObject("ADODB.Stream")
    Stream.Open
    Stream.Type = 1
    Stream.LoadFromFile filePath
    objHTTP.Open "POST", "http://" & Server, False, UserID, PassWD
    objHTTP.SetRequestHeader "Content-Type", "multipart/form-data; boundary=""" & strBoundary & """"
    Dim str
    str = "--" & strBoundary & vbCrLf
    str = str & "Content-Disposition: form-data; name=""fdrParentSid""" & vbCrLf & vbCrLf
    str = str & CabID & vbCrLf
    str = str & "--" & strBoundary & vbCrLf
    str = str & "Content-Disposition: form-data; name=""uploadFile""; filename=""" & Dir(filePath) & """" & vbCrLf
    str = str & "Content-Type: text/plain" & vbCrLf & vbCrLf
    str = str & Stream.Read() & vbCrLf
    str = str & "--" & strBoundary & "--"
    objHTTP.Send str
    MsgBox objHTTP.responseText
 End Sub

if ( $_FILES['uploadFile']['error'] == UPLOAD_ERR_OK )
{
    
    $upload_file = "../test/" . $_FILES["uploadFile"]["name"] ;

    if ( move_uploaded_file( $_FILES["uploadFile"]['tmp_name'], $upload_file ) )
    {
        // Read and write for owner, read for everybody
        chmod($upload_file, 0644);
    }
}

上記、プログラムをたたいて
pdfがサーバー上に作成はされるのですが、
無駄なパラメーターを付与してしまっているので
破損させないようにしたいです。

Comments

[m.ts10806]

PHPは単体で実行確認されたのでしょうか。VBAから実行されているのでしょうか。前者であれば確認の仕方が間違っています。「PHP」をタグに追加し、PHPのコード全体も記載してください。

[shinobu_osaka]

元ファイルとアップロードされたファイルのバイナリの比較も行って結果を教えてください。

Answer 1

落ちてたソースコードを使っており、

どこから拾ったのか、を補足されるとよいかと。
ここを参考にされたのであれば、サンプルはテキストファイルだから、PDFのときはそのままだと上手く行かないかも。
PDFであればこちらの方が近そうな感じがします。

Answer 2

私も良く分からないのでトライアルになりますが、PDFだったらContent-Typeはapplication/pdfになるのでは。