I don't think so either. I have done this before in RB, but I have to
build the soap envelope by hand, with all data, using xml class, and
then customize an httpsocket to transport. But it would be very cool
to be able to do this so easily in RB.
--
Robert Garcia
President - BigHead Technology
VP Application Development - eventpix.com
13653 West Park Dr
Magalia, Ca 95954
ph: 530.645.4040 x222 fax: 530.645.4040
[EMAIL PROTECTED] - [EMAIL PROTECTED]
http://bighead.net/ - http://eventpix.com/
On Feb 3, 2007, at 5:11 PM, Tom Benson wrote:
The only problem I see here is with the Array Based Parameters.
I think you're going to have to see an output string to see exactly
how the packaged output looks, so you can do it n RB.
I don't think RB SOAP supports array parameters.
Other than that is it very straight forward.
Dim sMethod as SoapMethod
Dim result as SoapResult
sMethod = New SoapMethod
sm.parameter("DealerID") = "999999"
.
.
.
.
sMethod.url = "https://webservice.somecompany.com/OutsideAPI.asmx";
sMethod.methodNamespace = "https://webservice.somecompany.com/
OutsideAPI.asmx&"
sMethod.action = "WDSL"
result = sMethod.invoke("WDSL")
// check for error
If result.error = True then
msgbox result.errorMessage
else
MsgBox result.result("DSIExtWS") // If I understand correctly - am
unsure about the line "Dim co As New WS.DSIExtWS"
end
- Tom
On 04/02/2007, at 11:35 AM, Robert Garcia wrote:
Looking for anyone that has converted any VB/.NET soap calls to
RB. I have used the soap class in the past, but for more simple
functions. Is it possible to use the soap class, and mimic this
function in RB? This was given to me by a company to make the call
to. Any help appreciated.
We Reference: https://webservice.somecompany.com/OutsideAPI.asmx
WDSL: https://webservice.somecompany.com/OutsideAPI.asmx&WDSL
Private WS As New OutsideAPI (declare web reference object)
Private Function SubmitOrder() As String
Dim o As New WS.OrderStruct
o.DealerID = "999999"
o.DealerOrderNumber = "Test1"
'o.SalesPersonInitials = "CJO"
o.ShipVia = "UPS*"
'o.OrderDate = Date.Today.AddDays(-2).ToShortDateString
'o.Memo1 = "Test of Memo 1"
'o.Memo2 = "Test of Memo 2"
'o.Memo3 = "Test of Memo 3"
'o.PendingAccountNo = "123456789"
o.CustomerInfo = New WS.CustomerStruct
o.CustomerInfo.FirstName = "Joe"
o.CustomerInfo.LastName = "TestMan"
o.CustomerInfo.HomePhone = "515-123-4567"
'o.CustomerInfo.WorkPhone = "0987654321"
'o.CustomerInfo.Email = "[EMAIL PROTECTED]"
ReDim o.Addresses(0)
o.Addresses(0) = New WS.AddressStruct
o.Addresses(0).Type = WS.Address_Type.Service
o.Addresses(0).Address1 = "123 Test Street"
'o.Addresses(0).Address2 = "Suite 2"
o.Addresses(0).City = "Anywhere"
o.Addresses(0).State = "Iowa"
o.Addresses(0).Zip = "50322"
ReDim o.OrderItems(1)
o.OrderItems(0) = New WS.OrderItemStruct
o.OrderItems(0).SkuNumber = "D10"
o.OrderItems(0).Quantity = "1"
'o.OrderItems(0).POLineID = "1"
o.OrderItems(1) = New WS.OrderItemStruct
o.OrderItems(1).SkuNumber = "46DTVDE2"
o.OrderItems(1).Quantity = "1"
'o.OrderItems(1).POLineID = "1"
Dim co As New WS.DSIExtWS
Dim respString As String = co.CreateOrder(o)
Return respString
End Sub
_______________________________________________
Unsubscribe or switch delivery mode:
<http://www.realsoftware.com/support/listmanager/>
Search the archives of this list here:
<http://support.realsoftware.com/listarchives/lists.html>
_______________________________________________
Unsubscribe or switch delivery mode:
<http://www.realsoftware.com/support/listmanager/>
Search the archives of this list here:
<http://support.realsoftware.com/listarchives/lists.html>
