Вызов VB процедур из Asm-вставки.

[0xy]

Зачем закрыли старую тему? vievtopic.php?f=51&t=41205
Впрос в заглавии, ИХМО, был достаточно конкретным. Попробую объяснить еще подробнее
Прога на VB (или даже форма в Accese) обрабатывает большой файл (сотни Мб или даже Гигабайты) посредством Asm-процедуры(вставки), блоками по 16 М и более. Т.е. до окончания обработки блока, код не возвращается в VB, а хотелось бы обновлять прогресбар и вообще делать DoEvents (особенно в Accesse )
В связи с этим возник вопрос: можно ли узнать адрес процедуры (самописной, из модуля формы), и вызывать ее из Asma?

Или: есть ли альтернатива DoEvents?

По-хорошему, наверное нужно запускать Asm отдельным потоком, но лень заморачиваться с синхронизацией...

[alibek]

Тебе не сюда. Переношу.
Предупреждение.

[Antonariy]

можно ли узнать адрес процедуры

AddressOf, только она должна быть в обычном модуле.

[Хакер]

Впрос в заглавии, ИХМО, был достаточно конкретным.

Ты серьёзно думаешь, что вопрос "Вызов VB процедуры из Asm-вставки??" достаточно конкретен?
Тогда вот тебе мой предельно конкретный вопрос: "Чесание правого уха левой рукой??". Требую дать исчерпывающий ответ.

(самописной, из модуля формы), и вызывать ее из Asma?

Просто процедуры, можно, Antonary сказал как. Метод-член формы тоже можно вызвать, но хватит ли у тебя упорства на такой вызов?

Или: есть ли альтернатива DoEvents?

PeekMessage->TranslateMessage->DispatchMessage. Это если надо быстро. А если не надо, то DoEvents делает то же самое в числе прочего.

По-хорошему, наверное нужно запускать Asm отдельным потоком, но лень заморачиваться с синхронизацией...

Шутишь? Какая там синхронизация? Послать сообщение главному потоку о завершении обработки файла?

[0xy]

Можно по подробнее об AddressOf?

Хакер
Да, шучу Просто интересно сделать одним потоком.

[Хакер]

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

AddressOf это квази-оператор, возвращающий VA указанной внутримодульной процедуры. Для вызова метода-члена формы он не нужен, там нужно получить IDispatch и узнать DispId нужного метода. Т.к. формы используют связывание по DispId-у. Можно, наверное, попробовать назначит свой DIspId методу в Procedure Attributes.

[Antonariy]

Можно по подробнее об AddressOf?

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

ret = CallAsmFunc(AddressOf MyFunction)

Ключевое слово AddressOf может использоваться только перед параметром функции. Если тебе нужно получить адрес в переменную, то используй такой способ:

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

addr = ResolveAddress(AddressOf MyFunction)

Function ResolveAddress(addr as Long) as Long
    ResolveAddress = addr
End If

[Хакер]

Только ByVal надо, а то лишняя стекотряска.