Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Защита компонента

DimaBr © (2005-09-26 10:56:00)
Хочу сделать простенькую защиту на компонент.
В момент создания компонента в дизайнерепроверяется ключ реестра, минусуется значение и записывается обратно. При достижении определённого значения компонент теряет свою функциональность.
Но так как этих компонентов на форме достаточно много, то вся проверка будет выполнятся несколько раз (для каждого компонента по одному разу). Как это можно предотвратить ? То есть для одной формы (а ещё лучше для проэкта) выполнялась одна проверка (допустим первым созданным компанентом)

DimaBr (2005-09-26 14:02:00) [1]
Я вроде бы придумал выход. При уничтожении компонента подсчитываю количество оставшихся компонент моего класса на форме и если это один (то есть удаляем последний компонент) то Flag := false;
x := 0; with GetParentForm(self) for i := 0 to ComponentCount - 1 do if Components[i] is TMyComponent then Inc(x); Flag := x <> 1;
Как Вы считаете, этот вариант подойдёт ?

Юрий Зотов (2005-09-26 13:45:00) [2]
> DimaBr (26.09.05 12:58) [3]

Так Вы же именно этого и хотели, что же еще нужно-то?

Но разве для Вашей задумки этого недостаточно? ИМХО, вполне нормально. Если же нужно декрементировать счетчик именно один раз на каждый открытый проект, то придется, видимо, писать эксперт IDE, срабатывающий при открытии проектов. Вот и прикиньте сами - нужны ли такие навороты ради такой простой защиты? Которая, кстати, все равно будет моментально взломана (если, конечно, компонент стоит того, чтобы его ломать).

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

DimaBr (2005-09-26 12:58:00) [3]
Написал var Flag: boolean; constructor Create(AOwner: TComponent); begin ........ if csDesigning in ComponentState then if not Flag then begin ShowMessage('aaa'); Flag:= true; end; end;
Всё хорошо, но срабатывает один раз в жизни (Delphi). То есть в первом открытом проэкте глобальная переменная переходит в TRUE, а потом при открытии других проэктов ничено не происходит. Может другие идеи есть.

Юрий Зотов (2005-09-26 11:11:00) [4]
> инициализация в секции initialization значением false

Это лишнее. Она и так будет проинициализирована в False.

Igorek (2005-09-26 11:04:00) [5]
Глобальная булевская переменная, инициализация в секции initialization значением false, в Create компонента если она false делаешь ее true и декремент счетчика в реестре.

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »