in reply to Re^2: Why the Create method keep failing using Office 2007 OCR API?
in thread Why the Create method keep failing using Office 2007 OCR API?

"Item" is a method, you want something like: 
my $OCRresult = $miDoc->{Images}->Item(0)->{Layout}{Text};

[download]
  • Comment on Re^3: Why the Create method keep failing using Office 2007 OCR API?
  • Download Code

Replies are listed 'Best First'.
Re^4: Why the Create method keep failing using Office 2007 OCR API?
by ZJ.Mike.2009 (Scribe) on Mar 02, 2010 at 04:15 UTC
    @Anonymous Monk, thanks a lot for the guidance. I tested the modified code with a MDI file that already has OCR information like so: 
    $miDoc->Create('OCR-test-result.mdi');
my $OCRresult = $miDoc->{Images}->Item(0)->{Layout}{Text};
print $OCRresult;

    [download]
    It outputs the expected result. But if I retain the OCR method like the original code did: 
    $miDoc->Create('OCR-test.tif');
$miDoc->OCR(LangId =>'miLANG_ENGLISH');
my $OCRresult = $miDoc->{Images}->Item(0)->{Layout}{Text};
print $OCRresult;

    [download]
    Perl throws me the same error message: Use of uninitialized value $OCRresult in print

    So now it looks like there's also something wrong with this line: 

     
$miDoc->OCR(LangId =>'miLANG_ENGLISH');

    [download]
    What diagnostic method can I use to solve the problem. The following code gives me nothing: 
    eval {$miDoc->OCR(LangId =>'miLANG_ENGLISH')}; 
warn $@ if $@;

    [download]
    Thanks again :)
[reply]
[d/l]
[select]
      $miDoc->{Images}->Item(0)->{Layout}{Text};

      [download]
      is four operations, and each and every one can fail 
      my $images = $miDoc->{Images} || die $^E;
my $first = $images->Item(0) || die $^E;
my $layout = $first->{Layout} || die $^E;
my $text = $layout->{Text} || die $^E;

      [download]
[reply]
[d/l]
[select]
        @Anonymous Monk, thanks again. If I were to load an MDI file that already has the OCRed result information, the script would output the OCRed text. Otherwise, it dies at the last step. For the above four operations, it dies at my $text line.
[reply]

In Section Seekers of Perl Wisdom