VB6 -> PB9 conversion

[Erich Schulman]

There is some sample code near the bottom of

http://www.aspfree.com/c/a/VB.NET/Calling-a-Web-Service-using-VB6-with-SOAP-30/2/

Considering I am still a newbie with PB objects and to get me started right, what should this look like in proper PB9 form?

The .dll is at C:\Program Files\Common Files\Microsoft Shared\OFFICE12\MSSOAP30.DLL which may or may not be registered (it is not on my PATH).

[José Roca]

With SOAP you have to use PB Automation because the methods and properties created by the server are dynamic.

#COMPILE EXE
#DIM ALL

FUNCTION PBMAIN () AS LONG

   LOCAL clnt AS DISPATCH
   LOCAL strsvc AS VARIANT
   LOCAL vWSDLFile AS VARIANT
   LOCAL vText AS VARIANT

   clnt = NEWCOM "MSSOAP.SoapClient30"
   IF ISNOTHING(clnt) THEN EXIT FUNCTION

   vWSDLFile = "http://localhost/CF_WebSvc/justFunction.cfc?wsdl"
   OBJECT CALL clnt.MSSoapInit(vWSDLFile)
   vText = "<some text>"
   OBJECT CALL clnt.WelcomeMsg(vText) TO strsvc
   MSGBOX VARIANT$(strsvc)

   clnt = NOTHING

END FUNCTION