C# と VB.NET の質問掲示板

はるまきとかげ様、Hongliang様、魔界の仮面弁士様

ご指摘どうもありがとうございます。大変勉強になり、有難いです。
ファイルの操作やヘッダの操作など、基本的な問題で申し訳ありませんが、これから勉強していきたいと思っています。
また、サービス提供元は問合せを受け付けていないようでした。

情報が小出しになってしまいすみませんが、正常に動作するVBAのサンプルが公開されていました。
サンプルと自作C#のパケットキャプチャの結果および修正した自作C#コードを下記に記載します。
APIが返す結果は変わらず「ファイルがありません」となります。

魔界の仮面弁士様にご指摘頂いた通り、Shift_JISのcsvはUTF-8 に再エンコードして送出されているようでしたので、
元のファイルの方をutf-8に変換しています。

サンプルとC#の結果の相違点は、Content-Length（変換方法の問題？）とバウンダリ文字のように見えます。
バウンダリにダブルクォーテーションを付けない形で設定する方法はどうすればよいでしょうか。

何度も申し訳ありませんが、どうぞよろしくお願いいたします。



＊＊＊正常に動作するサンプルの送出データ＊＊＊
POST /api/v1/ConvertToWebInput HTTP/1.1
Connection: Keep-Alive
Content-Type: multipart/mixed; boundary=================12345678987654321
Accept: */*
Accept-Language: ja
User-Agent: Mozilla/4.0 (compatible; Win32; WinHttp.WinHttpRequest.5)
Content-Length: 13795
Host: model.app.lowenergy.jp


--================12345678987654321
Content-Disposition: mixed; name="A"
Content-Type: text/csv; charset=utf-8

＊CSVの中身


＊＊＊自作C#の送出データ＊＊＊
POST /api/v1/ConvertToWebInput HTTP/1.1
Accept-Language: ja
Accept: */*
User-Agent: Mozilla/4.0 (compatible; Win32; WinHttp.WinHttpRequest.5)
Content-Type: multipart/mixed; boundary="================12345678987654321"
Host: model.app.lowenergy.jp
Content-Length: 13793
Connection: Keep-Alive

--================12345678987654321
Content-Disposition: mixed; name="A"
Content-Type: text/csv; charset=utf-8

＊CSVの中身


***自作C#コード***
            var files = new List<string>();
            files.Add(@"C:\test\A");
            
            var content = new MultipartContent("mixed", "================12345678987654321");

            foreach (var s in list)
            {
                var fileContent = new StreamContent(File.OpenRead(s));
                fileContent.Headers.ContentDisposition = new ContentDispositionHeaderValue("mixed")
                {
                    Name = "\"" + Path.GetFileName(s) + "\""
                };
                fileContent.Headers.ContentType = new MediaTypeHeaderValue("text/csv"){ CharSet = Encoding.UTF8.WebName };
                content.Add(fileContent);
            }

            var httpClient = new HttpClient();
            httpClient.DefaultRequestHeaders.Add("Accept-Language", "ja");
            httpClient.DefaultRequestHeaders.Add("Accept", "*/*");
            httpClient.DefaultRequestHeaders.Add("User-Agent", "Mozilla/4.0 (compatible; Win32; WinHttp.WinHttpRequest.5)");

            string url = @"http://model.app.lowenergy.jp/api/v1/ConvertToWebInput";
            httpClient.DefaultRequestHeaders.ExpectContinue = false;
            HttpResponseMessage response = httpClient.PostAsync(url, content).Result;

            string test = response.Content.ReadAsStringAsync().Result;

■No86343 (さえ さん) に返信
> foreach (var s in list)
「foreach (var s in files)」ですよね。

ところで、HttpClient には下記のような問題があるのでご注意を。
https://qiita.com/nskhara/items/b7c31d60531ffbe29537


> ＊＊＊正常に動作するサンプルの送出データ＊＊＊
> Content-Length: 13795
> ＊＊＊自作C#の送出データ＊＊＊
> Content-Length: 13793

要求ボディのサイズ(Content-Length ヘッダー)が 2 バイト違っていますが、
これは先頭の CR LF の有無によるものです。


VBA バージョンにおいて、その 冒頭の CR LF を削って送出した場合、
残念ながら No86325 で示したように
　「ファイルがありません。アップロードしてください。」
が再現することになります。本来、冒頭の CR LF は無くても構わないはずなので、
このような動作になっているのは、Web API 側の実装に問題があるのだと推察します。


マルチパートな HTTP では、preamble (および epilogue) は
空で送信されるのが通例ですし、先頭が空の preamble である場合、
冒頭の CR LF は省略可能だと思うのですけれどね…。

https://www.ietf.org/rfc/rfc2046.txt
》multipart-body := [preamble CRLF]
》                  dash-boundary transport-padding CRLF
》                  body-part *encapsulation
》                  close-delimiter transport-padding
》                  [CRLF epilogue]
》

https://wiki.suikawiki.org/n/境界文字列
》古い版の MIME では一番最初の本体部分の前の境界でも 
》--boundary の前の CRLF が必須とされていましたが、
》今日では不具合であったと考えられています。


> Shift_JISのcsvはUTF-8 に再エンコードして送出されているようでしたので、
PDF に記載された要求の例では
　Content-Type: text/csv
となっているのに、VBA 実装では
　Content-Type: text/csv; charset=utf-8
となっていますし、仕様か実装のいずれかが間違っていそう。


> バウンダリにダブルクォーテーションを付けない形で設定する方法はどうすればよいでしょうか。

VBA 版と同様、要求電文を自前で組み立てないと駄目かも。
以下、Task 化してませんが参考までに。

static void Main()
{
　　var files = new List<string>();
　　files.Add(@"C:\temp\A");

　　string url = @"http://model.app.lowenergy.jp/api/v1/ConvertToWebInput";
　　  
　　var webReq = System.Net.HttpWebRequest.CreateHttp(url);
　　webReq.Method = HttpMethod.Post.Method;

　　// var boundary = "================12345678987654321";
　　var boundary = "==" + Guid.NewGuid().ToString("D");

　　//バウンダリを quoted-string にすると失敗する
　　//webReq.ContentType = "multipart/mixed; boundary=\"" + boundary + "\"";

　　//バウンダリを token として表現する
　　webReq.ContentType = "multipart/mixed; boundary=" + boundary;

　　var mem = new MemoryStream();
　　var writer = new StreamWriter(mem, Encoding.UTF8);

　　foreach (var s in files)
　　{
　　　　// 最初のバウンダリであっても、\r\n を先導させないと失敗する
　　　　writer.Write("\r\n--" + boundary + "\r\n");

　　　　// ここは「name="A"」でも「name=A」でも構わない
　　　　writer.Write("Content-Disposition: mixed; name=" + Path.GetFileName(s) + "\r\n");
　　　　//writer.Write("Content-Disposition: mixed; name=\"" + Path.GetFileName(s) + "\"\r\n");

　　　　// Content-Type はもちろん必須だが、chaset の検査はされていない模様
　　　　// というか、そもそも "text/csv" 以外を指定しても動いてしまう
　　　　writer.Write("Content-Type: text/csv\r\n");

　　　　// CSV の文字コードは UTF-8 にしておく必要がある模様
　　　　// 使用可能な文字種(文字集合)は CP932 準拠?
　　　　writer.Write("\r\n" + File.ReadAllText(s));
　　}
　　writer.Write("\r\n--" + boundary + "--");
　　writer.Flush();
　　webReq.ContentLength = mem.Length;
　　mem.Position = 0;
　　var reqStm = webReq.GetRequestStream();
　　reqStm.Write(mem.ToArray(), 0, (int)mem.Length);
　　reqStm.Close();
　　writer.Dispose();

　　var res = webReq.GetResponse();
　　var resStream = new StreamReader(res.GetResponseStream(), Encoding.UTF8);
　　string result = resStream.ReadToEnd();
　　resStream.Close();
　　res.Dispose();
　　Console.WriteLine(result);
}