如何發送HTTP數據並獲得Synapse（Delphi）的響應

Question

我認爲標題足夠清晰。 我想知道如何使用參數/參數發送HTTP POST請求並接收HTML迴應 - 使用Delphi的Synapse庫。

Answer 1

嘗試使用HttpPostURL函數。

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

URL - 目標URL
URLData - URL參數;必須被編碼，例如使用EncodeURLElement功能
Data - 目標流，其中該響應將被存儲

下面的示例使用testing POST server其中發送兩個POST參數。注意使用EncodeURLElement函數編碼參數數據。如果POST成功，則將服務器響應保存到文件中。

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;