Hallo
Ich proammiere zur Zeit einen kleinen Downloader für mich. Jedoch habe ich ein Problem mit dem speichern der Datei.
Zunächst einmal ein Auszug aus dem Source:
Delphi-Quellcode:
procedure TMainForm.UrlToFile(SrcURL, DestFile: String);
var
lStream: TFileStream;
begin
//DestFile := 'D:\Projects\Test\Binary\Download\Test.jpg';
//SrcURL := 'http://sd.testserver.tld/files/Test.jpg';
lStream := TFileStream.Create(DestFile, fmCreate or fmShareDenyNone);
try
IdHTTP1.Get(SrcURL, lStream);
finally
if Assigned(lStream) then lStream.Free;
end;
end;
procedure TMainForm.BitBtn1Click(Sender: TObject);
begin
...
FileServer := 'http://sd.testserver.tld/';
LocalDir := 'D:\Projects\Test\Binary\';
FileURL := FileServer+'files/Test.jpg';
LocalSaveFilename := LocalDir+'Download\Test.jpg';
UrlToFile(FileURL , LocalSaveFilename);
...
end;
Wenn ich jetzt das Programm starte und auf den Button klicke erhalte ich folgende Fehlermeldung:
Code:
Datei "D:\Projects\Test\Binary\Download\" kann nicht erstellt werden. Das System kann den angegebenen Pfad nicht finden
Der Pfad ist vorhanden und das komische ist, das wenn ich die Strings
DestFile und
SrcURL in der Procedure
UrlToFile direkt habe funktioniert der Download ohne Probleme.
Ich hoffe, dass mir jemand helfen kann das Problem zu lösen.
Vielen Dank schon einmal.