WEB SERVICE?

PASCOAL 13/09/2011 20:14:24
#384179
COMO ACESSAR WEBSERVICE PELO VB 6.0?
PASCOAL 14/09/2011 09:24:25
#384199
NINGUEM????
KERPLUNK 14/09/2011 09:29:07
#384201
Use SOAP:

Dim client
Set client = CreateObject([Ô]MSSOAP.SoapClient30[Ô])
oClient.MSSoapInit _ [Ô]http://endereco.do.webservice/webservice.asmx?wsdl[Ô]

strg = (oClient.NomeDaFuncao(Parametro.Text)
MsgBox (strg)

If Err.Number = -2147024809 Then
MsgBox [Ô]Requisição de webservice inválida. Verifique o endereço...[Ô]
End If
PASCOAL 14/09/2011 09:31:54
#384202
KERPLUNK

Obrogado vou testar preciso instalar algum componente na minha maquina?
PASCOAL 14/09/2011 09:39:04
#384203
esta dando erro aqui : Set client = CreateObject([Ô]MSSOAP.SoapClient30[Ô])

[Ô]Activex component can't create objet
KERPLUNK 14/09/2011 09:57:08
#384206
Então vc não tem o client SOAP instalado. Instale o SOAP Toolkit que deve resolver.
PASCOAL 14/09/2011 10:11:39
#384207
GORA O ERRO ESTA NESSA LINHA :

oClient.mssoapinit = [Ô]http://201.98.43.122/wsSms/wsSmsSend.asmx?wsdl[Ô]

Claro que o ip não é esse mas o erro é :Object required

Obrigado pela ajuda
KERPLUNK 14/09/2011 10:19:27
#384210 Resposta escolhida
a declaração ta errada... desculpe, é que escrevi o código aqui mesmo e não testei. Tente assim:
Dim client
Set client = CreateObject([Ô]MSSOAP.SoapClient30[Ô])
client.MSSoapInit_ [Ô]http://endereco.do.webservice/webservice.asmx?wsdl[Ô]

strg = client.NomeDaFuncao(Parametro.Text)
MsgBox (strg)

If Err.Number = -2147024809 Then
MsgBox [Ô]Requisição de webservice inválida. Verifique o endereço...[Ô]
End If
PASCOAL 14/09/2011 10:37:46
#384213
KERPLUNK

VC TEM MSM OU SKYPE?

MEU MSM : flowsys@hotmal.com

Me add ai nos falamos.
PASCOAL 14/09/2011 11:02:58
#384220
AINDA ESTA DANDO ERRO.
KERPLUNK 14/09/2011 11:06:12
#384221
Qual erro está dando?
Página 1 de 2 [15 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar