Fórum Idhttp - postagem de mensagem #347455

bem pessoal estou com o seguinte problema na postagem de informações a um webservice...


desta maneira consigo postar sem problemas as informações...

//Consulta := IdHTTP1.Get(´http://procob.d2g.com/webservice/consultanova.php?&usuario=´+EdUser.Text+
// ´&senha=´+EdPass.Text+´&tipocons=´+IntToStr(Integer(CBTipoCons.Items.Objects[CBTipoCons.ItemIndex]))+´&nome=´+EdNome.Text+´&endereco=´+EdEnd.Text+´&numero=´+EdEndNum.Text+
// ´&cidade=´+EdCity.Text+´&uf=´+CBUF.Items[CBUF.ItemIndex]+´&cpfcnpj=´+EdCNPJCPF.Text+´&ddd=´+EdDDD.Text+´&telefone=´+EdTel.Text+´&saida=STRING&session=´);


mas assim com um código mais limpo nao estou conseguindo...


Var
Consulta: String;
Resposta, Rescue: TStringStream;
begin
Resposta := TStringStream.Create(´´);
Rescue := TStringStream.Create(´´);
TSConsulta := TStringList.Create;
IdHTTP1.Request.UserAgent:=´Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV2´;
//IdHTTP1.Request.Referer:=´http://procob.d2g.com/webservice/consultanova.php?´;
TSConsulta.Values[´&usuario´] := Usuario.Text;
TSConsulta.Values[´&´+´senha´] := Senha.Text;
TSConsulta.Values[´&´+´tipocons´] := ´4´;
TSConsulta.Values[´&´+´nome´] := Nome.Text;
TSConsulta.Values[´&´+´endereco´] := Endereco.Text;
TSConsulta.Values[´&´+´numero´] := Numero.Text;
TSConsulta.Values[´&´+´cidade´] := Cidade.Text;
TSConsulta.Values[´&´+´uf´] := UF.Text;
TSConsulta.Values[´&´+´cpfcnpj´] := CNPJCPF.Text;
TSConsulta.Values[´&´+´ddd´] := DDD.Text;
TSConsulta.Values[´&´+´saida´] := ´STRING&session=´;
//ShowMessage(TSConsulta.Text);
IdHTTP1.Post(´http://procob.d2g.com/webservice/consultanova.php?´, TSConsulta, Resposta);
ShowMessage(Consulta);
Memo1.Lines.Add(Resposta.DataString);
TSConsulta.Free;
Resposta.Free;
Rescue.Free;



se alguém souber como posso resolver isto agradeço...



bye