IdHTTP1, post num arquivo html ou outro recurso

08/01/2013

1

Olá pessoal

tenho um arquivo html cujo o codigo estar abaixo, executando o proprio arquivo ele dar um post no site e traz a consulta, agora nao sei por qual motivo que ele so faz uma consulta por vez, sempre tenho que fechar o arquivo e abrir denovo para funcionar, executando ele no twebbrowser do delphi nao retorna nada tb, ai tentei via o comp idhttp e diz que a pagina estar fora do ar, mais funciona perfeito com o arquivo html.

HTML DO ARQUIVO
<form action="http://xxxxxxxxxxxxxxxxxx" method="post">
<font face="Verdana">
<input type="hidden" name="xxx" value="zzzzzzzz"> ( ESSE VALOR NAO MUDA)
<input type="hidden" name="XXXXX" > (ESSE CAMPO NAO RECEBER VALOR
</font><font face="Verdana">
<strong>Cadastro: Número:</strong>
<input type="text" name="XXXXXX" > (ÉSSE ´QUE RECEBE O VALOR NUM TEXTBOX E SEMPRE MUDA)
<input type="hidden" name="XXXXXXXXXXXXXX" value="TTTTTTTTTTT"> ( ESSE VALOR NAO MUDA)
<input type="submit" name="submit" value="Buscar">
</font>
</form>

FIM

codigo usado no idhttp

var
Ts : TStringList;
CODfonte : String;
begin
Ts := TStringList.Create;
try
Ts.Add('xxx=zzzzzz');
Ts.Add('XXXXX=');
Ts.Add('XXXXXX=1123455666');
Ts.Add('XXXXXXXXXXXXXX=TTTTTTTTTTT');


IdHTTP1.Request.ContentType := 'application/x-www-form-urlencoded';
CODfonte := IdHTTP1.Post('xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx',Ts);
memo1.Text := CODfonte;
finally
Ts.free;




o que estar errado, como posso resolver esse problema,

desde ja agradeço, Adriano

Responder
×
+1 DevUP
Acesso diário, +1 DevUP
Parabéns, você está investindo na sua carreira