delphi TIdHTTP 发布到 API 并将响应保存为 .pdf 文件

uses

  ..., IdGlobalProtocols, IdHTTP, IdURI;

...

var

  URL : string;

  memStream: TMemoryStream;

begin

  // All parameters into the URI for a HTTP GET request

  URL := 'https://someURL/view_integrated_pdf.php'

       + '?number=' + TIdURI.ParamsEncode(MainModule.number)

       + '&username=' + TIdURI.ParamsEncode(MainModule.User)

       + '&client_id=' + TIdURI.ParamsEncode(MainModule.clientID)

       + '&user_pass=' + TIdURI.ParamsEncode(MainModule.Pass)

       + '&language=en';

  memStream := TMemoryStream.Create;

  try

    MainModule.IdHTTP.Get(URL, memStream);

    // Is it really PDF? Other formats such as plaintext is not wanted.

    if not IsHeaderMediaType(MainModule.IdHTTP.ContentType, 'application/pdf') then Exit;

    memStream.SaveToFile(ServerModule.FilesFolderPath + '\pdfs\' + MainModule.PDFfileName + '.pdf');

  finally

    memStream.Free;

  end;

  pdfForm.ShowModal;

end;