ActiveDelphi - Índice do Fórum ActiveDelphi
.: O site do programador Delphi! :.
 
 FAQFAQ   PesquisarPesquisar   MembrosMembros   GruposGrupos   RegistrarRegistrar 
 PerfilPerfil   Entrar e ver Mensagens ParticularesEntrar e ver Mensagens Particulares   EntrarEntrar 

Criptografador não executa no Delphi(Tenho o código fonte)

 
Novo Tópico   Responder Mensagem    ActiveDelphi - Índice do Fórum -> Delphi
Exibir mensagem anterior :: Exibir próxima mensagem  
Autor Mensagem
ProgramadorBuiu
Novato
Novato


Registrado: Terça-Feira, 11 de Fevereiro de 2020
Mensagens: 7

MensagemEnviada: Ter Fev 11, 2020 4:02 pm    Assunto: Criptografador não executa no Delphi(Tenho o código fonte) Responder com Citação

Toda vez que executo o meu criptografador no Delphi,ele não executa,dá erro,veja o código fonte e depois o erro para me ajudar:

Código:

unit UnitCriptografador;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.Buttons, Encryp;




type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);



  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;


implementation

{$R *.dfm}






procedure TForm1.BitBtn1Click(Sender: TObject);
begin
TomEncryption1.Action:=atEncryption;
TomEncryption1.Input:=Edit1.Text;
TomEncryption1.Execute;

Edit2.Text:=TomEncryption1.Output;

end;

procedure TForm1.BitBtn2Click(Sender: TObject);
begin
TomEncryption1.Action:=atDecryption;
TomEncryption1.Input:=Edit2.Text;
TomEncryption1.Execute;

Edit3.Text:=TomEncryption1.Output;

end;

end.



Erro:
[dcc32 Fatal Error] UnitCriptografador.pas(7): F1026 File not found: 'C:\Users\joaos\OneDrive\Documentos\RAD Studio\Projects\Criptografador\Encryp.dcu'

O que faço para corrigir o problema?
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
ProgramadorBuiu
Novato
Novato


Registrado: Terça-Feira, 11 de Fevereiro de 2020
Mensagens: 7

MensagemEnviada: Ter Fev 11, 2020 10:49 pm    Assunto: Resolvido Responder com Citação

Faltava copiar o arquivo Encryp.dcu e Encryp.pas e colocar begin no código.Resolvido pode fechar o tópico.
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
Mostrar os tópicos anteriores:   
Novo Tópico   Responder Mensagem    ActiveDelphi - Índice do Fórum -> Delphi Todos os horários são GMT - 3 Horas
Página 1 de 1

 
Ir para:  
Enviar Mensagens Novas: Proibido.
Responder Tópicos Proibido
Editar Mensagens: Proibido.
Excluir Mensagens: Proibido.
Votar em Enquetes: Proibido.


Powered by phpBB © 2001, 2005 phpBB Group
Traduzido por: Suporte phpBB