Ver Mensaje Individual
  #5  
Antiguo 16-08-2006
Avatar de dec
dec dec is offline
Moderador
 
Registrado: dic 2004
Ubicación: Alcobendas, Madrid, España
Posts: 13.107
Reputación: 34
dec Tiene un aura espectaculardec Tiene un aura espectacular
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;
}

?>
Responder Con Cita