使用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;