API DOS CORREIOS
Alguem sabe como obter o retorno do calculo do frete dos correios em vb6?
Você vai precisar do SOAP toolkit
Daà basta consumir, mais ou menos assim:
Mas sinceramente, é tão lento e sujeito à falhar que não sei até que ponto vale à pena. Não seria essa uma boa oportunidade para começar a converter sua aplicação para .NET?
Daà basta consumir, mais ou menos assim:
Set oSOAPClient = CreateObject([Ô]MSSOAP.SoapClient[Ô])
oSOAPClient.mssoapinit [Ô]http://ws.correios.com.br/calculador/CalcPrecoPrazo.asmx?wsdl[Ô], [Ô]Service1[Ô], [Ô]CalcPrecoPrazoWSSoap[Ô]
Dim retorno As String
retorno = oSOAPClient.CalcPrazo([Ô]codigo do servico[Ô], [Ô]cep origem[Ô], [Ô]cep destino[Ô])
Mas sinceramente, é tão lento e sujeito à falhar que não sei até que ponto vale à pena. Não seria essa uma boa oportunidade para começar a converter sua aplicação para .NET?
E então, conseguiu?
Vou fazer amanha cedo hj vou descansar um pouco garrado em um monte de codigo cabeça fritando
KERPLUNK VLWWW brother mas acabei desistindo de colocar essa função.
Tópico encerrado , respostas não são mais permitidas