|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Конвертация JPG на SID
У меня программа конвертирует Jpg на Сид. но она по одному файлу делает. А я хочу сразу одним указанием каталога перекодировать все файлы. Если знаете покажите как перекодировать один файл а дальше я сам. Помогите пож-та. Заранее спасибо.
|
#2
|
||||
|
||||
Цитата:
|
#3
|
||||
|
||||
Цитата:
Код:
procedure TForm1.Fnd(ds: String); // ds - путь до папки с картинками, например 'c:\Фото\' var SR: TSearchRec; b : integer; vr: string; begin b:= FindFirst(ds + '*.*', faAnyFile, SR); while b = 0 do begin if ((SR.Attr and faDirectory) = faDirectory) and ((SR.Name = '.') or (SR.Name = '..')) then begin b:= FindNext(SR); Continue; end; if CheckBox1.Checked then // искать, включая подкаталоги, на форму нужно добавить checkbox. begin if ((SR.Attr and faDirectory) = faDirectory) then begin Fnd(ds + SR.Name + '\'); b:=FindNext(SR); Continue; end; end; if not CheckBox1.Checked then begin if ((SR.Attr and faDirectory) = faDirectory) then begin b:= FindNext(SR); Continue; end; end; vr:='.jpg'; // расширение файлов для поиска // if vr='.*' then vr:=''; if copy(sr.Name,length(sr.name) - length(vr) + 1, length(vr)) = vr then begin begin // ConvertJPGtoSID(ds + SR.Name); // Здесь что угодно делаем с нужным файлом end; if Application.Terminated then Break; Application.ProcessMessages; b:= FindNext(SR); end; FindClose(SR); end; Я не понял Вашего вопроса, но всё же Вам на него отвечу! |