Hola a todos, tengo una consulta, tengo un Form y una Unit, con este codigo;
Código Delphi
[-]
unit uFrmPrueba;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, uBase64;
type
TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
Edit2: TEdit;
procedure Button1Click(Sender: TObject);
private
public
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
Edit1.Text:=Encode64(StrToInt(Edit1.Text));
end;
end.
y en la unit este codigo
Código Delphi
[-]
unit uBase64;
interface
function Encode64(S: Integer): string;
implementation
uses uFrmPrueba;
const
Codes64: array[0..63] of string = ('0','1','2','3','4','5','6','7','8','9','A','B','C',
'D','E','F','G','H','I','J','K','L','M','N','O','P','Q',
'R','S','T','U','V','W','X','Y','Z','a','b','c','d','e','f',
'g','h','i','j','k','l','m','n','o','p','q','r','s','t',
'u','v','w','x','y','z','+','/');
function Encode64(S: Integer): string;
var
cociente, resto: Integer;
cadena: string;
begin
cociente:=1;
cadena:='';
while (cociente>0) do begin
cociente:=S div 64;
resto:=S mod 64;
cadena:=cadena+ Codes64[resto];
S:=cociente;
end;
Result:=cadena;
end;
end.
no es nada complejo, pero al querer ejecutar, me sale el error de AppHangB1 y se me cierra el Delphi, trabajo con la version XE, y al ir al administrador de tareas de Windows, hay 3 procesos con el nombre de mi ejecutable y solo puede cerrarse uno, ¿Que puede ser?