& pourquoi j’n’écrirais pas ça ? » Informatique

Le Dev du Jeudi

Whiler — Fri, 20 Jan 2012 17:00:16 +0000

Hier, j’ai assisté à un webinar sur Delphi, le Dev du Jeudi.

Le Dev du Jeudi

De nombreux points y ont été abordés :

Installation, enregistrement
Page d’accueil
Paramétrage EDI
Gestion de Bureaux
Recherche
IDE Insight
Éditeur de code, conception, historique
Formatage de code
Inspecteur d’objets
Palette d’outils
Gestionnaire de projets
Vue modèle
Explorateur de données
ToDo List
Structure
Explorateur de classes
Navigateur de fichiers
Aide
Raccourcis clavier
Refactoring

C’était le premier épisode d’une série de 16 !

Les différents épisodes traitent des sujets suivants :

Épisode 1 :	Jeudi 19 Janvier 2012
À la découverte de l’EDI RAD Studio XE2
Épisode 2 :	Jeudi 26 Janvier 2012
Aller plus loin dans l’IHM de vos applications avec Firemonkey & RAD Studio XE2
Épisode 3 :	Jeudi 02 Février 2012
Tout sur le debogage dans RAD Studio XE2
Épisode 4 :	Jeudi 16 Février 2012
RAD Studio XE2 & le langage Delphi (Développement objet, RTTI, 64 Bits, etc.)
Épisode 5 :	Jeudi 23 Février 2012
RAD Studio XE2 & le développement avec bases de données
Épisode 6 :	Jeudi 01 Mars 2012
Développer pour Win32, Win64 & MacOSX avec RAD Studio XE2
Épisode 7 :	Jeudi 08 Mars 2012
Développer pour iOS avec RAD Studio XE2
Épisode 8 :	Jeudi 15 Mars 2012
RAD Studio XE2 et le Cloud Computing
Épisode 9 :	Jeudi 22 Mars 2012
RAD Studio XE2 et le multi-tiers avec DataSnap
Épisode 10 :	Jeudi 29 Mars 2012
Les éditions avec RAD Studio XE2 et FastReport
Épisode 11 :	Jeudi 05 Avril 2012
L’intégration continue avec RAD Studio XE2 (SubVersioN, Dunit, Audits, Métriques, Installaware, FinalBuilder….)
Épisode 12 :	Jeudi 12 Avril 2012
Développer des sites webs avec RAD Studio XE2 & Intraweb
Épisode 13 :	Jeudi 19 Avril 2012
Développer des sites webs avec RadPHP XE2
Épisode 14 :	Jeudi 26 Avril 2012
Développer pour IOS et Android avec RadPHP XE2
Épisode 15 :	Jeudi 03 Mai 2012
Le Développement pour le Framework .NET avec Prism XE2
Épisode 16 :	Jeudi 10 Mai 2012
La création de composant avec RAD Studio XE2

Si vous avez raté le premier épisode, vous pouvez le retrouver sur cette page.

N’hésitez pas à vous inscrire pour suivre les prochains épisodes, c’est en français et totalement gratuit !

LCDwClock

Whiler — Sun, 11 Dec 2011 13:30:36 +0000

Cette fois-ci j’ai eu envie de jouer avec mon Delphi pour afficher des trucs sur l’écran LCD d’un clavier G19…

Clavier Logitech G19

N’appréciant pas les horloges fournies en standard, j’ai préféré me créer la mienne, toute simple…

Date et heure

Heure

Date

Ensuite, j’ai eu envie de m’ajouter un calendrier…

Calendrier

Puis pour finir, un zoom… l’idée m’est venu de Zyrion 7 dont j’utilise les unités Delphi… J’ai refait mon propre zoom car le sien ne fonctionne que sur le moniteur principal…
De nombreux niveaux de zoom sont disponibles et l’on peut également afficher un moniteur entier ou le bureau :

Bureau

Moniteur

Zoom à 100%

Zoom à 175%

Zoom à 200%

Si vous avez un clavier de ce type et que LCDwClock vous intéresse, vous pouvez le télécharger depuis ce lien.

Sur la page suivante, la documentation des touches dans LCDwClock…

À la découverte d’AppWave

Whiler — Thu, 24 Nov 2011 14:50:13 +0000

Lors du CodeWay 5, j’ai présenté une session sur AppWave.

Si vous souhaitez visualiser la vidéo de cette session, vous pouvez la voir ou la revoir ci-dessous :

CodeWay 5

Whiler — Tue, 15 Nov 2011 15:30:10 +0000

Venez participer, la semaine prochaine, à la cinquième édition française du CodeWay ! Un séminaire en ligne qui dure toute la semaine et où sera une fois de plus à l’honneur Delphi !

CodeWay 5

Vous trouverez l’agenda et le formulaire de pré-inscription sur cette page.

A la semaine prochaine !

Effets FireMonkey

Whiler — Wed, 12 Oct 2011 17:40:48 +0000

Avec Delphi XE2 et FireMonkey, il est possible de très facilement manipuler des images…

Dans cet article, je vais vous montrer le code que j’ai utilisé pour effectuer cette démonstration :

Pour réaliser cette application, j’ai déposé un TImage et un TText sur ma fiche principale.

En sélectionnant l’image, je lui ai ajoutée différents effets :

TRippleEffect
TSmoothMagnifyEffect
TPinchEffect
TWaveEffect
THueAdjustEffect
TRippleTransitionEffect

Vous pouvez voir le DFM complet en seconde page…

J’ai ensuite créé deux méthodes : une pour désactiver tous les effets, une autre pour gérer les différents effets…

1
2
3
4
5
6
7
8
9
10
11
12
13
14

procedure TfrmMain.DisableEffects;
var
iLoop, iMax: Integer;
begin
// Boucle sur tous les sous-éléments du TImage pour désactiver ses effets
iMax := Pred(imgBelly.ChildrenCount);
for iLoop := 0 to iMax do
begin
if (imgBelly.Children[iLoop] is TImageFXEffect) then
begin
(imgBelly.Children[iLoop] as TImageFXEffect).Enabled := False;
end;
end;
end;

Pour les effets, en fonction du rendu que je souhaitais obtenir, j’ai utilisé différentes fonctions pour animer tout cela…

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63

procedure TfrmMain.DoEffect(X, Y: Single);
var
bmp: TBitmap;
begin
case Tag of
0:
begin
effRipple.Center := PointF(X, Y);
effRipple.Phase := 20;
effRipple.Amplitude := 1;
effRipple.Enabled := True;
effRipple.AnimateFloat('Phase', 0, 1.5);
effRipple.AnimateFloat('Amplitude', 0.3, 0.5);
effRipple.AnimateFloatDelay('Amplitude', 0, 1, 0.5);
end;
1:
begin
effSmoothMagnify.Center := PointF(X, Y);
effSmoothMagnify.Magnification := 1;
effSmoothMagnify.Enabled := True;
effSmoothMagnify.AnimateFloat('Magnification', 3, 1, TAnimationType.atInOut, TInterpolationType.itBounce);
effSmoothMagnify.AnimateFloatDelay('Magnification', 1, 1, 1);
end;
2:
begin
effPinch.Center := PointF(X, Y);
effPinch.Radius := 0;
effPinch.Enabled := True;
effPinch.AnimateFloat('Radius', 0.5, 1, TAnimationType.atInOut, TInterpolationType.itElastic);
effPinch.AnimateFloatDelay('Radius', 0, 1, 1);
end;
3:
begin
effWave.WaveSize := 256;
effWave.Enabled := True;
effWave.AnimateFloatWait('WaveSize', 32, 2, TAnimationType.atInOut, TInterpolationType.itSinusoidal);
effWave.Enabled := False;
end;
4:
begin
effHueAdjust.Hue := 0;
effHueAdjust.Enabled := True;
effHueAdjust.AnimateFloat('Hue', 1, 1);
effHueAdjust.AnimateFloatDelay('Hue', -1, 2, 1);
effHueAdjust.AnimateFloatDelay('Hue', 0, 1, 3);
end;
5:
begin
effTransitionRipple.Progress := 0;
effTransitionRipple.Enabled := True;
effTransitionRipple.AnimateFloatWait('Progress', 100, 3);
bmp := TBitmap.Create(imgBelly.Bitmap.Width, imgBelly.Bitmap.Height);
try
bmp.Assign(imgBelly.Bitmap);
imgBelly.Bitmap.Assign(effTransitionRipple.Target);
effTransitionRipple.Target.Assign(bmp);
finally
bmp.Free;
end;
effTransitionRipple.Enabled := False;
end;
end;
end;

Puis j’ai créé l’événement OnMouseDown de l’image :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26

procedure TfrmMain.imgBellyMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Single);
begin
case Button of
TMouseButton.mbLeft: DoEffect(X, Y);
TMouseButton.mbRight:
begin
Tag := Tag + 1;
case Tag of
1: Caption := 'SmoothMagnify';
2: Caption := 'Pinch';
3: Caption := 'Wave';
4: Caption := 'Hue';
5: Caption := 'RippleTransition';
else
begin
Caption := 'Ripple';
Tag := 0;
DisableEffects;
end;
end;
txtEffect.Text := Caption;
txtEffect.AnimateFloat('Opacity', 1, 1);
txtEffect.AnimateFloatDelay('Opacity', 0, 1, 1);
end;
end;
end;

Si vous avez des questions, n’hésitez pas à laisser un commentaire

Sur la page suivante, vous pourrez trouver le DFM de la fiche…

Sur la dernière page, le code source de cette fiche.

Exemple FireMonkey

Whiler — Mon, 03 Oct 2011 14:00:23 +0000

Régulièrement, Thierry organise des Workshops Delphi : journée thématique où chacun met en pratique sur un PC ce qui nous est montré…

Le dernier était sur FireMonkey et les LiveBindings… on y a vu plein de choses diverses et variées dont :

la création d’une application FireMonkey, pour Windows, Mac, iOS,
les fenêtres transparentes,
les applications 3D,
les effets, les animations,
le mapping entre des objets et une base de données
…

Si vous n’avez pas pu y assister, celle-ci sera réitérée (voir avec Thierry pour les dates)…

Pour illustrer quelques-uns des points abordés, je partage une application rapidement codée et totalement inutile que j’ai écrite et dont vous pouvez télécharger le code source. Voici à quoi cela ressemble

Vous pouvez télécharger le code source depuis ce lien.

Si vous êtes intéressé(e) par les LiveBindings, vous pouvez trouver un tutoriel détaillé sur le site de John Colibri.

Si vous avez des questions, n’hésitez pas

wYAES

Whiler — Fri, 30 Sep 2011 17:00:03 +0000

Continuant mes investigations dans le nouveau framework^W FireMonkey, j’ai développé une nouvelle application… wYAES

Mais que se cachent derrière ces lettres ?
Yet Another Emails Sender, ce qui signifie en français : encore un autre expéditeur d’emails…

Ils en existent déjà moult, mais écrits, en FireMonkey, peut-être pas encore

J’ai utilisé dans cette application de nombreux composants et effets pour rendre l’interface 2D encore plus intuitive (et accessoirement apprendre à m’en servir ) : des effets s’activent en fonction de la valeur des champs et des actions disponibles. Ne cherchez pas de 3D, je me contente de jouer à des FPS^W, pas d’en créer

Pour envoyer des emails avec cette application, il faudra commencer par renseigner les paramètres du serveur SMTP à travers lequel les envoyer :

wYAES - Paramètres

L’interface ressemble à cela :

wYAES - Interface

Vous pouvez envoyer des emails en différents formats, attacher des pièces jointes et régler diverses options.

wYAES - Options

Si wYAES vous intéresse, 3 versions sont disponibles (merci FireMonkey ) :

Pour utiliser SSL, vous devez avoir sur votre machine les binaires pour OpenSSL ! Si vous en avez besoin, vous pouvez trouver différentes versions dont :

Pour Windows x86 (32 bits)
Pour Windows x64 (64 bits)

J’ai effectué des tests sur les 3 plateformes et j’ai pu envoyer des emails aussi bien via les serveurs SMTP de Free, GMail, …
Retrouvez la liste exhaustive de mes tests sur la seconde page…

Elle est développée avec Embarcadero Delphi XE2.

Sur la page suivante, retrouvez les différents serveurs SMTP que j’ai testés…

Mise à jour XE2

Whiler — Wed, 28 Sep 2011 10:52:00 +0000

Seulement quelques semaines après sa sortie, Embarcadero Technologies a déjà fixé de nombreux bogues dans son RAD Studio XE2 dont fait partie Delphi XE2.

Delphi XE2

J’ai procédé à l’installation de cette mise à jour sans rencontrer de soucis ! Je vais ainsi pouvoir tranquillement continuer mes éventuels développements

Delphi XE2 Update 1

Les divers téléchargements sont disponibles ici.