|
|
|
KostyantynKo
Стаж: 15 лет 3 месяца Сообщений: 1626
|
KostyantynKo ·
30-Мар-22 10:42
(3 года 5 месяцев назад)
evgenij_es писал(а):
82935912Slip file cannot be saved without valid Registration Code.
Возможно регистрационный код неверен.
Регистрационный код должен состоять от 6-ти то 8-ми цифр. Если меньше 6-ти или больше 8-ми и вмещает какие-то символы, буквы, таков код неверен.
Чтобы его изменить:
Перейдите в каталог " C:\Program Files (x86)\Embarcadero\Studio\22.0\bin"
В файле cglm.ini ( от имени Администратора) временно поменяйте строку LockType=5 на LockType=7, сохраните cglm.ini, запустите LicenseManager.exe и закройте.
И снова, откройте cglm.ini поменяйте строку LockType=7 на LockType=5, сохраните cglm.ini, запустите/закройте LicenseManager.exe.
Таким образом регистрационный код должен быть изменён с правильной длинной (от 6-ти то 8-ми цифр). Ели нет, повторите попытку правки cglm.ini ещё рас.
|
|
|
|
temp128
Стаж: 16 лет 5 месяцев Сообщений: 478
|
temp128 ·
30-Мар-22 12:21
(спустя 1 час 38 мин., ред. 30-Мар-22 12:39)
NeposedaK писал(а):
82898667Улучшения автозавершения кода(Code Completion) для C ++ - Старались сделать но получилось, как всегда.
Раньше не работало с Clang компилятором. А теперь с точностью на оборот с Clang пытается работать, а вот с классическим совсем сломали.
temp128 писал(а):
82899386... Error Insight, теперь докапывается до кода, который правильно компилируется (например до директивы #include <vcl.h> - пишет File 'vcl.h' not found - спустя некоторое время исчезло - видимо файлы проиндексировались ) ...
Читая RSP-37665 на quality.embarcadero.com, удалось выяснить, как отключить LSP (если вы пользуетесь классическим компилятором) :
скрытый текст
Цитата:
So far the only solution I have managed to come up with is as follows:
1) Close your project.
2) Tools | Options | IDE | Environment Variables | [New...] Add a variable called "BDS_NO_LSP" (without quotes) and set the value to "T" also without quotes
3) [OK]
4) [Save]
5) Restart the IDE
The downside is that the LSP will now not work for Clang based projects.
Code Insight работает хорошо !  Еще и файлы preamble_XXX.pch не генерируются в каталоге TEMP  .
|
|
|
|
evgenij_es
Стаж: 14 лет 2 месяца Сообщений: 20
|
evgenij_es ·
30-Мар-22 13:49
(спустя 1 час 27 мин.)
KostyantynKo писал(а):
82936046
evgenij_es писал(а):
82935912Slip file cannot be saved without valid Registration Code.
Возможно регистрационный код неверен.
Регистрационный код должен состоять от 6-ти то 8-ми цифр. Если меньше 6-ти или больше 8-ми и вмещает какие-то символы, буквы, таков код неверен.
Чтобы его изменить:
Так вот ты как выглядишь тот самый бубен!!! Спасибо! Все получилось.
|
|
|
|
Drewski65
Стаж: 4 года 5 месяцев Сообщений: 44
|
Drewski65 ·
30-Мар-22 14:30
(спустя 41 мин.)
KostyantynKo
Try compiling a Windows 32 bit program in 10.3.1 and see if you get the same result.
Even the balloon help in the RAD Studio IDE isn't showing up on my windows 11. For example, I use the classic component tool bar and normally when you hover the mouse over any component, the balloon hint pops up. Not so with my setup.
I am wondering if there is a setting inside windows 11 which is turning this off?
|
|
|
|
KostyantynKo
Стаж: 15 лет 3 месяца Сообщений: 1626
|
KostyantynKo ·
30-Мар-22 23:06
(спустя 8 часов, ред. 30-Мар-22 23:10)
Drewski65
Could you please post a troubled sample solution with an EXE file included. Maybe someone can reproduce it within the Windows 11 environment.
But in the meanwhile try:
Opt_1:
If registry branch and value does not exist, create it manually.
[HKEY_CURRENT_USER\\Software\\Policies\\Microsoft\\Windows\\Explorer]
EnableLegacyBalloonNotifications REG_DWORD = 0
Opt_2:
gpedit.msc
Search for relation of balloon notification settings, for example:
User Configuration->Administrative Templates->Start Menu and Taskbar->Disable showing balloon notifications as toast.
Try to tweak enable/disable or so...
I hope it works
|
|
|
|
Drewski65
Стаж: 4 года 5 месяцев Сообщений: 44
|
Drewski65 ·
30-Мар-22 23:39
(спустя 32 мин.)
KostyantynKo писал(а):
82938711Drewski65
Could you please post a troubled sample solution with an EXE file included. Maybe someone can reproduce it within the Windows 11 environment.
But in the meanwhile try:
Opt_1:
If registry branch and value does not exist, create it manually.
[HKEY_CURRENT_USER\\Software\\Policies\\Microsoft\\Windows\\Explorer]
EnableLegacyBalloonNotifications REG_DWORD = 0
Opt_2:
gpedit.msc
Search for relation of balloon notification settings, for example:
User Configuration->Administrative Templates->Start Menu and Taskbar->Disable showing balloon notifications as toast.
Try to tweak enable/disable or so...
I hope it works
Well I found out what the problem was. I was using a program called Eleven Oclock which puts the clock down in the system tray on the second monitor I am using. Windows 11 didn't have that capability until a few weeks ago when an update included that fix.
Since I removed Eleven Oclock, now the balloon helps come up fine.
Thanks for your help!!!
|
|
|
|
evgenij_es
Стаж: 14 лет 2 месяца Сообщений: 20
|
evgenij_es ·
01-Апр-22 15:08
(спустя 1 день 15 часов, ред. 01-Апр-22 15:08)
Вылезло с KeyPatch новое. Пытаюсь поставить Embarcadero на другой машине, разница с предыдущей - там была установка для всех пользователей, на новой, многопользовательской машине установка только для меня.
Например, запускаем KeyPatch без запуска программы установки и получаем логичное сообщение: "Дурашка, запусти установщик, что ж я патчить-то буду". Логично. Идем строго по инструкции. Запускаем установщик со всеми правами, в нужный момент момент запускаем KeyPatch и получаем сообщение: "Embarcadero RAD Studio process is currently running. Patch cannot be applied while process is in use."
Что называется - круг замкнулся. Как с него выбраться?
Хоты нет, показалось, с третьего пинка все вроде наладилось.
Не, как я не бился, все равно проекты, сделанные в Embarcadero RAD Studio 11 - 11.1 Alexandria ни фига не запускаются. До проекта, собственно, дело даже не доходит, программа сразу вываливается с криком "Программа выполнила не выполнимое..." Вот лог, который при этом составляет Windows:
скрытый текст
----------------------------
<?xml version="1.0" encoding="UTF-16"?>
<DATABASE>
<EXE NAME="Project30.exe" FILTER="GRABMI_FILTER_PRIVACY">
<MATCHING_FILE NAME="Project30.exe" SIZE="11725067" CHECKSUM="0xFBF1D0BD" BIN_FILE_VERSION="1.0.0.0" BIN_PRODUCT_VERSION="1.0.0.0" PRODUCT_VERSION="1.0.0.0" FILE_DESCRIPTION="Project30" PRODUCT_NAME="Project30" FILE_VERSION="1.0.0.0" VERFILEDATEHI="0x0" VERFILEDATELO="0x0" VERFILEOS="0x4" VERFILETYPE="0x1" MODULE_TYPE="WIN32" PE_CHECKSUM="0x0" LINKER_VERSION="0x0" UPTO_BIN_FILE_VERSION="1.0.0.0" UPTO_BIN_PRODUCT_VERSION="1.0.0.0" LINK_DATE="04/01/2022 11:24:04" UPTO_LINK_DATE="04/01/2022 11:24:04" VER_LANGUAGE="Английский (США) [0x409]" />
<MATCHING_FILE NAME="Project30_.exe" SIZE="12810282" CHECKSUM="0xA0162D34" BIN_FILE_VERSION="1.0.0.0" BIN_PRODUCT_VERSION="1.0.0.0" PRODUCT_VERSION="1.0.0.0" FILE_DESCRIPTION="Project30" PRODUCT_NAME="Project30" FILE_VERSION="1.0.0.0" VERFILEDATEHI="0x0" VERFILEDATELO="0x0" VERFILEOS="0x4" VERFILETYPE="0x1" MODULE_TYPE="WIN32" PE_CHECKSUM="0x0" LINKER_VERSION="0x0" UPTO_BIN_FILE_VERSION="1.0.0.0" UPTO_BIN_PRODUCT_VERSION="1.0.0.0" LINK_DATE="04/01/2022 11:12:40" UPTO_LINK_DATE="04/01/2022 11:12:40" VER_LANGUAGE="Английский (США) [0x409]" />
</EXE>
<EXE NAME="kernel32.dll" FILTER="GRABMI_FILTER_THISFILEONLY">
<MATCHING_FILE NAME="kernel32.dll" SIZE="989696" CHECKSUM="0x26E478DA" BIN_FILE_VERSION="5.1.2600.2180" BIN_PRODUCT_VERSION="5.1.2600.2180" PRODUCT_VERSION="5.1.2600.2180" FILE_DESCRIPTION="Библиотека клиента Windows NT BASE API" COMPANY_NAME="Корпорация Майкрософт" PRODUCT_NAME="Операционная система Microsoft® Windows®" FILE_VERSION="5.1.2600.2180 (xpsp_sp2_rtm.040803-2158)" ORIGINAL_FILENAME="kernel32" INTERNAL_NAME="kernel32" LEGAL_COPYRIGHT="© Корпорация Майкрософт. Все права защищены." VERFILEDATEHI="0x0" VERFILEDATELO="0x0" VERFILEOS="0x40004" VERFILETYPE="0x2" MODULE_TYPE="WIN32" PE_CHECKSUM="0xF77F8" LINKER_VERSION="0x50001" UPTO_BIN_FILE_VERSION="5.1.2600.2180" UPTO_BIN_PRODUCT_VERSION="5.1.2600.2180" LINK_DATE="08/17/2004 23:04:04" UPTO_LINK_DATE="08/17/2004 23:04:04" VER_LANGUAGE="Русский [0x419]" />
</EXE>
</DATABASE>
----------------------------------
Испробовано все, что советовалось:
- устанавливал в Linking "Set OS..." - 4.0
- снимал/ставил галочки Link with runtime packages...
- пробовал даже rtl280.bpl менять на пропатченый. (с ним, правда, delphi выдал ошибку входа в процедуру... и не запустился вовсе)
Хотя из-под Embarcadero 10.4.2 проблем нет. В общем, пока проблему побороть не удалось.
OC - Windows XP Home Edicion версия 2002 Service Pack 2
|
|
|
|
KostyantynKo
Стаж: 15 лет 3 месяца Сообщений: 1626
|
KostyantynKo ·
02-Апр-22 09:32
(спустя 18 часов)
Анонимный запрос писал(а):
Каков самый простой способ создать файл базы данных SQL Server (*.MDF) в C++Builder(е) "программно"?
Я использую ADOX для создания Microsoft Access (*.MDB и *.ACCDB), но не знаю, как это сделать с помощью ADOX для файлов SQL Server(а).
|
|
|
|
kolobok_vl
Стаж: 14 лет 10 месяцев Сообщений: 12
|
kolobok_vl ·
02-Апр-22 18:32
(спустя 8 часов)
Обращаюсь ко всем, может с необычной просьбой, есть ли у кого компоненты для работы с оффлайн картами?
|
|
|
|
EXXON VALDEZ
Стаж: 10 лет 4 месяца Сообщений: 65
|
EXXON VALDEZ ·
02-Апр-22 22:35
(спустя 4 часа)
evgenij_es писал(а):
82940708Вылезло с KeyPatch новое. Пытаюсь поставить Embarcadero на другой машине, разница с предыдущей - там была установка для всех пользователей, на новой, многопользовательской машине установка только для меня.
Например, запускаем KeyPatch без запуска программы установки и получаем логичное сообщение: "Дурашка, запусти установщик, что ж я патчить-то буду". Логично. Идем строго по инструкции. Запускаем установщик со всеми правами, в нужный момент момент запускаем KeyPatch и получаем сообщение: "Embarcadero RAD Studio process is currently running. Patch cannot be applied while process is in use."
Что называется - круг замкнулся. Как с него выбраться?
Хоты нет, показалось, с третьего пинка все вроде наладилось.
Не, как я не бился, все равно проекты, сделанные в Embarcadero RAD Studio 11 - 11.1 Alexandria ни фига не запускаются. До проекта, собственно, дело даже не доходит, программа сразу вываливается с криком "Программа выполнила не выполнимое..." Вот лог, который при этом составляет Windows:
Испробовано все, что советовалось:
- устанавливал в Linking "Set OS..." - 4.0
- снимал/ставил галочки Link with runtime packages...
- пробовал даже rtl280.bpl менять на пропатченый. (с ним, правда, delphi выдал ошибку входа в процедуру... и не запустился вовсе)
Хотя из-под Embarcadero 10.4.2 проблем нет. В общем, пока проблему побороть не удалось.
OC - Windows XP Home Edicion версия 2002 Service Pack 2
Дай какой-нить проект, ехе-шник которого не заводится, я посмотрю.
А пока я смотреть буду, поставь на свой ВинХР 3-й сервиспак.
|
|
|
|
hattab_ali
Стаж: 17 лет 3 месяца Сообщений: 175
|
hattab_ali ·
03-Апр-22 15:03
(спустя 16 часов)
Цитата:
А пока я смотреть буду, поставь на свой ВинХР 3-й сервиспак.
Хм, форма с кнопкой запускается даже на W2K SP4.
|
|
|
|
Dook13
Стаж: 12 лет Сообщений: 8
|
Dook13 ·
03-Апр-22 21:38
(спустя 6 часов)
EXXON VALDEZ писал(а):
82925290Спасибо за раздачу.
Мне удалось обновить с 11 до 11.1 со всеми установленными компонентами и настройками.
А как ставил?
|
|
|
|
Sigul
Стаж: 17 лет 3 месяца Сообщений: 89
|
Sigul ·
03-Апр-22 23:29
(спустя 1 час 51 мин., ред. 03-Апр-22 23:29)
KostyantynKo писал(а):
82948197
Анонимный запрос писал(а):
Каков самый простой способ создать файл базы данных SQL Server (*.MDF) в C++Builder(е) "программно"?
Я использую ADOX для создания Microsoft Access (*.MDB и *.ACCDB), но не знаю, как это сделать с помощью ADOX для файлов SQL Server(а).
Не вполне понял суть вопроса, но если требуется добавить новую базу данных (новый файл базы данных), то проще всего выполнить команду T-SQL Create Database, в этом случае можно указать путь до файла базы данных, если это необходимо.
SQL сервер сам создаст всё необходимое.
Гораздо удобней, разумеется, заранее приготовить запрос и потом выполнить его с параметрами.
По поводу самого запроса можно подробнее прочитать здесь:
https://docs.microsoft.com/ru-ru/sql/t-sql/statements/create-database-transact-sq...amp;tabs=sqlpool
Всего наилучшего!
|
|
|
|
KostyantynKo
Стаж: 15 лет 3 месяца Сообщений: 1626
|
KostyantynKo ·
04-Апр-22 09:15
(спустя 9 часов)
@ Sigul Спасибо за оперативный ответ. Поскольку пользователь нашего форума не русско-говорящий, ещё его вопрос был таков (в личке): "Возможно-ли создать фай базы данных с помощью RAD C++Builder(а) бес установленной MS-SQL?". Похоже пользователь новичок в этой сфере, и вопрос может быть не ясен наверняка.
Благодарю за помощь 
|
|
|
|
evgenij_es
Стаж: 14 лет 2 месяца Сообщений: 20
|
evgenij_es ·
04-Апр-22 13:27
(спустя 4 часа, ред. 04-Апр-22 13:27)
EXXON VALDEZ писал(а):
82951504
evgenij_es писал(а):
82940708А пока я смотреть буду, поставь на свой ВинХР 3-й сервиспак.
К сожалению, этот проект работает на 2-х сотнях машин в 3-х десятках организаций, в которых есть весь зоопарк win от 2000 г. и linux под wine до распределенных кластерных систем. У меня нет возможности как-то повлиять на материальную и программную часть рабочих мест. Хорошо еще, что 98-я винда уже недавно закончилась.
evgenij_es писал(а):
82957514
EXXON VALDEZ писал(а):
82951504
evgenij_es писал(а):
82940708А пока я смотреть буду, поставь на свой ВинХР 3-й сервиспак.
К сожалению, этот проект работает на 2-х сотнях машин в 3-х десятках организаций, в которых есть весь зоопарк win от 2000 г. и linux под wine до распределенных кластерных систем. У меня нет возможности как-то повлиять на материальную и программную часть рабочих мест. Хорошо еще, что 98-я винда уже недавно закончилась.
Отправлять что-то нет смысла. Создаем Windows VCL Application, ничего туда не добавляем, просто меняем в Options проекта Linking на 4.0, 5.0 или оставляем 6.0 (по умолчанию), компилим и все. Итого проект в третьем случае выдает "Нет доступа", а в первом и втором "Программа выполнила..." под Win XP Home SP2. Компилилось из-под Win 10, Win11 и Win Server 2016. Результат постоянен и незыблем. Как я уже говорил тот же проект на Embarcadero 10.2.2 запускается на ура.
|
|
|
|
Sigul
Стаж: 17 лет 3 месяца Сообщений: 89
|
Sigul ·
04-Апр-22 15:17
(спустя 1 час 50 мин.)
KostyantynKo писал(а):
82957012@ Sigul Спасибо за оперативный ответ. Поскольку пользователь нашего форума не русско-говорящий, ещё его вопрос был таков (в личке): "Возможно-ли создать фай базы данных с помощью RAD C++Builder(а) бес установленной MS-SQL?". Похоже пользователь новичок в этой сфере, и вопрос может быть не ясен наверняка.
Благодарю за помощь
Насчёт создать без MS SQL - вообще, конечно, нет, но так-то очень даже да.
Самый простой способ - создаём на стороннем сервере пустую базу данных, берём файл, зашиваем его в проект (или кладём в определённую директорию при установке) как шаблон, а дальше - тиражируем при необходимости, но это ТАКАЯ ЕРУНДА! =)))
Правда я не могу взять толк, к чему бы вообще создавать файл базы данных, если работать с ним толком не получится? =_=
С другой стороны - задача выполнена! :-D
Но, конечно, хуже нет, чем строить костыль на костыле - только закрепляет ошибки.
P.S.: Да это Вам спасибо за труды титанические!
|
|
|
|
Hunter1972
Стаж: 20 лет 4 месяца Сообщений: 192
|
Hunter1972 ·
05-Апр-22 06:34
(спустя 15 часов)
Поставилось все отлично, добавил поддержку Linux64, но он почему то не появляется в списке платформ.
|
|
|
|
KostyantynKo
Стаж: 15 лет 3 месяца Сообщений: 1626
|
KostyantynKo ·
05-Апр-22 10:35
(спустя 4 часа, ред. 05-Апр-22 10:35)
Hunter1972 писал(а):
82960787Поставилось все отлично, добавил поддержку Linux64, но он почему то не появляется в списке платформ.
Linux только для командной консоли из коробки. Дополнение/Структура к платформе Linux (FMXLinux) надо установить ручками.
FMXLinux v1.69: FMXLinux-20220127.zip
Пример установки FMXLinux: https://rutr.life/forum/viewtopic.php?p=81015687#81015687
|
|
|
|
NeposedaK
Стаж: 16 лет 11 месяцев Сообщений: 94
|
NeposedaK ·
05-Апр-22 14:00
(спустя 3 часа)
Помогите.
Столкнулся с проблемой, что в этой версии почему то нет MS Office XP компонентов.
Кто знает как их можно добавить.
Файлы OfficeXP.bpl есть, а вот добавить их в IDE не получается.
|
|
|
|
aush
Стаж: 20 лет 4 месяца Сообщений: 39
|
aush ·
05-Апр-22 14:49
(спустя 49 мин.)
NeposedaK писал(а):
82961863т добавить их в IDE не получается.
Что говорит?
Вообще без проблем в палитре bcbofficexp280.bpl добавилась
|
|
|
|
Hunter1972
Стаж: 20 лет 4 месяца Сообщений: 192
|
Hunter1972 ·
05-Апр-22 15:36
(спустя 46 мин., ред. 05-Апр-22 15:36)
KostyantynKo
Спасибо! С установкой разберусь. А что значит:
KostyantynKo писал(а):
Linux только для командной консоли из коробки.
То есть ПО будет работать только в консоли Линукс без окон? И 'из коробки' что имелось ввиду?
И еще вопрос 'Linux' при установке в списке выбора платформ нужно выбирать?
|
|
|
|
KostyantynKo
Стаж: 15 лет 3 месяца Сообщений: 1626
|
KostyantynKo ·
05-Апр-22 20:54
(спустя 5 часов)
Hunter1972 писал(а):
82962063То есть ПО будет работать только в консоли Линукс без окон?
Да, без окон. (FMXLinux нужен для работ с окнами FMXForms в среде Хorg, WayLand оконных серверов для KDE GNOME LXDE и т.д.)
Hunter1972 писал(а):
82962063И 'из коробки' что имелось ввиду?
При выборе платформы Delphi Linux Enterprise в окне Manage Platforms
Hunter1972 писал(а):
82962063И еще вопрос 'Linux' при установке в списке выбора платформ нужно выбирать?
Delphi Linux Enterprise.
|
|
|
|
Hunter1972
Стаж: 20 лет 4 месяца Сообщений: 192
|
Hunter1972 ·
05-Апр-22 21:24
(спустя 29 мин., ред. 05-Апр-22 21:24)
KostyantynKo писал(а):
FMXLinux нужен для работ с окнами FMXForms в среде Хorg, WayLand оконных серверов для KDE GNOME LXDE и т.д.
Для меня это темный лес. Это что отдельные программы которые ставятся на линукс? Типа Explorer для WIndows? И после после этого приложение с окнами FMX сможет работать в линукс?
|
|
|
|
KostyantynKo
Стаж: 15 лет 3 месяца Сообщений: 1626
|
KostyantynKo ·
06-Апр-22 02:21
(спустя 4 часа)
Hunter1972 писал(а):
82963655
KostyantynKo писал(а):
FMXLinux нужен для работ с окнами FMXForms в среде Хorg, WayLand оконных серверов для KDE GNOME LXDE и т.д.
Для меня это темный лес. Это что отдельные программы которые ставятся на линукс? Типа Explorer для WIndows? И после после этого приложение с окнами FMX сможет работать в линукс?
Пример подготовки Linux дистрибутива Ubuntu 20.04 к развёртыванию приложения: https://rutr.life/forum/viewtopic.php?p=79533433#79533433
А также доп.инфо на оф-сайте. https://docwiki.embarcadero.com/RADStudio/Sydney/en/FireMonkey_for_Linux
Краткая демонстрация запуска приложения с помощью FMXLinux: https://youtu.be/rhu1Qs8Y470
|
|
|
|
NeposedaK
Стаж: 16 лет 11 месяцев Сообщений: 94
|
NeposedaK ·
06-Апр-22 12:23
(спустя 10 часов)
aush писал(а):
82962010
NeposedaK писал(а):
82961863т добавить их в IDE не получается.
Что говорит?
Вообще без проблем в палитре bcbofficexp280.bpl добавилась
Спасибо огромное за помощь.
Пытался добавить другой файл.
Этот не нашел. 
|
|
|
|
Timson16
Стаж: 15 лет 10 месяцев Сообщений: 7
|
Timson16 ·
06-Апр-22 14:16
(спустя 1 час 53 мин.)
Добрый день. Программа откомпилированная на 11 версии на delphi, не запускается на виндовс xp. Выдает что не является приложением вин 32. Можно как то заставить ее там работать?
|
|
|
|
aush
Стаж: 20 лет 4 месяца Сообщений: 39
|
aush ·
06-Апр-22 14:59
(спустя 42 мин.)
NeposedaK писал(а):
82965605Этот не нашел.
А установлена студия целиком? или только delphi?
dclofficexp280.bpl есть? в каталоге bin где студия установлена. Ну или просто искать *officexp280.*
|
|
|
|
OCroft
Стаж: 14 лет 11 месяцев Сообщений: 15
|
OCroft ·
06-Апр-22 15:15
(спустя 16 мин.)
https://rutr.life/forum/viewtopic.php?p=82915874#82915874
Немного отвечаю сам себе. Удалось продвинутся в исследовании и нашёл обходной путь. В первоначальном сообщении казалось было важно, "где" создаётся дочерняя форма, на самом деле, важно "когда" - если дочерняя форма создана после Application.Run, то имеем глюки в ehlib (вряд ли тут проблема именно в ehlib, скорее всего, какое-то сочетание факторов из-за особенностей отрисовки их контролов). И важно, что приложение должно быть запущено сразу в rdp сессии (если запустить в консоли, открыть дочернюю форму и подключится по rdp, то проблема не проявляется)
В общем суть такая, что в Application.Run добавился вызов RemoteSessionCheck, который в итоге выставляет переменную FInRemoteSession. Вот обходной код.
скрытый текст
Код:
{ TApplicationHelper }
type
TApplicationHelper = class helper for TApplication
private
function GetInRemoteSession(): Boolean;
procedure SetInRemoteSession(const Value: Boolean);
public
procedure RemoteSessionCheck;
procedure RemoteSessionChange;
property InRemoteSession: Boolean read GetInRemoteSession
write SetInRemoteSession;
end;
function TApplicationHelper.GetInRemoteSession: Boolean;
begin
Result := FInRemoteSession;
end;
procedure TApplicationHelper.SetInRemoteSession(const Value: Boolean);
begin
FInRemoteSession := Value;
end;
procedure TApplicationHelper.RemoteSessionCheck;
begin
inherited RemoteSessionCheck;
end;
procedure TApplicationHelper.RemoteSessionChange;
var
LMsg: TCMRemoteSessionStatusChanged;
begin
// часть кода из TApplication
LMsg.Msg := CM_REMOTESESSIONSTATUSCHANGED;
LMsg.InRemoteSession := Application.InRemoteSession;
LMsg.Unused := 0;
LMsg.Result := 0;
for var I: Integer := 0 to Pred(Screen.FormCount) do
begin
Screen.Forms[I].Broadcast(TMessage(LMsg));
end;
end;
procedure TForm15.Button1Click(Sender: TObject);
var
LInRemoteSession: Boolean;
begin
if not Assigned(Form16) then
begin
// решает проблему тоже
// Application.SingleBufferingInRemoteSessions := False;
LInRemoteSession := Application.InRemoteSession;
// решает проблему
// если True в момент создания формы, то глюк отрисовки в rdp сессии
Application.InRemoteSession := False;
try
// Form16 := TForm16.Create(Self);
Application.CreateForm(TForm16, Form16);
finally
Application.InRemoteSession := LInRemoteSession;
Application.RemoteSessionChange;
end;
// Application.RemoteSessionCheck;
// Application.RemoteSessionChange;
end;
Form16.Show;
end;
Есть ли простой способ как можно изменить создание всех форм в приложении в одном месте (что-то вроде декоратора на конструктор), не исправляя Vcl.Forms.pas?
|
|
|
|
temp128
Стаж: 16 лет 5 месяцев Сообщений: 478
|
temp128 ·
06-Апр-22 16:26
(спустя 1 час 10 мин., ред. 06-Апр-22 16:41)
Timson16 писал(а):
82965998Добрый день. Программа откомпилированная на 11 версии на delphi, не запускается на виндовс xp. Выдает что не является приложением вин 32. Можно как то заставить ее там работать?
Смотрите тут. Если приложение, будет ругаться, на отсутствие точек входа (функций) в DLL, то почитайте обсуждение тут, тут, тут.
|
|
|
|
Hunter1972
Стаж: 20 лет 4 месяца Сообщений: 192
|
Hunter1972 ·
06-Апр-22 21:07
(спустя 4 часа)
KostyantynKo
Все делал согласно вашим инструкциям, при первой компиляции дельфи начала скачивать, видимо SDK, предложила заменить файлы, согласился. В итоге при линковке получаю вот что:
Ошибка
|
|
|
|
