Consultar e Obter Dados de Site
Bom dia
Preciso integrar uma aplicação com um site que faz consultas.
O pessoal do site me informou que devo enviar atraveś do método POST variáveis como: login, senha e CPF do consultado. E que será retornado um XML com as informações.
Minha dúvida é como devo fazer essa consulta ? O que devo utilizar, quais componentes ?
E como pegar este arquivo XML para depois extrair as informações ?
Uso Delphi 7.
Grato pela atenção
Luiz
Preciso integrar uma aplicação com um site que faz consultas.
O pessoal do site me informou que devo enviar atraveś do método POST variáveis como: login, senha e CPF do consultado. E que será retornado um XML com as informações.
Minha dúvida é como devo fazer essa consulta ? O que devo utilizar, quais componentes ?
E como pegar este arquivo XML para depois extrair as informações ?
Uso Delphi 7.
Grato pela atenção
Luiz
Lab
Curtidas 0
Respostas
Guinther
30/07/2009
Dr
Tem sim, barbada. Se o valor de retorno é um XML, é bem provável que se trate de um Web Service, aí basta usar o WSDL Importer do D7. Se for um site, vc pode fazer um POST manualmente e receber o valor de retorno. Abaixo tem um exemplo que fiz há um tempo que faz post num serviço do google.
procedure TForm1.Button2Click(Sender: TObject);
var
s: string;
Fields: TStrings;
p: integer;
begin
Fields := TStringList.Create;
Fields.Add(´text=´ + memo1.lines.Text);
Fields.Add(´langpair=en|pt´);
s := IdHTTP1.Post(
´http://translate.google.com/translate_t´,Fields);
p := pos(´PHYSICAL´,s) + 9;
Memo1.lines.Clear;
while s[p] <> ´<´ do
begin
Memo1.lines.Text := Memo1.lines.Text + (s[p]);
p := p + 1;
end;
end;
Att,
Guinther Pauli
Editor Geral Revista ClubeDelphi
Editor Geral Revista .net Magazine Brasil
Microsoft Certified: MCP,MCAD,MCSD.NET,MCPD,MCTS
Delphi Certified: 3,5,6,7,2005,2006,Web,Kylix
http://guintherpauli.blospot.com
http://twitter.com/guintherpauli
Tem sim, barbada. Se o valor de retorno é um XML, é bem provável que se trate de um Web Service, aí basta usar o WSDL Importer do D7. Se for um site, vc pode fazer um POST manualmente e receber o valor de retorno. Abaixo tem um exemplo que fiz há um tempo que faz post num serviço do google.
procedure TForm1.Button2Click(Sender: TObject);
var
s: string;
Fields: TStrings;
p: integer;
begin
Fields := TStringList.Create;
Fields.Add(´text=´ + memo1.lines.Text);
Fields.Add(´langpair=en|pt´);
s := IdHTTP1.Post(
´http://translate.google.com/translate_t´,Fields);
p := pos(´PHYSICAL´,s) + 9;
Memo1.lines.Clear;
while s[p] <> ´<´ do
begin
Memo1.lines.Text := Memo1.lines.Text + (s[p]);
p := p + 1;
end;
end;
Att,
Guinther Pauli
Editor Geral Revista ClubeDelphi
Editor Geral Revista .net Magazine Brasil
Microsoft Certified: MCP,MCAD,MCSD.NET,MCPD,MCTS
Delphi Certified: 3,5,6,7,2005,2006,Web,Kylix
http://guintherpauli.blospot.com
http://twitter.com/guintherpauli
GOSTEI 0