Help to access Web Service

[toninhofwi]

Hi friends,

I'm trying to access Web Services using fivewin, but I receive an error in OLE creation:

---cut---
local oSoapClient, cBuf
oSoapClient := Win_OleCreateObject( "MSSOAP.SoapClient30" )
oSoapClient:msSoapInit( "https://www.nfp.sp.gov.br/ws" )
---cut---

The manual for WS that I need access is this: http://www.nfp.fazenda.sp.gov.br/pdf/webservice.pdf


Any hint please ?

Thanks and best regards,

Toninho.

[Antonio Linares]

Toninho,

Try using CreateObject():

CreateObject( "MSSOAP.SoapClient30" )

[toninhofwi]

Hi Antonio.

Same error, in mssoapinit. IMHO is time to FWH goes to web. FWH is a powerfull product but we live in a time that web is required for a lot of transactions. Web Services in more and more used and soap was replaced by net framework. Is my dream a day that FWH have a TWeb class...

Thank you and best regards,

Toninho.

[norberto]

Toninho, i agree... can we try to make one? (im from brazil too). i need webservices too.

[toninhofwi]

Hi Norberto.

Of course yes, please add me in msn: toninho@fwi.com.br

Regards.

[Colin Haig]

static function Convert(oPo)
Local oSoap := Mcs_OleObj("MSSOAP.SoapClient30")
Local nRate := nil,nAmount := 0,cTo := 'AUD',cCurr := '',nCurrRate := 0,lCont := TRUE
nCurrRate := oPo:rate()
if nCurrRate <> 0
if ! MsgNoYes('Changing Rate - Are You Sure ?')
lCont := FALSE
endif
endif
if lCont
nAmount := oPo:us
cCurr := oPo:curr
CursorWait()
oSoap:MsSoapInit("http://www.webservicex.net/CurrencyConvertor.asmx?WSDL")
oSoap:ClientProperty("ServerHTTPRequest")
nRate := oSoap:ConversionRate(substr(cCurr,1,3),substr(cTo,1,3))
oSoap := nil
nAmount := nAmount * nRate
oPo:aud := nAmount
oPo:rate := nRate
oPo:save()
SndPlaySound("Ding",1)
CursorArrow()
endif
Return nil
//--------------------------------------------------------------------------------------------------------//
Please note the code relating to SOAP came from Byron - form Matrix Software ( from memory)

[James Bott]

http://forums.fivetechsupport.com/viewtopic.php?f=3&t=11387&p=56284&hilit=tdwebservice#p56284

James

[toninhofwi]

Hi James,

Thanks for your hint. I'm playing with WinInet for some days, but instead InternetReadFile(), I think that I need InternetWriteFile(), but it is not so easy to use, please see at msdn and another problem, I need use SOAP protocol, or ws will reject my request...

Regards,

Toninho.

[toninhofwi]

Hi Colin,

I'm trying your sample, thanks a lot.

Toninho.

[toninhofwi]

I think that I found the problem, I need access a HTTPS...

oSoapClient:msSoapInit( "https://www.nfp.fazenda.sp.gov.br/ws/arquivonf_mod1.asmx?WSDL" )

Anybody know if MSSOAP access HTTPS ???


Thanks and best regards,

Toninho.

[Antonio Linares]

Toninho,

http://objectmix.com/ado-dao-rdo-rds/374858-vba-call-webservice-over-https.html

[toninhofwi]

Thanks Antonio,

I'll review it.

Regards,

Toninho.