使用Delphi XE2下载

Question

希望获得有关TDownloadURL的帮助使用此代码可以保存下载的文件。 使用Delphi XE2。 想要将下载文件保存到内存/字符串列表而不是文件。 如何在不添加组件的情况下做到这一点？ 谢谢！

notfound:=false;
dl := TDownloadURL.Create(self);
  try
    dl.URL := url;
    dl.FileName := execpath+'apic1.csv'; dl.ExecuteTarget(nil); dl.Free;
  except
    dl.Free;
    notfound:=true;
  end;

Answer 1

ExtActns单元的TDownLoadURL除了下载到文件外 ， 无能为力 。 它的ExecuteTarget方法就是这样实现的。 如果我是你，我会使用印地。 这很简单：

uses
  IdHTTP;

var
  Client: TIdHTTP;
  Stream: TStream;
begin
  Client := TIdHTTP.Create;
  try
    Stream := TMemoryStream.Create;
    try
      Client.Get(URL, Stream);
      { ← process Stream somehow }
    finally
      Stream.Free;
    end;
  finally
    Client.Free;
  end;
end;