Асинхронное соединение через XMLHTTPRequest

[Antonariy]

В XMLHTTPRequest при асинхронном запросе нужно проверять его readyState пока он не примет значение READYSTATE_COMPLETE (событий в нем не предусмотрено). Мне нужно как-то это сделать в dll, которая не блокировала бы основную программу, а после завершения запроса сгенерила необходимое событие.

Кроме таймера в голову ничего не приходит, но он мне уже заранее не нравится. Как поступить

[ANDLL]

Альтернатива(худшая) - цикл с DoEvents..

Таймер...

[Antonariy]

Цикл с DoEvents в теле dll заблокирует основную программу, не подходит.

Таймер...

А если в памяти несколько инстансов dll? Как в процеду таймера передать нужный инстанс?

[ANDLL]

А если в памяти несколько инстансов dll?

В памяти приложения есть только один инстант dll-файла. Больше не вмещается

[tyomitch]

Да, но может быть несколько экземпляров объектов внутри него, каждый со своим XMLHTTPRequest-ом.

[ANDLL]

Ну это другое дело;)
Если любите API - можно передавать в процедуру таймера указатель на экземпляр класса.
Если любите VB - пусть каждый экземпляр создает для себя отдельную форму с таймером... Что тут сложного??

[tyomitch]

Если любим стандартную поставку VB, то в ней есть класс XTimer, которому не нужна форма...

[ANDLL]

(послднее, правда, требует что бы приложение-клиент позволяло показывать немодальные формы...)

[Antonariy]

Да, но может быть несколько экземпляров объектов внутри него, каждый со своим XMLHTTPRequest-ом.

Это я и имел ввиду. Перепутал "экземпляр" с "инстансом".

форму с таймером

Забыл про контрол Timer. Н-да, пора в отпуск.

Диалог в dll уже имеется, почему бы не задействовать его и для этих целей. А как через апи передать параметр в процедуру таймера (собственно это и спрашивал)? Попробую, пожалуй, все.

[Antonariy]

(послднее, правда, требует что бы приложение-клиент позволяло показывать немодальные формы...)

Обязательно показывать? Load недостаточно?
Как называется ссылка?

[ANDLL]

А как ты через API-создаеш таймер? Там у процедуры таймера есть один так сказать User-defined параметр
(нет, достаточно просто загрузить в память...)

[Antonariy]

UINT_PTR SetTimer(
HWND hWnd, // handle to window
UINT_PTR nIDEvent, // timer identifier
UINT uElapse, // time-out value
TIMERPROC lpTimerFunc // timer procedure
);

Идентификатор?

[ANDLL]

да.
просто поменяй в объявлении функции SetTimer и своей nIDEvent as long на Byval Nclass as YourClass.
И проследи что бы класс не помер к моменту вызова функции таймера.

[Antonariy]

При доступе к переменной класса из процедуры таймера, эта процедура вроде как запускается заново.

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

Sub TimerFunc(x As ADOHTTP.Connection)
    On Error GoTo errh
    If Not x Is Nothing Then Debug.Print x.State
    Exit Sub
errh:
    Debug.Print Err.Description
End Sub

В окне отладки ничего не печатается.

[ANDLL]

BYVAL
это раз.
А то что процедура таймера

запускается заново

нет ничего удивительного

[Antonariy]

Byval учел, перезапускаться прекратила, но x всегда Nothing.

[ANDLL]

А как создаеш таймер?

[Antonariy]

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

hTimer = SetTimer(0, lConnection, 100, AddressOf TimerFunc)

Пробовал передавать вместо lConnection ObjPtr(lConnection), но с ByVal параметр всегда равен 0, а без - процедура опять таки перезапускается при получении объекта.

[tyomitch]

А lConnection у тебя грешным делом не Nothing на момент создания таймера?

[ANDLL]

Как объявлена функция SetTimer?

[Antonariy]

tyomitch
По определению не может - в процедуру, вызывающую SetTimer, передается как Me.

ANDLL
Для объекта
Public Declare Function SetTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As ADOHTTP.Connection, ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long

Для ObjPtr
Public Declare Function SetTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long


И все-таки, что такое XTimer? В реестре я его не нашел.

[alibek]

А почему нельзя обойтись одним таймером?

[tyomitch]

Antonariy, а допиши для гарантии рядом с SetTimer: MsgBox ObjPtr(lConnection)
Не ноль ли у тебя будет?


XTimer надо искать не в реестре, а в MSDN

[Antonariy]

tyomitch
Не ноль

alibek
Запустить бы хоть один))
Хотя если ограничиться одним и коллекцией реквестов на уровне инстанса, то можно не передавать параметры, а просто проверять всю коллекцию, а если в ней не осталось элементов, убивать таймер.

[alibek]

Я это и имел ввиду, один таймер, одна диспетчерская процедура (TimerProc) и коллекция инстансов.

[tyomitch]

Antonariy, так что: XTimers нашёл?

[Antonariy]

Нашел, внедряю

[ANDLL]

2Antonariy:

проследи что бы класс не помер к моменту вызова функции таймера

Сразу после вызова SetTimer надор вызвать функцию ZombieAddRef из msvbvm60.dll, и передать ей в качестве единственного параметра твой объект...

[tyomitch]

Тогда уж лучше не её непосредственно, а __vbaObjAddref, чтобы вызов прошёл через VTbl: мало ли, что там прописано в качестве AddRef.

[Antonariy]

Последнее не буду пробовать даже под угрозой пыток.

Из всех опробованных вариантов, XTimer признан самым удобным решением