Delphi Development

UAC для разработчика 2

2009-05-17T01:09:00.006+11:00

Сегодня наконец-то нашел решение проблемы с повышением привилегий для приложения в runtime, которую я озвучивал в одном из своих предыдущих постов. Решение крылось в создании специального COM объекта, который будет содержать весь привилегированный код, требующий повышенных привилегий.
Не буду полностью рассказывать эту возможность, поскольку это все уже описано в блоге Alexander Bozhko Bold&ECO blog
Цикл статей посвященный UAC:
Использование Vista UAC в Delphi: Часть 1
Использование Vista UAC в Delphi: Часть 2
Использование Vista UAC в Delphi: Часть 3

По всей видимости эти же методы будут работать и в Windows 7 - поскольку Microsoft обещает практически полную совместимость с программами, разработанными для Vista.

Borland утонул

2009-05-14T21:49:00.004+11:00

Для многих это уже не новость, но о качестве моего Интернета уже можно слагать легенды - поэтому пишу пока работает, а со стороны выглядит, что притормаживаю. :)

Итак, Borland окончательно утонул. Как мне кажется, основной причиной стало то, что он в свое время отвернулся от того - что и было его именем - от инструментов для программистов и углубился в жизненный цикл. И вот - пожалуйста:

По заключенному 6 мая соглашению, Micro Focus купит Borland из расчета один доллар за акцию. Это на 25% выше стоимости ценных бумаг Borland по итогам торгов во вторник, когда за каждую акцию компании давали 80 центов. Средний же курс ценных бумаг Borland за последние 30 дней составил 60 центов.

Но, тем не менее, последние его решения можно только поприветствовать. Утонув сам - не утащил за собой все наиболее значимые проекты, которые удалось спасти.

Первой ласточкой уходящего Borland'a стала СУБД Interbase - после открытия исходных кодов которой на свет появился проект Firebird.

Затем было выделение отдельно средств разработки и передача их компании Embarcadero - опять же во спасение. (Это было как раз год назад - я писал об этом) И только после того как все эти телодвижения были совершены - Borland спокойненько прекратил свое существование. Причем бесславно. Будем надеяться новые хозяева смогут вернуть к жизни эти продукты и они снова будут столь популярны и востребованы. Но их уже будут знать под другим именем ...

Субботник на блоге

2009-05-12T23:00:00.002+11:00

После небольшого перерыва в месяц (отпуска?) заглянул на собственный блог и ужаснулся. Чертовски долго грузится, плюс ко всему ошибки со скриптами везде. Поэтому перво-наперво решил навести "порядок" - своего рода майский субботник :).

Первое - тормоза. Из-за чего? Конечно же из-за скриптов. Дело в том, что пока я отдыхал - бесславно помер сервис feedmates (ссылку не привожу - помер ведь). Виджет, установленный на блоге пытался обратиться и ждал ... ждал ... ждал... пока не наступал таймаут соединения. Естественно страничка все это время не прорисовывалась. Все, убрал его.

Вместо этого добавил список рекомендуемых постов после каждой заметки - думаю пригодится новым посетителям. :)

С этой фичей пришлось повозиться немного. Основное описание процесса создания этого хака можно почитать здесь (англ.) но оно не ко всем шаблонам подходит, особенно к нестандартным. Так что приходится ковыряться в каждом отдельном случае. Впрочем, автор обещал помочь тем у кого возникнут проблемы.

Но это еще не все! Меня ждал ещё один не очень приятный сюрприз - исходный код в постах перестал подсвечиваться. Синтаксис исходного кода у меня подсвечивается с помошью скрипта, способом описанном на блоге BlogoHelp. Там не мудрствуя лукаво предлагается грузить скрипт сразу с ресурса авторов. Но авторы - тоже люди, и не стали терпеть такую наглость и просто убрали скрипт в другое место. Не став наглеть дальше - закачал скрипт к себе на хостинг и все заработало как и прежде.

Решил поменять иконку блога. Особо не отличаясь оригинальностью, поставил стандартную иконку приложения написанного на Delphi. Кстати, для размещения favicon.ico я воспользовался сервисом для генерации и хостинга favicon (да-да есть и такое - чего только не придумают для блоггеров). Там ничего сложного, кому надо - разберется, если возникнут проблемы - пишите в комментарии, постараюсь помочь.

Пока решил на этом остановиться, но улучшения на этом не заканчиваются - многое ещё предстоит сделать.

Простой пример клиента для WebService

2009-04-11T01:37:00.014+11:00

Одному моему коллеге понадобилось написать небольшого клиента для сервера контента системы электронного документооборота. Собственно сам сервер контента реализован в виде WEB-сервиса, предоставляющего некоторые функции для доступа к документам. Что он только не пробовал и ClientSocket и TCPConnection и HTTPRIO. Но на самом деле все достаточно просто, и не нужно изобретать велосипед :)

Сразу же оговорюсь , что данный пост не претендует на полноту изложения данной темы, здесь я просто хочу показать в каком направлении следует «копать» и покажу как обойти один подводный камень, на который можно наткнуться при создании клиента для WEB-сервисов.

Итак, приступим … У нас есть некоторый WEB-сервис, предоставляющий некоторые функции. Пусть это будет некоторый ASP.NET WebService запущенный на соседней машине с именем Athlon, URI данного WEB-сервиса выглядит следующим образом: http://athlon/test/service.asmx . Набрав данный URI в браузере получаем тестовую страничку, сгенерированную IIS для проверки работоспособности WEB-сервиса:

Из тестовой страницы видно, что WEB-сервис поддерживает одну единственную процедуру с именем HelloWorld. Попробуем ее вызвать из клиентского приложения на Delphi. Естественно создадим новый проект, сохраним куда-нибудь по-удобнее, и займемся самым интересным – автоматической генерацией кода для доступа к WEB-сервису. Для этого в среде Delphi есть специальный мастер который вызвается следующей командой: File -> New -> Other … -> WebServices -> WSDL Importer:

В мастер вводится один единственный параметр – это URI нашего WEB-сервиса:

Но при попытке перейти на следующий шаг мастера появится сообщение об ошибке, примерно следующего содержания, толком ничего не говорящего:

Давайте разберемся, что это такое и почему это происходит. Еще раз наберем URI WEB-сервиса в строке адреса браузера – на экране отобразится тестовая страничка. Тоже самое происходит когда по данному URI обращается мастер – в соответствии с протоколом SOAP он ждет XML описания WEB-сервиса, а ему вместо этого выдают обычную html-страницу. Именно по этому он вываливается с ошибкой невразумительного содержания, поскольку пытается разобрать html и ему это не удается и он сообщает на каких именно тэгах разметки он вы вывалился. Чтобы этого не происходило, мы должны явно указать WEB-сервису, что мы ждем от него WSDL описание сервиса. Делается это очень просто, просто добавляется параметр ?WSDL в URI WEB-сервиса:

http://athlon/test/service.asmx?WSDL

Теперь мастер получает именно те данные, которые ожидает и генерация кода происходит без ошибок:

В результате сгенерировался довольно большой код, ключевой фрагмент которого выглядит так:

  ServiceSoap = interface(IInvokable)
  ['{77573149-9C57-FA51-F11F-EFD527C91BD9}']
    function  HelloWorld: string; stdcall;
  end;

function GetServiceSoap(UseWSDL: Boolean=System.False; Addr: string=''; HTTPRIO: THTTPRIO = nil): ServiceSoap;

Здесь объявляется интерфейс нашего WEB-сервиса и функция для получения этого интерфейса, именно с ними мы и будем дальше работать. Просто для примера вызовем в обаботчике события OnClick для кнопки процедуру и выведем сообщение с результатом

procedure TForm1.Button1Click(Sender: TObject);
var
  ws: ServiceSoap;
begin
  // получаем интерфейс
  ws := GetServiceSoap();
  // вызываем процедуру сервиса
  with ws do
    ShowMessage(HelloWorld);
end;

Вот собственно и все - клиент для WEB-сервиса готов. На его создание потрачено совсем немного времени и написано совсем небольшое количество кода.

Windows 7 и Delphi

2009-02-09T02:27:00.005+10:00

Поддавшись случившейся не так давно в Интернете истерии по поводу выхода первой публичной беты Windows 7, скачал себе 64-разрядную версию и на некоторое время пропал в ней. :) Это было мое первое знакомство с 64-разрядной операционной системой (не говоря уже о Windows 7), хотя мой компьютер уже давным-давно поддерживает их. Все установилось и заработало на удивление гладко, за исключением дурацкого 3G модема от билайна (обыкновенный GPRS-модем от мегафона даже нисколечко не сопротивлялся). Возможно, Microsoft более серьезно подошла к разработке своей новой операционки, а возможно рассказы о проблемах 64-битных систем оказали такими же «сказками на ночь», как и большинство сказок про Vista. Мне почему-то кажется что второе. :)

Но это не очередной хвалебный пост в пользу Microsoft, так что на этом закругляюсь. Остановлюсь только на работе Delphi в Windows 7. Delphi 2009 устанавливается и работает без проблем – так как ей и положено. Про Delphi 7 пока ничего толком сказать не могу, поскольку еще не устанавливал ее, но мне кажется, что также проблем не будет.

Удивительно, но весь негатив сопутствующий появлению Windows Vista, превратился в позитивные настроения всей «экосистемы» (как это называет Microsoft) перед выходом Windows 7. Это касается Delphi-сообщества, вот например Daniel Wischnewski уже создал прототип нескольких компонентов, позволяющих уже сейчас добавлять в приложения поддержку новых возможностей Windows 7 (в первую очередь визуальных).

Естественно, что все эти новые возможности будут работать только в Windows 7. И еще важное замечание. Хотя у компонентов и присутствует инсталлятор, он просто копирует необходимые файлы, устанавливать их придется вручную.

UAC для разработчика

2009-01-31T04:02:00.007+10:00

UAC (User account control) впервые появился в Windows Vista, и сразу же, не заслуженно, получил отрицательную репутацию, а в Интернете появилось полным полно статей как его отключить. Доходит даже до откровенного маразма, что эту функцию ставят как основной недостаток этой операционной системы. Не буду здесь подробно на нем останавливаться, скажу лишь, что у меня он включен по умолчанию, и я нахожу его очень даже полезным для себя, тем более что в Windows 7 он был значительно переработан, хотя на вкус и цвет – все фломастеры разные.

Хотим мы этого или нет UAC есть в операционной системе, и будет дальше, а разработчик программного обеспечения должен учитывать все возможные конфигурации системы, в том числе и с включенным UAC.

Несмотря на то, что UAC обладает некоторой "интеллектуальностью" и при запуске может определить нужно ли приложению увеличение привилегий или нет – возможности его ограничены, и он не всегда корректно работает, что приводит к тихому (или не всегда к тихому) «помиранию» запущенной программы, которой необходимы права администратора, но которые ей никто не дал. Поэтому перед разработчиком стоит задача явно указать необходимый уровень привилегий для своего приложения. Делается это через все тот же файл-манифест приложения, который появился в Windows XP и который используется для отрисовки интерфейса "в стиле XP".

Для явного указания необходимого уровня привилегий используется раздел Security:

<security>
  <requestedprivileges>
    <requestedexecutionlevel level="requireAdministrator">
  </requestedprivileges>
</security>

Полностью файл-манифест приложения может выглядеть, например следующим образом:

<?xml version="1.0" encoding="UTF-8" standalone="yes" ?>
<assembly xmlns="urn:schemas-microsoft-com:asm.v1" manifestVersion="1.0">
 <assemblyIdentity version="1.0.0.0" processorArchitecture="*" 
  name="UAC_Elevation_Prompt" type="win32" />
 <trustInfo xmlns="urn:schemas-microsoft-com:asm.v3">
  <security>
<requestedPrivileges>
<requestedExecutionLevel level="requireAdministrator" />
</requestedPrivileges>
</security>
</trustInfo>
<dependency>
<dependentAssembly>
<assemblyIdentity type="win32" 
  name="Microsoft.Windows.Common-Controls" version="6.0.0.0" 
  publicKeyToken="6595b64144ccf1df" language="*" processorArchitecture="*" />
</dependentAssembly>
</dependency>
</assembly>

Данный манифест необходимо включить в ресурсы приложения, процедура достаточно простая и аналогичная той, которую я описывал для работы с курсорами тут и тут.

После включения манифеста и сборки проекта при запуске приложения появится окно UAС, запрашивающее необходимые привилегии – теперь приложение уже не помрет молча.

Но не все так просто в Delphi 2009. По каким-то своим, никому не известным причинам, разработчики решили добавлять манифест во все проекты по умолчанию. С одной стороны – довольно удобно, но с другой получается наоборот больше работы. Вот, например, так же по умолчанию в ресурсы добавляется иконка приложения и информация о версии. Это не плохо – потому, что существуют инструменты для их быстрого и безболезненного изменения. А манифест – не очень хорошо, мягко говоря, потому как он жестко задан в файле WindowsXP.res в наиболее общей форме и не учитывает специфики конкретного приложения, и нет инструментов для его изменения.

Так вот, при попытке добавления описанного выше манифеста в проект Delphi 2009 получаем предупреждение компилятора о дублировании ресурсов и наш манифест не включается в приложение. Можно перейти в исходный код проекта и убрать директиву компилятора {$R *.res}, но в этом случае мы лишимся иконки приложения и информации о версии. Можно убрать файл WindowsXP.res куда подальше, чтобы Delphi его не нашла – но это тоже неудачный способ выхода из положения – поскольку нарушается работа VCL.

Пока я не нашел способа грамотно подменить манифест приложения, так же остается открытым вопрос повышения привилегий во время выполнения программы, поскольку приложению могут понадобится права администратора только для выполнения какой либо одной операции, которая еще и не всегда используется и нет смысла его постоянно гонять под админом.

Оригинальный способ для решения проблем использован в файловом менеджере Total Commander – для выполнения операций требующих повышения привилегий используется отдельное приложение TCADMIN.EXE, которому передается команда в случае невозможности выполнения операции с правами текущего пользователя.

Интересно, а как еще можно организовать повышение привилегий в Runtime и решить проблемы с манифестом в Delphi 2009?

Установка FIBPlus на Delphi 2009 Trial

2009-01-24T04:14:00.006+10:00

Установка обновленных компонентов FIBPlus, о релизе которых я писал ранее, не обошлась без пляски с бубном.

Началось все с того, что инсталлятор не смог корректно установить компоненты на пробную версию Delphi 2009. В результате я получил оошибку:

!!! Unsucessfuly compile package FibPlus2009.dpk!!!

Открыв лог-файл, созданный в результате установки, я обнаружил истинную причину:

Generate DCC32 config file: C:\Program Files\Devrace\FIBPlus_Unicode\7.0.1076\sources\dcc32.cfg
Initial directory = C:\Program Files\Devrace\FIBPlus_Unicode\7.0.1076\sources\
Command Line = "C:\Program Files\CodeGear\RAD Studio\6.0\bin\dcc32.exe" FibPlus2009.dpk

Command line tools are not supported in the trial version.

Замечательно! Ну ладно, всегда можно скомпилировать и установить пакеты через IDE Delphi. Но эта попытка тоже не увенчалась успехом. Компилятор отказался найти файлы библиотеки FIBPlus, не смотря на то что при установке было указано добавить все пути в нужное место. Даже после того как я прописал все необходимые пути (Tools->Options->Library Win32), один из пакетов (FIBDBMidas2009.dpk) все равно наотрез отказался компилироваться. Но зато другие компоненты и мастеры установились и наконец-то заработали.

Интересный момент: готовилась к выходу именно новая версия компонентов FIBPlus с индексом 7.0, но что-то изменило планы разработчиков. :) В пользу этой версии говорит инсталлятор и файл readme.txt с описанием нововведений:

7.1076
1. Уникодные поля теперь могут маппироваться не на TFIBWideStringField а на
TFIBStringField
2 Добавлено свойство TFIBXSQLVAR.AsAnsiString: AnsiString ;

7.1019
1. В скриптере ошибка при обработке содержимого блоб-полей
2. Ошибка при работе строковых полей не являющихся FIBStringField
3. Подключен быстрый Locate
4. Восстановлена работоспособность IB_Services
5. Восстановлена работоспособность SQLEditor
6. Добавлен обработчик pFIBDataSet.OnLockSQLText. Позволяет заменить генерацию лок-сиквела своей.

и версия в Object Inspector :)

Ну как же так! Проверять программы надо перед релизом! ;-)

Вышло обновление FIBPlus для Delphi/C++ Builder 2009

2009-01-23T13:32:00.001+10:00

Без преувеличения можно сказать, что событие, которого ждали многие Delphi-программисты (и я в том числе) наконец-то свершилось! Не прошло и пол года (или прошло? :)) как вышла обновленная версия библиотеки компонентов для доступа к Firebird и Interbase – FIBPlus. Номер версии компонентов остался прежним – 6.9.5 поскольку единственное нововведение – это поддержка Delphi 2009, и эта версия не может быть установлена на более ранние версии Delphi. По сути – это те же самые компоненты только для Delphi 2009.

Теперь многие проекты, основанные на этой библиотеке, могут быть переведены на Delphi 2009, что не может не радовать. А то я уже стал задумываться об использовании стандартных IBX и хорошо, что до этого не дошло. :)

Единственное, что омрачает это приятное известие – это то, что разработчики тянули-тянули с выходом библиотеки, и у многих уже закончилась годовая подписка на обновления. У меня она закончилась буквально меньше месяца назад, что вдвойне обидно.

А еще иногда проскакивает мысль, что задержка с выходом компонентов делалась намеренно, но оставим это на совести разработчиков, а догадки – при себе.

Delphi Prism - первое знакомство

2009-01-20T20:32:00.004+10:00

Пару дней назад кое-как руки дошли и до нового продукта - Delphi Prism. (Что-то отставать я стал от технологий :)). Буду наверстывать.

Первое что бросается в глаза - разработчики ~~обленились~~ не стали возиться с собственной IDE и воспользовались бесплатным готовым решением компании Microsoft - оболочкой Microsoft Visual Studio.

Собственно, как и обещали разработчики - Delphi Prism совершает скачок ~~из феодализма в коммунизм~~ из .NET 1.1 в .NET 3.5. И первым подключенным по умолчанию модулем является System.Linq. На эту возможность я и решил сегодня посмотреть в первую очередь.

Для первого теста я выбрал LINQ to XML - решил посмотреть как будет выглядеть работа с XML файлами здесь. Файл и задачу выбрал такую же что и в моем предыдущем посте про работу с XML в Delphi. И по аналогии с C# быстро набросал код программы.

Первое, что бросилось в глаза - синтаксис LINQ немного отличается, так например меня ввело в ступор сообщение об ошибке на операторе orderby, оказывается тут он пишется как order by. Так же по привычке объявил переменные перед блоком begin ... end; что тут являлось ошибкой. :)

В конце-концов у меня получился следующий код:


namespace ConsoleApplication1;

interface

uses
  System.Linq,
  System.Xml,
  System.Xml.Linq;

type
  ConsoleApp = class
  public
    class method Main;
  end;

implementation

class method ConsoleApp.Main;
begin
  var  ComputersFile: System.Xml.Linq.XElement;
  ComputersFile := XElement.Load('test.xml');
  var Elements := from el in ComputersFile.Descendants() 
                where el.Name = 'DisplayName'
                order by el.Value
                select el;
  
  for e in Elements do
    Console.WriteLine(e.value);
  
  Console.Read;
end;

end.

Такую же программу я написал и на C# и решил их сравнить. Первое - размеры файлов были разные. Файл написанный с помощью Delphi Prism был больше. Мне это показалось странным - решил выяснить. Оказалось все просто: Delphi по умолчанию даже к консольному приложению, по каким-то своим личным соображениям добавляет иконку по умолчанию, удалив ее - размеры файлов стали одинаковы.

Еще не поленился дизассемблировать обе версии программы. IL-код их оказался совершенно разным, как собственно я и предполагал, сам не знаю что я надеялся там увидеть :) Не стал дальше копать и на этом решил пока остановиться.

В общем, первое впечатление осталось приятное - надо бы найти время по плотнее сесть поразбираться, но катастрофически ни на что не хватает времени.

Кстати в поставку Delphi Prism входят провайдеры для доступа к базам данных Interbase и Blackfish SQL, что позволяет писать управляемый код для работы с этими базами данных. Интересно, а как Delphi Prism интегрируется с Visual Studio? Будут ли доступны эти провайдеры при написании кода на C#? Но это уже материал для следующей заметки...

Осторожно! Помощники класса!

2009-01-19T01:05:00.000+10:00

В продолжение темы помощников классов и записей. Я провел небольшое исследование в результате которого выяснилось несколько неприятных моментов применения хелперов. На первый взгляд все прекрасно! Мы можем взять и дополнить любой класс практически любым функционалом. Но не все так радужно.

Самая большая обнаруженная мной проблема состоит в том, что для класса может существовать только ОДИН хелпер. Для иллюстрации этого создадим один небольшой проект, содержащий один класс и два хелпера к нему, и посмотрим, что же у нас получилось.

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

type
  TSomeObject = class
    function X: integer;
  end;

  TSomeObjectHelper = class helper for TSomeObject
    function y: integer;
  end;

  TSomeObjectHelper2 = class helper for TSomeObject
    function z: integer;
  end;

{ TSomeObjectHelper }

function TSomeObjectHelper.y: integer;
begin
  result := 1;
end;

{ TSomeObject }

function TSomeObject.X: integer;
begin
  result := 0;
end;

{ TSomeObjectHelper2 }

function TSomeObjectHelper2.z: integer;
begin
  result := 2;
end;

begin
  try
    with TSomeObject.Create do
    begin
      writeln(z);
      writeln(y);
    end;
    readln;
  except
    on E:Exception do
      Writeln(E.Classname, ': ', E.Message);
  end;
end.

Мы получим ошибку компиляции. Потому что компилятор, видит только один хелпер - TSomeClassHelper2. Если закомнтировать его описание и реализацию, то компилятор увидит второй хелпер.

К чему это может привести? Это может привести к трудноуловимым ошибкам, особенно в больших проектах, разрабатываемых не одним разработчиком. Или, как вариант, представим такую ситуацию: в какой нибудь библиотеке - например FIBPlus или DevExpress вдруг используют хелперы, вы снова добавили хелпер уже в своем коде. Компилятор увидел ВАШ хелпер, а исконный хелпер разработчиков - нет, и все - проект уже не скомпилируется. Ситуация еще больше усугубится если у библиотеки закрыты исходные коды.

Поэтому, применять хелперы следует с большой осторожностью, 100 раз подумав.

Помощники записей

2009-01-18T19:38:00.006+10:00

Сегодня, разбираясь с проектом, который я пытаюсь перевести на Delphi 2009, натолкнулся на одну забавную недокументированную возможность. Наряду с помощниками классов (Class Helpers) введенными в последних версиях Delphi, разработчику доступны и помощники записей!

Стоит сразу отметить, что данная возможность не поддерживается редактором кода и Code Insight. Так в редакторе код подчеркивается красным, а в Code Insight добавленное недоступно.

НО, с точки зрения компилятора, следующий код абсолютно рабочий:

type
  TRectHelper = record helper for TRect
    function Width: integer;
  end;

{ TRectHelper }

function TRectHelper.Width: integer;
begin
  Result := Self.Right - Self.Left;
end;

Использовать новый метод можно, например, следующим образом:

var
  p: TRect;
begin
  p.Top := 0;
  p.Left := 0;
  p.Bottom := 12;
  p.Right := 12;
  ShowMessage(inttostr(p.width));
end;

Не знаю, на сколько эта возможность может быть востребована, но она есть.

P.S. К слову сказать, что Class Helpers разработчики не рекомендуют использовать постоянно, а про Record Helpers они и вообще умолчали. :)

Неизвестные возможности стандартных компонентов

2009-01-17T01:42:00.003+10:00

Одной строкой: Сегодня Bose сделал уникальное открытие. Оказывается, что стандартный TDbGrid умеет рисовать многострочные заголовки с группировкой. Подробнее можно прочитать и посмотреть в его блоге.

Что самое смешное, что данная возможность не является недокументированной, по крайней мере в справке Delphi 2009 можно найти информацию о ней, но кто бы читал эту самую справку. :)

5 книг по Delphi которые следует прочитать

2009-01-16T22:21:00.004+10:00

Все мы когда-то только начинали и учились программировать. Кто-то сидел и сам разбирался со всеми возможными проблемами, кто- сразу лез на форум и пачками создавал темы вроде "АААААА! пАмАгИтЕ!". Но так или иначе все начинали с азов, которые описаны в литературе. (Хотя не все из второй категории :)).

Далее приведу небольшой ТОП5 книг которые помогли мне избежать многих вопросов, некоторые из них я перечитывал в разной последовательности и несколько раз.

Перво-наперво, из разряда "книги для начинающих" - это Стив Тейксейра, Ксавье Пачеко. Delphi 5, Руководство разработчика. В двух томах. - Очень удачная, на мой взгляд, книга все грамотно и понятно написано, начальные сведения я черпал именно из нее.

Еще одна очень хорошая книга, на этот раз отечественного автора - Архангельский А.Я. Программирование Delphi 5. - Достаточно объемная книга, в которой есть практически все, что нужно начинающему.

Небольшое отступление. Во всех приводимых книгах в основном описываются довольно старые версии Delphi, но это не так важно, поскольку в них описываются именно основы - так необходимые начинающему. А про все новомодные добавления в виде хелперов и анонимных методов на начальном этапе знать попросту вредно. Когда будет опыт - с ними разобраться не составит труда, и литература не понадобится.

Продолжу импровизированный TOP книг.

На начальном этапе также полезно будет почитать книгу Рода Стивенса - Delphi. Готовые алгоритмы. В ней рассматривается создание и эффективное использование алгоритмов для работы со стеками, списками, очередями - вещами хоть и не всегда применяемыми при реальном программировании, но знание которых очень полезно.

В переходном этапе - когда уже и не новичек, но все же еще чего то не хватает, я нашел для себя книгу П.Дарахвелидзе Е.Маркова. Программирование в Delphi 7

Ну и самая лучшее оставил на последок. Самой лучшей книгой я считаю книгу Марко Кэнту - Программирование в Delphi 7 для профессионалов. В которой рассматриваются практически все темы, связанные с программированием в Delphi.

Это книги из серии "то что читать полезно", но существует еще целый пласт книг на которых недобросовестные авторы просто делают деньги. Я их не осуждаю - каждый зарабатывает так как считает так как считает нужным, но читать я их не советую. В эту категорию для меня попадает довольно большое количество книг начиная от всевозможных "Библий" и "освой за 5-10-15 минут" и заканчивая чьими-то глазами. Поскольку в этих книгах довольно часто отражается не истинное положение вещей, а видение автора, причем не всегда правильное.

В прошлом году разгорелся даже довольно большой спор по поводу одной "статьи" одного такого автора на блоге Delphist.ru. Я абсолютно согласен с aktuba, в одной из приведенных мной книг даже подробно описано ПОЧЕМУ так делать нельзя, но принять участие в споре не смог, поскольку комментарии не добавлялись. Но вроде бы сейчас эта ошибка исправлена.

Работа с XML

2009-01-14T19:18:00.003+10:00

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

Я тоже уже писал по этому поводу, но хотел бы вернуться к реальному случаю быстрого разбора XML файла и извлечения данных, который я сегодня проделал на работе. Получение необходимых данных у меня заняло не более 5 минут времени.

Предыстория. Сегодня понадобилось обработать данные об установленных программах на компьютерах пользователей (да, да, пиратов выявляем :)). Технический отдел предоставил мне такую информацию содраную с ничего не подозревающих пользователей по сети с использованием WMI. Программа, которой они пользовались выдает отчеты в формате XML. Соответственно - мне притащили гору XML файлов с довольно сложной структурой из которых мне необходимо было вытащить только название установленных программных продуктов.

Обработка. Просмотрев пару файлов вручную, понял что так и состариться не долго, и решил написать небольшой конвертер. Запустив Delphi - выбрал в репозитарии объект XML DataBinding и скормил ему один из файлов. Все настройки и параметры я оставил по умолчанию и в результате у меня сформировался модуль с большим количеством классов и интерфейсов для доступа к элементам этого XML файла. Я не стал долго разбираться со структурой классов, сразу же перешел к написанию конвертера.

В новом консольном приложении написал довольно простой код:


program XML2TXT;

uses
  Forms,
  Classes, SysUtils,
  SoftwareXML in 'SoftwareXML.pas';

procedure CovertXML2Text;
var
  softbase : IXMLSTDSoftwareType;
  i: integer;
  sr: TSearchRec;
  CurDir: string;
  ExportFile: TStringList;
begin
  CurDir := IncludeTrailingPathDelimiter(ExtractFilePath(Application.ExeName));
  if FindFirst(CurDir+'*.xml', faAnyFile, sr) = 0 then
  repeat
    ExportFile := TStringList.Create;
    softbase := LoadSTDSoftware(Pchar(CurDir+sr.Name));
    for i := 0 to softbase.InstalledSoftware.source.software.Count - 1 do
      ExportFile.Add(softbase.InstalledSoftware.source.software[i].DisplayName);
    ExportFile.Sort;
    ExportFile.SaveToFile(CurDir + softbase.InstalledSoftware.Source.servername+'.txt');
    ExportFile.Free;
  until FindNext(sr) <> 0;
end;

begin
  Application.Initialize;
  CovertXML2Text;
end.

В результате которого у меня образовался по одному текстовичку на каждый компьютер в сетке, содержащий список установленного ПО.

Чувствую что данный код потребует пояснений. Например, зачем я в консольном приложении использовал модуль Forms и вызывал процедуру Application.Initialize;?

На самом деле все просто - это небольшой хак, позволяющий использовать XML Data Binding в консольном приложении. Потому как в нем упорно отказывался инициализироваться класс для работы с XML. В истинных причинах пока не разбирался - сегодня было важно время, я и так 4 из 5 минут потратил на борьбу с этой ошибкой. :) Думаю позже разобраться с этой проблемой и написать в чем истинная причина.

Странный класс softbase был создан на основе XML файла - так назывался корневой элемент, а softbase.InstalledSoftware.source.software[i].DisplayName - просто навигация по вложенным элементам до нужного и получение его значения.

Вот собственно так выглядит один из самых быстрых способов работы с XML в Delphi.

Новое в Delphi 2009: работа с ресурсами

2009-01-12T19:49:00.005+10:00

Чуть ранее я уже писал о работе с ресурсами в Delphi. Там был описан абсолютно универсальный способ, работающий в любой версии Delphi. Существует еще одна возможность прикрепления ресурсов. Но сегодня я расскажу о том, какие новые возможности по работе с ресурсами нам предлагает Delphi 2009.

Если раньше можно было добавить файл с описаниями ресурсов (*.rc) в проект, и он автоматически скомпилируется и привяжется, то в Delphi 2009 разработчики пошли еще дальше. Теперь с помощью менеджера проектов (Project Manager) в проект можно добавлять сами ресурсы!

Так же с помощью меню Project -> Resources можно вызвать менеджер ресурсов:

Единственное, чем мне не понравились эти нововведения - это не очень удобный менеджер ресурсов. Мне кажется в нем будет сложно работать при большом количестве подключаемых ресурсов. ~~Так же удивило малое количество поддерживаемых типов ресурсов, поддерживаются только Bitmap, RCData и None.~~ На самом деле тип ресурса определяется по формату файла. Так например при добавлении курсора в выпадающем списке становятся доступны варианты - Cursor, RCData, None, при выборе иконки - Icon, RCData и None, а при выборе JPEG изображения - только RCData И None.

Все подключенные подобным образом ресурсы при работе с программой подгружаются стандартным образом с использованием идентификатора, которй так же можно при желании изменить с помощью менеджера ресурсов.

Технологии интеллектуального редактирования (Часть III)

2009-01-11T23:34:00.008+10:00

В этой заметке я продолжу обзор наиболее продвинутых возможностей редактирования исходного кода в Delphi. Напомню, что несколько ранее в Части I рассматривались возможности интеллектуального поиска, а в Части II - возможности по быстрому созданию и переименованию конструкций кода.

Ну чтож, начнем. Наиболее мощной и одновременно ресурсоемкой является возможность перемещения (Move). Причем перемещать можно как статические члены класса в другой класс, так и сами классы в другое пространство имен. Для выполнения этой функции следует встать на соответствующий идентификатор и дать команду Refactor -> Move

Так же есть возможность быстро перемещать члены классов от дочерних классов к одному из родительских или наоборот - от родительского класса - к одному из классов-наследников. Если данная команда применима к выделенному члену класса, то на экране появится следующее диалоговое окно для выбора:

Это были две самые интересные, на мой взгляд, операции рефакторинга, которые позволяют вносить глобальные изменения в код, не рискуя при этом потерять его работоспособность или внести большое количество трудноуловимых ошибок.

Еще одной немаловажной особенностью является то, что перед применением выполнения рефакторинга можно оценить те изменения в коде которые получатся. А в том случае, если вдруг в результате затяжной операции рефакторинга произойдет какая либо ошибка - код вернется в исходное состояние.

Ну и еще - рефакторини можно отменять так же как и любые другие действия в редакторе кода - с помощью клавиш Ctrl+Z, что делает их очень мощным и простым инструментом.

Технологии интеллектуального редактирования (Часть II)

2009-01-10T14:18:00.008+10:00

Продолжим начатый ранее разговор о рефакторинге. Сегодня рассмотрим более продвинутые возможности по интеллектуальному редактированию.

Как обычно начнем с более простых возможностей, первой из которых рассмотрим быструю декларацию переменной и поля. В заметке посвященной LiveTemplates я уже рассказывал как можно быстро объявить переменную. Но есть еще один вариант. Представим себе ситуацию, когда вы уже пытаетесь скомпилировать проект с не объявленной переменной, естественно компилятор выдаст ошибку:

[DCC Error] Unit2.pas(94): E2003 Undeclared identifier: 's'

Так вот, если теперь встать на эту ошибку и из контекстного меню выбрать пункт Declare Variable то в диалоговом окне можно выбрать тип определяемой переменной и при необходимости даже инициализировать ее:

Этим средством удобно пользоваться когда необходимо быстро задействовать новые локальные переменны - например при добавлении циклов.

Аналогично можно поступить если требуется не локальная переменная, а поле класса - Declare Field. Единственное отличие заключается в том, что для поля класса можно дополнительно выбрать область видимости.

Следующая замечательная возможность называется визуальное создание метода (Extract Method). Она позволяет выделить в редакторе кода произвольную часть кода, и организовать ее в виде метода. На рисунке я выделил код, отвечающий за удаление временных файлов в отдельный метод:

При выделении более сложного участка кода в процессе рефакторинга автоматически создадутся параметры метода и его локальные переменные.

Пожалуй самая используемая мной возможность рефакторинга - это визуальное изменение параметров (Change Parameters). Очень удобно при большом количестве параметров, часть из которых задана со значениями по умолчанию. Вызывается из контекстного меню редактора кода, если предварительно выделить имя необходимой процедуры или метода.

Ну и в завершение еще одна из часто используемых и полезных функций рефакторинга - глобальное переименование идентификатора (Rename). Сколько хлопот раньше приносило переименование какого-либо визуального контрола (скажем TLabel) если он использовался коде. Все вхождения можно было отловить только с помощью компилятора и спотыкания на каждом вхождении. Но теперь с этим покончено. Необходимо всего лишь встать на необходимый идентификатор и дать команду Refactor -> Rename. Данная операция применима к названиям переменных, методов, полей, классов, структуур, интерфейсов и параметров.

Перед переименованием можно просмотреть все идентификаторы которые будут изменены.

В следующей части речь пойдет перемещениях частей кода. Не переключайтесь. :)

Технологии интеллектуального редактирования (Часть I)

2009-01-09T16:54:00.010+10:00

Продолжаю публиковать серию заметок начатую мной в заметке "Отличия новых версий Delphi от Delphi 7". Сегодня речь пойдет о технологиях интеллектуального редактирования (в англоязычной терминологии Refactoring). Взамен такого длинного русскоязычного названия я буду применять более короткое – "рефакторинг".

Итак, рефакторинг является одним из наиболее значимых нововведений последних версий Delphi. Ключевой особенностью рефакторинга является то, что перед применением изменений их можно просмотреть, а при необходимости легко отменить.

Начнем, пожалуй, с самых простых сценариев применения рефакторинга с поиска. Рассмотрим первую возможность - "Поиск модуля". Данная возможность позволяет найти необходимый модуль и добавить его к списку подключенных модулей в разделе Interface или Implementation. Кстати сказать, все команды рефакторинга вызываются либо из главного меню среды – Refactorings, либо через контекстное меню редактора кода. Причем можно производить поиск не только по имени модуля, но и по имении функций входяших в него (!!!). На рисунке приведен пример поиска модуля по функции ShellExecute:

При нажатии кнопки OK название модуля ShellAPI добавится в раздел подключенных модулей раздела Implementation.

Еще одна прекрасная возможность поиска - поиск ссылок (FindReference), позволяющаяя найти все упоминания о каком либо идентификаторе во всех связанных файлах проекта.

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

Для поиска локальных идентификаторов можно воспользоваться вариантом этой функции - Find Local Reference. Результат ее действия аналогичен.

Рассмотрим еще одну возможность поиска. Новая возможность называется "Поиск класса" (FindClass), позволяющая находить определения классов по их именам.

Нажав кнопку OK мы перейдем к описанию класса.

На сегодня, пожалуй, все, продолжение в следующих заметках.

Обновление блога

2009-01-09T02:13:00.005+10:00

Еще немного поразмыслив над целями, поставленными мной ранее в заметке «Цели блога 2009», и сопоставив их с текущими положением дел с хостингом, решил немного обновить блог. На это меня в большой степени подтолкнул блог «On-line помощь при ведении блога на Blogger.com» В новом обновленном дизайне блок для вывода содержания заметки несколько больше – так что исходный код теперь должен помещаться. Так же в скором времени планирую прикрутить подсветку синтаксиса для исходного кода и отказаться от размещения исходного кода в картинках – как в предыдущей моей заметке.

Еще из нового – появилась возможность подписываться в один клик в агрегатор новостей Google Reader, а так же получать новые заметки по электронной почте, так что не забываем подписываться на обновления, в планах еще много интересных (на мой взгляд) тем для заметок. :)

Теперь комментирование заметок встроено на страницу с самой заметкой, а не отдельно как было ранее. Комментировать стало удобнее – так что не забываем комментировать. :)

Самому пока не нравится как выводятся списки последних заметок и комментариев – буду думать как исправить. Пока пусть так будет. :) Если заметите еще проблемы с дизайном, можно оставлять комментарии к этой заметке, буду пытаться исправлять.

Вот, в принципе и все.

P.S. Странное черное поле ввода в правом верхнем углу - это поиск по блогу. :)

Перевод проекта на Delphi 2009 – первые грабли

2009-01-08T20:32:00.009+10:00

Сегодня выдалось немного свободного времени и решил я поковырять свой проект на предмет совместимости с Delphi 2009. В одной из моих предыдущих заметок я уже говорил, что проект отказался компилироваться. Начнем разбираться почему.

Первым делом компилятор споткнулся о «мертвую» (нигде не использующуюся) процедуру RunDosAndWait которая запускала консольное приложение фоном и ждала его выполнения. Честно говоря, я намеренно не стал убирать эту процедуру и берег ее для такого случая, как она мне сегодня пригодится – речь пойдет немного позже.

Итак, не работает функция CreateProcess(nil, PChar(CommandLine), nil, nil, true, 0, nil, nil, StartupInfo, ProcessInfo). Попробовал поискать в инете, толком решения проблемы не нашел. На одном из форумов тоже сталкивались с этой проблемой, но решения предложено не было.

Пробуем просто создать процесс:

Получаем следующую картинку:

Поскольку новая Delphi 2009 это один большой Юникод, то думаю следует поискать причину в этом. Попробуем разобраться почему код отлично работавший в предыдущих версиях резко перестал работать. В предыдущих версиях (не Юникод) при вызове функции CreateProcess фактически вызывалась ANSI-версия этой функции – CreateProcessA, в новой Юникод-версии фактически вызывается CreateProcessW и по всей видимости в этом то и кроется основная проблема. А так как CreateProcess это самая что ни на есть WinAPI функция, попробуем поискать ответы на наши вопросы в MSDN.

Вот собственно, что и следовало доказать. Функции CreateProcessA и CreaterocessW ведут себя по-разному:

The Unicode version of this function, CreateProcessW, can modify the contents of this string. Therefore, this parameter cannot be a pointer to read-only memory (such as a const variable or a literal string). If this parameter is a constant string, the function may cause an access violation.

Что в вольном переводе означает, что эта функция может изменить содержание строки и поэтому параметр не может быть константой или строкой символов. Напрашивается самый простой вариант:

Но в этом случае программа так же откажется работать. Дело в том, что оптимизирующий компилятор Delphi вместо нашей переменной все равно воткнет константу, поскольку он видит, что значение нигде по коду не меняется. Чтобы проверить правильность наших выводов относительно функции CreateProcess слегка изменим код, чтобы обновить оптимизатор:

Теперь программа исполняется так как положено. Единственное, что мне необходимо было сделать, чтобы обойти этот баг – это изменить описание функции. Вместо:

function RunDosAndWait(const CommandLine: string; OutSrings: TStrings): boolean;

написать

function RunDosAndWait(var CommandLine: string; OutSrings: TStrings): boolean;.

Все - с этим разобрались, но в этой же процедуре осталась ошибка с процедурой OemToChar, переводящей кириллический текст из консоли в удобочитаемый вид. Но об этом – в другой раз.

Цели блога 2009

2009-01-06T17:51:00.004+10:00

Сегодня с утра бродил по Интернету в поисках чего-то сверхважного, ну и в итоге нашел совершенно не то, что искал. :) Нашел интересный блог - «Блог про блоги от Дмитрия Донченко». Почему то меня заинтересовала запись, в которой автором организуется эстафета «Интернет-цели 2009». Немного пораздумав, решил тоже принять участие, но не в виде эстафеты, поскольку блогосфера у нас еще только начинает развиваться и то если начинает. Вот на пример у нас был один довольно активный блогер, но умотал в Австралию ... Больше я о таковых не слышал, TooDoo кстати тоже ... Отдельно стоят два прошлогодних стартапа - Биробиджанский блог и Дальневосточный IT-блог. Но они коллективные и узкоспециализированные, поэтому вернемся к моему блогу :)

Несмотря на то, что моему блогу уже более года, он еще зеленый. Отчасти это связано с текущей тематикой блога. Поэтому ставлю целью к двухлетию блога подойти более серьезно. :)

Как я писал в своей предыдущей записи – основной целью на 2009 год у меня является освоение новых технологий – в первую очередь технологий Microsoft, в результате это отразится и на самом блоге, он уже не будет таким узко-тематическим, и, по всей видимости, сменит название. По крайней мере, на сегодняшний день это как цель.

Второй целью является переезд блога с Blogger'а. Что-то в последнее время перестал мне нравится этот сервис. Скорее всего блог превратится в standalone и публикации в нем будут появляться более регулярно.

Ну наверное еще читателей побольше, и в рейтинге повыше. Почему то хочется в ТОП1000 на яндекс.блогах и сотню на счетчике feedburner.

Вот такие пока цели, на мой взгляд довольно достижимые. Посмотрим, что из этого всего получится. Обсудим через год. ;-)

Новый год – новые технологии

2009-01-05T23:49:00.005+10:00

Возможно, данный пост несколько запоздал, но я только что вернулся из поездки в Хабаровск и только сейчас смог спокойно сесть перед компьютером, чтобы отдохнуть и предаться размышлениям.

На мой взгляд, новогодние каникулы имеют большой смысл. Это время, когда старый год уже ушел, а новый еще вроде как и не наступил. Вся суета, которая обычно случается под конец года уже позади и можно спокойно оглянуться назад, на то, что уже сделано или наоборот не сделано, и посмотреть вперед.

Так как я в прошедшем году так или иначе был связан с программированием, а именно с программированием в среде Delphi, то хочу заострить внимание на ней. Что же случилось за прошедший год с Delphi? А произошло два важных события: 1) в очередной раз перепродались – на этот раз компании Embarcadero 2) выпустили новую версию среды.

Выпущенная версия Delphi имеет номер 12. Существует поверие, которого я тоже придерживаюсь, что наиболее стабильными и удачными являются нечетные версии Delphi. Я работаю с Delphi начиная с 3-й версии, и в основном пользовался именно нечетными версиями. Взять, например такой шедевр, как Delphi 7 не потерявшей актуальности и по сей день. Но как из любого правила есть исключение и таким исключением явилась Delphi версии 9, более известная как Delphi 2005 – полностью провальная и глючная версия. И на сегодняшний момент я считаю наиболее стабильной 11-ю версию среды – Delphi 2007.

Это то, что касалось второго пункта. Теперь первый. Глубоко сомневаюсь, что все эти перестроения пошли продукту на пользу. Есть хорошая поговорка – «Новая метла по новому метет», ну и намела она, на отсутствие обратной совместимости с большим количеством сторонних компонентов и на отсутствие исходных кодов, которые раньше стабильно поставлялись с каждой версией Delphi.

Ладно, оставим в покое саму среду – на самом деле она не такая уж и плохая, и я не сколько не жалею, что посвятил ей очень много времени. Основная проблема мне видится в самой поддержке своих разработчиков от производителя. Вот, к примеру, захотелось мне создать мега стартап, неважно какой. Что мне для этого необходимо? Инструмент. Я неплохо знаю Delphi и хочу использовать его. Версии Turbo Explorer мне явно не достаточно, да и устарела она уже, следовательно, мне придется выкладывать деньги за полную версию ПО (к слову - Delphi 2009 for Win32 Professional Box - 30300 руб). А если разработчик не один – то получается довольно приличная сумма для стартапа.

В то же время, ближайший оппонент – компания Microsoft предлагает довольно интересную программу – BizSpark. Подробнее писать о ней не буду (или пока не буду, кому интересно – можно пойти по ссылке или почитать тут, кстати впервые о ней я услышал на днях разработчика, которые проходили в Хабаровске). Скажу суть – практически все технологии компании доступны для стартапов, на определенных условиях, но все же доступны. А где альтернатива от Embarcadero?

Вот отсюда и получается, что мне как разработчику на данный момент выгоднее пользоваться технологиями Microsoft для создания новых проектов. Отсюда и получаются новые приоритеты на 2009 год, которые уже давно подогреваются мыслями о смене языка и переходом на платформу .NET.

Размышления о бесперспективности рынка

2008-12-31T01:11:00.003+10:00

При написании одного комментария в Дальневосточнй IT блог обратился к своим старым постам, касающихся Delphi for PHP, и обнаружил там один интересный комментарий от анонимного пользователя. Который утверждает, что российский рынок бесперспективен для западных разработчиков, почему в них и нет поддержки русского языка, аргументируя, что у нас привыкли воровать софт. Ну, на самом деле это не аргумент, по себе других не судят.

Если взять лидера рынка ПО – компанию Microsoft – то получается же все наоборот. Не так давно компания завершила перевод всей документации содержащейся в MSDN на русский язык, вышли их программы и инструменты на русском языке – Visual Studio, SQL Server и многие другие. Зачем это все, если наш рынок так плох?

Не помню точно где, но в каком-то блоге читал – автор пишет, что Microsoft – коммерческая компания, целью создания которой является получение прибыли. Зачем им тогда это все? Проделана колоссальная работа по переводу всей документации, а ведь Microsoft не благотворительная организация.

Прихожу к выводу, что не все так однозначно с нашим рынком :) и автор комментария, по меньшей мере, заблуждается. Ведь в последнее время в нашей стране ситуация с пиратским ПО постепенно улучшается, что не может меня не радовать как разработчика. Немалую роль в улучшении ситуации, на мой взгляд, играют и принимаемые законодательные меры и усилия разработчиков ПО. К примеру, Лаборатория Касперского. В свое время благодаря пиратству их антивирус приобрел довольно большую популярность, а потом – «ваш ключ занесен в черный список» и хоть ты тресни, но не найти рабочего ключа в сети. И стали покупать. А куда деться то? Ведь вирусы никуда не делись. А остальные решения – какие то не серьезные. Особенно NOD32 – сколько раз уже приходилось восстанавливать систему «защищенную» им, но пораженную древним вирусом lovesun.

На этом завершаю свои предновогодние философствования, а то так можно тоже скатиться к «религиозной войне» которая разгорелась на Дальневосточном блоге по поводу PHP.

Использование собственных курсоров в Delphi

2008-12-29T00:30:00.001+10:00

На днях мне задали довольно тривиальный вопрос: "Как сделать собственные курсоры в Delphi?". Что, думаю, в сети разве нет информации по этому поводу? Методом "гугления" обнаружил статью на DelphiSources - была первая в списке. Но это не совсем то, просмотрев еще несклько ресурсов, бросил это дело. И хотя вся процедура создания и подключения курсоров, да и других ресурсов довольно проста, но она не прозрачна и содержит много подводных камней, и может вызвать затруднения у начинающего программиста.

Итак, что мы имеем? Тривиальная задача из студенчества: создание примитивнейшего графического редактора. Необходимо подключить к программе и использовать курсоры для карандаша и резинки.

Собственно курсоры создаются в программе ImageEditor входящей в поставку Delphi 7 (именно для этой версии прозвучал порос). Процесс рисования курсора опустим - там все достаточно просто. Первые проблемы могут возникнуть при попытке подключения курсоров к программе.

В некоторых статьях рекомендуют открывать файл ресурсов, создаваемый в приложении по умолчанию и добавлять курсоры туда. Я не советую так делать, поскольку в свое время наколося на этом - среда просто переписала созданный файл (не помню зачем - ей виднее) и все курсоры пропали, пришлось делать заново - что не очень приятно. Поэтому будем делать собственный файл ресурсов, тем более что в этом нет ничего сложного.

Для создания ресурсов нам понадобится утилита brcc32.exe (Borland Resource Compiler) - которая распологается в каталоге с Delphi. Я рекомендую создать отдельный подкаталог "resources" в каталоге с проектом и разместить там все необходимые файлы для создания файла с собственными ресурсами. Туда же скопировать и эту утилиту.

Теперь необходимо подготовить файлик для компиляции ресурсов. Неоходимо открыть блокнот и описать каждый курсор в следующем формате:

ИМЯ_РЕСУРСА ТИП_РЕСУРСА ПУТЬ_К_РЕСУРСУ

Для исключения возможных неточностей следует имя ресурса сразу же писать заглавными латинскими буквами. Чтобы мои ресурсы можно было легко увидеть в одном месте я именую их все с заглавной буквы Z - так проще. Реальный файл с описаниями ресурсов одного из моих проектов представлен ниже:

В нашем случае необходимо написать следующее:

ZCURSOR_PEN CURSOR pen.cur
ZCURSOR_ERR CURSOR err.cur

и сохранить в файле cursors.rc. Теперь остается только выполнить из командной строки команду brcc32 cursors.rc в результате чего создастся файл с ресурсами cursors.res, содержащий в себе наши курсоры.

Теперь остается только подключить этот файл к проекту, делается это следующей директивой {$R cursors.res}. В моем проекте это сделано следующим образом:

Затем объявляется числовая константа на каждый курсор, например:

crPen = 100;
crErraser = 101;

и далее при инициализации формы следует подгрузить эти ресурсы:

Screen.Cursors[crPen] := LoadCursor(HInstance, 'ZCURSOR_PEN');
Screen.Cursors[crErraser] := LoadCursor(HInstance, 'ZCURSOR_ERR CURSOR');

Ну и теперь, наконец-то, можно с ними работать как с обычными курсорами. Кстати, тут можно посмотреть описание функций для работы с курсорами.

Вот собственно и все, довольно объемный пост получился, даже сам не ожидал :)

И снова Delphi 2009

2008-12-28T14:06:00.003+10:00

Ура! Наконец то мне удалось запустить Delphi 2009 и избавиться от проблем о которых я писал ранее. Решил проблему кардинально - поставил Microsoft Virtual PC (кстати, был очень удивлен - не знал что она теперь полностью бесплатна) - поднял на ней Windows XP и на чистую систему Delphi 2009 установилась без проблем. А вот в чем была истинная причина тех непонятных сбоев мне выяснить так и не удалось, но и ладно, и в виртуальной машине можно работать, только вот колесо прокрутки что то глючит иногда :)

Но на этом проблемы с ней не закончились. Мой проект, над которым я работаю последние несколько лет - отказался компилироваться. Те ошибки которые касались моего кода удалось довольно быстро локализовать и исправить (они касались несовместимости типов), а вот основная проблема случилась с компонентами FIBPlus. На настоящий момент на сайте разработчиков нет версии компонентов под эту версию Delphi, что очень жаль - непростительно тормозят разработчики! На полумертвом форуме на официальном сайте как то обнаружил запись, что они должны были выйти еще в ноябре ... Что ж, видимо это дух времени - обещать релиз и не выполнять обещания ...