MastercafeCTV
mastercafe at ctv.es
Tue Dec 28 13:02:03 CST 2004
Great, thank you very much, we try to study this and check this information.
Juan
-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of MartyConnelly
Sent: martes, 28 de diciembre de 2004 19:19
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Vba with SOAP experiences
Since MS is downgrading (or whatever metaphor is in vogue today, for no
support) their soap toolkits, they are trying to force everything to
dotNet web services.
You could download Web Service References Tool 2.0 from MS and run with
Access 2003. Not sure if it runs with lower versions.
You could run with 2003 generate the classes then put them in say Access
XP or 2000
If using MS, I might go with Simon Fell's Pocket Soap toolkit, he had
his version out a year before Microsoft's tollkit appeared. It works for
Java and Pocket Pc's
http://www.pocketsoap.com
If it is a simple web service say just credit card verification against
an asmx or wsdl file, you might get away with just building your own
soap mesage and envelope in xml and sending via xmlhttp then parsing
the response. Needs a lot of xml and soap basic knowledege to handle errors.
You build your Soap envelope and message by looking at the wsdl file.
easier if they have Disco (Discovery) service.
PS a lot of vendors describe their web service as SOAP but it isn't even
close to standard.
I looked at Amazon 18 months ago and they were way off.
This will work with Access 97 if web service still up.
Dim objStyle As MSXML2.DOMDocument
Dim objXMLDOM As MSXML2.DOMDocument
Const checked As Boolean = True
Function BuildSoapEnvelopeSmall(strAddress As String, _
strCity As String, strState As String) As String 'Function builds
the SOAP Envelope Dim SOAPEnvelope As String Dim xmlInit As String
' POST /zipcoderesolver/zipcoderesolver.asmx HTTP/1.1
'Host: webservices.eraserver.net
'Content-Type: text/xml; charset=utf-8
'Content -length: length
'SOAPAction: "http://webservices.eraserver.net/FullZipCode"
'<?xml version="1.0" encoding="utf-8"?>
'strAddress = "Microsoft"
'strCity = "Redmond"
'strState = "WA"
'strAddress = "1151 Marina Village"
'strCity = "Alameda"
'strState = "CA"
'Build SOAPEnvelope
SOAPEnvelope = "<soap:Envelope " & _
"xmlns:xsi=""http://www.w3.org/2001/XMLSchema-instance"" " & _
"xmlns:xsd=""http://www.w3.org/2001/XMLSchema"" " & _
"xmlns:soap=""http://schemas.xmlsoap.org/soap/envelope/""> " & _
" <soap:Body>" & _
" <FullZipCode xmlns=""http://webservices.eraserver.net/"">" & _
" <accessCode>" & "9999" & "</accessCode>" & _
" <address>" & strAddress & "</address>" & _
" <city>" & strCity & "</city>" & _
" <state>" & strState & "</state>" & _
" </FullZipCode>" & _
" </soap:Body>" & _
" </soap:Envelope>"
xmlInit = "<?xml version=""1.0"" encoding=""utf-8""?>"
SOAPEnvelope = xmlInit & SOAPEnvelope
BuildSoapEnvelopeSmall = SOAPEnvelope
Debug.Print BuildSoapEnvelopeSmall
End Function
Function SubmitFormSmall(strAddress As String, _
strCity As String, strState As String) As String 'returns Address
Zip Code 'Submit Soap Envelope to ASMX net Server Page 'sample call
'?SubmitFormSmall ("1151 Marina Village","Alameda", "CA") '?
SubmitFormSmall("Microsoft", "Redmond", "WA") Dim objXMLHTTP As New
MSXML2.XMLHTTP Dim HTMLResponse As String Dim SoapResponse As String Dim
SoapRequest As String Dim objXMLDOM As MSXML2.DOMDocument
Set objStyle = New DOMDocument
Set objXMLDOM = New DOMDocument
objXMLDOM.async = False
'Send SOAP Request
Set objXMLHTTP = New MSXML2.XMLHTTP
' objXMLHTTP.setRequestHeader "Content-Type", "text/xml"
objXMLHTTP.Open "POST",
"http://webservices.eraserver.net/zipcoderesolver/zi" & _
"pcoderesolver.asmx", False
objXMLHTTP.setRequestHeader "SOAPAction",
"http://webservices.eraserver.net/" & _
"FullZipCode "
objXMLHTTP.setRequestHeader "Content-Type", "text/xml"
'On Error Resume Next
objXMLHTTP.send BuildSoapEnvelopeSmall(strAddress, _
strCity, strState)
MsgBox "XML Status=" & objXMLHTTP.status
If (objXMLHTTP.status <> 200) Then
'SoapResponse.innerHTML = objXMLHTTP.responseText
Debug.Print "Error=" & objXMLHTTP.responseText
Else
'Show SOAP Response
MsgBox "returned=" & objXMLHTTP.responseXML.xml
Debug.Print "returned=" & objXMLHTTP.responseXML.xml
objXMLDOM.loadXML (objXMLHTTP.responseXML.xml)
'Translate SOAP Response from xml and show response
Dim strLoginResult As String
strLoginResult = objXMLDOM.selectSingleNode("soap:Envelope").xml
Debug.Print "xml=" & strLoginResult
strLoginResult = objXMLDOM.selectSingleNode _
("soap:Envelope/soap:Body/FullZipCodeResponse/FullZipCodeResult").xml
Debug.Print "text=" & strLoginResult
strLoginResult = objXMLDOM.selectSingleNode _
("soap:Envelope/soap:Body/FullZipCodeResponse/FullZipCodeResult").nodeTypedV
alue
Debug.Print "Zip code value=" & strLoginResult
'If the zip + 4 code all zeroes address not found
End If
SubmitFormSmall = strLoginResult
End Function
MastercafeCTV wrote:
>Hi group, we are searching information about SOAP to include on an
>application for POS (Point of sale). We are trying to put a service to
>credit card for pay the bill.
>
>Thank you very much
>
>Juan
>
>
>===========================================
>MASTERCAFE S.L. NIF - B 82.617.614
>Juan Menéndez Crespo
>Plaza Puerta de Europa 2, 1-D (33011 Oviedo) www.mastercafe.com
>info at mastercafe.com
>===========================================
>El contenido del presente correo es privado. Todos los archivos adjuntos
han
>sido revisados y escaneados con McAfee VirusScan 8. Solo serán válidos
>aquellos archivos que estén identificados en el cuerpo del correo y que se
>describa su composición y contenido del mismo.
>
>
>
--
Marty Connelly
Victoria, B.C.
Canada
--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com