Belgium Eid
in [Visual Objects]
|
From: "Ron" <ron@<removethis on 8 Nov 2005 14:29 Hi All Im trying to read the belgium pasport. Using the oleautoobjects gererated by VO. LOCAL lHandle AS LONGINT LOCAL oEid AS RH_IEIDlib //ObjId := "EIDLibCtrl.EIDlib.1" LOCAL oRet AS RH_IRetStatus //ObjId := "EIDLibCtrl.RetStatus.1" LOCAL oMapColID AS RH_IMapCollection //ObjId := "EIDLibCtrl.MapCollection.1" LOCAL oCertifCheck AS RH_ICertifCheck // ObjId := "EIDLibCtrl.CertifCheck.1" LOCAL cName AS STRING oEid:= RH_IEIDlib{} oMapColID:= RH_IMapCollection{} oCertifCheck := RH_ICertifCheck{} oRet := oEid:Init1("", 0, 0, lhandle) IF oRet:GetGeneral() == 0 oRet := oEid:GetID(oMapColID,oCertifCheck) IF oRet:GetGeneral() == 0 // here its failed and i don't know why cName :=oMapColID:GetValue("Name") ELSE ENDIF ELSE ENDIF oret := oEid:EXIT_() Asking the name give always a NIL. Should give a string Thanks in advance Ron
From: Filip<filip.fransen on 8 Nov 2005 14:53 Hi, I had to do it this way" Filip oEid:= RH_IEIDlib{} * oMapColID:= RH_IMapCollection{} <---- Delete * oCertifCheck := RH_ICertifCheck{} < --- Delete oRet := oEid:Init1("", 0, 0, @lhandle) <--- IF oRet:GetGeneral() == 0 oRet := oEid:GetID(@oMapColID,@oCertifCheck) < --- IF oRet:GetGeneral() == 0 // here its failed and i don't know why cName :=oMapColID:GetValue("Name") ELSE ENDIF ELSE ENDIF oret := oEid:EXIT_() -------- Original Message -------- Subject: Belgium Eid (08-nov-2005 20:29) From: Ron <removethis henderyckx.be> To: comp.lang.clipper.visual-objects > Hi All > > Im trying to read the belgium pasport. > Using the oleautoobjects gererated by VO. > > LOCAL lHandle AS LONGINT > LOCAL oEid AS RH_IEIDlib //ObjId := > "EIDLibCtrl.EIDlib.1" > LOCAL oRet AS RH_IRetStatus //ObjId := > "EIDLibCtrl.RetStatus.1" > LOCAL oMapColID AS RH_IMapCollection //ObjId := > "EIDLibCtrl.MapCollection.1" > LOCAL oCertifCheck AS RH_ICertifCheck // ObjId := > "EIDLibCtrl.CertifCheck.1" > LOCAL cName AS STRING > > > oEid:= RH_IEIDlib{} > oMapColID:= RH_IMapCollection{} > oCertifCheck := RH_ICertifCheck{} > > oRet := oEid:Init1("", 0, 0, lhandle) > IF oRet:GetGeneral() == 0 > oRet := oEid:GetID(oMapColID,oCertifCheck) > IF oRet:GetGeneral() == 0 > > // here its failed and i don't know why > cName :=oMapColID:GetValue("Name") > > ELSE > ENDIF > ELSE > ENDIF > oret := oEid:EXIT_() > > Asking the name give always a NIL. > Should give a string > > > Thanks in advance Ron > > > > >
From: "Ron" <ron@<removethis on 9 Nov 2005 03:20 Thanks for reply Filip But now i have a fault message on oRet := oEid:GetID(@oMapColID,@oCertifCheck) errorcode : imcomprehensible data types You have a solution ?? Thanks in advance "Filip" <filip.fransen@_nospam_datsup.be> schreef in bericht news:10018000437102370000410F(a)News.Skynet.Be... > Hi, > > I had to do it this way" > > Filip > > oEid:= RH_IEIDlib{} > * oMapColID:= RH_IMapCollection{} <---- Delete > * oCertifCheck := RH_ICertifCheck{} < --- Delete > > oRet := oEid:Init1("", 0, 0, @lhandle) <--- > IF oRet:GetGeneral() == 0 > oRet := oEid:GetID(@oMapColID,@oCertifCheck) < --- > IF oRet:GetGeneral() == 0 > > // here its failed and i don't know why > cName :=oMapColID:GetValue("Name") > > ELSE > ENDIF > ELSE > ENDIF > oret := oEid:EXIT_() > > > -------- Original Message -------- > Subject: Belgium Eid (08-nov-2005 20:29) > From: Ron <removethis henderyckx.be> > To: comp.lang.clipper.visual-objects > >> Hi All >> >> Im trying to read the belgium pasport. >> Using the oleautoobjects gererated by VO. >> >> LOCAL lHandle AS LONGINT >> LOCAL oEid AS RH_IEIDlib //ObjId := >> "EIDLibCtrl.EIDlib.1" >> LOCAL oRet AS RH_IRetStatus //ObjId := >> "EIDLibCtrl.RetStatus.1" >> LOCAL oMapColID AS RH_IMapCollection //ObjId := >> "EIDLibCtrl.MapCollection.1" >> LOCAL oCertifCheck AS RH_ICertifCheck // ObjId := >> "EIDLibCtrl.CertifCheck.1" >> LOCAL cName AS STRING >> >> >> oEid:= RH_IEIDlib{} >> oMapColID:= RH_IMapCollection{} >> oCertifCheck := RH_ICertifCheck{} >> >> oRet := oEid:Init1("", 0, 0, lhandle) >> IF oRet:GetGeneral() == 0 >> oRet := oEid:GetID(oMapColID,oCertifCheck) >> IF oRet:GetGeneral() == 0 >> >> // here its failed and i don't know why >> cName :=oMapColID:GetValue("Name") >> >> ELSE >> ENDIF >> ELSE >> ENDIF >> oret := oEid:EXIT_() >> >> Asking the name give always a NIL. >> Should give a string >> >> >> Thanks in advance Ron >> >> >> >> >> >
From: Stephen Quinn on 9 Nov 2005 04:05 Ron > oRet := oEid:GetID(@oMapColID,@oCertifCheck) Maybe you have to allocate some memory for the objects you removed, assuming you did what Filip said by deleting them. >> * oMapColID:= RH_IMapCollection{} <---- Delete >> * oCertifCheck := RH_ICertifCheck{} < --- Delete and/or not use the @ as they no longer point to allocated memory/objects. Is RH_IMapCollection a class or is it a structure?? Is RH_ICertifCheck a class or is it a structure?? HTH Steve
From: "Ron" <ron@<removethis on 9 Nov 2005 04:12
Hi Stephen CLASS RH_IMapCollection INHERIT OLEAutoObject CLASS RH_ICertifCheck INHERIT OLEAutoObject "Stephen Quinn" <steveq(a)NOSPAMintegritynet.com.au> schreef in bericht news:tZicf.12827$Hj2.12595(a)news-server.bigpond.net.au... > Ron > >> oRet := oEid:GetID(@oMapColID,@oCertifCheck) > Maybe you have to allocate some memory for the objects you removed, > assuming you did what Filip said by deleting them. > >>> * oMapColID:= RH_IMapCollection{} <---- Delete >>> * oCertifCheck := RH_ICertifCheck{} < --- Delete > > and/or not use the @ as they no longer point to allocated memory/objects. > > Is RH_IMapCollection a class or is it a structure?? > Is RH_ICertifCheck a class or is it a structure?? > > HTH > Steve > |