//下级
          FTP_DeleteAllFiles(idFTP, idFTP.DirectoryListing[i].FileName);
        end;
      if idFTP.DirectoryListing[i].ItemType = ditFile then
        begin
          Temp := idFTP.DirectoryListing[i].FileName;
          try
            idFTP.Delete(Temp);
            Form1.Memo1.Lines.Add('Success:' + Temp);
          except
            Form1.Memo1.Lines.Add('Failed:' + Temp);
          end;
        end;
    end;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  try
    IdFTP1.Abort;
  except
  end;
  try
    T1.Terminate;
  except
  end;
  try
    T2.Terminate;
  except
  end;
  IdFTP1.Tag := 1;
  if IdFTP1.Connected then
    IdFTP1.Disconnect
  else
    begin
      Button1.Enabled := true;
    end;
end;

procedure TForm1.Edit4Change(Sender: TObject);
var
  Temp : integer;
begin
  try
    Temp := strtoint(Edit4.Text);
    Edit4.Text := inttostr(Temp);
  except
    Edit4.Text := '21';
  end;
end;

function TForm1.GetPrevDir(dir: string): string;
var
  rstr : string;
  last : integer;
begin
  rstr := strrscan(PChar(dir), '/');
  last := length(rstr);
  Result := copy(dir, 1, length(dir) - length(rstr));
  if last = 1 then
    begin
      rstr := strrscan(PChar(Result), '/');
      Result := copy(Result, 1, length(Result) - length(rstr));
    end;
end;

end.

上一页  [1] [2]