fonction wrapper simple post WinInet (Delphi)

Question

est ici un moyen de faire un poste HTTP à l'aide Indy, dans une ligne, plus ou moins:

Response := FIdHttp.Post(URL, StringStream); 

Y at-il une fonction là-bas (fonction, non bibliothèque) qui permet l'équivalent à l'aide de WinInet?

De préférence, une fonction qui ressemble à ceci:

function PostUsingWinInet(const URL, Data :string; SSL :boolean) :string; 

Je ne veux pas de réinventer la roue et écrire ma propre fonction enveloppe si elle existe déjà.

Merci!

Answer 1

Jetez un oeil à Synapse. Oui c'est une bibliothèque, mais pas une composante. Il expose des classes et des fonctions de blocage simples qui éliminent la douleur de la communication TCP/IP.

Par exemple, un petit programme qui effectue un poste (ssl est soutenu BTW):

uses 
    httpsend; 

var 
    url : string; 
    urldata : string; 
    PostData : tMemoryStream; 

begin 
    : 
    if HttpPostURL(URL, URLData, PostData) then 
    Writeln('Sent'); 
end. 

Answer 2

Voir cette question Stack Overflow: How to send a HTTP POST Request in Delphi using WinInet api.