• Registered: 2014-11-13
  • Posts: 325

Topic: Триал период по сети

Условный пример: есть проект, который чел-к сделал бесплатно для целей  отдела организации, в которой работает, далее, например, в связи с сокращением штата, он не хочет, чтобы "такая-сякая" организация пользовалась его проектом, но физически удалить проект с сервера уже не может.
Я нашел пример, как прописать в регистре триал в 30 дней, но это очевидно действенно  для локальной версии проекта на одном компе, где стоит MyVisualDatabase, а как прописать скрипт, чтобы проект на сервере тоже делал проверку на кол-во дней до даты Х , да и желательно без доступа к серверному регистру, туда же никто не даст доступа. Желательно, чтобы проект после даты х успешно самоудалялся, ну или хотябы просто прекращал работать...

  • Registered: 2014-02-14
  • Posts: 10,294

Re: Триал период по сети

Для MVD нет понятия Сервер, каждая копия является локальной.

Dmitry.
  • Registered: 2014-11-13
  • Posts: 325

Re: Триал период по сети

Да, но по сети с общей папки отдела, все грузят не MyVisualDatabase.exe, а скажем скомпилированный проект phones.exe. Т.е. своими средствами получается - никак?

  • Registered: 2014-02-14
  • Posts: 10,294

Re: Триал период по сети

К сожалению нет.

Dmitry.
  • Registered: 2014-11-13
  • Posts: 325

Re: Триал период по сети

ясно, спасибо!

  • From: Украина, Киев
  • Registered: 2014-10-23
  • Posts: 405

Re: Триал период по сети

Мне кажется, подойдёт такое решение:
http://myvisualdatabase.com/forum/misc. … download=1
В таблице users добавьте поле GetUserName. Каждому пользователю присвоены логин, пароль и прописан GetUserName. При запуске проекта любым пользователем проверяется наличие его GetUserName в таблице. Если отсутствует - то доступ запрещён (смотрите в примере). Остаётся только перед уходом почистить поле GetUserName, оставив только те, которым вход разрешён.

Не боги горшки лепят!

7 Reply by zoomix (edited by zoomix 2015-03-18 12:25:12)

  • Registered: 2014-11-13
  • Posts: 325

Re: Триал период по сети

Ок, спасибо!

  • From: Украина, Киев
  • Registered: 2014-10-23
  • Posts: 405

Re: Триал период по сети

zoomix wrote:

Ок, спасибо!

Посмотрите ещё вот это:

var
   Timer: TTimer;
   xDate:TDateTime;

procedure Form1_OnShow (Sender: string; Action: string);
begin
     Timer := TTimer.Create (nil);
     xDate := StrToDate('31.03.2015');
         if Now >= xDate then
         Form1.Close;
end;

begin

end.

31 марта проект перестанет запускаться.

Не боги горшки лепят!
  • Registered: 2014-11-13
  • Posts: 325

Re: Триал период по сети

Спасибо! Самый простой и верный вариант!

  • Registered: 2014-12-25
  • Posts: 17

Re: Триал период по сети

zoomix wrote:

Спасибо! Самый простой и верный вариант!

Пользователи поставят в календаре на компьютере 30-е число и к сожалению будет работать !

  • Registered: 2014-11-13
  • Posts: 325

Re: Триал период по сети

Каждый день ставить комп на 30-е число - напряжно (особенно если работаешь с многими другими программами в это время), да и не все такие "умные",

12 Reply by kunar80 (edited by kunar80 2015-03-24 16:28:17)

  • From: Украина, Киев
  • Registered: 2014-10-23
  • Posts: 405

Re: Триал период по сети

borsai wrote:

Пользователи поставят в календаре на компьютере 30-е число и к сожалению будет работать !

Речь изначально шла о том, что проект стоит на сервере. На нём менять системное время конечно же никто не будет. К тому же, обратите внимание, здесь отсутствует сообщение об окончании пробного или какого-то ещё периода. Просто проект вдруг однажды перестанет запускаться. А сотрудник, его изваявший, уже уволен! Вы в такой ситуации сообразите, что дело в датах? А чтоб уж наверняка убить проект полностью, добавьте в скрипт очистку таблиц и можете начальнику, уволившему Вас, сказать "Гуд бай!".

Не боги горшки лепят!

13 Reply by zoomix (edited by zoomix 2015-03-24 16:42:55)

  • Registered: 2014-11-13
  • Posts: 325

Re: Триал период по сети

Про очистку таблиц (если не про format c:) тоже мысль была.. )))

  • From: Украина, Киев
  • Registered: 2014-10-23
  • Posts: 405

Re: Триал период по сети

zoomix wrote:

Про очистку таблиц (если не про format c:) тоже мысль была.. )))

SQLExecute ('DELETE FROM main'); // полное удаление данных из таблицы
Не боги горшки лепят!
  • Registered: 2014-11-13
  • Posts: 325

Re: Триал период по сети

Спасибо