PDF mit Tesseract

**Delbor**

Hi zusammen

Gegenwärtig arbeite ich immer noch an meinem PDF-Tool. Die Dinger anzuzeigen, war dank Googles PDFium schnell gelöst. Mittlerweile kann ich die Dinger auch einscannen und die standardmässig gelieferten Bitmaps auch in Tiffs umwandeln. Nur dann auch noch mit Tesseract den Text auszulesen, daran scheitere ich bislang. Mit der folgenden Prozedur wird der Scanvorgang abgeschlossen und Tessseract aufgerufen:

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TPDFOfficerMain.DoFinishedImageScan(Sender: TObject;

  const Image: TBitmap);

  var ActDate, OldFile, S, P :String; Scannedstream : TFileStream;  TTifimage : TTIFFGraphic;      

begin

  TTifimage := TTIFFGraphic.Create;

  TTifimage.Assign(Image);

  ImgScannedImage.Picture.Assign(TTifimage);

  ImgScannedImage.Stretch := True;

  ActDate := ReplaceStr(DateTimeToStr(Now),':', '-' );

  OldFile := 'Image' +ActDate+'.tiff';

  S := IncludeTrailingPathDelimiter(FAppDataPath) + OldFile;

    try

      Scannedstream := TFileStream.Create(S, fmOpenReadWrite);

    except

      Scannedstream := TFileStream.Create(S, fmCreate);

    end;

    try

      P := ChangeFileExt(S,'.Pdf');

      TTifimage.SaveToStream(Scannedstream);

    finally

      Scannedstream.Free;

    end;

  Self.OCRFrame1.InputFileName :=  S;

  Self.OCRFrame1.OutputFileName := P;

  Self.OCRFrame1.OCR2PDF;

end;

Und weiter:

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TOCRFrame.OCR2PDF;

begin

  Tesseract := TTesseractOCR4.Create;

  try

    if Tesseract.Initialize('tessdata\', 'deu') then   //<== Dieser Ausdruck ist false

    begin

      if Tesseract.CreatePDF(FInputFileName, FOutputFileName) then

      begin

        ShowMessage('PDF was saved succesfully to ' + FOutputFileName);

      end;

    end;

  finally

    Tesseract.Free;

  end;

end;

Den Ordner Tesseract habe ich nach ...\Debug\Win32 kopiert, wo ich auch die DLLs habe (Weil mir erstmal nicht klar war, welche dieser Dinger benötiigt wird...)
Doch offensichtlich ist da was falsch. Nur was?

Vielen Dank für eure Antworten!

Gruss
Delbor

PDF mit Tesseract

PDF mit Tesseract

Forumregeln