0

いくつかのトピックを調べたところ、次のコードを使用して vb6 でサービスを呼び出すことができました。

Dim sUrl As String
Dim response As String
Dim xmlHttp

Private Sub Form_Load()
sUrl = "http://abc.com/services/abc.svc"


Set xmlHttp = CreateObject("MSXML2.ServerXMLHTTP")
xmlHttp.Open "POST", sUrl, False

xmlHttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
xmlHttp.send
Dim response As String
response = xmlHttp.responseText

Set xmlHttp = Nothing


End Sub

問題は、vb6 で WCF サービスを呼び出し、params をそのメソッドに渡して結果を取得する方法です。

4

1 に答える 1

5

この方法を試してみると、手動で要求 XML を作成して送信し、応答 XML を再び手動で解析する必要があります。

これを行うより良い方法は、VB.NET または C# で WCF クライアントを作成し、クライアントを COM オブジェクトとして公開することです。VB6 コードは、他の COM オブジェクトとまったく同じように扱うことができるため、XML を扱う必要はまったくありません。

「 VB6 で WCF Windows サービスと通信しますか? 」を参照してください。

于 2013-02-06T02:41:53.160 に答える