Hello everybody first off all i wanna thank you for this nice interface
to the .Net-Framework.
Now to my problem:
I'm using RDNZL to control to ORC-Systems via .Net, my problem is that
one OCR (tesseract) is working fine with it because it is possible to
compile it with Microsoft Visual Studio(no problem at all). The other
OCR-System ABBYY FineReader consits of DLL for which ABBYY provides
an Interop-Assembly to communicate with it directly from the
.Net-Framework.
For controlling FineReader im using a C# Klasse (as an mediator in a
DLL) which does futher action and intraktion with the OCR-System. If i
use this Class direktly with a console-application compield in the
.net-framework everything is fine.
But if i use lisp and RDNZL to create an instance of the class and call
a function of instance that calls _itself _a function of the ABBYY
Interop-Assemble sometime the function call into the assembly don't came
back.
And if i start the process from Lispworks again everything works fine.
Normally i would say it has nothing to do with RDNZL, but maybe it has
some effects on the .Net-Framework which make it reacted different ???
So my question: Has someone experience with such a problem or does some
know what i can do to find a workaround for this problem?
-> When it stucks always the first call to the Interop-Assembly stucks,
if this call don't stuck everything runs perfect.
-> I also tried to call this Interop-Assembly directly with RDNZL with
the same result, it sometimes stucks.
Thanks a bunch for your help,
Eric
(If there is something unclear concerning my bad English and/or bad
description i would be happy to describe it in detail)
My System:
- Win XP
- LispWorks 5.1.1 Personal Edition
- RDNZL 0.12.2.
- Visual Studio 2008 Express Editions
- .Net-Framework 3.5
Some Code:
Unfortunately i can not provide an complete example or my full code, but
here are at least some snippets.
Also there happens nothing special, so i think the problem is somewhere
else... and there is no exception coming
back as if it is waiting or the call is not delivered.
The function with starts the hole process in lisp:
(defun OCR++FineReaderBildAuswerten (Speicherort bild sprache
neuerSpeicherort )
(RDNZL:rdnzl-handler-case
(let(dotNetList bilderAnzahl (ergebnis (list ) ))
(OCR++FineReader-BilderPraeparieren (concatenate 'string
Speicherort "\\" bild ) neuerSpeicherort) <<<---first Function to .Net
see below
(setq bilderAnzahl (- (OCR++FineReader-BilderAnzahl) 1))
(loop for n from 0 to bilderAnzahl do
(OCR++FineReader-BilderOeffen n)
(OCR++FineReader-InhaltAnalysieren )
(OCR++FineReader-InhaltAufbereiten sprache )
(OCR++FineReader-Speichern neuerSpeicherort bild :frz
t :txt t)
(setq dotNetList (OCR--FineReader-TextDatenStrukturLesen))
(setq ergebnis (cons
(ORC--FineReader-erstelle-verschachtelterListe-Text dotNetList) ergebnis))
(OCR--FineReader-DokumentenAnalyseSaeubern))
(RDNZL:enable-rdnzl-syntax)
(reverse ergebnis))
( "System.Exception" (e)
(print (RDNZL:invoke e "ToString") )
nil)
))
===============================================
The first function which calls a function in the #Class:
(defun OCR++FineReader-BildPraeparierenUndOeffnen(bild)
(RDNZL:invoke fineref "bildPraeparierenUndOeffnen" bild ) )
===============================================
The function in the C# Class which calls a function of the Interop-Assembly:
public Boolean bildPraeparierenUndOeffnen(String bildpfad)
{
Logger.logIT(this, " bildPraeparierenUndOeffnen: " + bildpfad, log);
bildInformation = pEngine.PrepareAndOpenImage(bildpfad,
bildBearbeitungsParameter, null, ref dokumentenInformation);*<<< here it
stucks*
Logger.logIT(this, " bildPraeparierenUndOeffnen: ende", log);
return true;
}
