sauvegarder du texte en jpgRésolu

Question

Bonjour,



je travaille en Delphi 6.

J'ai un RicheEdit, dans lequel je copie du texte =>REdTxtJoint.PasteFromClipboard;



Cependant, je voudrais enregistrer ce texte au format image du genre montexte.jpg.



Je ne sais pas comment r&#233;cup&#233;rer mon texte et le convertir en image.



Avez-vous une id&#233;e ou un site qui pourrais m'aider.



UN TOUT GRAND MERCI


CSweety13

jlen100 · Accepted Answer

salut,

tu peux envoyer ton texte dans un bitmap en utilisant un scanline qui
te permets d'acc&#233;der &#224; la matrice et ensuite tu peux sauver ton bitmap
en jpeg

(je ne vois tas tr&#232;s bien ce que cela vas donner ...)

maintenant si tu veux sauver ton texte sous forme d'une image &#233;cris directement dans les canvas d' un bitmap en utilisant un

Bitmap.Canvas.TextOut(N&#176;de colonne,N&#176;Ligne,'Mon Texte') et ensuite tu sauves en jpeg



@+

jlen

Cirec · Answer

Salut,

Voici un petit exemple qui permet de sauvegarder la partie visible du texte d'un RichEdit

procedure TForm1.Button1Click(Sender: TObject);
Var TmpBmp : TBitmap;
Begin
  TmpBmp :=  TBitmap.Create;
   With  TmpBmp Do
    Try
      Width : = RichEdit1.Width;
      Height:= RichEdit1.Height;
      BitBlt(Canvas.Handle, 0, 0, Width, Height, Form1.Canvas.Handle, RichEdit1.Left, RichEdit1.Top, srcCopy);
      TmpBmp.SaveToFile('RichEdit.bmp');
    Finally
      TmpBmp.Free;
    End;
End;

@+
Cirec

japee · Answer

Hi,


Je n'ai pas mieux que la m&#233;thode de Cirec...
L'inconv&#233;nient majeur de cette mani&#232;re de proc&#233;der est qu'il ne faut pas qu'une application "stay on top" recouvre le RichEdit au moment de la capture.
Pour convertir le Bmp en fichier Jpeg, voici une petite procedure simple et efficace.

uses Jpeg;

procedure SaveBmpToJpegFile(const Bmp: TBitmap; const FileName: TFileName);
const
  TauxCompressionJpg =  100;
 begin 
  with TJPEGImage.Create do
  try
    CompressionQuality : = TauxCompressionJpg;
    Assign(Bmp);
    SaveToFile(FileName);
  finally
    Free;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var TmpBmp: TBitmap;
begin
  TmpBmp :=  TBitmap.Create;
   with  TmpBmp do
  try
    Width : = RichEdit1.Width;
    Height:= RichEdit1.Height;
    BitBlt(Canvas.Handle, 0, 0, Width, Height, Form1.Canvas.Handle, RichEdit1.Left, RichEdit1.Top, srcCopy);
    //SaveToFile('RichEdit.bmp');
    SaveBmpToJpegFile(TmpBmp, 'RichEdit.jpg');  // <- avant Free
  finally
    Free;
  end;
end;

Bonne prog' 

j@pee

csweety13 · Answer

Bonjour et merci pour vos réponses.


j'ai bien essayé avec la fonction BitBlt. cela fonctionne.

Mais il me reste un soucis : c'est que le richtext peut contenir un
texte relativement grand et ainsi déclencher ainsi les scrollbar. 

Avec la fonction BitBlt, il ne me récupère que la partie visible du texte du richtext. 


Cette méthode-là ne me satisfait donc que temporairement 


merci encore!

CSweety13

japee · Answer

Si tu veux un complément d'aide, peux-tu préciser :

- pourquoi ne pas récupérer le texte dans au format txt, doc ou autre ?

et sinon :

- pourquoi vouloir récupérer le texte au format jpg,
- la taille de cette image jpg,
- le texte est-il n'est-il pas susceptible de déborder du format de cette image ?

Bonne prog'

csweety13 · Answer

Japee,


J'ai besoin de récupérer mon texte FORMATE en image, car ensuite je
dois l'imprimer en tant qu'image. (la référence au fichier image se
fait dans un fichier XML).


La taille de l'image doit être dépendante de la taille du texte, le
richedit s'ajustant automatiquement avec les scrollbox au texte qui est
à l'interieur.

J'espère avoir été assez claire...

CSweety13

japee · Answer

Salut CSweety13,

Va voir ici : Saving a RichEdit to a Metafile

Ce code génial permet de sauver le contenu d'un TRichEdit dans un fichier image de type Metafile (*.EMF).
Je n'ai pas eu le temps de tout comprendre, mais ça fonctionne du tonnerre de Zeus...

Bonne prog' 

[mailto:j@pee j@pee]

Cirec · Answer

@ Japee :

super ce code, c'est vraiment génial (à étudier absolument)

Un petit bug toute fois (qui peut devenir gros) 
Si au moment de la selection de l'imprimante tu cliques sur Annuler tu te retrouves avec des centaines de fichiers *.emf, de quelques octets, (j'en ai moi même eu 1113) mais si on choisi Ok alors tout est Ok 

Si quelqu'un trouve pourquoi ...

@+
Cirec

Cirec · Answer

ça y est j'ai trouvé :

ajouter dans la procédure :
procedure DumpRTFToPagedEMFs(hWndRTFControl : HWND; szEMFFileTitleBase : LPTSTR);
var
  szMetaName : string;
  nRTFTextLength, nStart, nPage : integer;
  hRefDC : HDC;
  rcMeta : TRECT;
  hEMF :   HENHMETAFILE;



begin

    // First, determine how many chars are in the RTF
    nRTFTextLength := GetRTFTextLength( hWndRTFControl );
    // Get a reference DC (based on a printer)
    hRefDC := GetPrinterDC();
    If hRefDC = 0 Then Exit;   // ajouter cette ligne et c'est bon
    // Set up the meta RECT for 0.01mm units














@+
Cirec

csweety13 · Answer

C'est génial!!!



J'ai presque tout compris sauf la partie où tu fais appel à la fonction PrintDlg por avoir un HDC.


Est-ce pour avoir la taille et la résolution standard pour l'impression ?



Pourrait-on utiliser juste un CreateDC ou utiliser un DC existant ?


CSweety13

Cirec · Answer

Salut,

Alors essaye en modifiant le code comme ceci (Toujours dans la même procédure):

    // First, determine how many chars are in the RTF
    nRTFTextLength :=  GetRTFTextLength( hWndRTFControl );
    // Get a reference DC (based on a printer)
    //hRefDC := GetPrinterDC();         <------ Mettre cette ligne en commentaire 
    // Get a reference DC          
    hRefDC : = CreateDC('DISPLAY', Nil, Nil, Nil);       <-----  et ajouter celle-ci
    If hRefDC = 0 Then Exit;

Voila et le PrinterDialog ne s'affiche plus

@+
Cirec

Cirec · Answer

ps : ne pas oublier de liberer le Dc qui a été crée:

        // clean up
        DeleteEnhMetaFile( hEMF );
        inc(nPage);
        if nStart = 0 then
         break;
    end;
    DeleteDc(hRefDC);     // <----------- Ajouter cette ligne
end;

@+
Cirec

csweety13 · Answer

merci beaucoup pour ton aide...


J'ai bien vite avancé!!!  

CSweety13

Cirec · Answer

Il faut surtout remercier Japee pour avoir mis la main sur ce code qui est absolument génial,
je n'ai fais que corriger un oubli de l'auteur et une petite modification pour ne plus avoir le PrinterDialog,
mais ça c'est facile à faire quand le gros du code tourne correctement 

En tout cas ce petit bout de code ouvre de nouvelles possibilités ...
















@+
Cirec

csweety13 · Answer

Et quelles possibilités!!!...

CSweety13

Sauvegarder du texte en jpg

15 réponses

Votre réponse

Discussions similaires