Realizar un "Post HTTP" con la clase "TIdHttp" de Indy

[dec]

Hola,

Otra forma de hacer lo que nos ocupa sin utilizar el tipo "TIdMultiFormPartDataStream" podría ser la siguiente:

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;

Un ejemplo de Script PHP que respondiera a la llamada anterior podría ser este:

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

?>