mandar un post http con idHTTP

[dec]

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;
}

?>