HTTP verisi nasıl gönderilir ve Synapse (Delphi) ile yanıt nasıl alınır?

Question

Sanırım başlık yeterince açıktı. Parametreler/argümanlar ile HTTP POST isteğinin nasıl gönderileceğini öğrenmek ve HTML yanıtını geri almak istiyorum - Delphi için Synapse kütüphanesini kullanmak.

Answer 1

HttpPostURL işlevini kullanmayı deneyin.

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

URL - Hedef URL
URLData - URL parametreleri; kodlanmış olmalıdır, ör. Hedef akışı, tepki iki POST parametreleri göndermek nereye Aşağıdaki örnek testing POST server kullanır

saklanacaktır - EncodeURLElement fonksiyonunu
Data kullanarak. Parametre verilerini kodlamak için EncodeURLElement işlevini kullanmaya dikkat edin. POST başarılı olursa, sunucu yanıtı dosyaya kaydedilir.

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;