powered by simpleCommunicator - 2.0.59     © 2025 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Программирование [игнор отключен] [закрыт для гостей] / Работа с ресурсом, находящимся в DLL
1 сообщений из 1, страница 1 из 1
Работа с ресурсом, находящимся в DLL
    #32184903
Нина
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Прошу помочь с использованием ресурса (описанием диалога), находящимся
в библиотеке DLL. Были выполнены следующие этапы:
1. Ресурс (описание диалога) успешно записано DLL.
2. Управляющая программа загружает библиотеку с ресурсом в память,
определяе адрес самого ресурса.
3. С этим адресом инициирует этот диалог.
Если первые два пункта выполняются нормально, то третий завершается
со значением "FALSE".
Привоже фрагмент программы. Написано на VISUAL FORTRAN, но это не имеет принципиального значения, т.к. используются подпрограммы из среды WIN32 API.
!--------- явное подключение DCOM.DLL
adre = "PROGDIAL"C ! имя диалога из DLL
modul = idisk(18)(1:s-1)//"\\dcom.dll "C ! полный путь к DLL
hmod = LoadLibrary(modul) ! загрузить библиотеку
!-----------
hres = FindResource(hmod,LOC(adre), RT_DIALOG)
hdial = LoadResource(hmod, hres)
! l = DlgInitWithResourceHandle(Loc(adre), hdial, dlg) ! инициализация диалога

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

l = DlgInit(LOC(adre), dlg)
ll = DlgSetSub(dlg, Loc(adre), ProgressSub) ! прог-ма обработки OK
l01 = dlgget(dlg,text2,str)
lret = dlgset(dlg, 2002, 'начало') ! text2
l1 = DlgModeless(dlg, nCmdShow) ! высветить диалог на экран

Завершение программы "False", т.е. диалог на экране не появился.

Если кто-то может указать на ошибку и предложить правильный вариант, буду
очень благодарна.
Нина.
...
Рейтинг: 0 / 0
1 сообщений из 1, страница 1 из 1
Форумы / Программирование [игнор отключен] [закрыт для гостей] / Работа с ресурсом, находящимся в DLL
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]