POST（multipart/form-data）でEXCELファイルをアップロードする【VB.NET】

Question

前提・実現したいこと

vb.netで、HTTPサーバーにPOST要求を行い、EXCELファイルを指定するURLアップロードしたいと考えています。
この際、ContentTypeは"multipart/form-data"を指定しています。

pdfのアップロードでは上手く行きますが、EXCELでは上手く行かず、躓いています。

発生している問題・エラーメッセージ

上手く行ったpdf用から、EXCEL用に変更するにあたり、以下のようにContent-Typeを変更しました。
"Content-Type: application/vnd.openxmlformats-officedocument.spreadsheetml.sheet"

これでEXCELにも対応できると考えたのですが、エラーとなります。（ソースコードの★ここで例外発生★の箇所）
他にも変更する必要がある箇所があるのでしょうか。
※アップロード先のサーバーからは、エラーコードnullで返ってきます。

該当のソースコード

'送信するファイルのパス
Dim filePath As String = "C:\sample1.xlsx"
Dim fileName As String = System.IO.Path.GetFileName(filePath)
'送信先のURL
Dim url As String = "[送信先のURL]"
'文字コード
Dim enc As System.Text.Encoding = _
    System.Text.Encoding.GetEncoding("UTF-8")
'区切り文字列
Dim boundary As String = System.Environment.TickCount.ToString()

'WebRequestの作成
Dim req As System.Net.HttpWebRequest = _
    CType(System.Net.WebRequest.Create(url), _
        System.Net.HttpWebRequest)
'メソッドにPOSTを指定
req.Method = "POST"
'ContentTypeを設定
req.ContentType = "multipart/form-data; boundary=" + boundary

'POST送信するデータを作成
Dim postData As String = ""
postData = "--" + boundary + vbCrLf +
        "Content-Disposition: form-data; name=""path""" + vbCrLf +
        vbCrLf +
        "[アップロード先のパス]" +
        vbCrLf +
        "--" + boundary + vbCrLf +
        "Content-Disposition: form-data; name=""name""" + vbCrLf +
        vbCrLf +
        "sample.xlsx" +
        vbCrLf +
        "--" + boundary + vbCrLf +
        "Content-Disposition: form-data; name=""file""; filename=""sample.xlsx""" + vbCrLf +
        "Content-Type: application/vnd.openxmlformats-officedocument.spreadsheetml.sheet" + vbCrLf +
        vbCrLf　'★ここをEXCEL用のContent-Typeに変更★

'バイト型配列に変換
Dim startData As Byte() = enc.GetBytes(postData)
postData = vbCrLf + "--" + boundary + "--" + vbCrLf
Dim endData As Byte() = enc.GetBytes(postData)

'送信するファイルを開く
Dim fs As New System.IO.FileStream( _
    filePath, _
    System.IO.FileMode.Open, _
    System.IO.FileAccess.Read)

'POST送信するデータの長さを指定
req.ContentLength = startData.Length + endData.Length + fs.Length

'データをPOST送信するためのStreamを取得
Dim reqStream As System.IO.Stream = req.GetRequestStream()
'送信するデータを書き込む
reqStream.Write(startData, 0, startData.Length)
'ファイルの内容を送信
Dim readData(&H1000) As Byte
Dim readSize As Integer = 0
While True
    readSize = fs.Read(readData, 0, readData.Length)
    If readSize = 0 Then
        Exit While
    End If
    reqStream.Write(readData, 0, readSize)
End While
fs.Close()
reqStream.Write(endData, 0, endData.Length)
reqStream.Close()

'サーバーからの応答を受信するためのWebResponseを取得
Dim res As System.Net.HttpWebResponse = _　'★ここで例外発生★
    CType(req.GetResponse(), System.Net.HttpWebResponse)
応答データを受信するためのStreamを取得
Dim resStream As System.IO.Stream = res.GetResponseStream()
'受信して表示
Dim sr As New System.IO.StreamReader(resStream, enc)

試したこと

以下サイトを参考にしています。
POSTでデータを送信する

Content-Typeは、以下を参考にEXCELに対応するものを設定しました。
Content-Type

Answer 1

Microsoft のドキュメントによると "重要 新しい開発には HttpWebRequest を使用しないことをお勧めします。 代わりに、System.Net.Http.HttpClient クラスを使用します" とのことです。multipart/form-data 形式にするのも面倒ですし。

HttpClient の利用をお勧めします。具体例は C# ですが以下の記事を見てください。

HttpClient でファイルアップロード
http://surferonwww.info/BlogEngine/post/2019/08/11/file-upload-by-using-httpclient.aspx

【追記】

下のコメント欄で「自分はコードのデバッグはできませんのでピンポイントでの問題点の指摘や解決策の提示はできませんが、ひょっとしたら役に立つかもしれない情報を回答欄に追記しておきます」と書いた件です。

pdfのアップロードでは上手く行きますが、EXCELでは上手く行かず、躓いています。

pdf ファイルは送信できているということですので、excel ファイルも送信はできているのではないかと思います。とすると、問題はサーバー側にあって、サイズの制限に引っかかっているとか、ヘッダー情報（Content-Type とか？）を見て制限をかけているということが怪しそうです。

送信できているかを確認するため Fiddler などのキャプチャツールを使って送信ヘッダとコンテンツを確認してください。

下の画像は、上に紹介した記事のアプリで「アンケート.xlsx」という excel ファイルを　HttpWebRequest を利用して送信したときの送信ヘッダとコンテンツを Fiddler でキャプチャしたものです。記事ではコードは省略していますが、内容は質問者さんのものとほとんど同じ dobon.net のサンプルコードを使ってます。

multipart 内のヘッダーの Content-Disposition, name, filename, Content-Type はコードに書いた通りのものに設定されていて、その下に .xlsx ファイルのバイト列が続いています。

サンプルコードは書き換えてないので Content-Type は image/jpeg のままで .xlsx ファイルの中身と違いますが、送信側の HttpWebRequest はそんなことは関知せず、指定した通りの内容で送信しているのが分かりますか？

質問者さんは Content-Type の設定をファイルの中身に合わせる必要があると考えているようですが、少なくとも送信するための条件にはならず、違っていても送信はされます。

サーバー側では送信されてきたバイト列を見てファイルの種類を判断することはできませんので、ファイルの種類を判断するなら filename の拡張子または Content-Type で判断することになります。

なので、それを見て特定の種類以外は拒否するということはできます。その前に、サイズ制限があってそこで引っかかっていれば拒否されるということがあるかもしれません。

ただ、そういう制限は一切してなくて、アップロードされてきたファイルをそのままサーバー側で保存するということももちろん可能です。以下の画像がその例で、ヘッダの filename に指定された名前「アンケート.xlsx」で保存されています。

質問者さんがサーバー側も管理しているのであれば、そのあたりも調べてみてはいかがですか。

Comments

[sena1111]

SurferOnWwwさん

ご回答ありがとうございます。
重ねてのご質問となり恐縮ですが、質問に記載したコードの修正で、対応は出来ないでしょうか？

ご回答への見解としては、以下の通りです。

＞Microsoft のドキュメントによると…
私もこの記載を目にしましたが、今回は既存PRG（pdf用）を転用した改修としたいです。

＞multipart/form-data 形式にするのも面倒ですし。
おっしゃる通りですが（私自身初心者のため、困惑しました）、送信先のwebAPIにmultipart/form-data形式との指定があります。

[退会済みユーザー]

> 質問に記載したコードの修正で、対応は出来ないでしょうか？

であれば私はお役に立てません。コードのデバッグとか添削は私はできませんので、すみませんが、他の方の回答をお待ちください。

[sena1111]

承知しました。ご回答いただきありがとうございました。

[退会済みユーザー]

レスがつきませんね。デバッグはできませんのでピンポイントでの問題点の指摘や解決策の提示はできませんが、ひょっとしたら役に立つかもしれない情報を回答欄に追記しておきます。

[sena1111]

SurferOnWwwさん

詳細に追記いただきありがとうございます。
送受信についての基本的な理解が足りていない部分がありました。

＞送信できているかを確認するため Fiddler などのキャプチャツールを使って送信ヘッダとコンテンツを確認してください。
fiddlerで確認したところ、やはり送信自体は出来ており、受信でエラーとなっているようです。

ご指摘いただきましたように、サーバー側を調べられる範囲で調べたところ、サイズやContent-Typeで制限をかけている箇所はわからなかったため、管理者に問い合わせようと思います。

[退会済みユーザー]

> 管理者に問い合わせようと思います。

何か分かったら情報提供いただけると幸いです。

[退会済みユーザー]

問い合わせ結果を書いてください。