Codes sources Delphi344 ressources dans cette catégorie

Retrouvez ici tous les meilleurs téléchargements

Un ensemble de petits programmes pour aborder et comprendre l'interpréteur d'expression des [b]LiveBindings [/b]
Ces exemples sont utilisés dans le deuxième volet de mon tutoriel sur les LiveBindings : Effets de Bord, à paraitre prochainement

Dessin direct d'une icône affichée dans le systray.
NOTES : Ce programme affiche des barres de couleurs défilantes dans le systray. C'est un exemple de création dynamique d'icône afin de dessiner dans le systray.

Pour plus d'onformation sur l'utilisation des icones dans le systray, regardez le source 0027.

Lecture des informations contenues dans les fichiers CDA de Windows. Ces fichiers sont visibles dans l'explorateur lorsque l'on ouvre un CD audio.

Comment activer ou désactiver l'autorun d'un lecteur CD.

Pour le défi Pascal 2012, il s'agit de réaliser un jeu librement inspiré d'un célèbre jeu de plateau créé par Max Kobbert : le Labyrinthe.
Il en existe plusieurs variantes mais rien ne vous empêche de créer la vôtre !

Le défi 2012 n'a aucune contrainte de plateforme ni de compilateur. Il est accessible tant aux débutants qu'aux développeurs confirmés : l'originalité et la créativité peuvent compenser le côté purement technique.

Dans le répertoire Etudes, l'auteur propose d'autres versions du code source, pour d'autres compilateurs.

Règlement du défi
Voir la suite

Utilisation d'un StringGrid pour afficher les diverses polices de caractères, ainsi que le code ASCII des caractères.

Ce programme permet à l'utilisateur de dessiner des rectangles et/ou des ellipses sur la fenêtre du programme. Ensuite il supprime l'intérieur des figures spécifiées et la fenêtre devient transparente à ces emplacements.

La librairie ToolHelp n'est pas disponible sous Windows NT4, cette méthode permet de pallier à ce problème et obtenir la liste des process sous NT.
Cette procédure fonctionne aussi avec Windows 2000 et Windows XP.

Ce source montre comment activer le mode veille.

Tester si les instructions SSE SSE2 ou 3DNow sont disponibles sur le processeur.

Voici un petit jeu très connu, qui en est pour le moment à la première version, avec certainement encore beaucoup de bugs.

Voici un petit casse-tête où il s'agit de deviner quelle règle régit le passage d'une ligne à l'autre.

Dans l'exemple de l'image jointe, la réponse est la suivante : par exemple, pour trouver le contenu de la 5ème ligne il suffit d'énumérer ce qui se trouve sur la 4ème ligne. A savoir "1 1, suivi de 1 2, suivi de 2 1".

• Téléchargez l'exécutable.

Ce programme est une adaptation d'un programme de Earl F. Glynn disponible ici : Lyapunov Exponents.

Ce programme reste à compléter dans ces fonctionnalités surtout dans la coloration. Il reste aussi à réaliser l'aide en ligne ou au moins les Hint.

Il sera certainement mis à jour dans le futur... De même, si vous trouver des dessins intéressants, vous pouvez m'envoyer les caractéristiques par mail en donnant la séquence, et les intervalles pour a et b. (ne pas m'envoyer d'images SVP).
Une gallerie sera aussi ouverte dans le futur avec les exemples les plus marquants.

Exemple d'utilisation de l'objet TMatchCollectionEnumerator de l'unité RegularExpressions.

Version simplifiée d'un exemple trouvé dans la documentation de Delphi :

http://docwiki.embarcadero.com/CodeExamples/XE2/en/TMatchCollectionCount_(Delphi)

L'objet TMatchCollectionEnumerator permet de parcourir une collection de correspondances.

Compilation testée avec Delphi 10.1.

La fonction logique PosExact est dérivée de Posex. elle présente l'avantage de ne pas explorer inutilement la chaine, car elle abandonne dès qu'il y a un écart.
elle est donc beaucoup plus rapide.
Elle est très utile dans un serveur car par exemple PosExact('GET', Str1) renvoie TRUE uniquement si la chaine commence par 'GET'
De même PosExact(url,Str1,6) renvoie TRUE pour la chaine 'GET /url'.
[codeinline]function PosExact(const SubStr, S: string; Offset: Integer = 1): Boolean;
asm
test eax, eax
jz @Nil
test edx, edx
jz @Nil
dec ecx
jl @Nil

push esi
push ebx

mov esi, [edx-4] //Leng ... Voir la suite

Les versions de DELPHI STARTER ne comportent pas de formateur de code intégré.
Mais heureusement un formateur en ligne de commande "Formatter.exe" est disponible dans le répertoire \bin.

Trois méthodes sont indiquées pour le lancer depuis l’EDI et formater le projet en cours :
- avec un lanceur (Delphi) en mode graphique ;
- avec un lanceur (Delphi) en mode console ;
- directement.


Ces trois méthodes sont détaillées dans un fichier d’aide Windows « FormaterCode DelphiStarter.chm ». Les exécutables et le code source des deux programmes sont fournis.

Petite démonstration d'une course de voiture en 3D que j'ai réalisée pour le Congrès Delphi 2019 organisé qui s'est tenu à Paris le 19/11/2019.

Il n'y a pas de moteur physique mais la démonstration est jouable et permet de voir :
- la création d'un décor extérieur en 3D (heightmap);
- utilisation d'un cubemap;
- gestion des collisions en 3D.

Le tout est multi plateformes et a été réalisé avec Delphi Rio et Firemonkey.

Le code est disponible sur mon Github : https://github.com/gbegreg/FMXRace
Les binaires sont disponibles sur mon site : http://gbesoft.fr/jeux.php#fmxrace

Pilotage d'un moteur UCI.

Projet Delphi basé sur le composant TConsoleIO d'Andrey Sevast'yanov.

Personnellement je me sers de cette petite application pour déboguer mon moteur UCI, mais en fait elle peut servir dans d'autres contextes, pour dialoguer avec une application console qui fonctionne de la même façon qu'un moteurs d'échecs, c'est-à-dire qui reçoit plusieurs commandes successives et répond au fur et à mesure. Je crois qu'ExifTool, par exemple, fonctionne de cette façon.

En fait ce qui est intéressant c'est le composant TConsoleIO lui-même. Je l'ai retouché pour qu'il soit compatible avec Delphi XE. La version originale du composant, pour Delphi, se trouve dans le dossier composant\archive.