Delphi中SynEdit导出HTML无颜色高亮问题求助

1. 先确保SynEdit已关联语法高亮组件 #

• 在Delphi IDE组件面板中找到对应语言的SynHighlighter组件（比如Pascal用SynPasSyn，C++用SynCppSyn），拖到窗体上。
• 把SynEdit的Highlighter属性设置为刚才添加的SynHighlighter组件。
• 先运行程序确认SynEdit界面里的代码已经有语法颜色显示，这是导出带颜色HTML的前提。

2. 修改HTML导出代码，添加颜色处理逻辑 #

原来的导出代码只处理了粗体、斜体，需要遍历每个字符的高亮属性，提取前景色并生成对应的HTML样式标签。以下是核心代码示例：

procedure TForm1.ExportSynEditToHTML(const FilePath: string);
var
  OutputList: TStringList;
  LineIndex, LineCount: Integer;
  CurrentLine: string;
  CurAttr, PrevAttr: TSynHighlighterAttributes;
begin
  OutputList := TStringList.Create;
  try
    // 初始化HTML头部
    OutputList.Add('<html><body><pre style="font-family: Courier New; font-size: 12px;">');
    
    LineCount := SynEdit1.Lines.Count;
    for LineIndex := 0 to LineCount - 1 do
    begin
      CurrentLine := SynEdit1.Lines[LineIndex];
      // 重置高亮器并设置当前行
      SynEdit1.Highlighter.Reset;
      SynEdit1.Highlighter.SetLine(CurrentLine, LineIndex);
      
      PrevAttr := nil;
      while SynEdit1.Highlighter.GetNext do
      begin
        CurAttr := SynEdit1.Highlighter.Attr;
        if CurAttr <> PrevAttr then
        begin
          // 关闭上一个样式标签
          if PrevAttr <> nil then
            OutputList.Add('</span>');
          // 生成新的样式标签，包含颜色、粗体、斜体
          OutputList.Add(Format('<span style="color: %s; font-weight: %s; font-style: %s;">', [
            ColorToHex(CurAttr.Foreground),
            IfThen(CurAttr.Style.Contains(fsBold), 'bold', 'normal'),
            IfThen(CurAttr.Style.Contains(fsItalic), 'italic', 'normal')
          ]));
          PrevAttr := CurAttr;
        end;
        // 添加当前高亮段的文本（转义HTML特殊字符）
        OutputList.Add(EscapeHTML(Copy(CurrentLine, SynEdit1.Highlighter.Start + 1, SynEdit1.Highlighter.Length)));
      end;
      // 关闭最后一个样式标签
      if PrevAttr <> nil then
        OutputList.Add('</span>');
      OutputList.Add('<br>');
    end;
    
    // 结束HTML标签
    OutputList.Add('</pre></body></html>');
    OutputList.SaveToFile(FilePath);
  finally
    OutputList.Free;
  end;
end;

// 辅助函数：将TColor转为16进制颜色字符串
function ColorToHex(Color: TColor): string;
var
  RGBVal: Integer;
begin
  RGBVal := ColorToRGB(Color);
  Result := Format('#%.2x%.2x%.2x', [GetRValue(RGBVal), GetGValue(RGBVal), GetBValue(RGBVal)]);
end;

// 辅助函数：转义HTML特殊字符
function EscapeHTML(const S: string): string;
begin
  Result := StringReplace(S, '&', '&amp;', [rfReplaceAll]);
  Result := StringReplace(Result, '<', '&lt;', [rfReplaceAll]);
  Result := StringReplace(Result, '>', '&gt;', [rfReplaceAll]);
  Result := StringReplace(Result, '"', '&quot;', [rfReplaceAll]);
end;

3. 关键注意事项 #

• 必须保证SynEdit1.Highlighter不为空，否则无法获取颜色属性。
• 处理每行时要调用Highlighter.SetLine重置该行的高亮状态，确保能正确解析每行的语法颜色。
• 用Highlighter.GetNext逐个获取高亮段，每个段对应不同的Attr属性（包含前景色、字体样式）。
• 一定要转义HTML特殊字符，避免导出的HTML出现格式错乱。

4. 验证效果 #

运行程序后，在SynEdit中输入对应语言的代码，执行导出操作后打开生成的HTML文件，应该能看到和SynEdit界面一致的语法颜色，同时保留粗体、斜体样式。

内容的提问来源于stack exchange，提问作者stevenvh