tdownload mit Delphi XE2

Question

Hilfe mit TDownloadVL Hilfe Dieser Code speichert heruntergeladene Datei. Verwenden von Delphi XE2. möchte den Download in den Speicher/tstringlist nicht speichern. Wie macht man das, ohne eine Komponente hinzuzufügen? Vielen Dank!

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

Die TDownLoadURL von ExtActns Einheit tun kann nichts mehr als eine Datei herunterzuladen. Es ist ExecuteTarget Methode ist so implementiert. Wenn ich du wäre, würde ich Indy benutzen. Es ist einfach:

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;