Воспроизведение GIF в параллельном потоке

@Ivan215 · Регистрация: 03.07.2014

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

Есть окно, информирующее пользователя о том что идет обработка данных. Поместил на форму GIF-картинку с часами.

Как сделать, чтобы часы шли?

@Ivan215 · 20.11.2015, 23:57 **[ТС]**

Куда воткнуть DoEvents, чтобы через определенный интервал скажем 100 msec шла прорисовка? Пробовал в Timer_Tick - не работает.

@Yury Komar · 21.11.2015, 11:06

Ivan215, вам надо в ссответствии с выполняющимся процессом проишрывать фрэймы или просто чтоб картинка двигалась?
Если просто, то в простой PictureBox.Image присвойте вашу GIF анимашку с часами и все.

Добавлено через 1 минуту
Или может пооще выполняющийся процесс запустить в отдельном потоку чтобы не тормозить основной поток вашей формы? Тогда и анимация будет играться и все что угодно без лагов

@Ivan215 · 21.11.2015, 14:25 **[ТС]**

Если просто, то в простой PictureBox.Image присвойте вашу GIF анимашку с часами и все.

Так картинка уже лежит в PictureBox-е. Во время выполнения процедуры - анимация отсутствует. А мне надо, чтобы картинка анимирировалась ВО ВРЕМЯ процесса.

Или может пооще выполняющийся процесс запустить в отдельном потоку

Вы не могли бы код конкретный предложить?

@Yury Komar · 21.11.2015, 18:56

Ivan215, вы бы для начала свой код выложили, писать с нуля не хочется...
И еще, эти часики - анимированное изображение GIF или просто картинка без анимации?
По-умолчанию GIF проигрывается в PictureBox автоматически... А у вас скорее всего происходит процесс, который очень грузит основной поток и он просто не успевает отрисовывать анимацию вашего GIF файла...
Ответ один, вынесите выполняющийся процес в отдельный поток и тогда анимашка будет работать.

Ссори за флуд, так думаю просто понятнее станет проблема.
Насчет потоков - отдельная тема и здесь на форуме очень много примеров на эту тему. поройтесь.

Памирыч · 21.11.2015, 19:44

Yury Komar верно говорит - лучше использовать потоки.

В следующем примере форма проводит фоновые операции, при этом анимация в PictureBox не прекращается

VB.NET    
        
            
                
                
                
                
            
        
    Скопировано
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
    Dim NewThread As Thread
 
    Sub ForNewThread()
        For I As Integer = 0 To 5
            Thread.Sleep(2000)
            IO.File.WriteAllText(Environment.GetFolderPath(Environment.SpecialFolder.DesktopDirectory) & "" & I & ".txt", I)
        Next
        If PictureBox1.InvokeRequired Then
            PictureBox1.Invoke(New ThreadStart(AddressOf ForPB))
        End If
    End Sub
 
    Sub ForPB()
        PictureBox1.Refresh()
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        NewThread = New Thread(AddressOf ForNewThread)
        NewThread.IsBackground = True
        NewThread.Start()
    End Sub

@Ivan215 · 21.11.2015, 21:40 **[ТС]**

И еще, эти часики - анимированное изображение GIF или просто картинка без анимации?

Простите, Вы читаете проблему или нет? Я же ясно написал

Поместил на форму GIF-картинку с часами.

Если я пишу:

Как сделать, чтобы часы шли?

Наверное понятно, что GIF изображение - анимированное, иначе как часы могут "идти"?

Добавлено через 11 минут
Памирыч, спасибо за труд, но без комментариев Ваш пример недоступен для моего понимания (почти). Я всего три месяца юзаю VB.NET

Что касается моего кода он прост.

Привожу фрагмент процедуры.

VB.NET    
        
    Скопировано
1
2
3
4
5
        Call Shp(True, "Идет загрузка текущей выборки ...")
        
        Call Rd_DataSet_From_XML(DTS_GRD, Fnm, True, False, False)
 
        Call Shp(False)

Текст процедуры:

VB.NET    
        
            
                
                
                
                
            
        
    Скопировано
1
2
3
4
5
6
7
8
9
10
11
12
13
14
    Public Sub Shp(ByRef Vs As Boolean, Optional ByRef Mes As String = "")
         If Vs Then
             Tme.Label1.Text = Mes
 
             Tme.Show()
 
             My.Application.DoEvents()
        Else
            Tme.Hide()
 
            My.Application.DoEvents()
        End If
 
    End Sub

Что касается формы с часами, то на ней всего два элемента управления

Label и PictureBox и все.

Что касается формы с часами, то на ней всего два элемента управления

Label и PictureBox и все.

Добавлено через 3 минуты
Форма Tme - это и есть формочка с часами и сообщением об активном процессе.

Памирыч · 21.11.2015, 22:12

Так, стоп. Обращения к пикчербоксу же не будет?
Если туда все заранее загружено, то его упоминать в коде не нужно

VB.NET    
        
            
                
                
                
                
            
        
    Скопировано
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
    Dim NewThread As Thread
 
    Sub ForNewThread()
        For I As Integer = 0 To 5
            Thread.Sleep(1000)
            IO.File.WriteAllText(Environment.GetFolderPath(Environment.SpecialFolder.DesktopDirectory) & "" & I & ".txt", I)
        Next
        'If PictureBox1.InvokeRequired Then
        '    PictureBox1.Invoke(New ThreadStart(AddressOf ForPB))
        'End If
    End Sub
 
    'Sub ForPB()
    '    PictureBox1.Refresh()
    'End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        NewThread = New Thread(AddressOf ForNewThread)
        NewThread.IsBackground = True
        NewThread.Start()
    End Sub

Я закомментировал строки, которые не нужны.
В строке IO.File.WriteAllText есть пустота, обернутая двумя кавычками. Это форум съел обратный слеш \

Ivan215, не поленитесь, разберите мой код, он прост.
Создается поток, в нем выполняется процедура.
Надо будет передавать много параметров - это тоже решаемо. Но надо иметь хотя бы базовые познания, иначе я пояснить не смогу

Из Вашего кода я понял лишь, что форму вешает Rd_DataSet_From_XML. Вот ее и надо вызвать в потоке.

@Ivan215 · 21.11.2015, 22:26 **[ТС]**

Да нет, Памирыч, ВСЕ НАОБОРОТ.

Rd_DataSet_From_XML - Основная процедура и выполняется в основном потоке. А вот GIF надо анимировать во вспомогательном потоке.

Добавлено через 6 минут
Памирыч, вот переделал, чего в щах не хватает, поскольку GIF по-прежнему не анимируется:

VB.NET    
        
    Скопировано
1
2
3
4
5
        Call Shp2(True, "Идет загрузка текущей выборки ...")
        
        Call Rd_DataSet_From_XML(DTS_GRD, Fnm, True, False, False)
 
        Call Shp2(False)

VB.NET    
        
            
                
                
                
                
            
        
    Скопировано
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
    Public Sub Shp2(ByRef Vs As Boolean, Optional ByRef Mes As String = "")
        If Vs Then
            If Tme.Pic1.InvokeRequired Then
                Tme.Pic1.Invoke(New System.Threading.ThreadStart(AddressOf ForPB))
            End If
        
            Tme.Label1.Text = Mes
 
            Tme.Show()
 
            My.Application.DoEvents()
        Else
            Tme.Hide()
 
            My.Application.DoEvents()
        End If
 
    End Sub

VB.NET    
        
    Скопировано
1
2
3
    Sub ForPB()
        Tme.Pic1.Refresh()
    End Sub

Памирыч · 21.11.2015, 22:54

Ivan215, легких путей не ищете

VB.NET    
        
            
                
                
                
                
            
        
    Скопировано
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
    Sub Work()
        For I As Integer = 0 To 10
            Thread.Sleep(1000)
            IO.File.WriteAllText(Environment.GetFolderPath(Environment.SpecialFolder.DesktopDirectory) & "" & I & ".txt", I)
        Next
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim th As System.Threading.Thread = New Threading.Thread(AddressOf Task_A)
        th.Start()
 
        Work()
    End Sub
 
 
    Public Sub Task_A()
       Application.Run(Form2)
    End Sub

Однако учтите, что основная форма отвечать не будет

@Ivan215 · 21.11.2015, 23:22 **[ТС]**

Да, видать не по уму мне эта проблема. Ну ладно, обойдемся без часиков.

Тема закрыта. Всем спасибо за участие.

@Yury Komar · 22.11.2015, 07:23

Ivan215, вам ведь указали на проблему. Зачем вам анимировать гифку в отдельгом потоке когда проще запустить в отдельном потоке тот метод, который и вешает всю форму основного потока?

Добавлено через 2 минуты
Вот в коде Памирыча есть процедурка, ее заполните своим кодом и примените в своем проекте этот код и все решится.

VB.NET    
        
            
                
                
                
                
            
        
    Скопировано
1
2
3
4
5
6
7
8
9
Sub ForNewThread()
        For I As Integer = 0 To 5
            Thread.Sleep(1000)
            IO.File.WriteAllText(Environment.GetFolderPath(Environment.SpecialFolder.DesktopDirectory) & "" & I & ".txt", I)
        Next
        'If PictureBox1.InvokeRequired Then
        '    PictureBox1.Invoke(New ThreadStart(AddressOf ForPB))
        'End If
    End Sub

@Ivan215 · 22.11.2015, 16:11 **[ТС]**

Зачем вам анимировать гифку в отдельгом потоке когда проще запустить в отдельном потоке тот метод, который и вешает всю форму основного потока

Возвращаюсь к коду:

VB.NET    
        
    Скопировано
1
2
3
4
5
        Call Shp2(True, "Идет загрузка текущей выборки ...")
        
        Call Rd_DataSet_From_XML(DTS_GRD, Fnm, True, False, False)
 
        Call Shp2(False)

Rd_Dataset_From_XML - ресурсоемкая процедура основного функционала программы, во время выполнения которой пользователя желательно проинформировать, что компьютер НЕ ВИСИТ, а РАБОТАЕТ. А формочка с часами - это малюсенький объект, в котором и надо-то всего ничего - анимировать GIF.

А теперь скажите, логично ли основной функционал программы запускать во вспомогательном потоке, а вспомогательный пустяковый сервис (формочка с часиками) - запускать в основном потоке?

Вообщем, учитывая все вышесказанное, можно переформулировать проблему так: Необходимо во вспомогательном потоке запустить процедуру, обеспечивающую анимацию GIF-а в форме, информирующей пользователя о ходе некоего ресурсоемкого процесса. Адрес Gif-a - Tme.Pic1

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

Относительно кода Памирыча

VB.NET    
        
    Скопировано
1
2
3
4
For I As Integer = 0 To 5
            Thread.Sleep(1000)
            IO.File.WriteAllText(Environment.GetFolderPath(Environment.SpecialFolder.DesktopDirectory) & "" & I & ".txt", I)
        Next

Я в упор не пойму что делает этот цикл. И зачем что-то писать на диск. Разъясните если можно.

А самое лучшее готовый код с пояснениями. Думаю что необходимый код - простой и короткий.

@Yury Komar · 23.11.2015, 06:42

Ivan215, памирыч привел пример как повесить основной поток, симитировать вашу проблему и запустить в итоге этот тормоз в отдельном потоке чтобы гифка в основном потоке плавно анимировалась. Это пример...
А то что ресурсоемкую процедуру в другой поток выкинуть - это самое подходящее решение.
Как это сделать - уже приведено в пример и я говорит постом выше.
Не поленитесь и попробуйте, а уже потом вопросы будете задавать.

@Ivan215 · 23.11.2015, 16:06 **[ТС]**

А то что ресурсоемкую процедуру в другой поток выкинуть - это самое подходящее решение.

Ну да, давайте весь функционал программы пустим во вспомогательном потоке, а рефреширование формочки в основном. Я не практикую логику наоборот. Вы уж извините.

Добавлено через 21 минуту
И потом. У меня в программе таких мест - несколько десятков. И что, я каждый раз должен основную процедуру программы пускать во вспомогательном потоке вместо того, чтобы один единственный раз при старте программы запустить рефреширование формы во вспомогательном потоке?

@Yury Komar · 23.11.2015, 16:51

Ivan215, ьаким обоазом вы получите планый и красивый интерфейс не пугающий пользователей своими тормозами. Более того, после выпоонения процедуры, поток выгрузается и памяти и ничего страшного в этом нет...
Многопоточность - не есть плохо... Взять даже саму систему Windows, она вся многопоточная иначе вы бы получили один большой тормоз.!

Добавлено через 3 минуты
Еще одно, в самих ресурсоемких процедурах есть циклы типа Do...Loop и For...Next? Вставьте в тело цикла Application.DoEvents, это может решить вашу проблему, а не вызов её по кнопке...

@Ivan215 · 23.11.2015, 17:04 **[ТС]**

Yury Komar! Мне право немного странно. Скажите, в чем ТРУДНОСТЬ запуска рефреширования формы во вспомогательном потоке? Один раз - при старте программы. Мы в общем-то спорим ни о чем.

Еще одно, в самих ресурсоемких процедурах есть циклы типа Do...Loop и For...Next?

Во многих случаях нет никаких циклов - как например при чтении XML-файла с диска в Dataset, или при операциях с базой данных

@Yury Komar · 23.11.2015, 17:56

Ivan215, хорошо, не станем спорить, это ни к чему не приведет

Я предложил вариант, а использовать его или нет - это ваше право.

Памирыч · 23.11.2015, 19:16

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

в чем ТРУДНОСТЬ запуска рефреширования формы во вспомогательном потоке?

Трудностей нет, я Вам показал, как и это делается (пост 10)
Там в отдельном потоке вызывается только форма с гифкой, все остальные процедуры были и остаются в основном потоке формы, как и просили.
Вы хоть пробуйте то, что Вам пишут.

@Sklifosofsky · 23.11.2015, 20:04

Может грубо, но работает =)
PS. там очень жирная гифка
WindowsApplication27.rar

Новые блоги и статьи Все статьи Все блоги /
Результаты исследования от команды MCM (март 2025 г.) Programma_Boinc 07.04.2025 Результаты исследования от команды MCM (март 2025 г. ) В рамках наших текущих исследований мы продолжаем изучать гены, которые имеют наибольшую вероятность развития рака легких, выявленные в рамках. . .	Рекурсивные типы в Python py-thonny 07.04.2025 Рекурсивные типы - это типы данных, которые определяются через самих себя или в сочетании с другими типами, которые в свою очередь ссылаются на исходный тип. В мире программирования такие структуры. . .	C++26: Объединение и конкатенация последовательностей и диапазонов в std::ranges NullReferenced 07.04.2025 Работа с последовательностями данных – одна из фундаментальных задач, с которой сталкивается каждый разработчик. C++ прошел длинный путь в эволюции средств для манипуляции коллекциями – от. . .	Обмен данными в микросервисной архитектуре ArchitectMsa 06.04.2025 Когда разработчики начинают погружаться в мир микросервисов, они часто сталкиваются с парадоксальным правилом: "два сервиса не должны делить один источник данных". Эта мантра звучит повсюду в. . .	PostgreSQL в Kubernetes: Автоматизация обслуживания с CNPG Mr. Docker 06.04.2025 Администраторы баз данных сталкиваются с целым рядом проблем при обслуживании PostgreSQL в Kubernetes: как обеспечить правильную репликацию данных, как настроить автоматическое переключение при. . .
Async/await в TypeScript run.dev 06.04.2025 Асинхронное программирование — это подход к разработке программного обеспечения, при котором операции выполняются независимо друг от друга. В отличие от синхронного выполнения, где каждая последующая. . .	Многопоточность в C#: Синхронизация потоков UnmanagedCoder 06.04.2025 Многопоточное программирование стало неотъемлемой частью разработки современных приложений на C#. С появлением многоядерных процессоров возможность выполнять несколько задач параллельно значительно. . .	TypeScript: Классы и конструкторы run.dev 06.04.2025 TypeScript, как статически типизированный язык, построенный на основе JavaScript, привнес в веб-разработку новый уровень надежности и структурированности кода. Одним из важнейших элементов этой. . .	Многопоточное программирование: Rust против C++ golander 06.04.2025 C++ существует уже несколько десятилетий и его поддержка параллелизма постепенно наращивалась со временем. Начиная с C++11, язык получил стандартную библиотеку для работы с потоками, а в последующих. . .	std::vector в C++: от основ к оптимизации производительности NullReferenced 05.04.2025 Для многих программистов знакомство с std::vector происходит на ранних этапах изучения языка, но между базовым пониманием и подлинным мастерством лежит огромная дистанция. Контейнер std::vector. . .

@Ivan215 21 / 22 / 10 Регистрация: 03.07.2014 Сообщений: 398

	Воспроизведение GIF в параллельном потоке 20.11.2015, 22:22. Показов 7367. Ответов 91 Метки нет (Все метки) Есть окно, информирующее пользователя о том что идет обработка данных. Поместил на форму GIF-картинку с часами. Как сделать, чтобы часы шли? Миниатюры 0

@Ivan215 21 / 22 / 10 Регистрация: 03.07.2014 Сообщений: 398
	20.11.2015, 23:57 [ТС]
	Куда воткнуть DoEvents, чтобы через определенный интервал скажем 100 msec шла прорисовка? Пробовал в Timer_Tick - не работает. 0

@Yury Komar Модератор 4323 / 3397 / 507 Регистрация: 27.01.2014 Сообщений: 6,197
	21.11.2015, 11:06
	Ivan215, вам надо в ссответствии с выполняющимся процессом проишрывать фрэймы или просто чтоб картинка двигалась? Если просто, то в простой PictureBox.Image присвойте вашу GIF анимашку с часами и все. Добавлено через 1 минуту Или может пооще выполняющийся процесс запустить в отдельном потоку чтобы не тормозить основной поток вашей формы? Тогда и анимация будет играться и все что угодно без лагов 1

@Ivan215 21 / 22 / 10 Регистрация: 03.07.2014 Сообщений: 398
	21.11.2015, 14:25 [ТС]
	Если просто, то в простой PictureBox.Image присвойте вашу GIF анимашку с часами и все. Так картинка уже лежит в PictureBox-е. Во время выполнения процедуры - анимация отсутствует. А мне надо, чтобы картинка анимирировалась ВО ВРЕМЯ процесса. Или может пооще выполняющийся процесс запустить в отдельном потоку Вы не могли бы код конкретный предложить? 0

@Yury Komar Модератор 4323 / 3397 / 507 Регистрация: 27.01.2014 Сообщений: 6,197
	21.11.2015, 18:56
	Ivan215, вы бы для начала свой код выложили, писать с нуля не хочется... И еще, эти часики - анимированное изображение GIF или просто картинка без анимации? По-умолчанию GIF проигрывается в PictureBox автоматически... А у вас скорее всего происходит процесс, который очень грузит основной поток и он просто не успевает отрисовывать анимацию вашего GIF файла... Ответ один, вынесите выполняющийся процес в отдельный поток и тогда анимашка будет работать. Ссори за флуд, так думаю просто понятнее станет проблема. Насчет потоков - отдельная тема и здесь на форуме очень много примеров на эту тему. поройтесь. 1

@Ivan215 21 / 22 / 10 Регистрация: 03.07.2014 Сообщений: 398
	21.11.2015, 23:22 [ТС]
	Да, видать не по уму мне эта проблема. Ну ладно, обойдемся без часиков. Тема закрыта. Всем спасибо за участие. 0

@Yury Komar Модератор 4323 / 3397 / 507 Регистрация: 27.01.2014 Сообщений: 6,197
	23.11.2015, 06:42
	Ivan215, памирыч привел пример как повесить основной поток, симитировать вашу проблему и запустить в итоге этот тормоз в отдельном потоке чтобы гифка в основном потоке плавно анимировалась. Это пример... А то что ресурсоемкую процедуру в другой поток выкинуть - это самое подходящее решение. Как это сделать - уже приведено в пример и я говорит постом выше. Не поленитесь и попробуйте, а уже потом вопросы будете задавать. 1

@Ivan215 21 / 22 / 10 Регистрация: 03.07.2014 Сообщений: 398
	23.11.2015, 16:06 [ТС]
	А то что ресурсоемкую процедуру в другой поток выкинуть - это самое подходящее решение. Ну да, давайте весь функционал программы пустим во вспомогательном потоке, а рефреширование формочки в основном. Я не практикую логику наоборот. Вы уж извините. Добавлено через 21 минуту И потом. У меня в программе таких мест - несколько десятков. И что, я каждый раз должен основную процедуру программы пускать во вспомогательном потоке вместо того, чтобы один единственный раз при старте программы запустить рефреширование формы во вспомогательном потоке? 0

@Yury Komar Модератор 4323 / 3397 / 507 Регистрация: 27.01.2014 Сообщений: 6,197
	23.11.2015, 16:51
	Ivan215, ьаким обоазом вы получите планый и красивый интерфейс не пугающий пользователей своими тормозами. Более того, после выпоонения процедуры, поток выгрузается и памяти и ничего страшного в этом нет... Многопоточность - не есть плохо... Взять даже саму систему Windows, она вся многопоточная иначе вы бы получили один большой тормоз.! Добавлено через 3 минуты Еще одно, в самих ресурсоемких процедурах есть циклы типа Do...Loop и For...Next? Вставьте в тело цикла Application.DoEvents, это может решить вашу проблему, а не вызов её по кнопке... 1

@Ivan215 21 / 22 / 10 Регистрация: 03.07.2014 Сообщений: 398
	23.11.2015, 17:04 [ТС]
	Yury Komar! Мне право немного странно. Скажите, в чем ТРУДНОСТЬ запуска рефреширования формы во вспомогательном потоке? Один раз - при старте программы. Мы в общем-то спорим ни о чем. Еще одно, в самих ресурсоемких процедурах есть циклы типа Do...Loop и For...Next? Во многих случаях нет никаких циклов - как например при чтении XML-файла с диска в Dataset, или при операциях с базой данных 0

@Yury Komar Модератор 4323 / 3397 / 507 Регистрация: 27.01.2014 Сообщений: 6,197
	23.11.2015, 17:56
	Ivan215, хорошо, не станем спорить, это ни к чему не приведет Я предложил вариант, а использовать его или нет - это ваше право. 0

Памирыч Почетный модератор 23246 / 9158 / 1084 Регистрация: 11.04.2010 Сообщений: 11,014
	23.11.2015, 19:16
	Сообщение от Ivan215 в чем ТРУДНОСТЬ запуска рефреширования формы во вспомогательном потоке? Трудностей нет, я Вам показал, как и это делается (пост 10) Там в отдельном потоке вызывается только форма с гифкой, все остальные процедуры были и остаются в основном потоке формы, как и просили. Вы хоть пробуйте то, что Вам пишут. 2

@Sklifosofsky 1082 / 912 / 213 Регистрация: 29.09.2015 Сообщений: 1,015
	23.11.2015, 20:04
	Может грубо, но работает =) PS. там очень жирная гифка WindowsApplication27.rar 1

Воспроизведение GIF в параллельном потоке

Решение