[Delphi XE2] Composant RichEdit

Version imprimable

25/06/2013, 09h32
Pierre GIRARD

[Delphi XE2] Composant RichEdit

Bonjour,

Sur Lazarus, il existe un composant "LZRichEdit" qui remplace avantageusement le RichEdit de Delphi, mais il permet en plus d'inclure des photos dans les documents.

Le RichEdit de base semble incapable de le faire, et le composant TRichView n'est pas donné. 255 € pour un amateur comme moi, c'est infiniment trop. Donc ...?

La question est : existe-il un composant pour Delphi XE2 permettant d'inclure des photos dans un document RTF ?

Merci par avance pour toute réponse (même négative)
25/06/2013, 11h57
ShaiLeTroll

J'ai souvenir d'un sujet similaire
Faudrait vérifier si le TJvRichEdit le gère, il y a plusieurs DLL RichEdit dans Windows

Tu peux utiliser Word par automation, voir :faq: Word→Modification du texte
25/06/2013, 12h16
SergioMaster

Citation:

Envoyé par ShaiLeTroll

Faudrait vérifier si le TJvRichEdit le gère

après vérification , oui ;)

cependant JVCL comme son nom l'indique , c'est du VCL pas du FMX (a quand un JVFMX ?) . J'ai même lu sur EDN que la JVCL avait été porté pour XE4

merci , grâce a ce post je suis au courant et je vais les installer de ce pas ;)

Comme, on est dans la rubrique "Composants VCL", cela ne semblait pas être un problème d'évoquer le JVCL !

Tu penses à FMX parce qu'il utilise Lazarus ? Les plateformes cibles ne sont pas les mêmes (manque Linux pour FMX)

Avec un collègue, pour faire une impression rapide (on utilise Crystal Report 2008, on voulait s'en passer), on a créé un RTF template sous WordPad, on ouvre le fichier manuellement et l'on remplace des
<balises nom du champ de fusion> pour les données, cela fonctionne plutôt pas mal, j'ai fait ce code en D7 ainsi qu'en BCBXE2 (via un simple TStringStream)

Voici ce bricolage fait en une petite heure avec mon collègue, c'est un peu baclé mais cela fonctionne

Code:

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
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
//---------------------------------------------------------------------------
void TFrmLst***::Print***()
{
  TStringStream *ss = new TStringStream();
  ss->LoadFromFile(ExtractFilePath(Application->ExeName)+"Modele***.rtf");
 
  String chaine = ss->DataString;
  delete ss;
 
  for (int i = 0; i < ClientDataSet->Fields->Count ; i++)
  {
    TField *champ = ClientDataSet->Fields->Fields[i];
 
    String tag = "<" + champ->FieldName + ">";
    String TagValue;
    if(champ->FieldName == "Memo***")
    {
      TagValue = Memo***AsString(champ);
      String TagPlainTextValue = RTFToPlainText(TagValue);
      String tagPlainText = "<" + champ->FieldName + ".PlainText"  + ">";
      chaine = StringReplace(chaine,tagPlainText,TagPlainTextValue,TReplaceFlags()<<rfIgnoreCase<<rfReplaceAll);
    }
    else
      TagValue = champ->AsString;
 
    chaine = StringReplace(chaine,tag,TagValue,TReplaceFlags()<<rfIgnoreCase<<rfReplaceAll);
  }
 
  ss = new TStringStream();
  ss->WriteString(chaine);
 
  char szTmpFile[ MAX_PATH ];
  ::GetTempPath( MAX_PATH, szTmpFile );
  TFileName fichierRTF = IncludeTrailingPathDelimiter(szTmpFile) + "***_" + ClientDataSet->FieldByName("ID")->AsString + ".rtf";
  DeleteFile(fichierRTF);
  ss->SaveToFile(fichierRTF);
  delete ss;
  ShellExecuteW(NULL,L"print",fichierRTF.c_str(),NULL,NULL,SW_HIDE);
  Sleep(2000);
  int tentative = 0;
  do
  {
    Sleep(100);
    DeleteFile(fichierRTF);
    tentative++;
  }
  while (FileExists(fichierRTF) || (tentative <= 20));
}
 
//---------------------------------------------------------------------------
String TFrmLst***::RTFToPlainText(String TagValue)
{
  String szChaine;
  TStringStream *ss = new TStringStream(TagValue);
  TRichEdit *myRichEdit = new TRichEdit(this);
  myRichEdit->Parent = this;
  myRichEdit->SetBounds(-1,-1,0,0);
  myRichEdit->Lines->LoadFromStream(ss);
  szChaine = myRichEdit->Text;
  delete ss;
  delete myRichEdit;
  return szChaine;
}
 
//---------------------------------------------------------------------------
String TFrmLst***::Memo***AsString(TField *Champ)
{
  TStringStream *stream = new TStringStream();
  TVarBytesField *VBF = ((TVarBytesField*)Champ);
  BYTE *Txt = new BYTE[VBF->DataSize];
  if(VBF->GetData(Txt))
  {
    // 2 octets pour la taille du binaire  (WORD est sur 2 octet)
    stream->Write(&Txt[2],(WORD&)Txt[0]);
    stream->Position = 0;
  }
  String result = stream->DataString;
  delete[] Txt;
  delete stream;
  return result;
}

25/06/2013, 15h23
Pierre GIRARD

Citation:

Envoyé par ShaiLeTroll

J'ai souvenir d'un sujet similaire
Faudrait vérifier si le TJvRichEdit le gère, il y a plusieurs DLL RichEdit dans Windows

Tu peux utiliser Word par automation, voir :faq: Word→Modification du texte

Je ne pense pas, pour la simple raison que je n'ai pas Word ... où alors, il existe un équivalent sur OOo.

Pour JvRichEdit, je vais voir. Sinon, entre temps, j'ai trouvé les composants "LMD Tools" Dont le composant "RichPack" qui a l'air d'être pas mal. Il n'est pas gratuit, mais 59$ (pour le composant seul), ça reste dans mes possibilités. Est-ce que quelqu'un connait ces composants ?
25/06/2013, 15h38
Pierre GIRARD

On le trouve où JvRichEdit ? J'ai beau chercher, je ne trouve pas où aller chercher cette bête là.

j'ai installé la version pour XE4 , le jvRichedit se trouve dans les JvEdits , pas encore testé par contre l'insertion d'une image , il faut que je retrouve le code

[Edit]
excepter l'inconvénient de passer par le Clipboard voici comment j'ai mis une image dans le jvRichEdit
Code:

1 2 3 4 5 6 7 8 9 10 11 12 procedure TForm1.Button1Click(Sender: TObject); var Pict : TPicture; begin Pict := TPicture.Create; try Pict.LoadFromFile(JvFileNameEdit1.FileName); Clipboard.Assign(Pict); JvRichEdit1.PasteFromClipboard; finally Pict.Free; end; end;
l'image se positionne a la suite du curseur (du jvrichedit s'entend)

25/06/2013, 20h33
Pierre GIRARD

En fait, d'après ce que j'ai compris, ça remplace les composants RXLib (dont RXRichEdit que j'avais utilisé avec Delphi 4). J'ai téléchargé un programme Demo de la suite JEDI, et il semble évident que ça répond à ma demande. Je passe donc le Topic en résolu. ;)