Hola,
Mira que lo sabía, porque lo había visto cuando investigé un poco sobre este tema, pero, no sé poqué me empeñaba en hacerlo del modo que te decía, tal vez porque sea "más completo",... aquí me pierdo, pero, el caso es que existen varios métodos sobreescritos de nombre "Post" en el componente "TIdHttp". Uno de ellos puede utilizarse como sigue y, aunque tal vez más sencillo, el caso es que funciona:
Código Delphi
[-]
uses
IdHttp;
procedure TForm1.Button1Click(Sender: TObject);
var
http: TIdHttp;
params: TStrings;
respuesta: string;
begin
http := TIdHTTP.Create(Self);
params := TStringList.Create;
try
params.Add('variable1=valor1');
params.Add('variable2=valor2');
respuesta := http.Post('http://dec.clubdelphi.com/temporales/pruebas-post.php', params);
ShowMessage('Respuesta: ' + respuesta);
finally
http.Free;
params.Free;
end;
end;
Como ves, no utilizamos el tipo del que pareces no disponer. A ver si te va bien.
Nota: Añado el código fuente de la página "pruebas-post.php" que es la encargada de recibir las variables en el ejemplo anterior:
Código PHP:
<?php
if(isset($_POST))
{
$respuesta = '';
echo "Enviaste las siguientes variables vía HTTP POST:\n\n";
foreach ($_POST as $variable => $valor)
{
$respuesta .= sprintf("Variable: %s - Valor: %s\n", $variable, $valor);
}
echo $respuesta;
}
?>