DAGetImageListCount does not work

If i open different PDF files and use QP.DAGetImageListCount to get images from these files, i get no images.

If i open the file in any pdf viewer, i can see a background image.

What can i do to extract the images?

Second problem:

if i use QP.ExtractPageTextBlocks(3) i get text from pdf file, but in some cases i get wrong text, for example "PhoNe nuMber" insted of "Phone number" what i can see in any pdf viewer?

Stefan

Code with DirectAccess:

procedure TForm1.ReadImages(fn: string; var l: Tstringlist);
var
i: integer;
imagecount: integer;
imageid: integer;
x: single;
y: single;
b: single;
h: single;
IL: integer;
PR: integer;
p: integer;
ImageData: ansistring; // !!!!!! wegen Stream !!!
seitenhoehe: single;
FH: integer;
begin
// Für DirectAccess mit FileHandle öffnen
FH := PDFLibrary.DAOpenFile(fn, '');
// alte Streams löschen
for i := 1 to High(streamarray) do
streamarray.Free;
setlength(streamarray, 1);
for p := 1 to PDFLibrary.PageCount do
begin
PR := PDFLibrary.DAFindPage(FH, p);
IL := PDFLibrary.DAGetPageImageList(FH, PR);
seitenhoehe := PDFLibrary.DAGetPageHeight(FH, PR);
for i := 1 to PDFLibrary.DAGetImageListCount(FH, IL) do
begin
// Read the image data
ImageData := PDFLibrary.DAGetImageDataToString(FH, IL, i);
// Determine the location and size of the image on the page
x := PDFLibrary.DAGetImageDblProperty(FH, IL, i, 501);
y := seitenhoehe - PDFLibrary.DAGetImageDblProperty(FH, IL, i, 502);
b := PDFLibrary.DAGetImageDblProperty(FH, IL, i, 503) -
PDFLibrary.DAGetImageDblProperty(FH, IL, i, 501);
h := PDFLibrary.DAGetImageDblProperty(FH, IL, i, 502) -
PDFLibrary.DAGetImageDblProperty(FH, IL, i, 508);
// für jedes gefundene Bild Streamarray verlängern und speichern
setlength(streamarray, length(streamarray) + 1);
streamarray[high(streamarray)] := TMemorystream.Create;
streamarray[high(streamarray)].Position := 0;
streamarray[high(streamarray)].WriteBuffer(Pointer(ImageData)^,
length(ImageData));
// in Liste eintragen
l.Add('P:' + p.ToString);
l.Add('{' + 'Image' + high(streamarray).ToString + '}');
l.Add('X:' + x.ToString);
l.Add('Y:' + y.ToString);
l.Add('B:' + b.ToString);
l.Add('H:' + h.ToString);
end; // End image loop
end;
PDFLibrary.DACloseFile(FH);
end;

and with normal Access:

procedure TForm1.ReadImages2();
var
i, k: integer;
IL: integer;
ic: integer;
it: integer;
gid: integer;
filename : string;
begin
for i := 1 to PDFLibrary.PageCount do
begin
// Select current page
PDFLibrary.SelectPage(i);
// Get list of images on the page
IL := PDFLibrary.GetPageImageList(0);
// Count number of images in the list
ic := PDFLibrary.GetImageListCount(IL);
for k := 1 to ic do
begin
// Iterate through each image and get the
// image type and image ID
it := PDFLibrary.GetImageListItemIntProperty(IL, k, 400);
gid := PDFLibrary.GetImageListItemIntProperty(IL, k, 405);
// Choose the approrpriate file extenion based on
// the returned image type
case it of
1:
filename := 'c:\temp\image-' + gid.ToString + '-' + k.ToString + '.jpg';
2:
filename := 'c:\temp\image-' + gid.ToString + '-' + k.ToString + '.bmp';
3:
filename := 'c:\temp\image-' + gid.ToString + '-' + k.ToString + '.tif';
4:
filename := 'c:\temp\image-' + gid.ToString + '-' + k.ToString + '.png';
end;
// Save the selected image to disk
PDFLibrary.SaveImageListItemDataToFile(IL, k, 0, filename);
end;
end
end;

The result of

DAGetImageListCount in example 1 and

GetImageListCount in example 2 is 0

Both codes don't give me images back, in different pdf files, in other pdf files the images are given back correctly!

Is it possible that the images i see are watermarks ore stamps?

How to read out these?

Stefan

Edited by skoschke - 11 Jan 17 at 1:35PM

Hi Ingo,

thank you for welcome , i understand now and will go another way in this case:

I try to use RenderPageToStream so i get the full page as background for my new pdf file...

Stefan

Author	Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic
skoschke Members Profile Find Members Posts Team Player Joined: 11 Jan 17 Status: Offline Points: 33	Post Options Post Reply Quote skoschke Report Post Thanks(0) Quote Reply Topic: DAGetImageListCount does not work Posted: 11 Jan 17 at 12:36PM
	If i open different PDF files and use QP.DAGetImageListCount to get images from these files, i get no images. If i open the file in any pdf viewer, i can see a background image. What can i do to extract the images? Second problem: if i use QP.ExtractPageTextBlocks(3) i get text from pdf file, but in some cases i get wrong text, for example "PhoNe nuMber" insted of "Phone number" what i can see in any pdf viewer? Stefan

tfrost Members Profile Find Members Posts Senior Member Joined: 06 Sep 10 Location: UK Status: Offline Points: 437	Post Options Post Reply Quote tfrost Report Post Thanks(0) Quote Reply Posted: 11 Jan 17 at 12:59PM
	I suggest you show your actual code, so that people can first eliminate obvious problems.

skoschke Members Profile Find Members Posts Team Player Joined: 11 Jan 17 Status: Offline Points: 33	Post Options Post Reply Quote skoschke Report Post Thanks(0) Quote Reply Posted: 11 Jan 17 at 1:32PM
	Code with DirectAccess: procedure TForm1.ReadImages(fn: string; var l: Tstringlist); var i: integer; imagecount: integer; imageid: integer; x: single; y: single; b: single; h: single; IL: integer; PR: integer; p: integer; ImageData: ansistring; // !!!!!! wegen Stream !!! seitenhoehe: single; FH: integer; begin // Für DirectAccess mit FileHandle öffnen FH := PDFLibrary.DAOpenFile(fn, ''); // alte Streams löschen for i := 1 to High(streamarray) do streamarray.Free; setlength(streamarray, 1); for p := 1 to PDFLibrary.PageCount do begin PR := PDFLibrary.DAFindPage(FH, p); IL := PDFLibrary.DAGetPageImageList(FH, PR); seitenhoehe := PDFLibrary.DAGetPageHeight(FH, PR); for i := 1 to PDFLibrary.DAGetImageListCount(FH, IL) do begin // Read the image data ImageData := PDFLibrary.DAGetImageDataToString(FH, IL, i); // Determine the location and size of the image on the page x := PDFLibrary.DAGetImageDblProperty(FH, IL, i, 501); y := seitenhoehe - PDFLibrary.DAGetImageDblProperty(FH, IL, i, 502); b := PDFLibrary.DAGetImageDblProperty(FH, IL, i, 503) - PDFLibrary.DAGetImageDblProperty(FH, IL, i, 501); h := PDFLibrary.DAGetImageDblProperty(FH, IL, i, 502) - PDFLibrary.DAGetImageDblProperty(FH, IL, i, 508); // für jedes gefundene Bild Streamarray verlängern und speichern setlength(streamarray, length(streamarray) + 1); streamarray[high(streamarray)] := TMemorystream.Create; streamarray[high(streamarray)].Position := 0; streamarray[high(streamarray)].WriteBuffer(Pointer(ImageData)^, length(ImageData)); // in Liste eintragen l.Add('P:' + p.ToString); l.Add('{' + 'Image' + high(streamarray).ToString + '}'); l.Add('X:' + x.ToString); l.Add('Y:' + y.ToString); l.Add('B:' + b.ToString); l.Add('H:' + h.ToString); end; // End image loop end; PDFLibrary.DACloseFile(FH); end; and with normal Access: procedure TForm1.ReadImages2(); var i, k: integer; IL: integer; ic: integer; it: integer; gid: integer; filename : string; begin for i := 1 to PDFLibrary.PageCount do begin // Select current page PDFLibrary.SelectPage(i); // Get list of images on the page IL := PDFLibrary.GetPageImageList(0); // Count number of images in the list ic := PDFLibrary.GetImageListCount(IL); for k := 1 to ic do begin // Iterate through each image and get the // image type and image ID it := PDFLibrary.GetImageListItemIntProperty(IL, k, 400); gid := PDFLibrary.GetImageListItemIntProperty(IL, k, 405); // Choose the approrpriate file extenion based on // the returned image type case it of 1: filename := 'c:\temp\image-' + gid.ToString + '-' + k.ToString + '.jpg'; 2: filename := 'c:\temp\image-' + gid.ToString + '-' + k.ToString + '.bmp'; 3: filename := 'c:\temp\image-' + gid.ToString + '-' + k.ToString + '.tif'; 4: filename := 'c:\temp\image-' + gid.ToString + '-' + k.ToString + '.png'; end; // Save the selected image to disk PDFLibrary.SaveImageListItemDataToFile(IL, k, 0, filename); end; end end; The result of DAGetImageListCount in example 1 and GetImageListCount in example 2 is 0 Both codes don't give me images back, in different pdf files, in other pdf files the images are given back correctly! Is it possible that the images i see are watermarks ore stamps? How to read out these? Stefan Edited by skoschke - 11 Jan 17 at 1:35PM

Ingo Members Profile Find Members Posts Moderator Group Joined: 29 Oct 05 Status: Offline Points: 3529	Post Options Post Reply Quote Ingo Report Post Thanks(0) Quote Reply Posted: 11 Jan 17 at 8:39PM
	Hi Stefan, only embedded (inserted as files) images can be extracted from pdf. It's similar to a word document: You can insert a screenshot from the clipboard or you can insert an image file - that's different. Images which are not really enbedded/inserted you can't extract using QuickPDF-functionality. Your second issue will have to do with a strange font or something similar - so QuickPDF have some trouble in recognition. Please keep in mind that QuickPDF is still a light weight pdf library instead of - for example - an adobe installation which comes around with 100 mb ;-) It will help to upload the pdf-file anywhere - so we could make tests with own routines... Cheers and welcome here, Ingo
	Cheers, Ingo

skoschke Members Profile Find Members Posts Team Player Joined: 11 Jan 17 Status: Offline Points: 33	Post Options Post Reply Quote skoschke Report Post Thanks(0) Quote Reply Posted: 12 Jan 17 at 3:02PM
	Hi Ingo, thank you for welcome , i understand now and will go another way in this case: I try to use RenderPageToStream so i get the full page as background for my new pdf file... Stefan

Ingo Members Profile Find Members Posts Moderator Group Joined: 29 Oct 05 Status: Offline Points: 3529	Post Options Post Reply Quote Ingo Report Post Thanks(0) Quote Reply Posted: 13 Jan 17 at 10:46AM
	Hi Stefan, yes... RenderPage is the only way out of your issue ;-)
	Cheers, Ingo