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:

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:

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