VB6 und MODI, Probleme mit Windows7

Question

Hallo, ich nutze für mein OCR-Tool das MODI unter VB6 mit folgendem Code:

 

Set C = New MODI.Document
C.Create AktBild1
C.OCR MODI.MiLANGUAGES.miLANG_GERMAN, False, False
C.Save
Set Img = C.images(0)
C.Close False
Set C = Nothing

 

Das funktioniert unter XP auch für beliebig viele Bilder wunderbar. Lasse ich die Anwendung aber unter Win7 laufen, erkennt er zwar ein Bild, aber beim nächsten stürzt das Programm jedesmal ab. Ich habe einen Verweis auf die Microsoft Office Document Imaging 11.0 Type Library

erstellt. Woran kann das liegen ?

PS: auf den Win7-Rechnern habe ich SharePoint installiert, damit das MODI verfügbar ist.

Vielen Dank, Uli.

Answer 1

Hallo Ulrich_Zoeger,

Ich habe folgendes gemacht: Unter Windows 7 (32-bit Operating System) habe ich mir die MODI installiert (Methode 1 mithilfe von SharePoint Designer 2007 aus folgendem Artikel: Install MODI for use with Microsoft Office 2010)

Bei mir der Verweis den ich finde lautet: Microsoft Office Document Imaging 12.0 Type Library.

Nachher habe ich in C# folgenden Code benutzt (wie man sieht machen meine Codezeilen das gleiche wie Deine Zeilen in VB6)

        private void button1_Click(object sender, EventArgs e)
        {
            MODI.Document md = new MODI.Document();

            md.Create(@"C:\Temp\SampleFax.tif");

            md.OCR(MODI.MiLANGUAGES.miLANG_ENGLISH, true, true);

            MODI.Image image = (MODI.Image)md.Images[0];

            String fileName = @"C:\Temp\output.txt";

            FileStream createFile = new FileStream(fileName, FileMode.CreateNew);

            StreamWriter writeFile = new StreamWriter(createFile);

            writeFile.Write(image.Layout.Text);

            writeFile.Close();

            createFile.Close();

        }

Ich konnte erfolgreich die Datei output.txt aufmachen und den Text, der nach der OCR-Konvertierung zur Verfügung steht, sehen.

Was ist anders als bei Dir:

1) Die Version der Microsoft Office Document Imaging Type Library (bei mir 12.0 anstatt 11.0 wie bei Dir)

2) Ich mache etwas weiter mit der MODI.Image image mithilfe von image.Layout.Text (ich schreibe alles in eine .txt Datei). In Deinem Code Du machst folgendes: Set Img = C.images(0) und nachher verwendest Du Img nicht mehr. 

Grüße,

Robert

Answer 2

Hallo Ulrich_Zoeger,

Ich habe folgendes gemacht: Unter Windows 7 (32-bit Operating System) habe ich mir die MODI installiert (Methode 1 mithilfe von SharePoint Designer 2007 aus folgendem Artikel: Install MODI for use with Microsoft Office 2010)

Bei mir der Verweis den ich finde lautet: Microsoft Office Document Imaging 12.0 Type Library.

Folgender Code funktioniert bei mir in VB6 (Appraisal.Tif ist eine MultiPage.Tif Datei die 14 Seiten enthält und Kompression CCITT T.4 hat):

Private Sub Command1_Click()

Dim C As MODI.Document
Dim f As String

f = "C:\Temp\Appraisal.Tif"
Set C = New MODI.Document

C.Create f
C.OCR MODI.MiLANGUAGES.miLANG_ENGLISH, False, False
C.Save

For i = 0 To (C.Images.Count - 1)
    Set Img = C.Images(i)
    Text1.Text = Text1.Text + Img.Layout.Text
    Set Img = Nothing
Next i

C.Close
Set C = Nothing

End Sub

Man kann auch ein Progress in einer ProgressBar berichten: OnOCRProgress Event

Grüße,

Robert

Answer 3

Hallo Robert,

Entschuldigung, ich habe meine Rückmeldung vergessen.

Leider hat der Tipp nicht funktioniert, daher habe ich das erstmal eingestellt.

Vielen Dank trotzdem für die schnelle Hilfe.

Answer 4

Hallo Ulrich_Zoeger,

Kannst Du mehr Details geben? Welcher Schritt funktioniert nicht?

Ich habe es nochmals getestet unter Windows 7 (32-bit) mit der Datei SampleFax.tif (Compression CCITT T.4) und hatte keine Probleme.

Grüße,

Robert

---

Robert Breitenhofer, MICROSOFT 
Bitte haben Sie Verständnis dafür, dass im Rahmen dieses Forums, welches auf dem Community-Prinzip „Entwickler helfen Entwickler“ beruht, kein technischer Support geleistet werden kann oder sonst welche garantierten Maßnahmen seitens Microsoft zugesichert werden können.

Answer 5

****************************************************************************************************************
Dieser Thread wurde mangels weiterer Beteiligung des Fragestellenden ohne bestätigte Lösung abgeschlossen.
Neue Rückfragen oder Ergänzungen zu diesem Thread bleiben weiterhin möglich.
****************************************************************************************************************

---

Robert Breitenhofer, MICROSOFT 
Bitte haben Sie Verständnis dafür, dass im Rahmen dieses Forums, welches auf dem Community-Prinzip „Entwickler helfen Entwickler“ beruht, kein technischer Support geleistet werden kann oder sonst welche garantierten Maßnahmen seitens Microsoft zugesichert werden können.