使用 Delphi XE2 下载

Question

希望获得有关 TDownloadURL 的帮助 使用此代码保存下载的文件。使用德尔福 XE2。想将下载保存到内存/tstringlist 而不是文件。如何在不添加组件的情况下做到这一点？谢谢！

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 方法就是这样实现的。如果我是你，我会使用 Indy。很简单：

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;