Просмотр картинки по таймеру

@neo7777777 · Регистрация: 02.11.2011

Студворк — интернет-сервис помощи студентам

При нажатии на кнопку BitBtn1 включается таймер Timer1, который синхронизирует отображение файлов в формате jpg на экран, используя компонент Image1, по следующему правилу: первое изображение выводится на экран через 1 сек после включения таймера Timer1, второе - через 2 сек , третье - через 3 сек, четвёртое - через 4 сек, пятое - через 5 сек. Затем цикл повторяется. Таким образом, на экране дисплея в компоненте Image1 должна происходить смена изображений, что позволит, например, реализовать автоматическую презентацию;
При нажатии на кнопку BitBtn2 выключается таймер Timer1.

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

@Samrisbe · 02.11.2011, 21:09

Покажи что ты сделал сам а мы посмотрим что можно придумать. А так пальцем в небо тыкать не хочется.

@QVO · 02.11.2011, 21:11

neo7777777, объяви переменную

C++
1
int iStep;

в Timer1 напиши:

C++
1
2
3
4
5
6
7
8
iStep++;
if(iStep == 5)iStep = 0;
if(iStep == 1)Timer1->Interval = 1000;
if(iStep == 2)Timer1->Interval = 2000;
if(iStep == 3)Timer1->Interval = 3000;
if(iStep == 4)Timer1->Interval = 4000;
if(iStep == 5)Timer1->Interval = 5000;
// тут код показа картинок

@NiTan · 02.11.2011, 22:08

А может просто вот так:

C++
1
2
3
iStep++;
if(iStep == 5)iStep = 1;
Timer1->Interval = iStep*1000;

@neo7777777 · 02.11.2011, 22:59 **[ТС]**

На кнопке "Старт" я прописал

C++
1
2
3
4
void __fastcall TForm1::BitBtn1Click(TObject *Sender)
{
Timer1->Enabled =  false;
}

На кнопке "Стоп" я прописал

C++
1
2
3
4
void __fastcall TForm1::BitBtn2Click(TObject *Sender)
{
Timer1->Enabled =  true ;
}

На таймере я прописал

C++
1
2
3
iStep++;
if(iStep == 5)iStep = 1;
Timer1->Interval = iStep*1000;

а что тогда в Image нужно прописывать что бы отображались картинки

cpp_developer · 02.11.2011, 23:29

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
TSringList *im_list;
im_list = new TSringList;
im_list->Add("1.bmp");
im_list->Add("2.bmp");
im_list->Add("3.bmp");
im_list->Add("4.bmp");
im_list->Add("5.bmp");
 
for (int i=0;i<im_list->Count+1;i++) {
  iStep++;  
  Timer1->Interval = iStep*1000;
  Image1->Picture->LoadFromFile(im_list->Strings[i]);
}
if(iStep == 5)iStep = 1;

@neo7777777 · 02.11.2011, 23:40 **[ТС]**

Что то я не могу понять это нужно прописать в само тело программы или в сам компонент Image1
Выкладываю то что есть

cpp_developer · 02.11.2011, 23:49

Сообщение от neo7777777

При нажатии на кнопку BitBtn1...

мы это обговариваем, ли что ?

@neo7777777 · 03.11.2011, 00:05 **[ТС]**

У меня теперь выводит ошибки

[C++ Error] Unit1.cpp(21): E2451 Undefined symbol 'TSringList'
[C++ Error] Unit1.cpp(21): E2451 Undefined symbol 'im_list'
[C++ Error] Unit1.cpp(22): E2303 Type name expected
[C++ Error] Unit1.cpp(22): E2379 Statement missing ;
[C++ Error] Unit1.cpp(32): E2451 Undefined symbol 'Image1'

@QVO · 03.11.2011, 00:19

neo7777777, а вы ручками пробуйте

C++
1
2
3
4
5
6
7
8
9
10
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
  iStep++;
  Timer1->Interval = iStep*1000;
  Image1->Picture->LoadFromFile(String(iStep)+".jpg");
if(iStep >= 5)iStep = 1;
}
//---------------------------------------------------------------------------

Смотрите вложение

cpp_developer · 03.11.2011, 00:27

да, здесь моя ошибка:

StringList

, относительно Image1 - это ваше:

Сообщение от neo7777777

используя компонент Image1

, и мне неведомо, куда вы что и как вставили

.

@neo7777777 · 03.11.2011, 00:29 **[ТС]**

я просто так понял что в компоненте bitbtn1 должно быть прописано

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
int iStep;
StringList *im_list;
im_list = new TSringList;
im_list->Add("1.jpg");
im_list->Add("2.jpg");
im_list->Add("3.jpg");
im_list->Add("4.jpg");
im_list->Add("5.jpg");
 
for (int i=0;i<im_list->Count+1;i++) {
  iStep++;  
  Timer1->Interval = iStep*1000;
  Image1->Picture->LoadFromFile(im_list->Strings[i]);
}
if(iStep == 5)iStep = 1;

в компоненте Timer1

C++
1
2
3
4
5
6
7
iStep++;
if(iStep == 5)iStep = 0;
if(iStep == 1)Timer1->Interval = 1000;
if(iStep == 2)Timer1->Interval = 2000;
if(iStep == 3)Timer1->Interval = 3000;
if(iStep == 4)Timer1->Interval = 4000;
if(iStep == 5)Timer1->Interval = 5000;

в компоненте Bitbtn2 прописать

C++
1
Timer1->Enabled =  true;

Правильно?
а что означает *im_list?

cpp_developer · 03.11.2011, 00:31

Сообщение от QVO

1. ...а вы ручками пробуйте

2.

C++
1
  Image1->Picture->LoadFromFile(String(iStep)+".jpg");

2. не путайте ТС - "1.bmp" - это моя отсебятина, может, у него картинки по другому называются, тогда

C++
1
[B]String(iStep)+".jpg"[/B]

не сработает и будут обиды

1. это правильно.

@QVO · 03.11.2011, 00:33

LK, я такой архив с этой темы скачал

@neo7777777 · 03.11.2011, 00:36 **[ТС]**

QVO, я закинул картинки для пробы

cpp_developer · 03.11.2011, 00:36

Сообщение от QVO

LK, я такой архив с этой темы скачал

тогда все в порядке , мои извинения

. Но лучше переесть, чем недоспать

.

@neo7777777 · 03.11.2011, 00:42 **[ТС]**

Я понял что к чему
Хочу узнать последнее что означает ошибка

[Linker Fatal Error] Fatal: Unable to open file 'ACNTBCB6_R.BPI'

нет файла где его взять?

@QVO · 03.11.2011, 00:51

neo7777777, почитайте Культин - Самоучитель. Там есть такой пример:

Листинг 3.2. Просмотр иллюстраций

C++
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
#include <jpeg.hpp> // обеспечивает работу с JPEG-иллюстрациями
#include <FileCtrl .hpp> // для доступа к функции SelectDirectory
 
AnsiString aPath; // каталог, в котором находится иллюстрация
TSearchRec aSearchRec; // результат поиска файла
 
void _ fastcall TForml: : FormCreate (TObject *Sender)
{
aPath = ""; // текущий каталог — каталог, из которого
// запущена программа
Imagel->AutoSize = false;
Imagel->Proportional = true;
Button2->Enabled = false;
FirstPicture () ; // показать картинку, которая
// есть в каталоге программы
}
// щелчок на кнопке Каталог
 
void _ fastcall TForml: :Button1Click (TObject ^Sender)
{
if (SelectDirectory (
"Выберите каталог, в котором находятся иллюстрации",
"",aPath) != 0)
{
// пользователь выбрал каталог и щелкнул на кнопке ОК
aPath = aPath + "\\";
FirstPicture ( ) ; // вывести иллюстрацию
}
}
// найти и вывести первую картинку
void TForml : : FirstPicture ( )
{
Imagel->Visible = false; // скрыть компонент Imagel
Button2->Enabled = false; // кнопка Дальше недоступна
Labell->Caption = "";
if ( FindFirst (aPath+ "*.jpg", faAnyFile, aSearchRec) == 0)
{
Imagel->Picture->LoadFromFile(aPath+aSearchRec.Name);
Imagel->Visible = true;
Labell->Caption = aSearchRec.Name;
if ( FindNext(aSearchRec) ==0) // найти след, иллюстрацию
{
// иллюстрация есть
Button2->Enabled = true; // теперь кнопка Дальше доступна
}
}
}
// щелчок на кнопке Дальше
void _ fastcall TForrol: :Button2Click (TObject *Sender)
{
Imagel->Picture->LoadFromFile (aPath+aSearchRec.Name) ;
Labell->Caption = aSearchRec.Name;
if ( FindNext (aSearchRec) != 0) // найти след, иллюстрацию
{
// иллюстраций больше нет
Button2->Enabled = false; // теперь кнопка Дальше недоступна
}
}

Загрузку и вывод первой и остальных иллюстраций выполняют соответст-
венно функции FirstPicture И NextPicture.
Функция FirstPicture вызывает функцию FindFirst для того, чтобы полу-
чить имя файла первой иллюстрации. В качестве параметров функции
FindFirst передаются:
П имя каталога, в котором должны находиться иллюстрации;
П структура aSearchRec, поле Name которой, в случае успеха, будет содер-
жать имя файла, удовлетворяющего критерию поиска;
П маска файла иллюстрации.
Если в указанном при вызове функции FindFirst каталоге есть хотя бы
один файл с указанным расширением, то значение функции будет равно
нулю. В этом случае метод LoadFromFiie загружает файл иллюстрации. По-
сле загрузки первой иллюстрации функция FirstPicture вызывает функцию
FindNext для поиска следующего файла иллюстрации. Если файл будет най-
ден, то кнопка Дальше будет сделана доступной.
Функция обработки события Onclick на кнопке Дальше загружает следую-
щую иллюстрацию, имя файла которой было найдено функцией FindNext
в процессе обработки предыдущего щелчка на кнопке Дальше, и снова вызывает функцию FindNext для поиска следующей иллюстрации. Если файл
иллюстрации не будет найден, то кнопка Дальше станет недоступной.
Необходимо обратить внимание на следующее. Для того чтобы иллюстра-
ции отображались без искажения, свойству Autosize компонента imagei на-
до присвоить значение false, а свойству Proportional — значение true.
Сделать это можно во время создания формы в среде разработки (устано-
вить значения свойств в окне Object Inspector) или возложить задачу на-
стройки компонента на саму программу. В последнем случае в функцию
обработки события OnCreate ДЛЯ формы (TForml: : FormCreate) НЗДО Добавить
следующие инструкции:

C++
1
2
Imagel->AutoSize = false;
Imagel->Proportional = true;

Кроме того, во время создания формы свойству Enabled кнопки Дальше
(Button2) надо присвоить значение false. Это обеспечит корректную работу
программы в том случае, если в каталоге, из которого запускается про-
грамма, нет иллюстраций. Настройку кнопки Button2 можно возложить на
ФУНКЦИЮ TForml: : FormCreate. ДЛЯ ЭТОГО В фунКЦИЮ НЗДО ДобаВИТЬ ОПС-
ратор

C++
1
Button2->Enabled = false;

Добавлено через 2 минуты

Сообщение от neo7777777

Я понял что к чему
Хочу узнать последнее что означает ошибка

нет файла где его взять?

Не используйте мой проэкт

Соберите сами.

Не по теме:

Или как вариант откройте *.bpr файл и удалите слово: ACNTBCB6_R.BPI

cpp_developer · 03.11.2011, 00:56

это к разработчикам AlphaControls , я так понимаю

, но, судя по всему, вы не указали расположение папки с файлами Альфы для Билдера в настройках самого Билдера : IncludePath, LibraryPath.

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:	Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .	Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .	Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .
Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .	SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .	SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .

@neo7777777 0 / 0 / 0 Регистрация: 02.11.2011 Сообщений: 16

	Просмотр картинки по таймеру 02.11.2011, 20:52. Показов 7020. Ответов 18 Метки нет (Все метки) При нажатии на кнопку BitBtn1 включается таймер Timer1, который синхронизирует отображение файлов в формате jpg на экран, используя компонент Image1, по следующему правилу: первое изображение выводится на экран через 1 сек после включения таймера Timer1, второе - через 2 сек , третье - через 3 сек, четвёртое - через 4 сек, пятое - через 5 сек. Затем цикл повторяется. Таким образом, на экране дисплея в компоненте Image1 должна происходить смена изображений, что позволит, например, реализовать автоматическую презентацию; При нажатии на кнопку BitBtn2 выключается таймер Timer1. Не могу разобраться с timer что бы он выводил изображения пожалуйста помогите. Буду благодарен 0

@Samrisbe 1365 / 732 / 67 Регистрация: 28.01.2011 Сообщений: 2,069
	02.11.2011, 21:09
	Покажи что ты сделал сам а мы посмотрим что можно придумать. А так пальцем в небо тыкать не хочется. 0

@QVO 652 / 462 / 80 Регистрация: 26.10.2010 Сообщений: 1,263 Записей в блоге: 4
	03.11.2011, 00:33
	LK, я такой архив с этой темы скачал Миниатюры 0

@neo7777777 0 / 0 / 0 Регистрация: 02.11.2011 Сообщений: 16
	03.11.2011, 00:36 [ТС]
	QVO, я закинул картинки для пробы 0

cpp_developer 20124 / 5691 / 417 Регистрация: 09.04.2010 Сообщений: 22,546 Записей в блоге: 1
	03.11.2011, 00:56
	это к разработчикам AlphaControls , я так понимаю , но, судя по всему, вы не указали расположение папки с файлами Альфы для Билдера в настройках самого Билдера : IncludePath, LibraryPath. 0