Форум: "Media";
Текущий архив: 2004.10.10;
Скачать: [xml.tar.bz2];

Вниз

Последовательный просмотр картинок   Найти похожие ветки 

← →
Popovich A.   (2004-07-20 15:28) [0]

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

---

← →
Красный молоток   (2004-07-20 15:30) [1]

Составь список всех *.jpg файлов в нужной директории и показывай по таймеру

---

← →
Satan ©   (2004-07-20 15:46) [2]

var
f: TSearchRec;
x: integer;
begin
 x:=FindFirst(fldr+"\*.jpg",FaAnyFile,f); // fldr - директория с файлами *.jpg
 while(x=0) do
 begin
   // f.Name - имя файла
   x:=findnext(f);
 end;
 findclose(f);
end;

---

Страницы: 1 вся ветка

Форум: "Media";
Текущий архив: 2004.10.10;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.033 c