Publicado em 1 de mar.

compilar Rave Report?

Olá,

Desenvolvi uma aplicação e junto com ela coloquei um arquivo .rav que tem o arquivo de impressão, minha duvida é saber se existe algum meio de compilar este arquivo .rav, pois se alguem copiar o arquivo e abrir no delphi ele consegue visualizar o layout do relatorio.

Discussão (1)

Entre ou cadastre-se para participar da discussão

Entrar Criar conta

Raficcha· 2 de mar.

Experimenta criptografar, pode ser uma criptografia simples mesmo:

procedure criptografaArquivo(FileName: AnsiString; acao: byte); //acao 0 = descriptografar; 1 = criptografar
var

	Arquivo: TStrings;
	Cont : Integer;
	nText : AnsiString;

begin
if (not(FileExists(FileName))) then

 exit;

	try
 //criar backup
 CopyFile(PChar(FileName), PChar(FileName+'.temp'), false);
 Arquivo := TStringList.Create;
 Arquivo.LoadFromFile(FileName);
 nText := '';
 for Cont := 1 to Length(Arquivo.Text) do
 begin
 if (acao = 0) then
 nText := nText + Char(Ord(Arquivo.Text[Cont])-15)
 else
 nText := nText + Char(Ord(Arquivo.Text[Cont])+15);
 end;
 Arquivo.Text := nText;
 Arquivo.SaveToFile(FileName);
	except
 //recuperar o backup
 try
 CopyFile(PChar(FileName+'.temp'), PChar(FileName), false);
 DeleteFile(FileName+'.temp');
 except
 end;
	end;
end;