I used your demo (Generate Searchable PDF):
// File -> Open
procedure TF_ScannPDF.Open1Click(Sender: TObject);
var
filename: string;
begin
filename := ImageEnMView1.MIO.ExecuteOpenDialog();
if filename <> '' then
ImageEnMView1.MIO.LoadFromFile(filename);
end;
And than I add it here:
for i := 0 to ImageEnMView1.ImageCount - 1 do
begin
ImageEnMView1.SelectedImage := i;
Application.ProcessMessages();
ImageEnMView1.IEBitmap.ParamsEnabled := true;
ImageEnMView1.IEBitmap.Params.PDF_PaperSize := iepA4; // This added here, has no effect
ImageEnMView1.IEBitmap.Params.Dpi := ImageEnMView1.MIO.Params[i].Dpi;
pdfGen.addPage(ImageEnMView1.IEBitmap.GetIEVisionImage());
end;
HS