Jaki jest najprostszy sposób wywołania adresu URL POST HTTP za pomocą Delphi?

Question

Zainspirowany pytaniem What’s the simplest way to call Http GET url using Delphi? Naprawdę chciałbym zobaczyć próbkę użycia POST. Najlepiej odbierać XML z połączenia.

Dodano: A co z dołączeniem obrazu lub innego pliku do danych pocztowych?

Answer 1

Korzystanie z indeksu. Umieść swoje parametry w StringList (name = value) i po prostu wywołaj Post z URL i 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

Jeszcze raz, Synapse TCP/IP library na ratunek. Użyj procedury HTTPSEND HTTPPostURL.

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

Twój adres URL będzie zasób odpowiedzieć Również w tym URLDATA byłyby dane formularzy, a wyniki XML wróci jako strumień w DANYCH.

Answer 3

Oto przykład użycia Indy, żeby móc dodawać JPEG do serwera WWW z systemem Gallery

Mam kilka przykładów tego typu rzeczy (ja używam ich w wygaszacz ekranu napisałem w Delphi dla projektu Galerii dostępnych here lub więcej informacji na stronie internetowej galerii here).

Uważam, że ważnym bitem jest to, że JPEG jest przekazywany jako strumień.

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;