Hi, ich wollte mir mal einen kleinen FTP Client basteln. Connecten kann ich schon, disconnecten auch aber bei der Auflistung der ORdnerstruktur und der Dateien ist es vorbei.
Quellcode bisher:
Code:
unit StealerFTPParasite;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ComCtrls, IdBaseComponent, IdComponent, IdTCPConnection,
IdTCPClient, IdExplicitTLSClientServerBase, IdFTP, FileCtrl;
type
TfrmMain = class(TForm)
editFTPHost: TEdit;
editFTPUsername: TEdit;
lblFTPHost: TLabel;
lblFTPUsername: TLabel;
editFTPPassword: TEdit;
lblFTPPassword: TLabel;
btnConnect: TButton;
btnDisconnect: TButton;
IdFTP1: TIdFTP;
DirectoryListBox1: TDirectoryListBox;
procedure btnConnectClick(Sender: TObject);
procedure btnDisconnectClick(Sender: TObject);
procedure IdFTP1Connected(Sender: TObject);
procedure IdFTP1Disconnected(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
frmMain: TfrmMain;
implementation
{$R *.dfm}
procedure TfrmMain.btnConnectClick(Sender: TObject);
begin
IdFTP1.Host := editFTPHost.Text;
IdFTP1.UserName := editFTPUsername.Text;
IdFTP1.Password := editFTPPassword.Text;
IdFTP1.Connect;
end;
procedure TfrmMain.btnDisconnectClick(Sender: TObject);
begin
if IdFTP1.Connected = False then
MessageBox(Self.Handle,'Not connected to FTP Server','Could not disconnect from FTP',mrNone)
else
begin
IdFTP1.Quit;
end;
end;
procedure TfrmMain.IdFTP1Connected(Sender: TObject);
begin
showmessage('Connected to ' + editFTPHost.Text);
IdFTP1.List(DirectoryListBox1.Items,'*.*',FALSE);
end;
procedure TfrmMain.IdFTP1Disconnected(Sender: TObject);
begin
showmessage('Disconnected from ' + editFTPHost.Text)
end;
end.
Wenn ich es so ausführe, wie ich es hier gepostet habe, kommt ein Error:
Please login with USER and PASS
Wenn ich die Zeile "IdFTP1.List(DirectoryListBox1.Items,'*.*',FALSE); " aus dem Quellcode entferne, verschwindet der Error.
Was zum Teufel ist das? Ich logge mich doch mit Username und Passwort ein... Wer kann helfen?