Форум программистов, компьютерный форум, киберфорум
Наши страницы

Delphi

Войти
Регистрация
Восстановить пароль
 
 
antuanidze
0 / 0 / 0
Регистрация: 31.01.2016
Сообщений: 20
#1

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

26.04.2017, 19:06. Просмотров 597. Ответов 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):

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

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

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

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

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

Что в программе означает #13, #11, #31 - Delphi
Что в программе означает #13, #11, #31? #13 я так понял это энтер, а что остальные значат Еще #9 и #32

23
antuanidze
0 / 0 / 0
Регистрация: 31.01.2016
Сообщений: 20
04.05.2017, 17:37  [ТС] #16
Цитата Сообщение от Пытливый Посмотреть сообщение
Указываете в uses и все.
Я указывал, но я читал про это, эта функция появилась в делфи 2010, а у меня 2009

Добавлено через 16 секунд
Извините за долгое отсутствие, работы много было.

Добавлено через 1 минуту
Цитата Сообщение от Пытливый Посмотреть сообщение
Потом можно уже получить массив имен файлов например так:
Мне не надо имена файлов, мне надо просто узнать, есть ли там фото или нет и все!
0
Пытливый
1317 / 633 / 150
Регистрация: 29.05.2013
Сообщений: 2,733
04.05.2017, 19:18 #17
Просто узнать есть ли там фото - это из области "сделайте мне красиво" и это никакого отношение к программированию не имеет.
Ничего просто так не бывает, выглядеть может просто, но реализация может взорвать мозг.
В вашем случае необходимо получить имя файла, определится является ли он фото. Не загружая и не анализируя его содержимое, узнать это можно только по его расширению. Графических форматов огромное количество, для каждого авторы придумали свое расширение, поэтому берем только самые популярные. Вот так вот все просто
1
antuanidze
0 / 0 / 0
Регистрация: 31.01.2016
Сообщений: 20
04.05.2017, 20:20  [ТС] #18
Цитата Сообщение от Пытливый Посмотреть сообщение
получить имя файла, определится является ли он фото
Это по моему должно сработать)) Спасибо за совет буду пробовать!

Добавлено через 26 минут
Цитата Сообщение от antuanidze Посмотреть сообщение
получить имя файла, определится является ли он фото
Пробовал посмотреть как это можно реализовать, нашел только функцию FindFirst. К сожалению именно из-за этого я и создал эту тему, так как функция блокирует папку.
0
DenNik
Непрофессионал
1579 / 1112 / 174
Регистрация: 26.07.2011
Сообщений: 6,757
11.05.2017, 15:14 #19
Цитата Сообщение от antuanidze Посмотреть сообщение
так как функция блокирует папку.
FindFirst идет в паре с FindClose, а между ними находится FindNext. возможно FindClose как раз и разблокирует папку. я не проверял
0
D1973
11.05.2017, 16:27
  #20

Не по теме:

DenNik, что-то у Вас с коннектом... постоянное задвоения постов! Не в укор, просто факт констатирую...

0
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
Модератор
2721 / 1938 / 755
Регистрация: 21.01.2014
Сообщений: 7,641
Записей в блоге: 3
Завершенные тесты: 1
12.05.2017, 06:53 #23

Не по теме:

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



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

Не по теме:

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

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

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

Что-то мешает завершению работы - Windows 8, 8.1
Windows не может завершить работу, появляется предупреждение: Task Host Windows Сервер задач останавливает фоновые задачи. Куда копать?

Доступ из интернета: что мешает? - Web-серверы
Столкнулся с довольно типичной проблемой: не получается подключиться к серверу извне, причем ICMP-сообщения доходят до сервера (смотрел в...

Fotter и два блока. Что мешает ? - HTML, CSS
Не пойму по какой причине страница увеличивается в длину, а блоки и футер при изменении параметров разметки сбиваются в худшую сторону. ...


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

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

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