COMO CONSUMIR WEBSERVICE

ROOT1990 24/04/2014 10:56:00
#437565
Boa Tarde Pessoal

estou desenvolvendo um sistema para monitoramento de cotações preciso consumir estes webservices
http://ciagri.iea.sp.gov.br/precosdiarios/WebServices.aspx
o problema é que não sei por onde começar
eu preciso passar dois parametros que é token e data
tentei me espelhar nesse projeto mas ele não passa parametros
http://www.macoratti.net/09/08/ws_cwf1.htm

Muito obrigado pela atenção de Todos.
KERPLUNK 24/04/2014 11:11:59
#437568
No exemplo do macoratti que você citou, tem passagem de parâmetros para o método sim:

 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim ws As New getProdutosService
        Dim ds As DataSet
        ds = ws.[txt-color=#0000f0]getProdutos[/txt-color]([txt-color=#8A2BE2]10[/txt-color])
        DataGridView1.DataSource = ds.Tables(0)
    End Sub


Onde ws é a referência ao webservice, getProduto é o método e [Ô]10[Ô] é o parâmetro.
PEGUDO 24/04/2014 11:12:50
#437569
Tente esse:
Criando e consumindo um webservice
[txt-color=#0000f0] [/txt-color]
ROOT1990 24/04/2014 21:26:03
#437599
Boa Noite Pessoal

eu fiz assim porem o sistema continuou não consultando nem retornando erros,

Dim ws As New Cotacoes.NaDataRequestBody
Dim ds As New Cotacoes.Preco

ws.data = [Ô]24/04/2014[Ô]
ws.token = [Ô]chave token[Ô]
MsgBox(ds.Descricao)

a principio para testar a comunicação queria que ele retorna-se a descrição em um msgbox mas não funcionou, alguem pode me ajudar ?
KERPLUNK 25/04/2014 09:00:17
#437605
Pelo que vi dos WSDL desses webservices que passou, o método para consulta é [Ô]NaData[Ô]. Todos eles recebem um token e uma data como parâmetro mas os retornos apesar de ter o mesmo nome de objetos, tem estruturas diferentes, o que não vem ao caso. Então ficaria algo como:

Dim retorno = Cotacoes.NaData([Ô]01/04/2014[Ô], [Ô]seu token[Ô])


Onde [Ô]Cotacoes[Ô], presumo ser a sua referência ao webservice.
Faça seu login para responder
Voltar