Fazer UPLoad pelo metodo GET

Delphi

01/07/2013

Pessoal,

Estou precisando de atualizar um banco de dados ONLINE, ou seja, um banco de dados de um site através do método GET.
Na verdade é um rastreamento do pedido do cliente.

Tenho a seguinte situação:

Cabeçalho do pedido:
Pedido = 1 cliente =Antonio Carlos datapedido=2013.06.28

Itens:
pedido=1 item=1 situacao=ANALISANDO data=2013.07.01 09:30
pedido=1 item=2 situacao=LIBERADO data=2013.07.01 10:00
pedido=1 item=3 situacao=SEPARANDO data=2013.07.01 11:00
pedido=1 item=4 situacao=EMBALANDO data=2013.07.01 11:10
pedido=1 item=5 situacao=ENTREGUE data=2013.07.01 11:20

Como eu faço para coloca-lo no site?
Eu usei o webrowser:
webbrowser.navigate(http://www.meusite.com.br/inserir?pedido=1&cliente=Antonio Carlos&datapedido=2013.06.28)
webbrowser.navigate(http://www.meusite.com.br/inserir_item?pedido=1&item=1&situacao=ANALISANDO&data=2013.07.01 09:30)
webbrowser.navigate(http://www.meusite.com.br/inserir_item?pedido=1&item=2&situacao=LIBERADO&data=2013.07.01 10:00)
webbrowser.navigate(http://www.meusite.com.br/inserir_item?pedido=1&item=3&situacao=SEPARANDO&data=2013.07.01 11:00)
webbrowser.navigate(http://www.meusite.com.br/inserir_item?pedido=1&item=4&situacao=EMBALANDO&data=2013.07.01 11:10)
webbrowser.navigate(http://www.meusite.com.br/inserir_item?pedido=1&item=5&situacao=ENTREGUE&data=2013.07.01 11:20)

Mas parece me que não é o mais adequado e também parece me que demora muito e os primeiros itens parece que não vai, só sai o ultimo item.



With cdsremessa do 
begin
   first;
   while not Eof
      webbrowser.navigate(http://www.meusite.com.br/inserir?pedido='+pedido.asstring+'&cliente='+cliente.asstring+'&datapedido='+datapedido.asdate);
      cdsitens.Close;
         sqlitens.ParamByName('CNota').AsString := Npedido.AsString;
         cdsitens.Open;
         While Not cdsitens.Eof Do
         Begin
            webbrowser.navigate(http://www.meusite.com.br/inserir_item?pedido='+cdsitensPedido.asstring+'&item='+cdsitensordem.asstring+'&situacao='+cdsitensSituacao.asstring+'&data='+cdsitensData.asdatetime);
            cdsitens.next
         end;
      next;
   end;
end;


Desde já agradeço
Dirceu Morais

Dirceu Morais

Curtidas 0

Respostas

Dirceu Morais

Dirceu Morais

01/07/2013

Bom dia!

Ninguém sabe ou não entenderam o problema?
GOSTEI 0
Dirceu Morais

Dirceu Morais

01/07/2013

Sobe!!
GOSTEI 0
POSTAR