¿Cuál es la forma más sencilla de llamar a Http POST url usando Delphi?

Question

Inspirado por la pregunta What’s the simplest way to call Http GET url using Delphi? Realmente me gustaría ver una muestra de cómo usar POST. Preferiblemente para recibir XML de la llamada.

Agregado: ¿Qué pasa si incluimos una imagen u otro archivo en los datos de la publicación?

Answer 1

Usando Indy. Coloque sus parámetros en StringList (name = value) y simplemente llame a Post con la URL y StringList.

function PostExample: string; 
var 
    lHTTP: TIdHTTP; 
    lParamList: TStringList; 
begin 
    lParamList := TStringList.Create; 
    lParamList.Add('id=1'); 

    lHTTP := TIdHTTP.Create; 
    try 
    Result := lHTTP.Post('http://blahblahblah...', lParamList); 
    finally 
    lHTTP.Free; 
    lParamList.Free; 
    end; 
end; 

Answer 2

De nuevo, Synapse TCP/IP library al rescate. Use la rutina HTTPSEND HTTPPostURL.

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

La URL sería el recurso a publicar también, el urldata sería los datos del formulario, y sus resultados XML volvería como un flujo de datos.

Answer 3

He aquí un ejemplo del uso de Indy en dejar un JPEG a un servidor web corriendo Gallery

Tengo más ejemplos de este tipo de cosas (yo los uso en un protector de pantalla he escrito en Delphi para el proyecto Galería disponibles here, o más información en el sitio web de la Galería here).

El bit importante que supongo es que el JPEG pasa como una secuencia.

procedure AddImage(const AlbumID: Integer; const Image: TStream; const ImageFilename, Caption, Description, Summary: String); 
var 
    Response: String; 
    HTTPClient: TidHTTP; 
    ImageStream: TIdMultipartFormDataStream; 
begin 

    HTTPClient := TidHTTP.Create; 

    try 
    ImageStream := TIdMultiPartFormDataStream.Create; 
    try 
     ImageStream.AddFormField('g2_form[cmd]', 'add-item'); 
     ImageStream.AddFormField('g2_form[set_albumId]', Format('%d', [AlbumID])); 
     ImageStream.AddFormField('g2_form[caption]', Caption); 
     ImageStream.AddFormField('g2_form[force_filename]', ImageFilename); 
     ImageStream.AddFormField('g2_form[extrafield.Summary]', Summary); 
     ImageStream.AddFormField('g2_form[extrafield.Description]', Description); 

     ImageStream.AddObject('g2_userfile', 'image/jpeg', Image, ImageFilename); 

     Response := HTTPClient.Post('http://mygallery.com/main.php?g2_controller=remote:GalleryRemote', ImageStream); 
    finally 
     ImageStream.Free; 
    end; 
    finally 
    HTTPClient.Free; 
    end; 
end;