ProgramadorBuiu Novato
Registrado: Terça-Feira, 11 de Fevereiro de 2020 Mensagens: 8
|
Enviada: Ter Fev 11, 2020 4:02 pm Assunto: Criptografador não executa no Delphi(Tenho o código fonte) |
|
|
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? |
|