From e8c9f1f61e8b1edd159a29202e37d5d7eaf4d8fd Mon Sep 17 00:00:00 2001
From: wp_xyz <wp_xxyyzzz@gmx.net>
Date: Thu, 21 Mar 2024 19:00:50 +0100
Subject: [PATCH] fpvectorial: Raise exception when pdfvectorialwriter is
 requested to save a vectorial (non-text) page. Issue #40858.

---
 components/fpvectorial/pdfvectorialwriter.pas | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/components/fpvectorial/pdfvectorialwriter.pas b/components/fpvectorial/pdfvectorialwriter.pas
index ad20b4cc6b..3c5606509b 100644
--- a/components/fpvectorial/pdfvectorialwriter.pas
+++ b/components/fpvectorial/pdfvectorialwriter.pas
@@ -846,6 +846,8 @@ begin
   for i := 0 to AData.GetPageCount - 1 do  // iterate through pages
   begin
     TextPage := AData.GetPageAsText(i);
+    if TextPage = nil then
+      raise Exception.Create('No text page found.');
     Empty := AddPage(TextPage);
     for j := 0 to TextPage.GetEntitiesCount - 1 do  // iterate through entities
     begin