419 lines
9.9 KiB
Plaintext
419 lines
9.9 KiB
Plaintext
type TSDocxToPdf = class
|
||
uses TSColorToolKit, TSPdfEnumerations;
|
||
|
||
public
|
||
function Create(alias, file);
|
||
function SaveToFile(alias, file);
|
||
function Transform();
|
||
|
||
property Font read ReadFont;
|
||
function ReadFont();
|
||
|
||
private
|
||
function Init();
|
||
function InitSectPr();
|
||
function InitEncoder();
|
||
function InitPoint();
|
||
function InitStyles();
|
||
|
||
function TransformParagraph(paragraph);
|
||
function TransformDrawing(drawing);
|
||
function TransformTable(table);
|
||
|
||
function AddPage();
|
||
function CheckAndAddPage(offset);
|
||
function ResetCoordinates();
|
||
function CalcPagragraphPt(size, line);
|
||
function FloatN(R, N);
|
||
function ParagraphWordsToLine(ware);
|
||
function GetElementType(element);
|
||
function SetPageItalic(page, x, y); // 模拟倾斜[废弃]
|
||
|
||
// test用
|
||
function PrintGrid();
|
||
|
||
private
|
||
docx_components_; // Components@DOCX
|
||
styles_adapter_; // StylesAdapter@Docx
|
||
|
||
pdf_; // PdfFile
|
||
point_; // Point
|
||
sect_;
|
||
base_size_; // 基准字体大小
|
||
font_ware_;
|
||
current_page_; // 当前page
|
||
end;
|
||
|
||
type Point = class // 定位当前的位置
|
||
public
|
||
X;
|
||
Y;
|
||
end;
|
||
|
||
function TSDocxToPdf.Create(alias, file);
|
||
begin
|
||
NameSpace "DOCX";
|
||
docx_components_ := new Components();
|
||
[err, msg] := docx_components_.OpenFile(alias, file, nil);
|
||
if err then raise "Create obejct 'TSDocxFile' failed.";
|
||
self.Init();
|
||
end;
|
||
|
||
function TSDocxToPdf.Init();
|
||
begin
|
||
pdf_ := new PdfFile();
|
||
self.InitStyles();
|
||
self.InitEncoder();
|
||
self.InitSectPr();
|
||
self.InitPoint();
|
||
self.AddPage();
|
||
base_size_ := integer(sect_.DocGrid.LinePitch / 1.38, 2);
|
||
font_ware_ := new TSFontWare(pdf_);
|
||
end;
|
||
|
||
function TSDocxToPdf.InitEncoder();
|
||
begin
|
||
pdf_.UseCNSFonts();
|
||
pdf_.UseCNSEncodings();
|
||
// pdf_.UseUTFEncodings();
|
||
end;
|
||
|
||
function TSDocxToPdf.InitSectPr();
|
||
begin
|
||
document := docx_components_.Document;
|
||
document.Deserialize();
|
||
sect_ := document.Body.SectPr;
|
||
// 装饰器进行转换
|
||
sect_ := new SectPrUnitDecorator(sect_);
|
||
sect_.PgSz.Orient := sect_.PgSz.Orient ? "portrait" : "landscape";
|
||
|
||
// println("LinePitch = {}, Type = {}", sect_.DocGrid.LinePitch, sect_.DocGrid.Type);
|
||
// println("Width = {}, Height = {}", sect_.PgSz.W, sect_.PgSz.H);
|
||
// println("Top = {}, Right = {}, Bottom = {}, Left = {}, Header = {}, Footer = {}\n",
|
||
// sect_.PgMar.Top, sect_.PgMar.Right, sect_.PgMar.Bottom, sect_.PgMar.Left, sect_.PgMar.Header, sect_.PgMar.Footer);
|
||
end;
|
||
|
||
function TSDocxToPdf.InitPoint();
|
||
begin
|
||
// 起始y的位置应为max(top, header) + 行距
|
||
point_ := new Point();
|
||
self.ResetCoordinates();
|
||
end;
|
||
|
||
function TSDocxToPdf.InitStyles();
|
||
begin
|
||
styles := docx_components_.Styles;
|
||
styles.Deserialize();
|
||
styles_adapter_ := new StylesAdapter(styles);
|
||
end;
|
||
|
||
function TSDocxToPdf.AddPage();
|
||
begin
|
||
current_page_ := pdf_.AddPage();
|
||
current_page_.SetWidth(sect_.PgSz.W);
|
||
current_page_.SetHeight(sect_.PgSz.H);
|
||
self.PrintGrid();
|
||
end;
|
||
|
||
function TSDocxToPdf.ResetCoordinates();
|
||
begin
|
||
point_.X := sect_.PgMar.Left;
|
||
point_.Y := sect_.PgSz.H - sect_.PgMar.Top;
|
||
end;
|
||
|
||
///返回：err
|
||
function TSDocxToPdf.SaveToFile(alias, file);
|
||
begin
|
||
return pdf_.SaveToFile(alias, file);
|
||
end;
|
||
|
||
function TSDocxToPdf.PrintGrid(); // test用
|
||
begin
|
||
page := current_page_;
|
||
|
||
i := 0;
|
||
while true do
|
||
begin
|
||
y := point_.Y - i * sect_.DocGrid.LinePitch;
|
||
if y <= sect_.PgMar.Bottom then break;
|
||
page.SetLineWidth(0.05);
|
||
page.SetGrayStroke(0.75);
|
||
page.MoveTo(sect_.PgMar.Left, y);
|
||
page.LineTo(sect_.PgSz.W- sect_.PgMar.Right, y);
|
||
page.Stroke();
|
||
i++;
|
||
end
|
||
|
||
x1 := sect_.PgMar.Left;
|
||
y1 := sect_.PgSz.H - sect_.PgMar.Top;
|
||
x2 := sect_.PgSz.W - sect_.PgMar.Right;
|
||
y2 := y1;
|
||
x3 := x1;
|
||
y3 := sect_.PgMar.Bottom;
|
||
x4 := x2;
|
||
y4 := y3;
|
||
page.SetLineWidth(0.05);
|
||
page.SetGrayStroke(0.5);
|
||
page.MoveTo(x1, y1);
|
||
page.LineTo(x2, y2);
|
||
page.Stroke();
|
||
page.MoveTo(x1, y1);
|
||
page.LineTo(x3, y3);
|
||
page.Stroke();
|
||
page.MoveTo(x2, y2);
|
||
page.LineTo(x4, y4);
|
||
page.Stroke();
|
||
page.MoveTo(x3, y3);
|
||
page.LineTo(x4, y4);
|
||
page.Stroke();
|
||
|
||
end;
|
||
|
||
function TSDocxToPdf.GetElementType(element);
|
||
begin
|
||
if element.LocalName = 'p' then return 1;
|
||
if element.LocalName = 'tbl' then return 3;
|
||
return 0;
|
||
end;
|
||
|
||
function TSDocxToPdf.Transform();
|
||
begin
|
||
elements := docx_components_.Document.Body.Elements();
|
||
for i:=0 to length(elements)-1 do
|
||
// for i:=0 to 2 do
|
||
begin
|
||
println("i = {}", i);
|
||
case self.GetElementType(elements[i]) of
|
||
1: self.TransformParagraph(elements[i]); // 普通段落
|
||
2: self.TransformDrawing(elements[i]); // 图片段落
|
||
3: self.TransformTable(elements[i]); // 表格
|
||
end;
|
||
end
|
||
end;
|
||
|
||
function TSDocxToPdf.CheckAndAddPage(offset);
|
||
begin
|
||
offset := ifnil(offset) ? 0 : offset;
|
||
if point_.Y - offset <= sect_.PgMar.Bottom then
|
||
begin
|
||
self.AddPage();
|
||
self.ResetCoordinates();
|
||
self.PrintGrid();
|
||
return true;
|
||
end
|
||
return false;
|
||
end;
|
||
|
||
function TSDocxToPdf.ParagraphWordsToLine(ware);
|
||
begin
|
||
self.CheckAndAddPage();
|
||
page := current_page_;
|
||
lines := array();
|
||
x := point_.X + ware.Paragraph.PPr.Ind.FirstLine;
|
||
y := point_.Y;
|
||
max_size := 0;
|
||
|
||
i := 0;
|
||
begin_index := 0;
|
||
words := ware.GetWords();
|
||
while i <= length(words)-1 do
|
||
begin
|
||
[word, rpr] := words[i];
|
||
if rpr.Sz.Val > max_size then
|
||
max_size := rpr.Sz.Val;
|
||
|
||
font_obj := font_ware_.GetFont(rpr.RFonts.EastAsia, rpr.B, rpr.I);
|
||
lines[i]["page"] := page;
|
||
lines[i]["font"] := font_obj;
|
||
lines[i]["word"] := word;
|
||
lines[i]["rpr"] := rpr;
|
||
lines[i]["x"] := x;
|
||
page.SetFontAndSize(font_obj, rpr.Sz.Val);
|
||
w := page.TextWidth(word);
|
||
// println("word = {}, x = {}, w = {}, sz = {}", word, x, w, rpr.Sz.Val);
|
||
x += w;
|
||
|
||
if ware.Paragraph.PPr.AutoSpaceDN and i < length(words)-1 then
|
||
begin
|
||
current_len := length(word);
|
||
next_len := length(words[i+1][0]);
|
||
if (current_len = 1 and next_len >= 2) or (current_len >= 2 and next_len = 1) then
|
||
begin
|
||
cord := current_len = 1 ? ord(word) : ord(words[i+1][0]);
|
||
if cord >= 48 and cord <= 57 then
|
||
x += rpr.Sz.Val * 0.27;
|
||
end
|
||
end
|
||
|
||
if ware.Paragraph.PPr.AutoSpaceDE and i < length(words)-1 then
|
||
begin
|
||
current_len := length(word);
|
||
next_len := length(words[i+1][0]);
|
||
if (current_len = 1 and next_len >= 2) or (current_len >= 2 and next_len = 1) then
|
||
begin
|
||
cord := current_len = 1 ? ord(word) : ord(words[i+1][0]);
|
||
if (cord >= 97 and cord <= 122) or (cord >= 65 and cord <= 90) then
|
||
x += rpr.Sz.Val * 0.27;
|
||
end
|
||
end
|
||
|
||
line_pt := self.CalcPagragraphPt(max_size, ware.Paragraph.PPr.Spacing.Line);
|
||
offset := (line_pt - max_size) / 2;
|
||
if self.CheckAndAddPage(line_pt) then // 换页，x不变，y变
|
||
begin
|
||
page := current_page_;
|
||
x := point_.X;
|
||
y := point_.Y;
|
||
i := begin_index;
|
||
max_size := 0;
|
||
continue;
|
||
end
|
||
if x >= sect_.PgSz.W - sect_.PgMar.Right then // 换行
|
||
begin
|
||
y := y - offset - max_size + max_size / 5;
|
||
for j:=begin_index to i-1 do
|
||
lines[j]["y"] := y;
|
||
|
||
// 重置参数
|
||
begin_index := i;
|
||
max_size := 0;
|
||
x := point_.X;
|
||
y := point_.Y - line_pt;
|
||
point_.Y := y;
|
||
|
||
// 换页
|
||
if self.CheckAndAddPage() then
|
||
begin
|
||
page := current_page_;
|
||
x := point_.X;
|
||
y := point_.Y;
|
||
end
|
||
end
|
||
else begin
|
||
i++;
|
||
if i > length(words)-1 then // 到了末尾仍未换行
|
||
begin
|
||
y := y - offset - max_size + max_size / 5;
|
||
for j:=begin_index to length(words)-1 do
|
||
lines[j]["y"] := y;
|
||
point_.Y -= line_pt;
|
||
end
|
||
end
|
||
end
|
||
return lines;
|
||
|
||
end;
|
||
|
||
function TSDocxToPdf.SetPageItalic(page, x, y);
|
||
begin
|
||
angle := 130;
|
||
rad := angle / 180 / Pi();
|
||
page.SetTextMatrix(1, 0, tan(rad), 1, x, y);
|
||
end;
|
||
|
||
function TSDocxToPdf.TransformParagraph(paragraph);
|
||
begin
|
||
// 1. 字体大小
|
||
// 2. 字体颜色
|
||
// 3. 字体斜体
|
||
// 4. 字体粗体
|
||
// 5. 首行间距
|
||
// 6. 字符间距
|
||
|
||
// 7. 下划线
|
||
// 8. 删除线
|
||
// 9. 上下标
|
||
// 10. 对齐方式
|
||
paragraph_ware := new TSParagraphWare(docx_components_, styles_adapter_, paragraph);
|
||
paragraph_ware.Do();
|
||
|
||
// 将段落中间件的每一个字符序列化成每一行
|
||
lines := self.ParagraphWordsToLine(paragraph_ware);
|
||
// 开始写入pdf
|
||
for i:=0 to length(lines)-1 do
|
||
begin
|
||
line := lines[i];
|
||
word := line["word"];
|
||
rpr := line["rpr"];
|
||
[r, g, b] := array(0, 0, 0);
|
||
if rpr.Color.Val then [r, g, b] := TSColorToolKit.HexToRGB(rpr.Color.Val);
|
||
page := line["page"];
|
||
page.SetRGBFill(r / 255, g / 255, b / 255);
|
||
page.SetFontAndSize(line["font"], rpr.Sz.Val);
|
||
|
||
x := line["x"];
|
||
y := line["y"];
|
||
if draw_bold then
|
||
begin
|
||
// 1. 调整偏移位置重复绘制 -- 当前参数的效果不太好
|
||
// z := 0.0005 * sqrt(x*x + y*y) * sqrt(2) / 2;
|
||
// left_x := x - z; // 左下角x位置
|
||
// left_y := y - z; // 左下角y位置
|
||
// right_x := x + z; // 右上角x位置
|
||
// right_y := y + z; // 右上角y位置
|
||
// offset := word.WordProperty.Size / 1000; // 每次偏移千分之一
|
||
// println("z = {}", z);
|
||
// println("x = {}, y = {}, offset = {}", x, y, offset);
|
||
// println("left_x = {}, left_y = {}, right_x = {}, left_y = {}\n", left_x, left_y, right_x, right_x);
|
||
// while left_x <= right_x and left_y <= right_y do
|
||
// begin
|
||
// if draw_italic then self.SetPageItalic(page, left_x, left_y);
|
||
// page.TextOut(left_x, left_y, word.Word);
|
||
// left_x += offset;
|
||
// left_y += right_y;
|
||
// end
|
||
|
||
// 2. 调整字体大小，x,y位置重复绘制
|
||
multi := 1.030;
|
||
size := word.WordProperty.Size;
|
||
target_size := size * multi;
|
||
offset := size * 0.01;
|
||
size /= multi;
|
||
while size <= target_size do
|
||
begin
|
||
page.SetFontAndSize(font, size);
|
||
page.beginText();
|
||
if draw_italic then self.SetPageItalic(page, x, y);
|
||
page.TextOut(x, y, word.Word);
|
||
page.endText();
|
||
size += offset;
|
||
end
|
||
end
|
||
else begin
|
||
page.beginText();
|
||
page.TextOut(x, y, word);
|
||
page.endText();
|
||
end
|
||
|
||
page.SetRGBFill(0, 0, 0);
|
||
end
|
||
|
||
end;
|
||
|
||
function TSDocxToPdf.TransformDrawing(drawing);
|
||
begin
|
||
end;
|
||
|
||
function TSDocxToPdf.TransformTable(table);
|
||
begin
|
||
end;
|
||
|
||
function TSDocxToPdf.CalcPagragraphPt(size, line);
|
||
begin
|
||
if ifnil(line) then line := 12;
|
||
lines := self.FloatN(line / 12, 2);
|
||
multi := Ceil(size / base_size_);
|
||
return sect_.DocGrid.LinePitch * multi;
|
||
end;
|
||
|
||
function TSDocxToPdf.FloatN(r, n);
|
||
begin
|
||
return Round(r * IntPower(10, n)) / IntPower(10, n);
|
||
end;
|
||
|
||
function TSDocxToPdf.ReadFont();
|
||
begin
|
||
return font_ware_;
|
||
end;
|
||
|