Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi: Сети
Войти
Регистрация
Восстановить пароль
 
саша40
-47 / 290 / 47
Регистрация: 14.08.2012
Сообщений: 2,565
1

idFTP, проверка наличие папок и работа

26.05.2013, 21:51. Просмотров 1102. Ответов 0
Метки нет (Все метки)

Работаю с idFTP. Пытаюсь проверить наличие деректории(по названию) в открытой, пока написал это:
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
var
DeleteAccount: array [1..MAX_PATH] of String;
T: string;
f1: TextFile;
sp,s: TStringList;
I: integer;
r: integer;
begin
idFTP1.Host:='****';
idFTP1.UserName:='***';
idFTP1.Password:='****';
idFTP1.Connect();
if not idFTP1.Connected then
begin
ShowMessage('Не удалось соеденится с сервером');
exit;
end;
if FileExists(Path + '\' + Login + '\Контакты.ini') then
begin
sp:= TStringList.Create;
s:= TStringList.Create;
s.Text:=Logins.Text;
AssignFile(f1,Path + '\' + Login + '\Контакты.ini');
Rewrite(f1);
try
read(f1,T);
Logins.Add(T);
finally
closefile(f1);
end;
if Logins.Count=0 then exit;
s.Text:=Logins.Text;
idFTP1.ChangeDir('/Users/');
idFTP1.List(sp);
Application.ProcessMessages;
for i:=1 To sp.Count Do
begin
if s.Strings[i]=sp.Strings[i] then
s.Delete(i); 
Application.ProcessMessages;
end;
if s.Count > 0 then
begin
for i:=1 To s.Count Do
begin
DeleteAccount[i]:=s.strings[i];
S.Delete(i);
Application.ProcessMessages;
end;
FreeAndNil(s);
FreAndNil(sp);
for i:=1 To sizeof(DeleteAccount) Do
begin
for r:=1 To Logins.Count Do
begin
if Logins.Strings[r]=DeleteAccount[i] then Logins.Delete(i);
Application.ProcessMessages;
end;
T:=T + ',' + DeleteAccount[i];
Application.ProcessMessages;
end;
ShowMessage('Конкты: ' + T + '. Были удалены из системы.');
end;
for i:=1 To Logins.Count Do
ComboBox1.Items.Add(Logins.Strings[i]);
 
for i:=1 To Logins.Count Do
begin
//работаем дальше
idFTP1.ChangeDir(Logins.Strings[i]);
...//пока думаю
Application.ProcessMessages;
end;
end;
Проблема в том, что в открытой папке может содержатся несколько сот тысяч папок и только их получение в список займет более 2 минут. Вопрос: Есть ли в компонента процедура, которая позволяет проверить по название наличие(и только) деректории на сервере?
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
26.05.2013, 21:51
Ответы с готовыми решениями:

Проверка папок на сервере
Приветствую. Есть такая задача. В конторе есть человек, который принимает всю...

Проверка наличие папки на сервере
Привет. Работаю с IdFTP. Нужно проверить наличие папки на сервере с помощью...

Проверка файла на наличие идентификатора
Здравствуйте. Помогите, пожалуйста. Задание состоит в том, что требуется...

Проверка пользователей на наличие онлайна
Подскажите пожалуйста, что именно нужно делать, чтобы программа проверяла...

Vk Api проверка на наличие новых сообщений
Какой запрос нужен для того, чтобы узнать, есть ли непрочитаные сообщения?

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
26.05.2013, 21:51

Проверка на наличие подключения по локальной сети
Доброе время суток! Подскажите пожалуйста, как сделать проверку на наличие...

IdFTP + ProgressBar
Здравствуйте, помогите сделать чтобы при закачке файлов с FTP сервера, в...

Повреждение файлов IDFTP
Здравствуйте, столкнулся с проблемой потери данных при скачивании файлов...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
1
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru