СРОЧНО! Защита от ВОРА?

Комментарии

• gpi

  February 2006 отредактировано 04:36

  В дизайнере меню Отчёт-Настройки Пароль
  У объекта отчёт в самой программе выставить frxReport.ReportOptions.Password
• antoxa

  February 2006 отредактировано 04:36

  IF OpF.Execute then frxReport1.LoadFromFile(OpF.FileName);
  frxReport1.ReportOptions.Password:='123456';
  frxReport1.DesignReport;
  
  При открытии отчета в дизайнере, появляется окно ввода пароля, но пользователь не знает пароль, программа должна его сама подставить?
• gpi

  February 2006 отредактировано February 2006

  Да, действительно, так не получается
  Дело в том, что информация о пароле удаляется при загрузке отчёта, да и хранится она в frxReport1.ReportOptions.PrevPassword
  Пришлось закомментировать одну строку в frxClass.pas

  procedure TfrxReportOptions.Clear;
  begin
    if not FInfo then
    begin
      FAuthor := '';
      FCompressed := False;
      FCreateDate := Now;
      FDescription.Clear;
      FLastChange := Now;
      FPicture.Assign(nil);
      FVersionBuild := '';
      FVersionMajor := '';
      FVersionMinor := '';
      FVersionRelease := '';
    end;
    FConnectionName := '';
    FInitString := '';
    FName := '';
    FPassword := '';
   { FPrevPassword := ''; }
  end;
  

  Тогда такой код работает
  frxReport1.ReportOptions.PrevPassword:='123456';
  IF OpF.Execute then frxReport1.LoadFromFile(OpF.FileName)
  Правда, криптостойкость пароля оставляет желать лучшего
• Kilya

  October 2007 отредактировано 04:36

  gpi написал: »

  Да, действительно, так не получается
  Дело в том, что информация о пароле удаляется при загрузке отчёта, да и хранится она в frxReport1.ReportOptions.PrevPassword
  Пришлось закомментировать одну строку в frxClass.pas

  procedure TfrxReportOptions.Clear;
  begin
    if not FInfo then
    begin
      FAuthor := '';
      FCompressed := False;
      FCreateDate := Now;
      FDescription.Clear;
      FLastChange := Now;
      FPicture.Assign(nil);
      FVersionBuild := '';
      FVersionMajor := '';
      FVersionMinor := '';
      FVersionRelease := '';
    end;
    FConnectionName := '';
    FInitString := '';
    FName := '';
    FPassword := '';
   { FPrevPassword := ''; }
  end;
  

  Тогда такой код работает
  frxReport1.ReportOptions.PrevPassword:='123456';
  IF OpF.Execute then frxReport1.LoadFromFile(OpF.FileName)
  Правда, криптостойкость пароля оставляет желать лучшего

  
  Не работает!!!!
  У кого есть еще советы...
  Тема актуальна - отзовитесь!!!!
  
• LOGic_BBS Казань

  October 2007 отредактировано 04:36

  Файлы отчеты запихнуть в ресурсы т.е. в ехе
• gpi

  October 2007 отредактировано 04:36

  написал:

  Не работает!!!!
  У кого есть еще советы...
  Тема актуальна - отзовитесь!!!!

  Не работает в FR3 или в FR4? В тройке данный способ работал, а вот в четвёрке в frxCrypt.pas внесите изменения

  function TfrxCrypt.AskKey(const Key: String): String;
  begin
    Result := Key;
    if Result = '' then
    Result:='1234'; // set your password
     { with TfrxPasswordForm.Create(Application) do
      begin
        if ShowModal = mrOk then
          Result := PasswordE.Text;
        Free;
      end;}
  end;
  
• LOGic_BBS Казань

  October 2007 отредактировано 04:36

  http://fast-report.com/ru/forum/index.php?showtopic=5324
• Kilya

  October 2007 отредактировано 04:36

  gpi написал: »

  Не работает в FR3 или в FR4? В тройке данный способ работал, а вот в четвёрке в frxCrypt.pas внесите изменения

  function TfrxCrypt.AskKey(const Key: String): String;
  begin
    Result := Key;
    if Result = '' then
    Result:='1234'; // set your password
     { with TfrxPasswordForm.Create(Application) do
      begin
        if ShowModal = mrOk then
          Result := PasswordE.Text;
        Free;
      end;}
  end;
  

  
  Работает!!! но не так как хотелось бы...
  А нельзя ли чтоб вот так было:
  в программе указал пароль - открыл отчет с этим паролем, если не указал то вылезла форма для ввода пароля.????
  Это былоб идеально!
  
• gpi

  October 2007 отредактировано October 2007

  написал:

  А нельзя ли чтоб вот так было:
  в программе указал пароль - открыл отчет с этим паролем, если не указал то вылезла форма для ввода пароля.???

  Создайте тикет и напишите об этом в техподдержку