TIdHTTP發布到API并將回應保存為.pdf檔案

我正在根據提供的檔案API URL與一些人parameters一起打電話。

API 的設定方式，回應應該是.pdf檔案的自動下載。

引數是：

• number - 代表一個 13 位數字，代表他們系統中的唯一檔案指示符（例如：5277110610029）
• username和user_pass分別 - 代表訪問系統的登錄憑據
• client_id - 代表與我在他們系統中的帳戶相關聯的唯一客戶 ID
• language - 我指出檔案內容應該使用的語言（英語或其他可用語言）

檔案表明它應該作為Post請求提出。

我有以下代碼：

var
FileName : string;
URL: String;
Params: TStringList;
memStream: TMemoryStream;
...

begin
FileName:= MainModule.PDFfileName   '.pdf';

 begin
 URL := 'https://someURL/view_integrated_pdf.php?';
 Params := TStringList.Create;
 memStream := TMemoryStream.Create;

  try
  Params.Add('number=' MainModule.number '');
  Params.Add('username=' MainModule.User '');
  Params.Add('client_id=' MainModule.clientID '');
  Params.Add('user_pass=' MainModule.Pass '');
  Params.Add('language=en');

  MainModule.IdHTTP.Post(URL, Params, memStream);

  finally
  memStream.SaveToFile(ServerModule.FilesFolderPath '\pdfs\' FileName);
  Params.Free;
  memStream.Free;

  end;
 end;

pdfForm.ShowModal();

end;

如果我在瀏覽器中嘗試結果URL和parameters- 它會自動下載pdfAPI 給我的檔案名numberParameter.pdf

如果我使用所提供的代碼做它在Delphi中，8出10次這樣可以節省pdf file一個1 KB Size（通常是間32和100對成功的檔案），當我嘗試使用我的程式中打開它pdfForm，并隨后viewer，觀眾拋出一個錯誤"Invalid PDF structure"

• 我究竟做錯了什么？/ 如何正確保存回傳 .pdf 檔案以從 API 下載的 Post 請求？

更新

根據評論，在 Notepad 中打開 1kb 結果 PDF 將內容顯示為簡單 Error username.

This is puzzling since I checked and the username being passed is accurate if I paste the exact same URL with parameter values filed, in the browser, it works perfectly and gives me the correct PDF.

• Is my code not the correct approach to Post and save the file being sent?

uj5u.com熱心網友回復：

如果我在瀏覽器中嘗試結果URL和parameters- 它會自動下載pdfAPI 給我的檔案名numberParameter.pdf

在瀏覽器中執行此操作的唯一方法是將引數放在 URL 的查詢組件中，例如：

https://someURL/view_integrated_pdf.php?number=...&username=...&client_id=...&user_pass=...&language=en

......而不是POST像你的代碼那樣在一個身體中。此外，瀏覽器會發送GET請求，而不是POST請求。除非您填寫 HTML 網路表單（即<form action="<URL>" method="POST" ...>）并提交。這是API檔案所說的嗎？

由于您沒有從檔案中提供有關此服務器實際期望的任何詳細資訊，我們無法真正告訴您您的代碼是正確還是錯誤。但是，您的手動測驗似乎與您聲稱的檔案所說的服務器期望的內容相矛盾。

如果我使用提供的代碼在 Delphi 中執行此操作，則 10 次中有 8 次它會保存一個大小為 1 KB 的 pdf 檔案（成功檔案的大小通常在 32 到 100 之間），并且當我嘗試在程式中使用我的 pdfForm 和隨后的查看器，查看器拋出錯誤“無效的 PDF 結構”

從評論中，您說您的檔案收到了文本錯誤訊息。 只有在以下情況下TIdHTTP才會將此類文本保存到：TMemoryStream

• HTTP 服務器沒有在 HTTP 級別報告錯誤，即它正在使用 HTTP2xx成功回應發送文本訊息。我懷疑這就是你的情況。默認情況下，如果服務器使用正確的HTTP 錯誤代碼，TIdHTTP將引發EIdHTTPProtocolException包含文本訊息的訊息，并且根本不會將文本保存到您TMemoryStream的。

• HTTP服務器IS報告在HTTP級別的錯誤，但您使用的是hoNoProtocolErrorException與hoWantProtocolErrorContent在標志一起TIdHTTP.HTTPOptions財產。在這種情況下，TIdHTTP不會引發EIdHTTPProtocolException而是將服務器按原樣保存到您的TMemoryStream.

由于顯然沒有引發 HTTP 例外，因此您必須先驗證服務器的回應，然后才能在 .h 中使用下載的資料pdfForm，即通過查看TIdHTTP.Response.ContentType和/或TIdHTTP.Response.ContentDisposition屬性來了解服務器是否實際發送了 PDF 檔案。

這是令人費解的，因為我檢查過并且傳遞的用戶名是準確的 如果我粘貼與提交的引數值完全相同的 URL，在瀏覽器中，它可以完美運行并為我提供正確的 PDF。

嗯，一方面，您的代碼中有一個錯字：該numberr欄位需要number改為。

除此之外，將 URL 放入瀏覽器與您的代碼正在執行的操作不同，因此請嘗試更改代碼以模仿您手動執行的操作，例如：

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;

If that does not work, then please update your question to provide the actual documentation.

標籤：delphi indy indy10 idhttp

上一篇：何時在TDBGrid后代上創建子組件？

下一篇：delphicxDateNavigator防止日期小于今天