Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi
Войти
Регистрация
Восстановить пароль
 
 
Рейтинг 5.00/4: Рейтинг темы: голосов - 4, средняя оценка - 5.00
antuanidze
0 / 0 / 0
Регистрация: 31.01.2016
Сообщений: 20
#1

Что мешает программе?

26.04.2017, 19:06. Просмотров 639. Ответов 23
Метки нет (Все метки)

Здравствуйте, ув. форумчане, уж не судите за корявость и неорганизованность кода, как говориться как могу)). Но суть не в этом, хочу сделать программу которая сканирует папки, смотрит в которой есть фото и в последствии конвертирует их(уменьшает размер) и в конце концов создает архив с этими фото. Все работает на ура кроме одного, в конце не меняет имя папки(сразу скажу что это надо для того что бы архиватор мог увидеть папку, так как в ней могут быть символы не для командной строки), говорит что она занята процессом. Почему делаю поиск а не FiliExists, потому что с ним не получается по маске это делать. Вроде освобождаю его(поиск в смысле) но все равно ругается на процесс. Подскажите пожалуйста где ошибка, или что надо поменять. Заранее всем спасибо!
P.S. вот сам код

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
var
i:integer;
SearchRec  :TSearchRec;
begin
for I := 0 to RichEdit1.Lines.Count - 1 do
if FindFirst(RichEdit1.Lines.Strings[i]+'\*.jpg' , faArchive , SearchRec)=0 then begin
WinExecAndWait32(GetEnvironmentVariable('ffactory')+'FormatFactory "All to JPG" "Max Width 1024 Max Height 768"' + ' "' + RichEdit1.Lines.Strings[i] + '\*.jpg"' + extractfilepath(Application.ExeName)+'format'  ,0);
if CheckBox1.Checked then
MoveDir(extractfilepath(Application.ExeName)+'format\All to JPG\*.jpg', RichEdit1.Lines.Strings[i]);
end;
FindClose(SearchRec);
if CheckBox2.Checked then begin
RenameDir(Edit1.Text, GetFilePath(Edit1.Text)+'\new');
WinExecAndWait32('rar a'+' Dashoguz'+DateToStr(date)+'.rar' + ' ' + GetFilePath(Edit1.Text)+'\new'+' save',0);
RenameDir(GetFilePath(Edit1.Text)+'\new', Edit1.Text);
end;
ShowMessage('Задача выполнена');
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
26.04.2017, 19:06
Ответы с готовыми решениями:

Подскаажите что не правильно в программе
Я только начал изучать Delphi и мне захотелось написать такую программу типа...

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

Код SUIPack мешает отладке проги по F7
Хочу провести отладку проги. На форме есть компонент suiForm класса TsuiForm....

Как программно указать в программе что бы вместо 'ascii' ANSI было dBASE RUS cp866
Как программно указать что бы вместо 'ascii' ANSI было dBASE RUS cp866

Апостроф мешает жить!
Доброго времени суток. Проблема следующая: Есть прайс в файле Excel,...

23
DenNik
11.05.2017, 16:45     Что мешает программе?
  #21

Не по теме:

D1973, хз! я уже подозреваю свой Avast Premier 17.4.2294, т.к. заметил, что иногда, когда не получается загрузить вложения в "управлении вложениями" (я об этом писал ранее) - отключение аваста помогает. но иногда и при включенном авасте загружается. с другой стороны, задвоение постов не только у меня происходит

0
antuanidze
0 / 0 / 0
Регистрация: 31.01.2016
Сообщений: 20
11.05.2017, 16:49  [ТС] #22
Цитата Сообщение от DenNik Посмотреть сообщение
возможно FindClose как раз и разблокирует папку. я не проверял
Вы не проверяли, а я проверял! Если вы не заметили то в коде есть это, но к сожалению не помогает!
0
D1973
Модератор
3391 / 2432 / 1199
Регистрация: 21.01.2014
Сообщений: 10,054
Записей в блоге: 3
Завершенные тесты: 1
12.05.2017, 06:53 #23

Не по теме:

DenNik, Avast, скорее всего, в этом не виноват... Сегодня у меня соединение какое-то дрянское, все тянет, как кота за ...хвост, и как следствие, половина постов дублируется...



Добавлено через 1 минуту
Ну вот, пожалуйста, снова...
0
GoodWeather
13.05.2017, 15:25     Что мешает программе?
  #24

Не по теме:

У меня тоже бывает, иногда задваивается, иногда затраивается, но чаще всего оно склеивается в одно сообщение и я успевая сам исправить. Это как правило происходит когда от сервера cyberforum.ru очень долго нет ответа, предполагаю что в моменты когда сайт перегружен.

0
13.05.2017, 15:25
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
13.05.2017, 15:25
Привет! Вот еще темы с ответами:

Что не так в программе
Есть программа, которая находит минимальній еллемент в той строке, сумма...

Что-то в функции мешает запуститься всему <script>. Что же это?
Здравствуйте! Написал такой код: &lt;!DOCTYPE HTML&gt; &lt;html&gt; &lt;head&gt; &lt;meta...

Что-то мешает завершению работы
Windows не может завершить работу, появляется предупреждение: Task Host Windows...


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

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

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