simple way to POST to URL

[Kachar ganyalong]

Please give me simple way to POST string to URL.

 

 

[Ron]

function PostString(s, url:string):string;

var

 aResponse: TStringStream;

 aParams:TStringList;

 mHTTP:TidHTTP;

 LHandler: TIdSSLIOHandlerSocketOpenSSL;

begin

  mHTTP := TIdHTTP.Create(nil);

  mHTTP.Request.BasicAuthentication:=false;

  aParams := TStringList.Create;

  try

    LHandler := TIdSSLIOHandlerSocketOpenSSL.Create(nil);

    aParams.add('Body='+s);

    aResponse := TStringStream.Create;

    try

      mHTTP.IOHandler:=LHandler;

      mHTTP.Post(url, aParams, aResponse);

    finally

      Result:=aResponse.DataString;

      LHandler.Free;

    end;

  finally

    aParams.Free;

    aResponse.Free;

    mHTTP.Free;

  end;

end;

 

[Kachar ganyalong]

Thank you, I will test

[Ron]

You have to modify the params according to need,

and remove the IOSSL if not using https.