четверг, апреля 30, 2009

ASProtect и Delphi 2009

В принципе все оказалось довольно не сложно.

ASProtect вполне нормально работает с Delphi 2009. Естественно, нужно просто делать преобразование строк при вызове ASProtect API  функций.

Вот преобразованная процедура из стандартного примера:

procedure TfrmRegKey.btnRegOkClick(Sender: TObject);
begin
 
// If CheckKeyAndDecrypt( PChar(eCode.Text), PChar(eName.Text), True ) then
 
// Для Delphi 2009 будет так:
If CheckKeyAndDecrypt( PChar(ansistring(eCode.Text)), PChar(ansistring(eName.Text)), True ) then
begin
MessageBox(Handle, 'Thank you for your registration!', 'Registration', MB_ICONINFORMATION);
Close;
end else
MessageBox(Handle, 'Key is not valid, please contact manufacture!','Registration', MB_ICONWARNING);
 
end;

К слову, месяц назад вышел ASProtect SKE 2.5 Release. Так, что слухи о том, что продукт умер – преувеличены.

  • Improved map-files parsing
  • Various Help file corrections
  • Fixed application termination instead of displaying Trial Reminder if no trial counters have been used
  • Fixed aspr_ide crash under Delphi IDE.

суббота, апреля 04, 2009

Благими намерениями

В одном из форумов вычитал...
Подскажите компонент для работы с фискальными кассовыми устройствами (IO). Желательно с сырцами. Спасибо.

Тут же захотелось попросить компонент для посадки льва в клетку.
Хотя, может действительно есть и такие компоненты...
Но по -моему, подобные посты ни что иное, как нормальная идея, доведенная до абсурда.