Convertir texte en image

Question

Bonjour a tous,

Je voudrais convertir un apercu de texte ( exemple avec rich edit) en image bitmap.
J'ai essayé avec les memorystream et le clipboard mais ca ne fonctionne pas mon image est vide.
J'utilise le code suivant :

im:=TBitmap.Create;
im.canvas.brush.style:=bsClear;
im.Canvas.TextOut(0, 0,clipboard.AsText);
pi:=Tpicture.Create;
pi.Graphic:=im;
pi.SaveToFile('c:\imag1.bmp');
pi.Free;
im.Free;

Mon image finale est vide.

Please help me !!!! Au secours !!!!

cs_Kenavo · Answer

Salut,

En dimensionnant ton Bitmap, ça devrait aller mieux !

im.width := im.Canvas.TextWidth(clipboard.AsText);
im.height := im.Canvas.TextHeight(clipboard.AsText);

Ken@vo
____________________
Code, Code, Codec !

cs_ludopika · Answer

J'ai bien rajouter les deux lignes de code  de Kenavo. 
L'image contient maintenant le texte dans le fichier.
Cependant j'ai un petit soucis de présentation du texte. Lorsque je colle le texte la mise en forme ne se fait pas. Le texte est mis bout a bout sans tenir compte des caractères retour chariot.

Help me please !!

cs_Kenavo · Answer

Pour du texte Multiligne il vaut mieux utiliser la fonction DrawText :

var
im : TBitmap;
pi : TPicture;
Rec : TRect;
Flags : UINT;
LeTexte : String;
begin
im:=TBitmap.Create;
Rec := Rect(0,0,0,0); // INIT TAILLE
LeTexte := clipboard.AsText;
Flags := DT_CALCRECT;  // CALCUL TAILLE RECTANGLE
DrawText(Im.Canvas.Handle, PChar(LeTexte), Length(LeTexte), Rec, Flags);
im.width := Rec.Right;    // DIMENSIONS BITMAP
im.height := Rec.Bottom;
//im.canvas.brush.Color:=clYellow; // Couleur de fond
//im.canvas.brush.style:=bsSolid;
im.canvas.brush.style:=bsClear; // Fond transparent
Flags := 0; // DESSIN TEXTE MULTILIGNE
DrawText(Im.Canvas.Handle, PChar(LeTexte), Length(LeTexte), Rec, Flags);
pi:=Tpicture.Create;
pi.Graphic:=im;
pi.SaveToFile('c:\imag1.bmp');
pi.Free;
im.Free;
end;

Ken@vo
____________________
Code, Code, Codec !

cs_ludopika · Answer

Super cool,

Je vais compliquer la chose en intégrant des images c'est a dire du texte et des images à copier dans une autre image.

En fait je voudrai faire comme dans les systemes de calque.

Convertir texte en image

4 réponses

Votre réponse

Discussions similaires