Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Humberto - S.O.S.

compilar Rave Report?

Recommended Posts

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.

Compartilhar este post


Link para o post
Compartilhar em outros sites

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;

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.