VB.net POST通信で指定URL（phpファイル）にCSVファイルを送りたいです。

Question

VB.netの逆引き大全を見て、WEBサーバーへCSVファイルのアップロードを試みているのですが、教本の真似をしてもうまくいきません。アップロードはされるのですが、サーバーでCSVファイルを確認すると中身がなく、容量は当然０KBとなっています。当方、サーバーのphpファイルに渡したCSVファイルの1行ずつをMySQLへデータを追加する作業を行っています。
CSVファイルは50行2列(質問・回答)のデータ群です。
|質問|回答|
|aaa|aaa| <---CSVファイルの中身は見出しなし、ここから50行分
|bbb|bbb|
|bbb|ccc|

また、CSVファイルはSJISで、phpファイルの中でUTF8に変換されデータベースへ登録される仕組みです。
以下、VB側で設定するコードです。

Private Async Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Dim client As New HttpClient()
        Try
            Dim content As New MultipartFormDataContent()
            Dim path = "C:デスクトップ\data.csv"
            Dim fileCont = New StreamContent(System.IO.File.OpenRead(path))
            fileCont.Headers.ContentDisposition =
                New ContentDispositionHeaderValue("attachment") With
                {
                .FileName = System.IO.Path.GetDirectoryName(path)
            }
            content.Add(fileCont)
            Await client.PostAsync("http://送信先ファイル.php", content)
            TextBox2.Text = "OK"

        Catch ex As Exception
            TextBox2.Text = "NG"
        End Try


    End Sub

なお、fileCont.Headers.ContentDisposition からcontent.Add(fileCont)の手前までをコメントアウトし、
ダミーデータとして1200行分のCSVファイルをテストしたところ、同じくサーバには送られ内容も25KBと存在しておりました。
しかし、先頭から200行分データが抜け落ち、POST通信上付加される情報が最終データ行から1行飛ばして記録されていました。
なお本番で扱う50行分のCSVファイルでは上記のコメントアウトをしてもしなくても0KBとなっています。
自分の見解としてはヘッダー情報のコーディングが問題なのかと思っていますが、私の勉強不足もありこれをクリアしきれませんでした。ほかにも色んなサイトを探すのですが、基本的には同じコードでして、ここから必要なコーディングをどなたか御教示願えないでしょうか。
何卒よろしくお願い申し上げます。

Answer 1

失礼ながらやってることがメチャクチャという感じがしてます。

Fiddler などのキャプチャツールを使って要求・応答を調べてください。

送信ヘッダに指定されている boundary で各パートが分けられ、各パートに Content-Disposition などのヘッダ情報が付与されてないと Web サーバー側で処理できないと思いますよ。以下のような感じです。

上の画像の要求を送信した HttpClient を使った Windows Forms アプリの例は以下の記事にありますので見てください（コードは C# ですが）。

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

Comments

[bonabona]

ご返信ありがとうございます。
なにぶん教科書をそのままコピペでできると思っていたので、メチャクチャであるとのご指摘はごもっともだと思います。。。
頂いた記事をもとに勉強しようと思います！ありがとうございます！
解決後改めてご報告いたします。

[退会済みユーザー]

一気に全部解決しようとしないで、(1) クライアント側から上の私の回答の Fiddler 画像のようにちゃんと送信できているか、(2) サーバ側で送信されてきたデータを受けて期待どおりが処理ができているか・・・に分けて、まず (1) を解決するようにしましょう。

(1) については私の回答で紹介した記事にサンプルがあるのでそれを参考にしてください。記事では送信しているのは .jpg 画像ですが、.csv でも記事のサンプルコードはファイル名と Content-Type 以外は全く同じにできるはずです。

Answer 2

SurferOnWww様
たくさんのアドバイスまことにありがとうございます。
それをもとにワイヤーシャーク等取得して試みたのですが、やはり実力不足で実現できませんでした。参考のコードを真似はしてみたものの、細かいところのコーディングが理解できず、できませんでした。

そこで、別の方法を考えました。VB側はWebClientを利用し、またファイルを受け取るPHP側のコードも見直し、自己解決いたしましたのでご報告いたします。

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

        Dim client As New WebClient()
        Dim path = Directory.GetCurrentDirectory()
        Try
            '指定URLへファイルをアップロードする
            Dim data() As Byte =
                client.UploadFile("PHPファイルのURL", path & "\data.csv")

            Label14.Text = "接続完了。Webサーバーに結果を送りました。"

        Catch ex As Exception
            Label14.Text = "接続エラー。ネットワークに接続してください。"
        End Try
    End Sub

//ファイル受け取りコード
$data = file_get_contents($_FILES['file']['tmp_name']);

上記の組み合わせでやりたいことは実現できました。
今回は開発優先という中で自己解決方法を見つけましたが、お陰様で実際のPOST通信で行われているヘッダー情報等の理解について、今後しっかりと勉強しなければいけないと痛感しています。
今後とも利用させていただきたいと思います。ありがとうございました。

Comments

[退会済みユーザー]

今回の問題とは関係ない余計なお世話かもしれませんが、Exception をキャッチするのは止めた方がいいです。最終的には上の回答のコードのままにするわけではないのかもしれませんが、もし今のコードのままですと例外は握りつぶされて無かったことになってしまいます。基本的に例外が発生した場合は、ユーザーがそのまま作業を続けて事態を悪化させないためにも、例外をランタイムに拾わせてアプリケーションを停止させるべきです。