mandar un post http con idHTTP

[dec]

Hola,

Yo tengo instalada la versión 10 de los componentes Indy y la unidad de que hablamos se encuentra en esta ruta:

C:\Archivos de programa\Borland\Delphi7\Source\indy10\Protocols

Asegúrate de que está por ahí... y añádela la "Library Path". A ver qué tal...

[hidal]

entendi a la perfeccion el documento... pero mi problema sigue existiendo... iuso BCB 6 y no tengo esa unidad... intente instalar la indy 10 y no lo logro... si me pudierais ayudar os agradeceria muchismo...

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

?>

[hidal]

dec eres mi idolo... os rendire culto.. gracias por el tiempo y a probar... adios