Indy FTP Get Probleme

[hedie]

Im grunde geht es nur darum die Datei in einer Memo anzeigen zu lassen (iss nur ne txt)

[fkerber]

Hi!

Eine Bitte, Hedie:
Du kannst deine Beiträge auch editieren, wenn du einen Kommentar hinzufügen möchtest. Einfach oben rechts auf Edit klicken - solche Doppelposts sind eher ungern gesehen! Danke!


Ciao, Frederic

[Klaus01]

Guten Morgen Hedie,

Zitat von hedie:

Der Code Sieht nun so aus

Delphi-Quellcode:

procedure TForm1.Button5Click(Sender: TObject);
var
  SaveFilename: string;
begin
  SaveFilename := extractfilepath(Application.Exename) + ExtractFileName(ListBox1.Items[ListBox1.ItemIndex] );
  if FileExists(SaveFilename) then
    DeleteFile(SaveFilename);
  FTP.Get(ListBox1.Items[ListBox1.ItemIndex], SaveFilename);
memo2.Lines.LoadFromFile(edit1.Text + ('.vfl'));
end;

aber diese meldung kommt immer noch :wall:

Die Datei existiert bereits auf dem FTP-Server, denn

Zitat:

TIdFTP.Get

Description

This command downloads a file to the FTP server with the name ASourceFile. Setting the AAppend to True causes the TIdFTP to append the file being downloaded to one which exists on the local machine. The file being downloaded could be either a stream (ADest) or a file name (ADestFile) which TIdFTP can create.

Du müsstest also überprüfen, ob die Datei schon auf dem Server liegt.

Grüße
Klaus

[Zacherl]

Wieso sollte die zu downloadende Datei nicht auf dem FTP Server vorhanden sein? Wie will man sie sonst downloaden?
Der Fehler ist ja auch "destination file already exists", was ja soviel wie "Die Zieldatei existiert bereits" bedeutet. Der FTP Client meckert also, dass die Datei lokal schon vorhanden ist. Warum das so ist kann ich aber auch nicht sagen ...

Vielleicht könntest du dein Projekt mal anhängen.

(Zum laden des Memos mal das versuchen )

Delphi-Quellcode:

procedure TForm1.Button5Click(Sender: TObject); 
var 
  SaveFilename: string; 
begin 
  SaveFilename := extractfilepath(Application.Exename) + ExtractFileName(ListBox1.Items[ListBox1.ItemIndex] ); 
  if FileExists(SaveFilename) then 
    DeleteFile(SaveFilename); 

  FTP.Get(ListBox1.Items[ListBox1.ItemIndex], SaveFilename); 
  Memo2.Lines.LoadFromFile([b]SaveFilename[/b]); 
end;

[Klaus01]

@Florian

Asche auf meine Haupt, Du hast natürlich recht.
Ich will es jetzt nicht auf die Hitze schieben.

Grüße
Klaus

[Andidreas]

von ftp.get gibt es 3 varianten...

bei einer variante kannst du angeben ob eine datei die im zielverzeichnis bereits vorhanden ist überschrieben werden soll...
schau mal in die borland hilfe mit dem stichwort TIdFTP da findest die beschreibung