VB6 E WEBSERVICE

ANTONIOBSJ 05/03/2013 09:01:33
#419917
Bom dia,

Amigos,

Alguém faz alguma ideia de como utilizar um WebService em uma aplicação VB6? Ah, sim, NÃO tenho como refazer a aplicação VB6 em .NET.
FBGSYSTEMS 05/03/2013 10:09:42
#419922
Nao sei se é exatamente isso que voce precisa. Mas tenho esse exemplo de busca de CEP, pode ser útil.

Function pf_ProcuraEndereco(cep As String)
On Error GoTo erro

text5 = [Ô][Ô]
text6.ListIndex = -1
Text4 = [Ô][Ô]
Text3 = [Ô][Ô]

    MousePointer = 11
    Dim xlink As String
    Set myXML = New DOMDocument
    myXML.resolveExternals = True
    myXML.validateOnParse = True
    myXML.async = False
    xlink = [Ô]http://cep.republicavirtual.com.br/web_cep.php?cep=[Ô] & cep & [Ô]&formato=xml[Ô]
    myXML.Load (xlink)

    For Each X In myXML.documentElement.childNodes
        Select Case X.nodeName
               Dim xrua As String
               Dim xtipo As String
               Case Is = [Ô]logradouro[Ô]
                    xrua = UCase$(X.childNodes(0).Text)
                    [ô]txtEndereco = txtEndereco & [Ô] [Ô] & xrua [ô] retorna nome da rua
               Case Is = [Ô]uf[Ô]
                    txtEstado = UCase$(X.childNodes(0).Text) [ô] retorna estado
                    text6 = txtEstado
               Case Is = [Ô]cidade[Ô]
                    text5 = UCase$(X.childNodes(0).Text) [ô] retorna cidade
               Case Is = [Ô]bairro[Ô]
                    Text4 = UCase$(X.childNodes(0).Text) [ô] retorna bairro
               Case Is = [Ô]tipo_logradouro[Ô]
                    xtipo = UCase$(X.childNodes(0).Text) [ô] tipo do llogradouro
               Case Is = [Ô]resultado_txt[Ô]
                    TxtRetorno = UCase$(X.childNodes(0).Text)
                    
        End Select
        Text3 = xtipo & [Ô] [Ô] & xrua [ô] junçao de tipo mais rua
    Next
erro:
MousePointer = 0

End Function
ANTONIOBSJ 05/03/2013 11:13:55
#419928
Eu já havia visto esse exemplo, mas não funcionou
FBGSYSTEMS 05/03/2013 11:55:56
#419930 Resposta escolhida
Voce colocou o msxml.dll no seu projeto ?
ANTONIOBSJ 05/03/2013 13:14:17
#419931
Sim...
ANTONIOBSJ 06/03/2013 10:18:21
#419996
Agradeço as dicas, mas a solução final foi colocar a chamada do WS em um componente com referência [Ô]Register for COM Interop[Ô] e fazer a chamada no VB através desse componente.
Tópico encerrado , respostas não são mais permitidas
Voltar