LOGICIEL DE TRAITEMENT D'IMAGES

Messages postés
51
Date d'inscription
mercredi 27 avril 2005
Statut
Membre
Dernière intervention
13 novembre 2007
- - Dernière réponse : jackalunion
Messages postés
129
Date d'inscription
mercredi 8 janvier 2003
Statut
Membre
Dernière intervention
14 juillet 2008
- 22 juin 2008 à 18:00
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/44636-logiciel-de-traitement-d-images

jackalunion
Messages postés
129
Date d'inscription
mercredi 8 janvier 2003
Statut
Membre
Dernière intervention
14 juillet 2008
-
Baucoup de choses
cs_cbibi
Messages postés
112
Date d'inscription
mardi 24 juin 2003
Statut
Membre
Dernière intervention
11 novembre 2007
-
Trés bon programme pour un débutant ! Mais c'est vrai qu'il est affreusement lent Oo
metanil
Messages postés
51
Date d'inscription
mercredi 27 avril 2005
Statut
Membre
Dernière intervention
13 novembre 2007
-
Au début, je l'ai hurlé, mais à force je me suis tût !
Debiars
Messages postés
285
Date d'inscription
lundi 16 juin 2003
Statut
Membre
Dernière intervention
11 février 2018
-
Merci METANIL, fallait le dire tout de suite.
metanil
Messages postés
51
Date d'inscription
mercredi 27 avril 2005
Statut
Membre
Dernière intervention
13 novembre 2007
-
http://jansfreeware.com/janfx.zip, si vous voulez apprendre, utiliser et comprendre les manipulations de bitmap, via scanlines...
Debiars
Messages postés
285
Date d'inscription
lundi 16 juin 2003
Statut
Membre
Dernière intervention
11 février 2018
-
@METANIL : ????!
metanil
Messages postés
51
Date d'inscription
mercredi 27 avril 2005
Statut
Membre
Dernière intervention
13 novembre 2007
-
Sinon, il ya JansFX....
Debiars
Messages postés
285
Date d'inscription
lundi 16 juin 2003
Statut
Membre
Dernière intervention
11 février 2018
-
Pas mal pour un debut...mais alors, que c'est lent, toutes ces copies d'images pixel par pixel.
Pourquoi superposer 3 ou 4 TImage. Un seul suffit pour afficher, les autres peuvent très bien être des TBitmap.
Cadeau : une fonction pour mettre une image en négatif :

unction TForm.Negatif(MonBitmap : TBitmap) : TBitmap;
var bmp : TBitmap;
begin
bmp := TBitmap.Create;
bmp.Width :=MonBitmap.Width;
bmp.Height :=MonBitmap.Height;
bmp.PixelFormat := MonBitmap.PixelFormat;
BitBlt(bmp.Canvas.Handle, 0, 0, bmp.Width, bmp.Height,
MonBitmap.Canvas.Handle, 0, 0, SRCINVERT );
Result := bmp;
bmp.Free;
end;
Albedo039
Messages postés
18
Date d'inscription
mercredi 8 novembre 2006
Statut
Membre
Dernière intervention
31 janvier 2008
-
Pas mal... même si l'utilisation de Pixel[...] est assez lente.

Moi, j'aime bien "simplifier le code", alors je te propose de remplacer

++++++++++++++++++++++
begin
if Sens_NB.Text='->' then
Sens_NB.Text:='<-'
else
Sens_NB.Text:='->';
end;
++++++++++++++++++++++

par

++++++++++++++++++++++
const
cSensBouton: array[0..1] of String = ('->','<-');

Begin Sens_NB.Text:cSensBouton[ ord(Sens_NB.Text '->') ];
End;
++++++++++++++++++++++
UrbaN19
Messages postés
1
Date d'inscription
mardi 16 octobre 2007
Statut
Membre
Dernière intervention
8 novembre 2007
-
Salut Papeo !!!

Dsl mais je ne suis que étudiant en 1ere année de GEII et je n'apprendrai malheureusement pas le VB. voila voila dsl...
pape0
Messages postés
133
Date d'inscription
mercredi 18 février 2004
Statut
Membre
Dernière intervention
1 septembre 2014
-
Fait le en VB.net je suis preneur.
japee
Messages postés
1715
Date d'inscription
vendredi 27 décembre 2002
Statut
Modérateur
Dernière intervention
2 décembre 2019
2 -
Ca a l'air intéressant.
Il faut impérativement que tu enlèves du zip les fichier inutiles (*.dcu, *.~ddp, *.~dfm, *.~pas, et optionnellement *.cfg et *.dof).
Le fichier "TraitementImage.~dfm" à lui tout seul pèse 1 708 639 octets !
metanil
Messages postés
51
Date d'inscription
mercredi 27 avril 2005
Statut
Membre
Dernière intervention
13 novembre 2007
-
ke veux effecture une rotation de 1,3 radians... !