Глюки при долгой работе

Программирование на Visual Basic, главный форум. Обсуждение тем программирования на VB 1—6.
Даже если вы плохо разбираетесь в VB и программировании вообще — тут вам помогут. В разумных пределах, конечно.
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
SINED
Начинающий
Начинающий
 
Сообщения: 14
Зарегистрирован: 09.12.2004 (Чт) 0:19

Глюки при долгой работе

Сообщение SINED » 30.05.2005 (Пн) 15:54

Друзья! После долгой работы программы, в которой происходит загрузка картинок, постоянное их перемещение, работа с таймерами, программа начинает глючить... Может есть какая-нибудь команда для очистки памяти или что-то в этом роде?

kif
Постоялец
Постоялец
 
Сообщения: 736
Зарегистрирован: 10.12.2001 (Пн) 18:06
Откуда: Украина, Одесса

Сообщение kif » 30.05.2005 (Пн) 15:57

не знаю, что у тебя за работа с картинками. Я сталкивался с тем что классы или ocx для сохранения в jpg не освобождают память и через некоторое время программа занимает больше сотни метров. Проследи этот вариант.
Братья и сестры, что вы делаете???
Ведь вы же братья и сестры.

SINED
Начинающий
Начинающий
 
Сообщения: 14
Зарегистрирован: 09.12.2004 (Чт) 0:19

Сообщение SINED » 30.05.2005 (Пн) 16:10

kif писал(а):не знаю, что у тебя за работа с картинками. Я сталкивался с тем что классы или ocx для сохранения в jpg не освобождают память и через некоторое время программа занимает больше сотни метров. Проследи этот вариант.

ВО! Там у меня скорее всего они и рушат мне все...

А они только с JPEG так работают? Или вообще с любыми форматами изображений?

kif
Постоялец
Постоялец
 
Сообщения: 736
Зарегистрирован: 10.12.2001 (Пн) 18:06
Откуда: Украина, Одесса

Сообщение kif » 30.05.2005 (Пн) 16:14

за savepicture я такого не замечал, а в jpg они же в основном самопальные (кто как мог так и написал)
Братья и сестры, что вы делаете???
Ведь вы же братья и сестры.

kif
Постоялец
Постоялец
 
Сообщения: 736
Зарегистрирован: 10.12.2001 (Пн) 18:06
Откуда: Украина, Одесса

Сообщение kif » 30.05.2005 (Пн) 16:18

Вот эта фенкция не жрет память. (Проверено, использовал для сохранения изображения с web-камеры 25 каюров в секунду - без проблем)
Вложения
Picture2JPG.rar
(1.04 Кб) Скачиваний: 27
Братья и сестры, что вы делаете???
Ведь вы же братья и сестры.

SINED
Начинающий
Начинающий
 
Сообщения: 14
Зарегистрирован: 09.12.2004 (Чт) 0:19

Сообщение SINED » 30.05.2005 (Пн) 17:02

kif писал(а):за savepicture я такого не замечал, а в jpg они же в основном самопальные (кто как мог так и написал)

А не подскажешь кнопку какую-нибудь, которая лишена такой проблемы? Т.е. чтобы можно было натянуть на нее три картинки: обычный вид, при наведенной мыши и нажатая кнопка, но работала чтобы стабильно и не глючила вот так вот :( Я сейчас использовал CoolButton.

tyomitch
Пользователь #1352
Пользователь #1352
Аватара пользователя
 
Сообщения: 12822
Зарегистрирован: 20.10.2002 (Вс) 17:02
Откуда: חיפה

Сообщение tyomitch » 30.05.2005 (Пн) 17:45

SINED, на vbrussian.com в разделе "Контролы" таких кнопок навалом...
Изображение

SINED
Начинающий
Начинающий
 
Сообщения: 14
Зарегистрирован: 09.12.2004 (Чт) 0:19

Сообщение SINED » 30.05.2005 (Пн) 17:55

tyomitch писал(а):SINED, на vbrussian.com в разделе "Контролы" таких кнопок навалом...

И не глючат при долгом использовании?

tyomitch
Пользователь #1352
Пользователь #1352
Аватара пользователя
 
Сообщения: 12822
Зарегистрирован: 20.10.2002 (Вс) 17:02
Откуда: חיפה

Сообщение tyomitch » 30.05.2005 (Пн) 18:38

Ну проверь - я же не проверял все...
Если выложишь на форуме результаты проверки, уверен - все тебе будут неописуемо благодарны.
Изображение

kif
Постоялец
Постоялец
 
Сообщения: 736
Зарегистрирован: 10.12.2001 (Пн) 18:06
Откуда: Украина, Одесса

Сообщение kif » 31.05.2005 (Вт) 8:32

Вот я написал:
Код: Выделить всё
Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  Command1.Picture = ImageList1.ListImages(3).Picture
End Sub

Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  Command1.Picture = ImageList1.ListImages(2).Picture
End Sub

Private Sub Command1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
  Command1.Picture = ImageList1.ListImages(2).Picture
End Sub

Private Sub Form_Load()
Command1.Picture = ImageList1.ListImages(1).Picture
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  Command1.Picture = ImageList1.ListImages(1).Picture
End Sub


все нормально работает, не пойму что у тебя глючит.
Братья и сестры, что вы делаете???
Ведь вы же братья и сестры.


Вернуться в Visual Basic 1–6

Кто сейчас на конференции

Сейчас этот форум просматривают: Google-бот и гости: 147

    TopList