FTP Indy Datei runterladen

[Xenonz]

mist da hab ich mich vertan...
Ne ich hatte zuerst -1 und habe es danach noch einmal mit 0 probiert. Aber auch mit -1 hat es nicht funktioniert...

[marabu]

Aber label1 zeigt 'True', wenn die Datei existiert?

Dann zeig auch noch den Code, mit dem du den download machst.

marabu

[Xenonz]

Das Problem ist, dass wenn dort -1 steht trotzdem immer false ausgegeben wird. Teste es doch einmal aus

[marabu]

Ich hatte getestet, bevor ich dir den Code gegeben habe.

Wie sieht der Dateiname aus, den du herunter laden willst?

marabu

[Xenonz]

Na die test.txt

[marabu]

Sorry, habe ich übersehen.

Nimm den Eintrag bei Host aus deiner FTP-Komponente und gib ftp://host/test.txt als URL in deinen WebBrowser ein. Wenn er die Datei dort findet und bei der Size() Abfrage trotzdem auf deinem Label1 FALSE ausgegeben wird, dann hast du einen Fehler beim Konfigurieren deiner FTP-Komponente gemacht.

Gute Nacht vom marabu

[Xenonz]

Also mein Code sieht so aus:

Delphi-Quellcode:

unit ftp;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, IdBaseComponent, IdComponent, IdTCPConnection,
  IdTCPClient, IdFTP;

type
  TForm1 = class(TForm)

    Button1: TButton;
    IdFTP1: TIdFTP;
    Edit1: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Edit3: TEdit;
    Label4: TLabel;
    Edit4: TEdit;
    Edit2: TEdit;
    Label5: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;


implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
IdFTP1.username := 'xxxxx';
IdFTP1.Password := 'xxxxx';
IdFTP1.Host := 'people-ftp.freenet.de'    //Wenn ich hier [url]ftp://people-ftp.freenet.de/text.txt[/url] schreibe, kann er                                        
                                             //nicht mehr connecten...
IdFTP1.Connect;

if idftp1.Size('test.txt') <> -1 then label1.Caption:='true'
else label1.Caption:='false';
 //begin
  //IdFTP1.Get('test.txt', '1.txt');
  //IdFTP1.Delete('test.txt');

 //end;
idFTP1.Disconnect;

end;

end.

Die edits habe ich noch nicht verwendet, da ich noch teste. Diese müssen also nicht beachtet werden.

[marabu]

Hi xenonz,

probiere es mal so:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  IdFTP1.username := 'xxxxx';
  IdFTP1.Password := 'xxxxx';
  IdFTP1.Host := 'people-ftp.freenet.de'    
  // url = [url]ftp://people-ftp.freenet.de/text.txt[/url]
  // scheme = ftp: 
  // host = people-ftp.freenet.de
  idFTP1.Connect;

  if idftp1.Size('test.txt') = -1 then 
    label1.Caption := 'FALSE'
  else 
  begin
    label1.Caption := 'TRUE';
    IdFTP1.Get('test.txt', '1.txt');
    IdFTP1.Delete('test.txt');
  end;
  idFTP1.Disconnect;
end;

Grüße vom marabu

[Xenonz]

Hallo marabu!
Soll das hier:
// url = ftp://people-ftp.freenet.de/text.txt
// scheme = ftp:
// host = people-ftp.freenet.de

wirklich als Kommentar sein? Ich probiere es mal ohne die Slashs..

[marabu]

Bitte nicht probieren.

Ich wollte dir nur andeuten, dass dein Connect scheitern muss, wenn du einen URL als Host einträgst.

marabu