新規投稿
フォローする

VB.NETによるkintoneへのファイルアップロードについて

お世話になっております。

VB.NETにて、特定の場所に保存されているファイルをkintoneへアップロードしてキーを取得し、
キー情報にレコードを関連付ける処理を作成しています。
ドキュメントのファイルアップロードのページを参考に様々なコードを試してみたのですが、
ファイルアップロードで以下のエラーが発生してしまいます。

☆エラー内容
アップロードするHTTPリクエストの形式が正しくありません。HTTPリクエストはマルチパート形式である必要があります。

ファイルアップロード部分、レコード登録部分はVB.NETにより別々に製造を行っており、
レコード登録部分の処理では正常にレコード登録ができています。
どの部分が誤っているかわからず、ご指摘いただけないでしょうか。

---------------
'以下、試したコードのイメージとなります
Dim strKintoneFileUrl As String = "https://xxxxxxx.cybozu.com/k/v1/file.json"
Dim request As MSXML2.ServerXMLHTTP60
request = New MSXML2.ServerXMLHTTP60()

Dim strSendData As Text.StringBuilder
Dim objBody As Object

With request
  .open("POST", strKintoneFileUrl)
  .setRequestHeader("X-Requested-With", "XMLHttpRequest")
  .setRequestHeader("X-Cybozu-Authorization", "xxxxxxxxxxxxxxxx")
  .setRequestHeader("Content-Type", "multipart/form-data")

  strSendData = New Text.StringBuilder()
  With strSendData
    .Append("{Content-Disposition: form-data; name=""file""; filename=""C:\xxx\test.txt""},")
    .Append("{Content-Type:text/plain}")
  End With

  objBody = strSendData.ToString()
  .send(objBody)

  iStatus = .status         '・・・520が返ってくる
  strStatus = .statusText
  strPosttResponse = .responseText  '・・・"code":"GAIA_HM02","id":"xxxxx","message":"(上部記載のエラー内容)が設定されている

End With

0

1件のコメント

Avatar
Kazuhiro Yoshida

こんにちは。

この辺りとか

https://gist.github.com/yamaryu0508/11404242

拙稿ですが、

https://qiita.com/sy250f/items/26c126d0624c07a82657

などは、参考になりますでしょうか。

0
サインインしてコメントを残してください。