Discussion :

[Papy214]

Bonjour

Est-ce que vous connaissez une bibli de code qui permettrait de générer du html simple ?
Un truc genre créer le fichier, créer une table, la remplir, formater des textes .

Je ne cherche pas quelque chose de super complexe, juste le minimum requis pour générer des contenus HTML pour faire des mails.

[XeGregory]

Bonjour

Est-ce que vous connaissez une bibli de code qui permettrait de générer du html simple ?
Un truc genre créer le fichier, créer une table, la remplir, formater des textes .

Je ne cherche pas quelque chose de super complexe, juste le minimum requis pour générer des contenus HTML pour faire des mails.

J'ai acheté cette bibliothèque (ScroogeXHTML for Object Pascal) il y a pas longtemps : cela permet de convertir du RTF (TRichEdit) en HTML.
Cela pourrait être une bonne solution : écrire le mail en RTF, puis le convertir pour l'envoi.
https://www.scroogexhtml.com/object_pascal.html
ScroogeXHTMLGettingStarted.pdf
ScroogeXHTML for Object Pascal API Doc

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
{ LoadBytesFromStream }
function LoadBytesFromStream(const AStream: TStream): RawByteString;
var
  Size: Int64;
begin
  Result := '';
 
  Size := AStream.Size;
 
  if (Size < 0) or (Size > MaxInt) then
    raise Exception.Create('Stream size error');
 
  SetLength(Result, Size);
  AStream.ReadBuffer(Pointer(Result)^, Size);
end;

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
{ GetPicRTF }
procedure GetPicRTF(SX: TBTScroogeXHTML; const FileName: String);
var
  Pics: TObjectDictionary<String, TEmbeddedPicture>;
  E: TEmbeddedPicture;
  Path, Picture: String;
begin
  Pics := SX.PictureAdapter.getPictures;
  Path := ExtractFilePath(FileName);
 
  for Picture in Pics.Keys do
  begin
    E := Pics[Picture];
 
    if E.IsDataURI then
    begin
      Continue;
    end;
 
    with TMemorystream.Create do
    begin
      try
        LoadFromStream(E.Stream);
        SaveToFile(Path + Picture);
      finally
        Free;
      end;
    end;
  end;
end;

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
{ GetRTFToHtml }
function GetRTFToHtml(const RE: TLMDRichEdit; const FileName: String): String;
var
  MS: TMemorystream;
  RTFContent: RawByteString;
  SX: TBTScroogeXHTML;
begin
  SX := TBTScroogeXHTML.Create;
  with SX do
  begin
    ConvertIndent := True;
    ConvertSpaces := True;
    ConvertHyperlinks := True;
    ConvertFields := True;
    ConvertEmptyParagraphs := True;
    PictureAdapter := TMemoryPictureAdapterDataURI.Create;
    SX.ConvertPictures := True;
    OptionsHead.DocumentTitle := TPath.GetFileNameWithoutExtension(FileName);
  end;
 
  MS := TMemorystream.Create;
 
  try
    MS.Seek(0, soBeginning);
    RE.Lines.SaveToStream(MS);
    MS.Seek(0, soBeginning);
 
    RTFContent := LoadBytesFromStream(MS);
    Result := GetEncodeHtml(UTF8ToString(RawByteString(SX.Convert(RTFContent))));
    GetPicRTF(SX, FileName);
  except
    Result := EmptyStr;
  end;
 
  FreeAndNil(MS);
  FreeAndNil(SX);
end;

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
{ GetEncodeHtml }
function GetEncodeHtml(Html: String): String;
const
  ChrMin = 123;
  ChrMax = 38000;
var
  I: Integer;
begin
  if StringReplace(Html, #32, EmptyStr, [rfReplaceAll]) <> EmptyStr then
  begin
    for I := ChrMin to ChrMax do
      Html := StringReplace(Html, Chr(I), '&#' + Inttostr(I) + ';', [rfReplaceAll]);
 
    Result := Html;
  end;
end;

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
{ RTFToHtml }
procedure RTFToHtml(const FileName: String; RE: TLMDRichEdit);
var
  Stream: TStringStream;
  HtmlContent: String;
begin
  HtmlContent := EmptyStr;
  Stream := TStringStream.Create;
 
  HtmlContent := GetRTFToHtml(RE, FileName);
  if Length(HtmlContent) > 0 then
  begin
    Stream.WriteString(HtmlContent);
    Stream.Position := 0;
    Stream.SaveToFile(FileName);
  end
  else
    ShowMessage('Une erreur est survenue lors de l''exportation du document.');
 
  FreeAndNil(Stream);
end;

[SergioMaster]

Perso, j'ai utilisé le composant de TMS, à l'époque un TMS FMX Rich Editor, je n'ai pas suivi l'évolution FNC du même composant, j'espère qu'il est identique
Toutefois, ma tendance actuelle est plutôt de me débarasser de tout ce qui est abonnement pour les composants (budget oblige) donc, même si les sources sont fournis avec TMS, j'ai fait divers essais vers des dépôts github et libre sans vraiment trouver chaussure à mon pied.

@XEGregory ce Scrooge... ne me parait pas mal mais il me semble être VCL only, car nécessitant le composant RTF

[ShaiLeTroll]

Pour générer un mail, tu n'as pas besoin d'un lib, ajouter des <body>, <B> ... ce n'est pas difficile

c'est plutôt le composant WYSIWYG qui sera plus délicat, soit comme mentionné plus haut, un editeur RTF converti en HTML peut être une approche.

Mais extraire les Attributes du TRichEdit pour générer du HTML, cela ne mérite pas une lib

https://github.com/DeveloppeurPascal/HTML-Writer de Patrick connu sur le forum, c'est payant.

Le plus délicat, c'est les injections, un éditeur HTML ne doit pas autoriser qu'on lui colle du JS et il ne faut pas qu'il l'exécute, une faille que l'on voyait sur des éditeurs WYSIWYG en JavaScript ou alors ceux en Delphi qui utilise un mode d'aperçu avec un WebBrowser.

[XeGregory]

HTML Writer
https://olfsoftware.lemonsqueezy.com

https://github.com/DeveloppeurPascal/HTML-Writer de Patrick connu sur le forum, c'est payant.

[Papy214]

Convertir du RTF c'est bien mais je ne cherche pas un éditeur.
Juste un moyen de générer du HTML par code.

Alors oui je peux le faire avec un TStringBuilder et ajouter chaque élément un par un mais je me disais que quelqu'un a bien dû avoir le même besoin que moi et que peut-être ce code existait déjà

@XeGregory : Le lien ne fonctionne pas

404: Page Not Found
Sorry, the page you are looking for could not be found.

Request ID: da4a478b-829f-447b-9421-6c00da6efc6c

Voilà un bout de code que j'ai commencé, c'est ce genre de chose que je cherche pour éviter de réinventer la roue

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
  THTMLtable = class
  private
    St: TStringBuilder;
  public
 
    Titre: string;
    Bordure: Byte;
 
 
 
    constructor Create(Titre: string = ''; Bordure: Byte = 1);
    destructor Destroy; override;
    procedure CommenceLigne;
    procedure AjouteTitre(Texte: string);
    procedure AjouteColonne(Texte: string; Titre: Boolean = False);
    procedure TermineLigne;
    procedure Termine;
    function AsString: string;
 
 
  end;
 
implementation
 
{ THTMLtable }
 
procedure THTMLtable.AjouteColonne(Texte: string; Titre: Boolean);
begin
  St.AppendLine(Format('<%1:s>%0:s</%1:s>', [Texte, IfThen(Titre, 'th', 'td')]));
end;
 
procedure THTMLtable.AjouteTitre(Texte: string);
begin
  St.AppendLine(Format('<caption>%s</caption>', [Texte]));
end;
 
function THTMLtable.AsString: string;
begin
  Result := St.ToString;
end;
 
procedure THTMLtable.CommenceLigne;
begin
  St.AppendLine('<tr>');
end;
 
constructor THTMLtable.Create(Titre: string; Bordure: Byte);
begin
  St := TStringBuilder.Create;
  St.AppendLine(Format('<table border="%dpx">', [Bordure]));
  if not Titre.IsEmpty then
    AjouteTitre(Titre);
end;
 
destructor THTMLtable.Destroy;
begin
  St.Free;
  inherited;
end;
 
procedure THTMLtable.Termine;
begin
  St.AppendLine('</table>');
end;
 
procedure THTMLtable.TermineLigne;
begin
  St.AppendLine('</tr>');
end;

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
 
  Tbl := THTMLtable.Create('toto', 1);
 
  Tbl.CommenceLigne;
  Tbl.AjouteColonne('Titre col 1', True);
  Tbl.AjouteColonne('Titre col 2', True);
  Tbl.TermineLigne;
 
  Tbl.CommenceLigne;
  Tbl.AjouteColonne('Titre col 1', False);
  Tbl.AjouteColonne('Titre col 2', False);
  Tbl.TermineLigne;
 
  Tbl.TermineLigne;
 
  Tbl.Termine;