|
bbolte (Programmer) |
25 Feb 03 10:17 |
I can't find any reference to this error:
Run-time error '5054' Method 'EndMessage' of object 'ISoapConnector' failed
background: I went through the MS Soap 3 tutes, now i'm trying to set up a soap service with one of my active x exe's. did the wgen on it. now i'm setting up a vb6 client to test. basically, used the tutorial test client as a base and added my stuff in. here is some the code for the test client:
Private Function GetImage(ByVal Method As String, ByVal CatalogID As String, ByVal ItemNum As String, _ ByVal TheStyle As String, ByVal ColorDes As String, ByVal TheText1 As String, ByVal TheText2 As String)
Dim Serializer As SoapSerializer30 Dim Reader As SoapReader30 Dim ResultElm As IXMLDOMElement Dim FaultElm As IXMLDOMElement Dim Connector As SoapConnector30 Set Connector = New httpConnector30 Connector.Property("EndPointURL") = END_POINT_URL Connector.Connect ' binding/operation/soapoperation Connector.Property("SoapAction") = SoapAction & Method Connector.BeginMessage Set Serializer = New SoapSerializer30 Serializer.Init Connector.InputStream Serializer.StartEnvelope Serializer.StartBody Serializer.StartElement Method, CREATE_GRAPHIC Serializer.StartElement "strCatID" Serializer.WriteString CatalogID Serializer.EndElement Serializer.StartElement "strItemNo" Serializer.WriteString ItemNum Serializer.EndElement Serializer.StartElement "strStyle" Serializer.WriteString TheStyle Serializer.EndElement Serializer.StartElement "strColorDesc" Serializer.WriteString ColorDes Serializer.EndElement Serializer.StartElement "strText1" Serializer.WriteString TheText1 Serializer.EndElement Serializer.StartElement "strText2" Serializer.WriteString TheText2 Serializer.EndElement Serializer.EndElement Serializer.EndBody Serializer.EndEnvelope Connector.EndMessage '<--- LINE THAT IT FAILS ON Set Reader = New SoapReader30 Reader.Load Connector.OutputStream If Not Reader.Fault Is Nothing Then MsgBox Reader.FaultString.Text, vbExclamation Else GetImage = Reader.RpcResult.Text End If End Function
can anyone lend me a hand here? |
|