Texte sur image

Bonjour a tous: mon problème est le suivant:
j'ai une serie d'images dans un repertoire et j'aimerais ecrire du texte en bas sur chaque image (la date et autre chose et ce en fonction de leur taille) sans les ouvrire bien sur, seulement un traitement en arriere plans.
si vous avez des idees merci.

Salut, tu peux les charger dans un TBitmap par la fonction LoadFromFile.

Ensuite tu utilise la propriété Canvas :

Code:

---

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

var MonBmp : TBitmap;   begin   MonBmp := TBitmap.Create; MonBmp.LoadFromFile(CheminImage); MonBmp.Canvas.Pen.Color := clRed // écrira en rouge. MonBmp.Canvas.TextOut(X,Y, "Blabla Tructruc"); // écrit le text à la position X,Y   MonBmp.SaveToFile(CheminImage);   MonBmp.Free; end;

---

Voilou

Bonjour,

//il faut déclarer TPicture

Code:

---

1 2 3 4 5 6 7 8

Image : TPicture;   //pour ouvrir une image Image.LoadFromFile(nomfichier); //pour écrire Image.Bitmap.Canvas.TextOut(x, y, text); //pour enregistrer Image.SaveToFile(nomfichier);

---

Attention il faut que les images soit sous format bmp.

j'ai oublié le create

Code:

---

Image := TPicture.Create;

---

Juste pour dire que l'appel de TPicture ne sert à rien dans sont cas, il peut directement passer par TBitmap.

Par contre, si tu utilise des JPeg, il te faudra utiliser la même technique, mais en passant par un TJPEGImage, et ajouter à tes uses l'unite JPEGImage.

Après je te laisse regarder dans l'aide pour trouver les bons taux de compression que tu souhaite.

merci pour vos réponses, je sais maintenant comment faire.
je vous aime.

le jpeg n'a pas de canvas j'ai du faire une transformation d'une image jpeg en bmp, faire le traitement ensuite transformation en jpeg et ensuite l'enregistrement avec un taux de compression.
pouvez vous me dire si je doit faire autrement ?

mon application traite une centaine de photos avec un temps acceptable, sauf la perte de qualité.
//---------merci:oops: