嘗試從影像URL下載影像，但我得到的是HTML-有解無憂

我有https://art42.tumblr.com/random一個顯示一些影像的網頁的 URL。我想從該頁面下載主影像。

如果我在 Firefox（或任何其他瀏覽器）中右鍵單擊影像并選擇“在新選項卡中打開影像”，我會得到影像 (jpg)。但是，如果我嘗試使用下面的代碼下載影像，我會得到一個 HTML 檔案。

我猜這個問題與Referer有關。我嘗試將"Referer"引數設定為頁面的 URL 以及影像的 URL，但我仍然得到 HTML 而不是 JPG。

為什么我可以在 Firefox 中下載影像，但不能在我的代碼中下載？

function DownloadFile(CONST Url, Referer: String; OUT Data: TBytes; PostData: String= ''; SSL: Boolean = FALSE): Boolean;   { TESTED OK }
VAR
  Buffer     : array[0..High(Word)*4] of Byte; { Buffer of 260KB }
  TempBytes  : TBytes;
  sMethod    : string;
  BytesRead  : Cardinal;
  pSession   : HINTERNET;
  pConnection: HINTERNET;
  pRequest   : HINTERNET;
  Resource   : string;
  Root       : string;
  port       : Integer;
  flags      : DWord;
  Header     : string;
begin
  Result := FALSE;
  SetLength(Data, 0);
  pSession := InternetOpen(nil {USER_AGENT}, INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);

  if Assigned(pSession) then
  TRY
    { Autodetect port }
    port:= UrlExtractPort(URL);
    if port = 0 then
      if SSL
      then Port := INTERNET_DEFAULT_HTTPS_PORT
      else Port := INTERNET_DEFAULT_HTTP_PORT;

    { Root }
    Root:= UrlExtractDomainRelaxed(Url);
    pConnection := InternetConnect(pSession, PWideChar(Root), port, nil, nil, INTERNET_SERVICE_HTTP, 0, 0); { The second parameter of InternetConnect should contain only the name of the server, not the entire URL of the server-side script. }

    if Assigned(pConnection) then
    TRY
      if (PostData = '')
      then sMethod := 'GET'
      else sMethod := 'POST';

      if SSL
      then flags := INTERNET_FLAG_SECURE  OR INTERNET_FLAG_KEEP_CONNECTION
      else flags := INTERNET_SERVICE_HTTP OR INTERNET_FLAG_RELOAD; // INTERNET_FLAG_RELOAD= Forces a download of the requested file, object, or directory listing from the origin server, not from the cache.;

      Resource := UrlExtractResourceParams(Url);  
      pRequest := HTTPOpenRequest(pConnection, PWideChar(sMethod), PWideChar(Resource), nil, nil, nil, flags, 0);  { The third parameter of HttpOpenRequest is the file name (URL) of the script }

      if Assigned(pRequest) then
        TRY
           Header:= '';
           if Referer > ''
           then Header:= Header  'Referer: '   Referer   sLineBreak;
           Header:= Header  'User-Agent: Mozilla/5.0 (Windows NT 6.1; Win64; x64; rv:47.0) Gecko/20100101 Firefox/47.0' SLineBreak;
         //Header:= Header  'User-Agent: Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/91.0.4472.124 Safari/537.36 Edg/91.0.864.59' SLineBreak;  //  Microsoft Edge UA string
           Header:= Header  'Accept: text/html,application/xhtml xml,application/xml;q=0.9,*/*;q=0.8' SLineBreak;
           Header:= Header  'Accept-Language: en-us,en;q=0.5'   SLineBreak;
           Header:= Header  'Accept-Charset: ISO-8859-1,utf-8;q=0.7,*;q=0.7' SLineBreak;
           Header:= Header  'Keep-Alive: 70'  SLineBreak; { In windows, default is 60 sec }
           Header:= Header  'Connection: keep-alive'  SlineBreak SLineBreak;

           HttpAddRequestHeaders(pRequest, PWideChar(Header), Length(Header), HTTP_ADDREQ_FLAG_ADD);

           Result:= HTTPSendRequest(pRequest, NIL, 0, Pointer(PostData), Length(PostData));     { The actual POST data is the forth parameter }
           if Result then
             REPEAT
              ZeroMemory(@Buffer, SizeOf(Buffer));   

              { Download bytes }
              InternetReadFile(pRequest, @Buffer, SizeOf(Buffer), BytesRead);

              { We stop? }
              if BytesRead= 0 then break;

              { Convert static array to dynamic array }
              SetLength(TempBytes, BytesRead);
              Move(Buffer[0], TempBytes[0], BytesRead);

              { Merge arrays }
              Data:= Data  TempBytes;
             UNTIL BytesRead= 0;
        FINALLY
          InternetCloseHandle(pRequest);
        END
      else
        RaiseLastOSError;

    finally
      InternetCloseHandle(pConnection);
    end;
  finally
    InternetCloseHandle(pSession);
  end;
end;

uj5u.com熱心網友回復：

在您的“接受”標題中，您沒有指定任何圖形格式。

正確配置的 Web 服務器應該以您接受的格式之一向您發送資源表示。

嘗試查看從瀏覽器發送的請求標頭（使用開發者工具 - 請參閱瀏覽器的幫助以了解如何訪問它們）。它將接受圖形格式和文本。

uj5u.com熱心網友回復：

它按預期作業：

您要求GET https://art42.tumblr.com/random以HTTP 302 Found.
該回應意味著答案中必須有一個標題Location，它指向我們應該查詢的新 URL。在我的情況下，整個標題是：

Location: https://art42.tumblr.com/post/158825454869#_=_
該 URL 是一個新GET請求，最終以HTTP 200 OK.
該回應主要意味著我們有一些有效負載，并且標頭Content-Type應該幫助我們以正確的方式處理它。在我的情況下，整個標題是：

Content-Type: text/html; charset=UTF-8

這意味著它是一個包含 HTML 內容的文本檔案，以 UTF-8 編碼。這很好 - 需要決議 PDF 或 EXE 將不那么簡單。
就是這樣：一切都按預期作業。它仍然是一個網站——你甚至可以從周圍的所有文字中看到這一點。僅僅因為嵌入了一張圖片，它并不會使整個有效載荷也成為一張圖片。

如果您無法從圖片中區分網站，那么您在學習之前還有很長的路要走。Web 瀏覽器可以顯示各種媒體：將 HTML 決議為呈現的網站、各種格式的視頻和圖片、文本檔案，現在甚至是 PDF……圖片的 URL 是，當然可以在 HTML 中找到。如果您可以右鍵單擊圖片進行保存，您還可以在新選項卡中顯示它 - 該選項卡的顯示方式與您當前正在查看的網站的嵌入位置不同。https://64.media.tumblr.com/0b37315236ee5da6cb4d191ea6a14ccb/tumblr_on2uab8Anw1vb29w2o1_500.jpg

是的：您應該決議整個 HTML，注意所有遇到的情況<img src="，然后檢查這是否是您想要的圖片。幸運的是，它更容易：只需搜索<meta name="twitter:image" content="然后復制所有內容，直到" />獲得您的實際圖片 URL。

編輯：為了（不）重現 OP 的問題，此代碼已優化為按原樣運行并自動加載圖片。請注意，許多有問題的自定義已被洗掉，尤其是標題和參考者，并且格式更加一致：

uses
  wininet, jpeg;

function DownloadFile(Data: TMemoryStream): Boolean;
var
  Buffer: Array[0.. High(Word)* 4] of Byte;
  Resource, Root, sMethod: AnsiString;
  BytesRead, flags: Cardinal;
  pSession, pConnection, pRequest: HINTERNET;
  port: Word;
begin
  Result:= FALSE;
  Data.Clear;
  pSession:= InternetOpenA(nil, INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);

  if Assigned(pSession) then
  try
    port:= 443;

    Root:= '64.media.tumblr.com';
    pConnection:= InternetConnectA(pSession, PAnsiChar(Root), port, nil, nil, INTERNET_SERVICE_HTTP, 0, 0);

    if Assigned(pConnection) then
    try
      sMethod:= 'GET';
      flags:= INTERNET_FLAG_SECURE or INTERNET_FLAG_KEEP_CONNECTION;

      Resource:= '/0b37315236ee5da6cb4d191ea6a14ccb/tumblr_on2uab8Anw1vb29w2o1_500.jpg';
      pRequest:= HTTPOpenRequestA(pConnection, PAnsiChar(sMethod), PAnsiChar(Resource), nil, nil, nil, flags, 0);

      if Assigned(pRequest) then
      try
        Result:= HTTPSendRequestA(pRequest, nil, 0, nil, 0);
        if Result then
        repeat
          InternetReadFile(pRequest, @Buffer, SizeOf(Buffer), BytesRead);
          if BytesRead= 0 then break;
          Data.Write(Buffer[0], BytesRead);
        until FALSE;
      finally
        InternetCloseHandle(pRequest);
      end
      else RaiseLastOSError;
    finally
      InternetCloseHandle(pConnection);
    end;
  finally
    InternetCloseHandle(pSession);
  end;
end;

// Actually executing it: just add one TImage to your form
procedure TForm1.Button1Click(Sender: TObject);
var
  Data: TMemoryStream;
  j: TJpegImage;
  Head: AnsiString;
begin
  Data:= TMemoryStream.Create;
  DownloadFile(Data);
  if Data.Size> 3 then begin  // Reasonable size for picture
    Data.Position:= 0;
    SetLength(Head, 3);
    Data.Read(Head[1], 3);
    if Head= #$ff#$d8#$ff then  // Is it JFIF (aka JPG)?
    begin
      Data.Position:= 0;
      j:= TJpegImage.Create;
      try
        j.LoadFromStream(Data);
        Image1.AutoSize:= TRUE;
        Image1.Picture.Assign(j);
      except
        // Might be corrupt or its (sub) format is not supported
      end;
      j.Free;
    end;
  end;
  Data.Free;
end;

轉載請註明出處，本文鏈接：https://www.uj5u.com/ruanti/433774.html

標籤：德尔福下载 http头葡萄酒网

上一篇：Delphi-RadStudio-Android-在運行時創建一些按鈕并使用屬性值

下一篇：如何創建具有功能取消按鈕和具有默認值的能力的輸入框