Delphi Magic

Convertir datos GPS

Con este código podremos para traducir datos de posicionamiento en el sistema de coordenadas globales World Geodetic System 1984 al sistema Universal Transverse Mercator WGS84 y viceversa.

Autor:
Rémi piette

Código fuente

Reproducir archivos midi

Programa muy interesante que utiliza el componente tmidigen(no es necesario instalarlo previamente) para reproducir dinámicamente archivos midi.

Código fuente

Esta es una animación psicodélica basada en la librería SWAG (turbo pascal), con un framerate de 50 fps, que os anticipo puede dar dolor de cabeza si permanecen mucho tiempo viéndola.

Autor: edrad@wanadoo.fr
Link: http://www.darkskull.net/?module=telecharge&idFile=30

Cifrado Vigenère

El cifrado Vigenère es un cifrado basado en diferentes series de caracteres o letras del cifrado César formando estos caracteres una tabla, llamada tabla de Vigenère, que se usa como clave. El cifrado de Vigenère es un cifrado polialfabético y de sustitución .

Este método se ha reinventado muchas veces, el original fue descrito por Giovan Batista Belaso en su libro de 1553 La cifra del Sig. Giovan Batista Belaso. Sin embargo, fue correctamente atribuido más tarde a Blaise de Vigenère, concretamente en el siglo XIX, y por ello aún se le conoce como el "cifrado Vigenère".

Este cifrado es conocido porque es fácil de entender e implementar, además parece irresoluble; esto le hizo valedor del apodo el código indescifrable.

Código en Delphi

Juego de damas

Aquí tienen el popular juego de damas con código fuente incluido, que incorpora la posibilidad de jugar en red. Para versiones posteriores a Delphi 6 es necesario adaptar el código para poder usar los componentes TTcpClient y TTcpServer.

Autores:

bestiol@club-internet.fr
bruno_g40@Hotmail.com

Código fuente

Componente para graficos radiales

Los gráficos radiales se usan para comparar de una forma precisa diferentes tipos de datos. En internet encontré un componente para Delphi muy completo y muy bien documentado llamado TQSpiderGraph que permite definir propiedades específicas a los ejes (número, colores...), background (transparencia, color, orientación del gradiente), número de líneas, su color, grosor.
Una función muy útil que tiene es la capacidad de seguir los movimientos del ratón para que cuando éste se sitúe cerca de un punto o una línea muestre un popup con sus valores.
La imagen del gráfico se puede copiar al disco o a un bitmap en memoria.
El zip viene con el código fuente, demo y archivo de ayuda.

Link: http://mapage.noos.fr/qnno/files/TQSpiderGraph%20v1.1.zip

Aproximación a PI por el método Monte Carlo

El método de Monte Carlo es un método no determinístico o estadístico numérico usado para aproximar expresiones matemáticas complejas y costosas de evaluar con exactitud. El método se llamó así en referencia al Casino de Montecarlo por ser “la capital del juego de azar”, al ser la ruleta un generador simple de números aleatorios. El nombre y el desarrollo sistemático de los métodos de Monte Carlo datan aproximadamente de 1944.

function CalculatePi(ACount: Cardinal): Extended;
var
x, y: Real;
i, hits: Cardinal;
beginRandomize();

hits := 0;
for i := 0 to ACount-1 do
begin
x := Random(10);
y := Random(10);
if ((x * x) + (y * y) <= 1) then Inc(hits); end; Result := 4 * (hits / ACount); end; procedure calcularPI; begin showmessage (FloatToStr(CalculatePi(10000))); end;

LIBROS:

Matemáticas, el fascinante mundo de los números

Matrix computations (Matematical Science)

Geometría analítica del plano y del espacio

Mecánica de fluidos

Geometría Afín y Euclidea

Autoclic con Delphi

Software para simular pulsaciones de teclado

Este programa permite grabar las secuencias de puntos sobre la pantalla para después simular la pulsación de 1 clic de ratón sobre ellos, también es posible especificar un nombre para las secuencias a teclear y poner un delay entre cada clic y entre cada secuencia.

Con este soft podrán hacer clic a intervalos regulares sobre un banner y además evitar muchas secuencias repetitivas que los programadores tenemos que hacer a diario.

Autor:

http://pogopixels.fr/

Código fuente

Librería Dokan - implementar sistema de ficheros

Dokan es una librería que implementa todas las funciones necesarias para crear un sistema de archivos para Windows en modo usuario evitando las dificultades que conlleva crear un driver en modo nativo, según la documentación Dokan es similar a FUSE de Linux, pero trabajando en Windows.
Por ejemplo se podría utilizar para ampliar las capacidades del sistema FAT o NFTS.
Su autor es Hiroki Asakawa info@dokan-dev.net y la traducción a Delphi está realizada por Vincent Forman (vincent.forman@gmail.com)

Página del autor
http://dokan-dev.net/en/about/

Traducción Delphi

iniciar programas al encender el PC

Un método para que una aplicación o servicio se arranque al iniciar windows es almacenar su path en el registro dentro de las carpetas "Run, RunOnce o RunServicesOne" de la siguiente forma:

uses
Registry;

TAutorunkind = ( akRun, akUserRun ,akRunOnce, akUserRunOnce , akRunServices,akRunServicesOnce );

function CreateAutorunEntry(const AName, AFilename: string; const AKind: TAutorunKind): Boolean;
var
Reg: TRegistry;
begin
Result:=False;
Reg := TRegistry.create;
try
if (AKind=akUserRun) or (AKind=akUserRunOnce) then
Reg.Rootkey:= HKEY_CURRENT_USER
else
Reg.RootKey := HKEY_LOCAL_MACHINE;

case AKind of
akRun, akUserRun : Result:=Reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run', True);
akRunOnce, akUserRunOnce: Result:=Reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\RunOnce', True);
akRunServices : Result:=Reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\RunServices', True);
akRunServicesOnce : Result:=Reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\RunServicesOnce', True);
end;
Reg.WriteString(AName, AFilename);
finally
Reg.Free;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
CreateAutorunEntry(Application.Title, ParamStr(0), akUserRunOnce);
end;

Cifras y Letras

Para los que quieran jugar a "cifras y letras" aquí tienen un programa escrito en Delphi. La pega es que está en francés, pero cambiando el archivo "dictionnary.txt" por otro que contenga palabras en español asunto arreglado.

Link de descarga

Resolver sistemas de ecuaciones de N incognitas

Esta unit permitirá resolver un sistema de ecuaciones de N incóginitas por el método del pivot de Gauss.

Link de descarga

Búsqueda de Malware con Delphi

Aquí os presento un programa que buscara en vuestro equipo diferentes tipos de malware:
38 Adware
106 BackDoor
1 Hijackers
10 KeyLogger
1 Ver
3 Virus
10 AutoRun
Es un scanner gratuito opensource realizado por mrClock mrclock@hotmail.fr
Este scanner no borra/reemplaza/renombra ningún fichero de tu equipo.

Link de descarga

Wake On Lan

Todas las tarjetas de red actuales soportan WOL, para ello es necesario que en la Bios activen la función Wake On Lan (en algunas tarjetas de red hay que conectar un cable a la placa base del equipo)
Para encender un equipo es suficiente con enviar por red el paquete mágico que es de la forma 6 x "FF" seguido de 16 x dirección MAC de la máquina a despertar.

Ej: (procedente de un sniffer)
-----------------------------
ff ff ff ff ff ff 00 40 e3 e9 c8 62 00 40 e3 e9 c8 62 00 40 e3 e9
c8 62 00 40 e3 e9 c8 62 00 40 e3 e9 c8 62 00 40 e3 e9 c8 62 00 40
e3 e9 c8 62 00 40 e3 e9 c8 62 00 40 e3 e9 c8 62 00 40 e3 e9 c8 62
00 40 e3 e9 c8 62 00 40 e3 e9 c8 62 00 40 e3 e9 c8 62 00 40 e3 e9
c8 62 00 40 e3 e9 c8 62 00 40 e3 e9 c8 62

Las tarjetas de red están permanentemente escuchando, de tal forma que cuando reciben el paquete mágico es igual que pulsar el botón de encendido

Descarga del programa que envía el paquete mágico

Cómo configurar el PC para WOL:
http://www.vicente-navarro.com/blog/2007/06/03/wake-on-lan/

El juego del Tangram con Delphi

El Tangram es un juego de origen chino que consiste en formar figuras con las siete piezas que lo componen sin solaparlas entre sí. El juego se remonta a los años 618 a 907 de nuestra era, época en la que reinó en China la dinastía Tang de donde se derivaría su nombre.

En la siguiente página tienen el código fuente en Delphi que incorpora varios niveles de dificultad. Muy recomendable para aquellos que quieran pasar un rato entretenido solucionando los retos que nos plantea el programa.

Link de la página (inglés)

Simular un clic sobre un link de una página web

Para recuperar los links de una página html es necesario abrir una instancia de Internet Explorer y utilizar las funciones OLE como muestra el siguiente ejemplo:

procedure ListarLinks(List: TStrings; IEApp: OLEVariant; aURL:string);
var
IEApp: OLEVariant;
nbLinks,i:Integer;
begin
//Si el objeto OLE no ha sido creado
if(VarIsEmpty(IEApp))then
begin
//crear el objeto
IEApp := CreateOleObject('InternetExplorer.Application');
//hacerlo visible
IEApp.Visible := true;
//Abrir la página especificada
IEApp.Navigate(aURL);
end;

//Esperar a que la página sea completamente cargada
// READYSTATE_COMPLETE = 4
while Cardinal(IEApp.readyState) <> 4 do sleep(1000);

//Recuperar el nombre de los links
nblinks := Cardinal(IEApp.Document.links.length);
//Volcar los links en un tString
List.Add(Format('Nombre de los links = %d',[nblinks]));

for i := 0 to nblinks - 1 do
Self.MemoLog.Lines.Add(string(IEApp.Document.links.item(i).href));
end;

Para simular un clic hacer lo siguiente:

procedure ClicSobreLink(LinkIndex:Integer);
begin
IEApp.Document.links.item(LinkIndex).click;
end;

Transformación de un metafile Windows

Esta unidad contiene procedimientos de transformación de un metafichero Windows (son ficheros de imágenes que contienen la descripción vectorial de un diseño.) Tienen la ventaja de poder ser redimensionados sin perder calidad, por contra su modificación en memoria es muy complicada.

Para utilizarlos hay que pasar el handle de un TMetafile al procedimiento indicando las transformaciones deseadas, con ciertas excepciones, por ejemplo en el caso de que el fichero contenga texto, en cuyo caso las modificaciones se ignoran.

Link de descarga

Leer las pistas de un CD de audio

Los ficheros ".cda" describen las pistas contenidas en un CD audio. Estos ficheros están visibles en el explorador de Windows cuando abres una ventana correspondiente a un CD.

No existe una función del API que permita consultar el contenido de estos ficheros pero podéis utilizar las procedimientos contenidos en el siguiente fichero:

Autor: Pierre Castelain

Link de descarga

Monitor de red con Delphi

Monitor de red que utiliza la Dll "IPHLPAPI.DLL" del API de Microsoft.

Para cada interfaz de red el programa muestra:
-Su nombre.
-Su dirección MAC.
-Su velocidad.
-MTU.
-Total de bytes enviados y recibidos.
-Diagrama con la tasa de transferencia instantánea.

Link de descarga del programa

Salvapantallas programado en Delphi

Aquí tienen un salvapantallas realizado en Delphi. Después de compilarlo se generará un archivo llamado "FeuxDartifice.scr" (que es el salvapantallas que pueden instalar en Windows).

Para ver cómo funciona hay que hacer clic con el botón derecho del ratón sobre el archivo anterior y en el menú emergente activar la opción "Probar".

Link de descarga