如何将网页下载到变量中？ [英] How to download a web page into a variable?

问题描述

我不在乎它是字符串，字符串列表，备忘录等，但不是磁盘文件

I don't care whether it is a string, stringlist, memo, etc ... but not a disk file

如何下​​载竞争网页变成一个变量？谢谢

How do I download a compete web page into a variable? Thanks

推荐答案

使用Indy：

const
  HTTP_RESPONSE_OK = 200;

function GetPage(aURL: string): string;
var
  Response: TStringStream;
  HTTP: TIdHTTP;
begin
  Result := '';
  Response := TStringStream.Create('');
  try
    HTTP := TIdHTTP.Create(nil);
    try
      HTTP.Get(aURL, Response);
      if HTTP.ResponseCode = HTTP_RESPONSE_OK then begin
        Result := Response.DataString;
      end else begin
        // TODO -cLogging: add some logging
      end;
    finally
      HTTP.Free;
    end;
  finally
    Response.Free;
  end;
end;

这篇关于如何将网页下载到变量中？的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！