Альберт Эйнштейнов: заметки с тегом delphi

Несколько подсказок для Delphi

Wed, 09 Sep 2015 02:05:24 +0500

Несколько замечательных подсказок при работе с Delphi IDE:

Чтобы вызвать список всех предупреждений в проекте (как при первой компиляции, или после билда, или после удаления всех dcu-файлов), нужно в меню Project выбрать меню Syntax Check. И все!

Иногда при компиляции появляется предупреждение следующего вида: Unit ’Vcl.FileCtrl’ is specific to a platform. Чтобы его убрать нужно в файле, на который ругается компилятор, после секции interface подставить вот такой хинт: {$WARN UNIT_PLATFORM OFF}.

Для уменьшения размера exe-файла можно в любом месте dpr-файла подставить хинт: {$SetPEFlags IMAGE_FILE_RELOCS_STRIPPED}, предварительно подключив модуль Windows в секцию uses.

Ошибка ORA-03113 при использовании ODAC и Variant

Mon, 15 Dec 2014 08:47:36 +0500

Неожиданно столкнулись с проблемой появления ошибки ORA-03113: end-of-file on communication channel при использовании компонентов ODAC в приложениях, написанных с помощью Delphi XE5. Режим Direct Mode, база данных Oracle 11g, вызов серверных хранимых процедур.

По-русски, это означает, что была прервана связь между клиентом и сервером. Ошибку можно было исправить только переподключением. Непонятным оставался механизм ошибки и соответственно ее источник.

После нескольких дней поиска выяснилось следующее. Среди входных параметров вызываемой хранимой процедуры был один параметр типа VARCHAR. В Delphi в этот параметр данные передавались из переменной типа Variant. Тип Variant удобен тем, что может принимать значение NULL, чего не могут типы Integer или String.

Так вот, при передачи параметра в компонент TStoredProc тип Variant передавался без всяческих преобразований. Вот так:

parameters.Add ( _provider.CreateParameter ( 'datum_level_in', section.DatumLevel ) );

Как раз это и являлось причиной ошибки. По так и невыясненной причине вызов метода Execute напрочь валил текущую сессию.

Достаточно было добавить VarToStr () и все заработало. Замечу, что такое поведение было замечено лишь в том случае, когда реципиентом был именно тип VARCHAR. С типом NUMBER такого не наблюдалось.

parameters.Add ( _provider.CreateParameter ( 'datum_level_in', VarToStr ( section.DatumLevel ) ) );

Неработающие breakpoints в Delphi XE5

Mon, 15 Sep 2014 09:06:23 +0500

Иногда бывает так, что при отладке все breakpoints становятся зелеными, и где бы ты их не поставил, они всегда игнорируются.

Лечится следующим образом:

В дереве проектов жамкаем правой кнопкой мыши и выбираем пункт «Clean» или «Clean All».
Далее пересобираем проект, делая «Build» (Shift+F9).
Запускаем. Все работает.

Проблема обновления файлов при развертывании (deployment) приложения на эмуляторе iOS (Delphi XE5)

Sat, 15 Feb 2014 09:52:49 +0500

Про разработку приложений iOS на Delphi XE5.

В блоге Павла Алхимова я задал такой вопрос:

«Небольшая проблема с настройками deployment при запуске проекта на эмуляторе iOS. В проекте использую базу данных SQLite, создал файл, все хорошо, под Windows 7 работает. Пробую залить на эмулятор — все нормально, работает. Далее в ходе разработки немного меняю структуру БД (добавляю пару таблиц и представление), соответственно меняется сам файл БД. Запускаю под Windows 7 — все нормально, заливаю на эмулятор — не работает, точнее работает, но файл БД остался старым. То есть при очередном deployment он не подтянулся. Почему так? Есть какие-нибудь настройки, флаги или т. п. о которых я не знаю? Единственное, что пришло в голову — руками залезть в скретч-директорию эмулятора и почистить этот файл, тогда при следующем запуске он копируется.»

И получил вот такой ответ от Павла:

«Именно так, если старое приложение не было удалено. Новая база лежит в пакете приложения и пытается при старте приложения извлечься в песочницу — а место уже занято! Поэтому приложение либо удалять нужно, либо в самом приложении удалять меняющийся файл. Я, например, так и поступаю — сделал команду „обновить данные“, которая убивает файл данных и останавливает приложение. При следующем старте недостающий файл будет извлечён из пакета приложения и пойдёт в работу.»

Вот так.

Перестала запускаться среда Delphi

Sat, 15 Feb 2014 09:40:51 +0500

Столкнулся с такой проблемой впервые при работе с Delphi XE5. При очередном открытии проекта неожиданно было выдано окно с вопросом: «Включить IDE при следующем запуске Delphi?». Совершенно не подумав и до конца не осознав нажал «нет». Хотя проверить, что было бы если выбрал «да», так и не удалось пока. В итоге Delphi перестала запускаться. Повисит в диспетчере задач секунд 10 и пропадает.

Переустановки, repair и прочие танцы не помогают.

Стал разбираться... Оказывается это проблема известна еще с версии 2010. Вот пост, который мне собственно и помог: http://www.cyberforum.ru/delphi-beginners/thread64194.html

Там говорится о том, что достаточно удалить ключ реестра (это для версии 2010):
HKEY_CURRENT_USER\Software\CodeGear\BDS\7.0\Disabled IDE Packages\$(BDS)\Bin\delphide140.bpl

Для версии XE5 ключ такой:
HKEY_CURRENT_USER\Software\Embarcadero\BDS\12.0\Disabled IDE Packages\

Удалением одного ключа не обошлось. У меня для версии XE5 пришлось удалить весь раздел Disabled IDE Packages. На машинах, где таких ошибок не возникало такого раздела и нет вовсе.