property ObjectType[Index: Integer]: TObjectType; // read only
| Index | 基于 0 的页面对象索引,范围为 0 到 ObjectCount - 1 |
ObjectType 返回一个描述
Index 处页面对象种类的 TObjectType 枚举值:
otText — 文本显示操作符(Tj、TJ、'、")— 共享字体和文本矩阵的字形段otPath — 矢量路径:线、曲线、矩形和填充。使用 ObjectBounds 获取页面上的矩形otImage — 光栅图像。与 ObjectBitmap 配对以检索像素otShading — 渐变或基于函数的渐变图案(PDF 轴向/径向/coon 渐变)otForm — form XObject:可重用的子流,其自身可能包含文本、路径和图像该分类稳定且廉价;在遍历
ObjectCount 的紧密循环中调用它是决定调用哪个更昂贵访问器(ObjectBitmap、
ObjectBounds、字符属性)之前分诊页面
内容的标准方式
此属性不递归展开 form XObject — 类型
报告 otForm,如果调用方需要叶级内容,必须向下进入
form 自身的对象列表
// 当前页面上对象类型的直方图
var
I: Integer;
Counts: array[TObjectType] of Integer;
T: TObjectType;
begin
FillChar(Counts, SizeOf(Counts), 0);
for I := 0 to Pdf.ObjectCount - 1 do
Inc(Counts[Pdf.ObjectType[I]]);
for T := Low(TObjectType) to High(TObjectType) do
Memo1.Lines.Add(Format('%s: %d', [GetEnumName(TypeInfo(TObjectType), Ord(T)), Counts[T]]));
end;