NMFTP1.Delete(listbox1.items.Text); "Fehlermeldung"

[Horst]

ich lasse mir mit
Listbox1.Items.Clear;
NMFTP1.ChangeDir(ComboBox1.Text);
NMFTP1.List;
mein vereichnis in einer TListbox auflisten
mit
NMFTP1.Delete(listbox1.items.Text);
will ich dann eine datei löschen, bekomme ich immer eine fehlermeldung:
550 0 03-13-02 10.37PM  <DIR>  000. Die Syntax für den Dateinamen, Verzeichnisnamen oder die Datenträgerbezeichnung ist falsch.

was mache ich falsch?
gruss horst

[Rainer]

Du darfst der Delete Methode nur den Dateinamen übergeben und nicht das komplette Erbegnis des List-Kommandos.
Wenn ich mich nicht irre, dann verfügt die NMFTP über eine Eigenschaft ParseList, mit der man bestimmen kann, dass die Liste geparst wird und man so recht einfach an den Dateinamen herankommt. Die gefilterte Liste ist dann in FTPDirectoryList von NMFTP gespeichert.

[Horst]

[font  size=2 face="Courier New"][font color="#000000"]kriege es mit dem parsen nicht hin, hilfe...
procedure TForm1.Button5Click(Sender: TObject);
begin
  Nmftp1.ParseList:=true; [font color="#000080"]// ?
  [/font]Nmftp1.Delete(ListBox1.Items

);
  Listbox1.Items.Clear;
  Nmftp1.nlist;

end;

[Rainer]

z.B. so

[font size=2 face="Courier New"][font color="#000000"]procedure TForm1.Button2Click(Sender: TObject);
begin
  [font color="#000080"]//Verzeichnis-Liste erhalten
  [/font]NMFTP1.ParseList := True;
  NMFTP1.List;
end;

procedure TForm1.NMFTP1Success(Trans_Type: TCmdType);
begin
  case Trans_Type of
    [font color="#000080"]//Namen in der ListBox anzeigen
    [/font]cmdList: ListBox1.Items.Assign(NMFTP1.FTPDirectoryList.Name);
    cmdDelete: ShowMessage('erfolgreich gelöscht');
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  [font color="#000080"]//löschen
  [/font]NMFTP1.Delete(ListBox1.Items

);

end;
[/font][/font]

[Horst]

[font  size=2 face="Courier New"][font color="#000000"]danke für deine antwort, aber es fuktioniert immer noch nicht ich schick mal alles mit,was ist hier falsch?



interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Forms, Dialogs,
  ComCtrls, StdCtrls, Psock, NMFtp, Controls, jpeg, ExtCtrls;

type
  TForm1 = class(TForm)
    StatusBar1: TStatusBar;
    NMFTP1: TNMFTP;
    OpenDialog1: TOpenDialog;
    ListBox1: TListBox;
    PassTxt: TEdit;
    UserTxt: TEdit;
    Label3: TLabel;
    Label4: TLabel;
    Label2: TLabel;
    label1: TLabel;
    HostTxt: TEdit;
    PortTxt: TEdit;
    Button5: TButton;
    Edit9: TEdit;
    Button18: TButton;
    Label19: TLabel;
    Edit8: TEdit;
    Button10: TButton;
    Button9: TButton;
    Edit4: TEdit;
    Button1: TButton;
    Edit3: TEdit;
    Button2: TButton;
    Button11: TButton;
    ComboBox1: TComboBox;
    Edit1: TEdit;
    Button3: TButton;
    Edit2: TEdit;
    Button4: TButton;
    Edit5: TEdit;
    Label17: TLabel;
    Edit7: TEdit;
    Edit6: TEdit;
    Label16: TLabel;
    CheckBox1: TCheckBox;
    GroupBox1: TGroupBox;
    Label11: TLabel;
    GroupBox2: TGroupBox;
    GroupBox3: TGroupBox;
    GroupBox4: TGroupBox;
    GroupBox5: TGroupBox;
    Label14: TLabel;
    Image1: TImage;
    Edit10: TEdit;
    Button6: TButton;
    procedure NMFTP1Success(Trans_Type: TCmdType);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure NMFTP1ListItem(Listing: string);
    procedure TabSheet3MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Button5Click(Sender: TObject);

    procedure NMFTP1PacketRecvd(Sender: TObject);

    procedure Button10Click(Sender: TObject);
    procedure Button11Click(Sender: TObject);
    procedure NMFTP1Connect(Sender: TObject);
    procedure NMFTP1Failure(var handled: Boolean; Trans_Type: TCmdType);
    procedure NMFTP1TransactionStop(Sender: TObject);
    procedure NMFTP1HostResolved(Sender: TComponent);
    procedure NMFTP1InvalidHost(var handled: Boolean);
    procedure NMFTP1PacketSent(Sender: TObject);
    procedure NMFTP1TransactionStart(Sender: TObject);
    procedure NMFTP1Disconnect(Sender: TObject);
    procedure NMFTP1Error(Sender: TComponent; Errno: Word; Errmsg: string);
    procedure NMFTP1Status(Sender: TComponent; Status: string);
    procedure NMFTP1UnSupportedFunction(Trans_Type: TCmdType);
    procedure NMFTP1ConnectionFailed(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure ComboBox1Change(Sender: TObject);
    procedure Button6Click(Sender: TObject);


  private
    [font color="#000080"]{ Private declarations }
  [/font]public
    [font color="#000080"]{ Public declarations }
  [/font]end;

var
  Form1: TForm1;

implementation

[font color="#000080"]{$R *.DFM}

[/font]var
  Q: Integer;

procedure TForm1.NMFTP1Success(Trans_Type: TCmdType);
begin
  case Trans_Type of
    [font color="#000080"]//Namen in der ListBox anzeigen
    [/font]cmdList: ListBox1.Items.Assign(NMFTP1.FTPDirectoryList.Name);
    cmdDelete: ShowMessage('erfolgreich gelöscht');
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  if CheckBox1.Checked then
  begin
    NMFTP1.Proxy     := Edit6.Text;
    NMFTP1.ProxyPort := StrToInt(Edit7.Text);
  end;
  NMFTP1.Host     := HostTxt.Text;
  NMFTP1.Port     := StrToInt(PortTxt.Text);
  NMFTP1.Timeout  := 5000;
  NMFTP1.UserID   := UserTxt.Text;
  NMFTP1.Password := PassTxt.Text;
  try
    NMFTP1.Connect;
  except
    on E: Exception do
      writeln(E.message);
  end
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  NMFTP1.Disconnect;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  NMFTP1.MakeDirectory(Edit1.Text);
  Listbox1.Items.Clear;
  NMFTP1.List;
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
  NMFTP1.RemoveDir(Edit2.Text);
  Listbox1.Items.Clear;
  NMFTP1.List;
end;

procedure TForm1.NMFTP1ListItem(Listing: string);
begin
  listbox1.Items.Add(IntToStr(Q) + Listing);
  Inc(Q);
end;

procedure TForm1.TabSheet3MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  Form1.Caption := 'Current Dir: ';
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
  [font color="#000080"]//löschen
  [/font]NMFTP1.Delete(ListBox1.Items

);

end;


procedure TForm1.NMFTP1PacketRecvd(Sender: TObject);
begin
  StatusBar1.SimpleText := IntToStr(NMFTP1.BytesRecvd) + ' of ' +
    IntToStr(NMFTP1.BytesTotal);
end;



procedure TForm1.Button10Click(Sender: TObject);
begin
  try 
    NMFTP1.Upload(Edit3.Text, Edit4.Text); 
  except 
  end;
  Listbox1.Items.Clear;
  NMFTP1.List;
end;


procedure TForm1.Button11Click(Sender: TObject);
begin
  if OpenDialog1.Execute then
    edit3.Text := OpenDialog1.FileName;
end;