Delphi-Quellcode:
fs := TFileStream.Create(extractfilepath(application.ExeName) + GetDomain(ADocument) + '\' + GetDocumentFileName(ADocument), fmCreate);
downloader := TIdHTTP.create;
downloader.get(Adocument, fs);
downloader.free;
fs.free;
ADocument wird mir von idHTTPProxyServer übergeben und enthält die angeforderte Adresse (z. B.
http://www.delphipraxis.net/bla.php).
GetDomain ist eine von mir gebastelte Funktion die den Domainnamen (z. B. delphipraxis.net) zurückgibt.
GetDocumentFileName ist ebenfalls eine Routine von mir die das angeforderte Dokument zurückgibt. (z. B. bla.php)