Grafikformat TIF
Moderator: Moderatoren
- Wolfgang Ciriack
- Der Entwickler von "Deep Thought"
- Beiträge: 2932
- Registriert: Sa, 24. Sep 2005 9:37
- Wohnort: Berlin
- Hat sich bedankt: 13 Mal
- Danksagung erhalten: 34 Mal
- Kontaktdaten:
- Wolfgang Ciriack
- Der Entwickler von "Deep Thought"
- Beiträge: 2932
- Registriert: Sa, 24. Sep 2005 9:37
- Wohnort: Berlin
- Hat sich bedankt: 13 Mal
- Danksagung erhalten: 34 Mal
- Kontaktdaten:
- Wolfgang Ciriack
- Der Entwickler von "Deep Thought"
- Beiträge: 2932
- Registriert: Sa, 24. Sep 2005 9:37
- Wohnort: Berlin
- Hat sich bedankt: 13 Mal
- Danksagung erhalten: 34 Mal
- Kontaktdaten:
Hallo Hubert,
nein, ich habe ein Browse, in dem die gesannten tif-Dateien mit Dateinamen angezeigt werden, nach der OCR-Erkennung existiert zu jeder Grafikdatei auch eine gleichnamige Textdatei. Ich extrahiere aus der Textdatei eine bestimmte (Lieferschein-) Nummer. Nun kann es aber vorkommen, das diese Nummer durch das OCR-Programm nicht richtig (oder gar nicht) erkannt wurde. Somit möchte ich den entsprehenden Bereich der Grafikdatei neben dem Browse anzeigen, damit man diese Nummer per Hand dem Dokument zuweisen kann, d.h. ich muss bei Click auf die Browse-Zeile die entsprechende Grafik anzeigen.
nein, ich habe ein Browse, in dem die gesannten tif-Dateien mit Dateinamen angezeigt werden, nach der OCR-Erkennung existiert zu jeder Grafikdatei auch eine gleichnamige Textdatei. Ich extrahiere aus der Textdatei eine bestimmte (Lieferschein-) Nummer. Nun kann es aber vorkommen, das diese Nummer durch das OCR-Programm nicht richtig (oder gar nicht) erkannt wurde. Somit möchte ich den entsprehenden Bereich der Grafikdatei neben dem Browse anzeigen, damit man diese Nummer per Hand dem Dokument zuweisen kann, d.h. ich muss bei Click auf die Browse-Zeile die entsprechende Grafik anzeigen.
Viele Grüße
Wolfgang
Wolfgang
- brandelh
- Foren-Moderator
- Beiträge: 15689
- Registriert: Mo, 23. Jan 2006 20:54
- Wohnort: Germersheim
- Hat sich bedankt: 65 Mal
- Danksagung erhalten: 33 Mal
- Kontaktdaten:
Hi,
beim XbpBitmap kamen bei 1.9 neue Parameter, die könnten nützlich sein:
So hätte der Anwender mehr Übersicht und du nicht das Problem herauszufinden wo genau jetzt diese Nummer liegt und wie du den Bildschirmausschnitt definieren kannst, der angezeigt werden soll.
beim XbpBitmap kamen bei 1.9 neue Parameter, die könnten nützlich sein:
mit dem COM Browser habe ich jetzt auf den ersten Blick nichts gefunden. Dennoch denke ich, dass es besser wäre das TIF über RUNSHELL an ein beliebiges Grafikprogramm zu übergeben und anzeigen zu lassen.:getIPicture() --> oPicture
Gibt die Grafik als Automation-Objekt der Klasse IPicture zurück.
:setIPicture( <oPicture> ) --> lSuccess
Initialisiert ein Bitmap-Objekt mit den Grafikdaten eines IPicture Automation-Objekts.
So hätte der Anwender mehr Übersicht und du nicht das Problem herauszufinden wo genau jetzt diese Nummer liegt und wie du den Bildschirmausschnitt definieren kannst, der angezeigt werden soll.
Gruß
Hubert
Hubert
- Wolfgang Ciriack
- Der Entwickler von "Deep Thought"
- Beiträge: 2932
- Registriert: Sa, 24. Sep 2005 9:37
- Wohnort: Berlin
- Hat sich bedankt: 13 Mal
- Danksagung erhalten: 34 Mal
- Kontaktdaten:
Hallo Hubert,
ich habe das Problem gelöst. Habe mir einfach ein Shareware Viewer OCX heruntergeladen, das war mittels eXPress und Xbase 1.9 innerhalb von einer Stunde eingebunden. Funktioniert jetzt so wie ich es brauche.
Wenn jemand interessiert ist, kann ich ihm den Code gerne mailen.
Hätte nicht gedacht, dass das mit ActiveX so einfach zu integrieren ist.
ich habe das Problem gelöst. Habe mir einfach ein Shareware Viewer OCX heruntergeladen, das war mittels eXPress und Xbase 1.9 innerhalb von einer Stunde eingebunden. Funktioniert jetzt so wie ich es brauche.
Wenn jemand interessiert ist, kann ich ihm den Code gerne mailen.
Hätte nicht gedacht, dass das mit ActiveX so einfach zu integrieren ist.
Viele Grüße
Wolfgang
Wolfgang
- Wolfgang Ciriack
- Der Entwickler von "Deep Thought"
- Beiträge: 2932
- Registriert: Sa, 24. Sep 2005 9:37
- Wohnort: Berlin
- Hat sich bedankt: 13 Mal
- Danksagung erhalten: 34 Mal
- Kontaktdaten:
Er heißt X360 Tiff & Fax Viewer und ich habe ihn unter
http://www.freedownloadscenter.com/Prog ... X_OCX.html
heruntergeladen. Er kostet ca. 60 $.
Folgende Methoden habe ich benutzt:
http://www.freedownloadscenter.com/Prog ... X_OCX.html
heruntergeladen. Er kostet ca. 60 $.
Folgende Methoden habe ich benutzt:
Code: Alles auswählen
@ 3,1 DCBROWSE oBrowseBilder ;
DATA aFiles ;
SIZE 20,23 ;
POINTER nPointer ;
CURSORMODE XBPBRW_CURSOR_ROW ;
ITEMMARKED {|| iif(nPointer<>nView, (oTifView:LoadImage(scanfolder+"\"+aFiles[nPointer][2]), nView:=nPointer, oTifView:ZoomToFitByWidth()),NIL) } ;
ITEMSELECTED {|| EditLfsNr(@aFiles[nPointer][3],@aFiles[nPointer][5]), oBrowseBilder:RefreshCurrent() } ;
PRESENTATION aPresPar1 ;
FIT ;
EVAL {|o| o:ItemRbDown:={|aMPos,aLC,oBr| ActRbMenu(aMPos,aLC,oBr,oPopupMenu)} } ;
NOHSCROLL
@ 3,64 DCSTATIC TYPE XBPSTATIC_TYPE_RECESSEDBOX ;
OBJECT oBild ;
SIZE 50,23
DCACTIVEXCONTROL oTifview ;
CLSID "TIFFVIEWER.TiffViewerCtrl.1" ;
PARENT oBild
@27,67.00 DCPUSHBUTTON CAPTION "Zoom -" ;
SIZE 8,1 ;
ACTION {|| oTifview:XZoomValue:=max(nZoom-0.2,0.2), oTifview:Zoom() } ;
TABGROUP XBP_WITHIN_GROUP ;
TABSTOP
@27,76.00 DCPUSHBUTTON CAPTION "Passend" ;
SIZE 8,1 ;
ACTION {|| oTifView:ZoomToFitByWidth() } ;
TABGROUP XBP_WITHIN_GROUP ;
TABSTOP
@27,85.00 DCPUSHBUTTON CAPTION "Zoom +" ;
SIZE 8,1 ;
ACTION {|| oTifview:XZoomValue:=nZoom+0.2, oTifview:Zoom() } ;
TABGROUP XBP_WITHIN_GROUP ;
TABSTOP
......
Viele Grüße
Wolfgang
Wolfgang