Comment envoyer des données HTTP et obtenir réponse à la Synapse (Delphi)

Je pense que le titre est suffisamment clair.
Je veux savoir comment envoyer une requête HTTP POST avec des paramètres ou arguments et recevoir de réponse HTML arrière à l'aide de la Synapse de la bibliothèque pour Delphi.

OriginalL'auteur TreantBG | 2011-06-09

  1. 8

    Essayez d'utiliser HttpPostURL fonction.

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

    URL - URL cible

    URLData - Paramètres d'URL; doivent être encodés en utilisant par exemple EncodeURLElement fonction

    Data - flux de données cible, où la réponse sera stocké

    L'exemple suivant utilise les tests POST serveur où envoyer deux paramètres POST. Remarque à l'aide de EncodeURLElement fonction pour le paramètre d'encodage de données. Si le POSTE réussir la réponse du serveur est enregistré dans le fichier.

    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;

    OriginalL'auteur