0

Autodesk PLM 360 サービスを SolidWorks に統合する必要があり、そのために VBA を使用しています。HTTP リクエストを開始するために、次のコードを使用しています。

Dim objHTTP As MSXML2.ServerXMLHTTP
Set objHTTP = CreateObject("MSXML2.ServerXMLHTTP")
objHTTP.setRequestHeader "Content-Type", "application/xml" '<-- Error occurs here
objHTTP.Open "POST", "https://mytenant.autodeskplm360.net/rest/auth/1/login", False
objHTTP.send "<metaFields>" & _
                "<password>MyPassword</password>" & _
                "<userID>MyUserID</userID>" & _
             "</metaFields>"

上記のコードの 3 行目で、次のエラーが発生します。

不明なエラー

問題のある行をコメントアウトすると、HTTP リクエストから返されるステータスは「415 - サポートされていないメディア タイプ」です。

ここで問題が何であるかを理解できる人はいますか? 私が行ったすべての検索はまったく役に立ちませんでした。

PS また、Excel でも同じ問題が発生することに注意してください。したがって、VBA の SolidWorks 実装が行っている奇妙なことによるものではありません。

4

1 に答える 1

0

@barrowc がコメントで指摘しているsetRequestHeaderように、コマンドはコマンドに従う必要がありますopen。次のようになります。

Dim objHTTP As MSXML2.ServerXMLHTTP
Set objHTTP = CreateObject("MSXML2.ServerXMLHTTP")
objHTTP.Open "POST", "https://mytenant.autodeskplm360.net/rest/auth/1/login", False
objHTTP.setRequestHeader "Content-Type", "application/xml"
objHTTP.send "<metaFields>" & _
                "<password>MyPassword</password>" & _
                "<userID>MyUserID</userID>" & _
             "</metaFields>"
于 2015-09-14T15:25:43.177 に答える