Галактика в вопросах и ответах

У меня есть DLL (7 kb), с помощью которой можно вызвать паскалевские randomize и random. Если надо, могу выслать.

Оказалось, вначале надо вызвать prVidInit.

При вызове в моём интерфейсе функции MoveToStag Галактика вылетает с сообщением "Runtime error 216 (rtl: попытка обращения к некорректному дескриптору) in G_SUMDIVIDE.DLL at 0000D6DC"
В галактическом интерфейсе FormOtpb эта функция работает без замечаний.
Куда смотреть?
Первасив 9
G_ZARPL.DLL 8.10 ...

Я использовал SetFileName:

цикл
{
frm.SetFileName
frm.Write
frm.ShowFile
}

Win XP SP3 под VMware 6. Установил без проблем Оракл 9.2 Ход установки 790 кб Из настроек по умолчанию изменил только open_cursors. Установил без проблем Галактику Экспресс Ход установки 370 кб .
А вот запустить Галактику не могу.
В ORA90DRV.LOG:

19.04.2011 10:39:51 []:
FAILED: OCISessionBegin ...

Всё, разобрался. В Windows 7 нет службы сообщений (net send).

Если запустить две Галактики с разными юзерами на одной машине, сообщения проходят. Из Галактики на одной машине через сеть на другую машину сообщения не проходят. Из Суппорта проходят.
Где рыть?

Точно! Была временная лицензия до 30.12.2010. Ввёл ключ и VIP заработал. Спасибо!

А как в таком случае остальные проги работают?

Это временная таблица. Заполняется в момент вызова этого окошка значениями из поля KatParty.WhoSertif

Пересел на новую машину, инсталлирую всё заново. Сначала всё было хорошо. Но с некоторого момента (кажется, после инсталляции Dr.Web 6) перестал работать VIP.EXE. Все версии вначале выдают

Ошибка соединения с БД !
Ошибка выполнения [161]
Компилирую в ресурс ...........res
Использую ресурс ...

Убрал из кода упоминание ppkatstan, скомпилил - cmDelOnProtect работает

Я качаю с http://update.galaktika.by/support/sourcepatch.nsf
Раньше сайт был терпимый. Не так давно его переделали, стало ужасно. Их полоса прокрутки просто убивает. Может, я чего-то не знаю? Кто как качает исходники патчей?

если кто не в курсе, есть ещё одна интересная функция
function LogicSubStr(var St : string; CutSize : byte; Per : boolean;
DelCut : boolean) : string;
! Логически верное выделение подстроки не более заданной длины,
! т.е. не происходит резка в середине слова, строка режется
! только по пробелам ...

В галактическом варианте есть tabParameters и tabParameters1. Я пробовал дать имя для TabbedSheet и так, и эдак, и новое - результат один.