Komisches Verhalten bei TFileStream & String

**alexstv**

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:

zusammenfalten · markieren

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:

markieren

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.

Komisches Verhalten bei TFileStream & String

Komisches Verhalten bei TFileStream & String

Forumregeln