How to send a HTTP POST Request in Delphi using WinInet api

by

I got all the url/filename part messed up with the previous code. I’m using this from Jeff DeVore now and it’s working fine:

function request(const AUrl, AData: AnsiString; blnSSL: Boolean = True): AnsiString;
var
  aBuffer     : Array[0..4096] of Char;
  Header      : TStringStream;
  BufStream   : TMemoryStream;
  sMethod     : AnsiString;
  BytesRead   : Cardinal;
  pSession    : HINTERNET;
  pConnection : HINTERNET;
  pRequest    : HINTERNET;
  parsedURL   : TStringArray;
  port        : Integer;
  flags       : DWord;
begin
  ParsedUrl := ParseUrl(AUrl);

  Result := '';

  pSession := InternetOpen(nil, INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);

  if Assigned(pSession) then
  try
    if blnSSL then
      Port := INTERNET_DEFAULT_HTTPS_PORT
    else
      Port := INTERNET_DEFAULT_HTTP_PORT;
    pConnection := InternetConnect(pSession, PChar(ParsedUrl[0]), port, nil, nil, INTERNET_SERVICE_HTTP, 0, 0);

    if Assigned(pConnection) then
    try
      if (AData="") then
        sMethod := 'GET'
      else
        sMethod := 'POST';

      if blnSSL then
        flags := INTERNET_FLAG_SECURE or INTERNET_FLAG_KEEP_CONNECTION
      else
        flags := INTERNET_SERVICE_HTTP;

      pRequest := HTTPOpenRequest(pConnection, PChar(sMethod), PChar(ParsedUrl[1]), nil, nil, nil, flags, 0);

      if Assigned(pRequest) then
      try
        Header := TStringStream.Create('');
        try
          with Header do
          begin
            WriteString('Host: ' + ParsedUrl[0] + sLineBreak);
            WriteString('User-Agent: Custom program 1.0'+SLineBreak);
            WriteString('Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8'+SLineBreak);
            WriteString('Accept-Language: en-us,en;q=0.5' + SLineBreak);
            WriteString('Accept-Charset: ISO-8859-1,utf-8;q=0.7,*;q=0.7'+SLineBreak);
            WriteString('Keep-Alive: 300'+ SLineBreak);
            WriteString('Connection: keep-alive'+ SlineBreak+SLineBreak);
          end;

          HttpAddRequestHeaders(pRequest, PChar(Header.DataString), Length(Header.DataString), HTTP_ADDREQ_FLAG_ADD);

          if HTTPSendRequest(pRequest, nil, 0, Pointer(AData), Length(AData)) then
          begin
            BufStream := TMemoryStream.Create;
            try
              while InternetReadFile(pRequest, @aBuffer, SizeOf(aBuffer), BytesRead) do
              begin
                if (BytesRead = 0) then Break;
                BufStream.Write(aBuffer, BytesRead);
              end;

              aBuffer[0] := #0;
              BufStream.Write(aBuffer, 1);
              Result := PChar(BufStream.Memory);
            finally
              BufStream.Free;
            end;
          end;
        finally
          Header.Free;
        end;
      finally
        InternetCloseHandle(pRequest);
      end;
    finally
      InternetCloseHandle(pConnection);
    end;
  finally
    InternetCloseHandle(pSession);
  end;
end;

ParseUrl is a function that splits a URL in “hostname / filename” and TStringArray is an array of strings. I still have to review the code tomorrow but it looks fine and in my sniffer I saw the post data and headers being sent.

More Related Contents:

  1. Http Post with indy
  2. How do I send a POST request with PHP?
  3. How are parameters sent in an HTTP POST request?
  4. What’s the simplest way to call Http GET url using Delphi?
  5. Python send POST with header
  6. What’s the simplest way to call Http POST url using Delphi?
  7. WWW server reports error after POST Request by Internet Direct components in Delphi
  8. Detecting request type in PHP (GET, POST, PUT or DELETE)
  9. What’s the difference between a POST and a PUT HTTP REQUEST?
  10. How to solve flutter web api cors error only with dart code?
  11. Nodejs POST request multipart/form-data
  12. ORM for DELPHI win32
  13. How to properly free records that contain various types in Delphi at once?
  14. Payloads of HTTP Request Methods
  15. FTP Over SSH (SFTP) In delphi 2010
  16. Creating a component with named sub-components?
  17. How to implement multiple inheritance in delphi?
  18. Is there a way to instantiate a class by its name in delphi?
  19. Android httpclient file upload data corruption and timeout issues
  20. Could not find system file when it actually exists
  21. Delphi: idHttp+SSL
  22. How do I draw the selected list-box item in a different color?
  23. Accessing a request’s body using classic ASP?
  24. How do I declare an array when I don’t know the length until run time?
  25. How do I hash a string with Delphi?
  26. Asynchronous HTTP requests in PHP
  27. Delphi pre-build event not executing BEFORE compile
  28. Delphi 7: ADO, need basic coding example
  29. How to perform an HTTP POST request in ASP?
  30. Using TChromium, Delphi Chromium Embedded

Leave a Comment