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:

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.

[himitsu]

Zitat:

Datei "D:\Projects\Test\Binary\Download\" kann nicht erstellt werden. Das System kann den angegebenen Pfad nicht finden

Wo ist denn in "D:\Projects\Test\Binary\Download\" der Dateiname?

Schau mal bitte nach, ob die Parameter auch korrekt übergeben werden.

[alexstv]

Das ist ja das Problem. ich weiß nicht warum LocalSaveFilename auf einmal D:\Projects\Test\Binary\Download\ ist.
Normalerweise müsste LocalSaveFilename ja D:\Projects\Test\Binary\Download\Test.jpg ergeben.

Anscheinend wird, warum auch immer, nur D:\Projects\Test\Binary\Download\ übergeben.

[himitsu]

Bei sowas nutzt man etwas, welches sich Debuggen ( z.B. Debuggen ) nennt ... man gehe den QuellCode Befehl für Befehl durch, schaue was wo passiert und vergleiche es mit den Erwartungen was dort passieren sollte.

[alzaimar]

Also, ich sehe im Code ein '/', wo ein '\' stehen müsste. :gruebel:

[Christian Seehase]

Zitat:

Zitat von alzaimar

Also, ich sehe im Code ein '/', wo ein '\' stehen müsste. :gruebel:

/ und \ sind in Windows im Dateisystem gleichberechtigt.
Die eine oder andere Funktion von Delphi kommt damit zwar nicht klar (z.B. ExtractFileName usw.) aber TFileStream hat damit kein Problem.