Cómo enviar datos HTTP y obtener respuesta con Synapse (Delphi)

Question

Creo que el título fue lo suficientemente claro. Quiero saber cómo enviar solicitud HTTP POST con parámetros/argumentos y recibir respuesta HTML de nuevo, utilizando la biblioteca Synapse para Delphi.

Answer 1

Intente utilizar la función HttpPostURL.

function HttpPostURL(const URL, URLData: string; const Data: TStream): Boolean; 

URL - URL de destino
URLData - parámetros de URL; debe estar codificado, p. usando EncodeURLElement función
Data - corriente de destino, donde la respuesta será almacenada

El ejemplo siguiente utiliza testing POST server donde enviar dos parámetros POST. Observe el uso de la función EncodeURLElement para codificar datos de parámetros. Si el POST tiene éxito, la respuesta del servidor se guarda en el archivo.

uses HTTPSend, Synacode; 

procedure TForm1.Button1Click(Sender: TObject); 
var URL: string; 
    Params: string; 
    Response: TMemoryStream; 

begin 
    Response := TMemoryStream.Create; 

    try 
    URL := 'http://posttestserver.com/post.php?dump&html'; 

    Params := 'parameter1=' + EncodeURLElement('data1') + '&' + 
       'parameter2=' + EncodeURLElement('data2'); 

    if HttpPostURL(URL, Params, Response) then 
     Response.SaveToFile('c:\response.txt'); 

    finally 
    Response.Free; 
    end; 
end;