Este es el módulo de funciones hasta este momento
Código Delphi
[-]unit Funciones;
interface
uses ExtDlgs,DBCtrls, Graphics,Clipbrd, SysUtils;
function CargaIimagenADBImagen(Dialog:TOpenPictureDialog;Dbimage:TDBImage):Boolean;
function encriptar(aStr: String; aKey: Integer): String;
function desencriptar(aStr: String; aKey: Integer): String;
implementation
function CargaIimagenADBImagen(Dialog:TOpenPictureDialog;Dbimage:TDBImage):Boolean;
var imagem : TPicture;
begin
if Dialog.Execute then
begin
try
imagem:=TPicture.Create;
imagem.LoadFromFile(Dialog.FileName);
Clipboard.Assign(imagem);
Dbimage.PasteFromClipboard;
imagem.Free;
Result:=True;
except on E: Exception do
Result:=False;
end;
end;
end;
function encriptar(aStr: String; aKey: Integer): String;
begin
Result:='';
RandSeed:=aKey;
for aKey:=1 to Length(aStr) do
Result:=Result+Chr(Byte(aStr[aKey]) xor random(256));
end;
function desencriptar(aStr: String; aKey: Integer): String;
begin
Result:='';
RandSeed:=aKey;
for aKey:=1 to Length(aStr) do
Result:=Result+Chr(Byte(aStr[aKey]) xor random(256));
end;
end.
Y estas las variables del módulo DM
Código Delphi
[-]var
DM: TDM;
VarSMEMO: string;
Ventana: hwnd; VarSUnidad: string;
VarBGrabarNumerador:Boolean;
VarIModoApertura:Integer;
VarSUsuario:string;
VarINivelUSuario:Integer;