Delphi Magic

Reloj binario

Este programa muestra un reloj binario. Sirve para aprender a manejar el objeto tImage mediante el que se representa de forma gráfica los datos binarios.

Link de descarga

Autor: Sami
sami_inf@hotmail.fr

Controlar 8 inputs / 16 outputs del PIC18F4550 desde USB

Aquí se muestra la forma para manejar 8 entradas y 16 de salidas del microprocesador PIC18F4550 desde el puerto USB. Se necesita cargar previamente el fichero PIC.HEX en el micro.

Existen 2 versiones, en una utilizan la API de Windows y en la otra el componente TJvHidController que se puede descargar desde aquí:

http://www.soft-gems.net/index.php?option=com_content&task=view&id=14&Itemid=33

Código fuente en Delphi

Autor: rylryl

Página personal: http://pageperso.aol.fr/CRylou/TC_UNIV_rylryl.html

Notificar cambios en ficheros

Con este código se utilizan funciones callback para detectar cualquier cambio en los ficheros (creado, borrado, renombrado) que se produzca por cualquier aplicación o por el usuario en las carpetas que previamente seleccione, también informará si una unidad ha sido conectada o desconectada (red, usb) , si un CD o DVD ha sido insertado o expulsado, etc.

La aplicación utiliza las funciones del API de Windows: SHChangeNotifyRegister, SHChangeNotifyDeregister, SHILCreateFromPath. Que son las encargadas de detectar cualquier cambio en el shell del sistema, mediante "interrupciones".

http://www.ajpdsoft.com/modules.php?name=News&file=article&sid=427

Ver mapa de Google Maps dando coordenadas

Con este código veremos el mapa de Google Maps, tecleando las coordenadas de un punto de la Tierra (latitud y longitud) tanto si son en el sistema decimal o sexagesimal.
Lo interesante de esto es que uno mismo puede combinar los datos de su GPS portátil con GMaps.
Se necesita obtener una Key (la da Google gratuitamente) desde aquí:http://code.google.com/apis/maps/signup.html

Se necesita naturalmente tener una cuenta de Google.

Link de descarga

Autor: Amine (Argelia)

Osciloscopio con la tarjeta de sonido

Podemos utilizar la tarjeta de sonido como si fuese la sonda de entrada de un osciloscopio, con ello limitaremos el rango y la amplitud de frecuencias que podemos ver pero como material educativo y de experimentación es mas que suficiente.

Tiene un botón llamado "Spectrum" que analiza la amplitud de cada una de las frecuencias contenidas en una muestra. Se utiliza la transformada rápida de Fourier para analizar la señal.

Descargar programa

http://delphiforfun.org/programs/oscilloscope.htm

Esteganografía con Delphi

La esteganografía es una técnica que permite ocultar textos u objetos en una imagen, permitiendo enviar información sensible en un portador para que pueda pasar desapercibido, no confundir con la criptografía.

Generalmente se basa en sustituir los bits menos significativos del fichero original por los que componen el mensaje oculto. La diferencia es inapreciable para el ojo humano, pero el mensaje secreto puede ser recuperado por su destinatario.

Aquí tienen un programa en Delphi que muestra cómo se hace.

Autor:

Aymenk Noury

Código fuente

Juego del Mastermind

Aquí tienen el juego del mastermind programado en Delphi. Hay que encontrar la combinación correcta de colores en 10 intentos y para cada uno de ellos el sistema te informa de los colores que están bien o mal situados.

Link de descarga

Dibujo de funciones

Este programa les permitirá dibujar funciones sobre un tbitmap, seleccionando el color de la curva, el eje de coordenadas. Utiliza la clase tGraph para facilitar la correspondencia entre coordenadas de pantalla y coordenadas reales.

Este software ha sido realizado por estudiantes del instituto de matemáticas aplicadas de Angers.

Autores:

Mettra Maxime y Simard Benoît

Link de descarga

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

Recuperar archivos borrados

Software para recuperar archivos borrados del PC en sistemas NFTS, con código fuente en Delphi, muy recomendable tenerlo en una carpeta de programas favoritos, ya que seguramente en más de una ocasión tendremos que utilizarlo.

Author : Nicolas Paglieri

e-mail : webmaster@ni69.info

Link: http://www.ni69.info/software-ntfsfilerecovery-fr.php

Comprobar que el usuario es Administrador

En ciertas ocasiones es necesario comprobar que el usuario tiene permisos de Administrador por lo que es necesario utilizar la siguiente función que devuelve TRUE / FALSE según corresponda

Link de descarga

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

Animación de tipo Plasma

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;