forum.clarionlife.net

В чём отличие CALL и обычного вызова процедуры

Call(NameOfDLL, 'XPROC@xxx', 1)

        PXP:LoadLibrary(*CSTRING pszModuleFileName),UNSIGNED,PASCAL,RAW,NAME('LoadLibraryA')
        PXP:FreeLibrary(UNSIGNED hModule),BYTE,PASCAL,RAW,NAME('FreeLibrary'),PROC
        PXP:GetProcAddress(UNSIGNED hModule,*CSTRING pszProcName),LONG, PASCAL,RAW,NAME('GetProcAddress')

    MODULE('External')
PXP:OpenThemeData(UNSIGNED hWnd, BSTRING CwStr),UNSIGNED,RAW,PASCAL,DLL(__OpenThemeData_)
   END

__UXThemeLibrary_      LONG 
szLibName   CSTRING(255)
szProcName  CSTRING(255)
__OpenThemeData_              LONG,STATIC,NAME('PXP:OpenThemeData')
 code
  szLibName = 'uxtheme.dll'
   __UXThemeLibrary_ = PXP:LoadLibrary(szLibName)
   szProcName = 'OpenThemeData'
   __OpenThemeData_ = PXP:GetProcAddress(__UXThemeLibrary_, szProcName)

hTheme = PXP:OpenThemeData(0, szThemeName)

Митрий писал(а):Уважаемые знатоки! Прошу по-возможности оперативного ответа.
НЕ МОГУ РАЗОБРАТЬСЯ С ОШИБКОЙ! В чём отличие CALL и обычного вызова процедуры ?!?

Имеется собственная DLL и в ней среди других процедура XPROC, которая открывает окно, выбирает данные из БД в Queue, затем выгружает данные в Excel. Эта процедура для работы использует другие DLL.
Имеется два похожих приложения с вызовом ЭТОЙ процедуры из ЭТОЙ DLL . Разница в том, что в ПЕРВОМ приложении ЭТА библиотека подключена сразу в проекте и вызов процедуры осуществлён через START(XPROC, 25000), а во ВТОРОМ приложении происходит динамическая загрузка этой процедуры с помощью
START(StartXProc,25000), где:
StartXProc Procedure
Code
Call(NameOfDLL, 'XPROC@xxx', 1)

Так вот, ПЕРВОЕ приложение работает отлично. ВТОРОЕ приложение в процессе выгрузки в Excel внезапно обрывается в различных местах хода выгрузки.
Системным отладчиком установлен отладчик CLARION. При обрыве отладчик сообщает: "Unknown exception", а затем "Stack overflow" ИЛИ "память не может быть READ", а затем "Access violation".
В окне отладчика "Stack Trace" последним процессом является "Unknown", а выше одна из процедур библиотеки выгрузки в Excel (разная).
Использую C55, Legacy. Win-2k Server. MSOffice XP.
Как избавиться от ошибки во ВТОРОМ приложении

Митрий писал(а):Извините, Бальшой Гуру Yufil !
Вы также невнимательны!
Как ни странно, но я почему-то вижу, что написано в кусочке кода,
а именно START - в ОБОИХ случаях. То есть THREAD не тот же, что и вызывающая процедура, а отдельный!
Прежние Ваши советы по CALL и API-аналогам читал и ПРОБОВАЛ.
Результат одинаков.

ПРОШУ ЕЩЁ ОТКЛИКОВ.

Митрий писал(а):Вы правы, уважаемый Yufil. Потребность - плагины.
Скомпилированы с общим словарём, как и у Вас.
С инициализацией - полный порядок, это решено по образу и подобию последнего предложения Юрия Философова из старой темы "Запуск процедуры из внешней DLL" от 11.02.2004г.

А не правы Вы , как я начал понимать в следующем:
При передаче команд "ВЕЛИКОЛЕПНОМУ" используется последовательно UNLOCKTHREAD(), <команда>, LOCKTHREAD().

А между тем главный процесс получает события, такие, например, как EVENT:TIMER.

И что особенно интересно, если процедура выгрузки в Excel работает из библиотеки, собранной CLARION'ом в приложение (1 ВАРИАНТ), то вот это самое EVENT:TIMER не поступает на ACCEPT потому как ещё не закончена обработка текущего события активного процесса.
А вот во ВТОРОМ случае - когда вызов произведён из плагина - CLARION не почему-то понимает, что это тож его произведение и считает его "чужой процедурой" - то есть генерит событие и передаёт управление на ACCEPT другого окна, хотя обработка в текущем ACCEPTE (плагина) не закончена. И если этот момент попал между UNLOCKTHREAD и LOCKTHREAD - ВОТ ТУТ-ТО И ЕСТЬ "ГРАБЛИ" .

То есть, используя 0{PROP:TIMER} = 0 в каждом активном окне до передачи данных в EXCEL (а затем восстанавливая прежние значения), удалось избавиться от ВЫРУБОНА .

НО ПРОБЛЕМА ОСТАЛАСЬ! ПОМОГИТЕ СОВЕТОМ:
Если пользователь щёлкает мышью в других окнах - события ведь происходят, управление внезапно передаётся другому ACCEPT'у и повторяется прежний дрянной эффект.
Как же запретить это щёлканье...?

Лучший вариант - перейти на CW6

А здесь надо деактивировать OLE на Event:LoseFocus и снова активировать на Event:GainFocus. А ещё перед закрытием окна уничтожить OLE командой Destroy.

Yufil писал(а):Уважаемый Бааааааальшой Гуру Yufil!
Это не я себя так назвал, а администратор сайта. И нечего иронизировать...