Wie zum senden von HTTP-Daten und als Antwort bekommen mit Synapse (Delphi)

Ich denke, der Titel war deutlich genug.
Ich möchte wissen, wie Sie zum senden von HTTP-POST-request mit Parametern/Argumenten und empfangen von HTML-Antwort zurück - mit Synapse-Bibliothek für Delphi.

InformationsquelleAutor TreantBG | 2011-06-09

  1. 8

    Versuchen, HttpPostURL Funktion.

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

    URL - Ziel-URL

    URLData - URL-Parameter müssen kodiert werden, z.B. mit EncodeURLElement Funktion

    Data - Ziel-stream, welcher die Antwort gespeichert wird

    Das folgende Beispiel verwendet Test-POST-server wo senden zwei POST-Parameter. Hinweis: mit der EncodeURLElement Funktion für die Codierung von parameter-Daten. Wenn der POST erfolgreich, die Antwort des Servers wird in der Datei gespeichert.

    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;

    InformationsquelleAutor

Schreibe einen Kommentar