Saturday, 31 January 2009
Thursday, 22 January 2009
Creando una función Implode /Explode igual que en PHP
Los que tocamos PHP, podemos ver las carencias que a veces tiene Delphi. En este caso hay unas funciones muy útiles para tratar cadenas, serian Implode y Explode.
Cadena = "1,2,3,4,5,6" -> Explode -> devuelve una array con [1],[2],[3],[4],[5],[6]
array = [1],[2],[3],[4],[5],[6] -> Implode -> devuelve un string "1,2,3,4,5,6"
En los 2 casos, hay que indicar el carácter separador, en este caso es una coma.
En delphi he hecho estas pequeñas funciones que nos ayudaran a utilizar estas funciones de una manera cómoda y fácil.
Cadena = "1,2,3,4,5,6" -> Explode -> devuelve una array con [1],[2],[3],[4],[5],[6]
array = [1],[2],[3],[4],[5],[6] -> Implode -> devuelve un string "1,2,3,4,5,6"
En los 2 casos, hay que indicar el carácter separador, en este caso es una coma.
En delphi he hecho estas pequeñas funciones que nos ayudaran a utilizar estas funciones de una manera cómoda y fácil.
function Implode(const Separador: string; const sArray: TStringArray): string;
var
i: Integer;
sTexto : string;
begin
sTexto := '';
for i := 0 to Length(sArray) - 1 do
begin
sTexto := sTexto + Separador + sArray[i];
end;
Delete(sTexto, 1, Length(Separador));
result := sTexto;
end;
function Explode(const Separador, texto: string): TStringArray;
var
i: Integer;
S: string;
sArray : TStringArray;
begin
S := texto;
SetLength(sArray, 0);
while AnsiPos(Separador, S) > 0 do
begin
i := Length(sArray);
SetLength(sArray, i + 1);
sArray[i] := Copy(S, 1, Pos(Separador, S) - 1);
S := Copy(S, Pos(Separador, S) + Length(Separador), Length(S));
end;i := Length(sArray);SetLength(sArray, i + 1);
sArray[i] := Copy(S, 1, Length(S));
result := sArray;
end;
Un ejemplo sería:
Thursday, 8 January 2009
Editor Hexadecimal
Desde la página de mirkes.de, podemos bajarnos un editor Hexadecimal bastante completo, con todas las fuentes para delphi. Todos los componentes y la aplicación los podemos encontrar en la página de descargas
Una vez abierto, nos aparecerán el bpl con los packages a instalar:
Acordaros de poner la ruta donde estan los dcu's en el Library Path. Sino el proyecto no sabrá donde estan los ficheros compilados. Luego podemos abrir alguno de los proyectos sample y arrancarlo:
Los componentes son los siguientes:
Espero que os sirva de algo. La verdad es que el componente esta bastante bien.
- Instalando el componente:
Una vez abierto, nos aparecerán el bpl con los packages a instalar:
Acordaros de poner la ruta donde estan los dcu's en el Library Path. Sino el proyecto no sabrá donde estan los ficheros compilados. Luego podemos abrir alguno de los proyectos sample y arrancarlo:
Los componentes son los siguientes:
Espero que os sirva de algo. La verdad es que el componente esta bastante bien.
Wednesday, 7 January 2009
Utilizando componentes de encriptación, cifrado y Hashes
En este post, os muestro la instalación y utilización de la librería DCPcrypt Cryptographic Component Library (Open Source) para Delphi. La librería la podemos encontrar en la web Cryptography. Nos descargamos la última revisión de la librería, y la instalamos:
Mediante los componentes que trae la librería, podremos encriptar y desencriptar strings y ficheros para nuestras aplicaciones.
En la misma página del autor, podemos bajarnos alguna demo para probar su funcionamiento:
Existen los siguientes tipos de algoritmos:
Para instalar la Package, seleccionamos el fichero DCPdelphi6.dpk y una vez abierto lo compilamos, y lo instalamos.
Mediante los componentes que trae la librería, podremos encriptar y desencriptar strings y ficheros para nuestras aplicaciones.
En la misma página del autor, podemos bajarnos alguna demo para probar su funcionamiento:
Existen los siguientes tipos de algoritmos:
Algoritmos de encriptación | Algoritmos Hash |
|
|
Para instalar la Package, seleccionamos el fichero DCPdelphi6.dpk y una vez abierto lo compilamos, y lo instalamos.
Subscribe to:
Posts (Atom)