Timer (API)

[-=TsA=-]

Написал программу с использованием API Timer
В Desing режиме работает нормально а после сборки EXE
при запуске вываливается сообщение:

*Инструкция по адресу '0x660cc26f' обратилась к памяти по адресу '0x0000009c'. Память не может быть 'written'.*
'OK' -- завершение приложения
'Отмена' -- отладка приложения

Где здесь собака порылась?
(VB6 SP5, WinXP SP1)

[alibek]

Код инициализации таймера в студию

[-=TsA=-]

hQueue = CreateTimerQueue()
CreateTimerQueueTimer hTimer, hQueue, AddressOf tmHide, ByVal 0&, 0, 1000, WT_EXECUTEONLYONCE

tmHide - процедура в модуле

[GSerg]

Сигнатуру tmHide в студию.

[-=TsA=-]

Public Sub tmHide(ByVal lpParameter As Long, ByVal TimerOrWaitFired As Long)
Call Frame.HideFrame
End Sub

Frame - это форма откуда таймер создается

Ну и Frame.HideFrame заодно:

Public Function HideFrame()
Dim N As Long
DeleteTimerQueueTimer hQueue, hTimer, ByVal 0&
SetWindowPos Me.hWnd, SWP_HIDEWINDOW, 0, 0, 0, 0, SWP_NOACTIVATE
N = Int(Rnd * I)
Word.Caption = Trim$(Dict(N))
x = Int((W - Word.Width - 50 + 1) * Rnd + 50)
y = Int((H - Word.Height - 50 + 1) * Rnd + 50)
End Function

[GSerg]

Имхо, дело в потоковой небезопасности класса Form.
Так что, действительно, будет работать под IDE

[-=TsA=-]

И что же делать?

[GSerg]

Либо обломиться, либо переводить в потокобезопасную форму.
Например, вместо прямого вызова метода формы делать ей postmessage, а уже в форме сабклассингом вылавливать и реагировать.

[tyomitch]

BTW, некоторым больше нравится слать сообщение BM_CLICK невидимой кнопке, чем возиться с сабклассингом. Может быть, TsA так будет проще.

[-=TsA=-]

Извините за назойливость, а примерчик можно?

[GSerg]

Хм...
hWnd - тоже проперть, и тоже потоконебезопасная. Поэтому...
[under construction... wait a minute...]

[GSerg]

Воспользуемся, действительно, предложением Тёмыча

На искомой форме заводим невидимую кнопку cmdSubclass. В обработчике cmdSubclass_Click пишем всю ту ботву, которая в данный момент находится в процедуре HideForm. Саму HideForm стираем нафиг.
Команда создания таймера должна выглядеть так:

Код: Выделить всё

CreateTimerQueueTimer hTimer, hQueue, AddressOf tmHide, ByVal Frame.cmdSubclass.hWnd, 0, 1000, WT_EXECUTEONLYONCE

А код tmHide, соответственно, так:

Код: Выделить всё

PostMessage lParameter, BN_CLICK, 0, ByVal 0&

По идее, это должно работать.
hWnd мы передаём через lParam потому, что это тоже проперть объекта, а значит она тоже потоконебезопасна. А так это число будет запомнено таймером, и при его отсыле объект затрагиваться не будет.

ЗЫ: не проверял

[-=TsA=-]

Ща проверим

[GSerg]

Ну так и чё?