WebServicer no VB6

[Josiel Santos 0]

Pessoal o que ocorre é que ou muito novo no vb6:

 

1- Como consumir um WebService com o VB6 ( não faço a minima ideia, vi exemplos mas ocultam parte do codigo, ou só dizem literalmente o que é pra fazer, o que deixa um pouco não entendível)

 

2- Feito a conexão, como envio um XML ? E como recebo o retorno (que também é um XML)

 

http://manaus.ginfes.com.br/ //Contém o manual de integração com o sistema do cliente.

 

Podem me ajudar??? ( o XML , com assinatura já consegui gerar no VB6)

 

Agora isso de WebService é novo pra mim..

 

Usando o SOAP toolkit de preferencia ( é que vi muitos exemplos com essa referencia)

 

 

 

 

[KhaosDoctor 242]

Mas você precisa fazer o que?

[Josiel Santos 0]

Conectar-me ao WebService enviar o xml e receber o retorno que e também é um xml

 

por exemplo:

 

 

Conexao As (Variavel de conexao)

ArquivoEnvio As (Xml a ser enviado)

ArquivoRecebido As ( XML de retorno)

 

variavel conexao = faz a conexao com o webserver https://homologacao.ginfes.com.br/ServiceGinfesImpl?wsdl para teste, com tres parametros (usuario,senha,arquivoxml) e retorna um XML.( a prioridade se puder me dizer ..é capturar esse retorno.

 

Um exemplo que vi

ArquivoRecebido = Conexao(usuario,senha,arquivoxml) //e a variavel recebia automaticamente o retorno..mas ficou nebuloso para eu entender..em que momento Conexao, se conectou com https://homologacao.ginfes.com.br/ServiceGinfesImpl?wsdl

 

 

Ele recebe o nome de usuario,senha e o arquivo..e retorna um xml com o dado de processamento.

[KhaosDoctor 242]

Neste exemplo que você deu, ao colocar [inline](Conexão)parametros[/inline] você está convertendo uma sequencia de comandos em um tipo de variável, é como se fosse o CType do VB, esse método é feito justamente para fazer o que você quer, e você recebe um arquivo que, no seu caso, tem o nome de ArquivoRecebido, e você pode trabalhar com ele normalmente.

[Josiel Santos 0]

Hmm...explicação boa, entendi!
Agora a dúvida geral: como "chamo" o webservice, nao sei consumir um WebService

??

 

Exemplo do que eu acho de como seria

 

Conexao = http:/algumwebservice. <-- fazendo isso já se conectou com o webservice?

 

 

 

Private Sub WebService()


  Conexao As SoapCliente30
  XML As String
  Usuario As Integer
  Senha As Integer
  XMLrec As string


  Conexao = New SoapCliente30 (é assim??)
  conexao.setattr(http://Site)
  XMLrec=Conexao(Usuario,Senha,XML)

End Sub

[KhaosDoctor 242]

Agora você pode trabalhar com o XMLrec normalmente, como se fosse uma string comum, faça testes e veja o que o método retorna, tente exibir uma caixa de texto com a propriedade text setada para exibir seu documento e veja se é isto que está procurando.

[Josiel Santos 0]

Entendi Obrigado!

Pode Fechar o tópico!