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