OCR-Fähiger Screenshot

[Metschu]

Hallo zusammen,

um ein externes Programm zu steuern, muss ich ein Fenster auslesen. Da dies aus Label´s besteht, bleibt nur die Möglichkeit der OCR Auswertung.

Ich hab schon mehrere Versionen versucht (Codes aus der DP und dem SwissDelphi Center) einen Screenshot als BMP herzustellen, nur leider ist die Auswertung dieser völlig daneben, obwohl die BitMaps Optisch für mich gut aussehen. Auch ein Konvertieren in JPG brachte keine Änderung.
Aus einem Label "Auftrag bereits Abgerechnet" wird immer "„mag baavs'bgflcdmt“ ' Mu"...

hier mal ein für den Screenshot Code von den Schweizern:

Delphi-Quellcode:

procedure ScreenShot(hWindow: HWND; bm: TBitmap);
var
  Left, Top, Width, Height: Word;
   R: TRect;
   dc: HDC;
   lpPal: PLOGPALETTE;
begin
  {Check if valid window handle}
  if not IsWindow(hWindow) then Exit;
   {Retrieves the rectangular coordinates of the specified window}
  GetWindowRect(hWindow, R);
   Left := R.Left;
   Top := R.Top;
   Width := R.Right - R.Left;
   Height := R.Bottom - R.Top;
   bm.Width  := Width;
   bm.Height := Height;
   {get the screen dc}
  dc := GetDc(0);
   if (dc = 0) then
   begin
    Exit;
   end;
   {do we have a palette device?}
  if (GetDeviceCaps(dc, RASTERCAPS) and
    RC_PALETTE = RC_PALETTE) then
   begin
    {allocate memory for a logical palette}
    GetMem(lpPal,
       SizeOf(TLOGPALETTE) +
     (255 * SizeOf(TPALETTEENTRY)));
     {zero it out to be neat}
    FillChar(lpPal^,
       SizeOf(TLOGPALETTE) +
     (255 * SizeOf(TPALETTEENTRY)),
       #0);
     {fill in the palette version}
    lpPal^.palVersion := $300;
     {grab the system palette entries}
    lpPal^.palNumEntries :=
       GetSystemPaletteEntries(dc,
       0,
       256,
       lpPal^.palPalEntry);
     if (lpPal^.PalNumEntries <> 0) then
     begin
      {create the palette}
      bm.Palette := CreatePalette(lpPal^);
     end;
     FreeMem(lpPal, SizeOf(TLOGPALETTE) +
     (255 * SizeOf(TPALETTEENTRY)));
   end;
   {copy from the screen to the bitmap}
  BitBlt(bm.Canvas.Handle,
     0,
     0,
     Width,
     Height,
     Dc,
     Left,
     Top,
     SRCCOPY);
   {release the screen dc}
  ReleaseDc(0, dc);
end;

Derzeit versuche ich mit per Komandozeile mit Tesseract auszuwerten.
Mit einem Schaltplaneditor habe ich ein paar Texte erstellt, dies dann als BMP exportiert und die Texte wurden einwandfrei ausgewertet.

Also kann es theoretisch nicht an Tesseract liegen...

Was kann ich noch anpassen?

Gruß

Torsten