escribojava

Hola a todos, para continuar con el tema de la conexion entre delphi con  firebird y despues de nuestra entrada anterior Como conectar Delphi con Firebird se continua con una de las partes fundamentales que es la insersion, modificacion y eliminacion de datos, voy hacer una pequeña muestra de estos tres procedimientos ya que esto es un tema que puede llegar a ser muy extenso. Bueno primero que todo crearemos la siguiente tabla llamada BANCOS que va tener los siguientes atributos, campo CODIGO de tipo integer y tambien va ser la llave primaria (PK) y activar la casilla NotNull , el campo FECHA va ser de tipo varchar con tamaño de 20 caracteres ( size ), el campo BANCO es de tipo varchar con un tamaño de 100 caracteres (esto del tamaño es opcional y depende de lo que se vaya a ingresar), despues de esto guardamos la tabla con el nombre de BANCOS no debe quedar algo como esto:   Listo despues de  esto hacemos doble click sobre la casilla PK del campo codigo y...

Saludos amigos; en esta oportunidad hablaremos de Algoritmos de encriptacion en delphi lo que se nos vuelve en una necesidad al momento de implementar una aplicacion con base de datos que almacene contraseñas, otro aspecto resaltar es que estos algoritmos son en un solo sentido lo que quiere decir que al momento de hacer login, solo debes encriptar el contenido del campo clave y compararlo con el amacenado previamente en la base de datos. A continuacion muestro la unit con el nombre de Hashes que contiene los algoritmos de encriptacion md5 y sh1 la cual solo tienes que agregar a la clausula uses de la unidad donde estes encriptando datos. Asi:  ...   public     { Public declarations }   end; var   Form1: TForm1; implementation uses Hashes;// aqui... {$R *.dfm} ... En este ejemplo es Form1 en el cual yo tengo el campo de texto y los demas componentes para mostrar los textos encriptados con los dos algorimos esa clausula se en...

Bueno vamos a recordar un poco... primero que todo voy mostrar como crear y registrar nuestra base datos de tipo Firebird 1.5 utilizando la interfaz grafica IBExpert, no voy a profundizar mucho en ese tema. 1. Creamos la base de datos: 2. Configuramos la Base de datos:   3. Despues registramos la Base de datos Con la version de Firebird que este utilizando (En mi caso la 1.5): Bueno lo que sigue despues es crear las tablas de acuerdo a la modelacion del proyecto. Ahora vamos con la conexion delphi 7 con Firebird, Asumamos que ya tenemos la estructura en delphi del proyecto por ejemplo un modulo, y una forma de clientes, en el modulo debemos terner inicialmente 3 componentes que los encontramos en la pestaña Interbase y Data access:  el TIBdatabase, TIBStoredProc, TIBTransaccion asi: en este caso el componente le coloque el nombre rutabd y se enlaza con el conponente que le puse por nombre transaccion, ta...

Saludos amigos aqui dejo un codigo de encriptacion basado en arreglos, nos sive para entnder como funciona y luego poder implementar algo de acuerdo a nuestra necesidad, hay muchas funciones que relizan esta labor como lo son XorEncode/XorDecode, RSA o MD claro esta para utilizar algunos de estos es necesario que incluyas sus librerias en tu proyecto . function TControl_Acceso.encriptar(c:string):string; var i,j,tam:integer; s:string; ch:char; begin tam:=length(c); ch:=c[1]; c[1]:=c[tam]; c[tam]:=ch; s:=''; j:=122; for i:=1 to tam do begin if ((i mod 2)<>0) then begin s:=s+chr(j)+c[i]; j:=j-1; s:=s+chr(j); j:=j-1; end else s:=s+c[i]; end; if (tam mod 2 =0) then s:=s+chr(j); encriptar:=s; end; //Para llamar encriptar: //control_acceso.encriptar(pasword.Text); function TControl_Acceso.desencriptar(c:string):string; var i,tam:integer; s:string; ch:char; begin tam:=length(c); s:=''; for i:=2 to tam do begin if ...

Formulario Transparente con delphi; aca les dejo la funcion implementada en un proyecto, esta la colocan en la parte publica del formulario y listo le cambia las propiedades al formulario. //HAGO EL FORMULARIO TRANSPARENTE// frmRegion := 0; for I := 0 to ControlCount - 1 do begin { create a region for the control } aRect := Controls[i].BoundsRect; { coordinates have to be window-relative, not client area relative } OffsetRect( aRect, clientorigin.x - left, clientorigin.y - top ); tempRegion := CreateRectRgnIndirect( aRect ); { merge the region with the "summary" region we are building } if frmRegion = 0 then frmRegion := tempRegion else begin CombineRgn( frmRegion, frmRegion, tempRegion, RGN_OR ); DeleteObject( tempRegion ); end; end; { create a region for the caption and menu bar and add it to the summary } tempregion := CreateRectRgn( 0, 0, Width, GetSyste...