pcsoft.us.windevCopyright 2026, PC SOFT25 Mar 2020 08:56:51 Z18 Feb 2015 10:44:10 ZSince there is a new version of the Belgian EID, it is more difficult to read the EID. I have found the VB.Net code and wanted to convert it to Windev code. When I try to run the procedure he gives an error. Original VB Code [code:wl] Public Function GetData(ByVal label As String) Dim m As Net.Sf.Pkcs11.Module = Nothing Dim valueb As Byte() Dim value As String = "" Dim labelchar As String = "" Dim mFileName As String = "beidpkcs11.dll" Dim slotlist() As Net.Sf.Pkcs11.Slot Try m = Net.Sf.Pkcs11.Module.GetInstance(mFileName) slotlist = m.GetSlotList(True) If (slotlist.Length > 0) Then Dim session As Net.Sf.Pkcs11.Session Dim slot As Net.Sf.Pkcs11.Slot slot = slotlist(0) session = slot.Token.OpenSession(True) Dim classAttribute As New ByteArrayAttribute(Net.Sf.Pkcs11.Wrapper.CKO.DATA) classAttribute.Value = BitConverter.GetBytes(Convert.ToUInt32(Net.Sf.Pkcs11.Wrapper.CKO.DATA)) Dim labelAttribute As New ByteArrayAttribute(Net.Sf.Pkcs11.Wrapper.CKA.LABEL) labelAttribute.Value = System.Text.Encoding.UTF8.GetBytes(label) Dim p11a() As P11Attribute = {classAttribute, labelAttribute} session.FindObjectsInit(p11a) Dim foundObjects() As P11Object = session.FindObjects(50) Dim counter As Integer = foundObjects.Length Dim data As New Data While (counter > 0) data = foundObjects(counter - 1) If Not data.Label.Value = Nothing Then If Not label = "PHOTO_FILE" Then value = System.Text.Encoding.UTF8.GetString(data.Value.Value) Else valueb = data.Value.Value End If System.Diagnostics.Trace.WriteLine("mijne label: " + value) End If counter = counter - 1 End While If Not label = "PHOTO_FILE" Then Return value Else Return valueb End If session.FindObjectsFinal() Else 'MsgBox("no card found") Return "nocard" End If Catch ex As Exception MsgBox(ex.Message) Finally m.Dispose() End Try End Function [/code] Translated to WINDEV [code:wl] PROCEDURE GetData(label) m is "Net.Sf.Pkcs11.Module" dynamic valueb is array of byte value is string = "" sLabelchar is string = "" mFileName is string = "beidpkcs11.dll" slotlist is array of Net.Sf.Pkcs11.Slot() m = new "Net.Sf.Pkcs11.Module.GetInstance"(mFileName) *** ERROR IN EXECUTION AT THIS LINE *** slotlist = m.GetSlotList(True) IF ArrayCount(slotlist) > 0 THEN session is "Net.Sf.Pkcs11.Session" dynamic slot is "Net.Sf.Pkcs11.Slot" dynamic slot = slotlist[0] session = slot.Token.OpenSession(True) classAttribute is ByteArrayAttribute(Net.Sf.Pkcs11.Wrapper.CKO.DATA) dynamic classAttribute.Value = BitConverter.GetBytes(Convert.ToUInt32("Net.Sf.Pkcs11.Wrapper.CKO.DATA")) labelattribute is ByteArrayAttribute(Net.Sf.Pkcs11.Wrapper.CKA.LABEL) dynamic labelattribute.Value = System.Text.Encoding.UTF8.GetBytes(label) p11a is array of P11Attribute(classAttribute,labelattribute) session.FindObjectsInit(p11a) Foundobjects is array of P11Object Foundobjects = session.FindObjects(50) Counter is int = ArrayCount(Foundobjects) objdata is Net.Sf.Pkcs11.objects.Data dynamic WHILE Counter > 0 objdata = Foundobjects[Counter-1] IF NOT objdata.Label.Value = Null THEN IF NOT label = "PHOTO_FILE" THEN value = System.Text.Encoding.UTF8.GetString(objdata.Value.Value) ELSE valueb = objdata.Value.Value END END Counter-- END session.FindObjectsFinal() IF NOT label = "PHOTO_FILE" THEN m.Dispose() RESULT value ELSE m.Dispose() RESULT valueb END ELSE m.Dispose() RESULT "nocard" END [/code] While running the procedure he gives an error on this line of code : m = new "Net.Sf.Pkcs11.Module.GetInstance"(mFileName) ERROR CODE 0: Level: no error Does someone has any ideas on how to solve this ?30WEBDEVen_UShttps://forum.pcsoft.fr/es-ES/pcsoft.us.windev/50527-wd19-reading-new-belgian-eid-march-2014-conversion/read.awpmoderateur@pcsoft.fr (El moderador)webmaster@pcsoft.fr (El webmaster)mike.vanlierdepcsoft.us.windevhttps://forum.pcsoft.fr/es-ES/pcsoft.us.windev/50527-wd19-reading-new-belgian-eid-march-2014-conversion-67714/read.awp25 Mar 2020 08:56:51 ZManaged to solve this error? I'm looking for a way to read the eid aswell.https://forum.pcsoft.fr/es-ES/pcsoft.us.windev/50527-wd19-reading-new-belgian-eid-march-2014-conversion-67714/read.awphttps://forum.pcsoft.fr/es-ES/pcsoft.us.windev/50527-wd19-reading-new-belgian-eid-march-2014-conversion-67714/read.awp(WD19) : Reading New Belgian EID March 2014 : Conversion VB.Net to Windevmike.vanlierdepcsoft.us.windevhttps://forum.pcsoft.fr/es-ES/pcsoft.us.windev/50527-wd19-reading-new-belgian-eid-march-2014-conversion-67713/read.awp25 Mar 2020 08:56:20 ZManaged to solve this error? I'm looking for a way to read the eid aswell.https://forum.pcsoft.fr/es-ES/pcsoft.us.windev/50527-wd19-reading-new-belgian-eid-march-2014-conversion-67713/read.awphttps://forum.pcsoft.fr/es-ES/pcsoft.us.windev/50527-wd19-reading-new-belgian-eid-march-2014-conversion-67713/read.awp(WD19) : Reading New Belgian EID March 2014 : Conversion VB.Net to Windev