使用Delphi XE2进行tdownload

Question

希望获得TDownloadURL的帮助使用此代码保存下载的文件.使用Delphi 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

该TDownLoadURL从ExtActns单元不能做任何事情比下载到文件等等.它的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;