Yes.. I found the error. The vb variable "cardreader" has to be Public outside of the function else it is out of scope for the retrieval at the end of the rbase code. I've corrected it. Try again...
www.byerley.net/cardreader.txt ----- Original Message ----- From: "Luc Delcoigne" <[email protected]> To: "RBASE-L Mailing List" <[email protected]> Sent: Sunday, June 05, 2011 5:30 PM Subject: [RBASE-L] - re: integrating cardreaders : Mike, : : the code is running fine, BUT the variables seem to remain empty (when I do : a show var). : : So, although there is no error, no data are read.....? : : Luc D. : : -------------------------------------------------- : From: "Mike Byerley" <[email protected]> : Sent: Sunday, June 05, 2011 10:34 PM : To: "RBASE-L Mailing List" <[email protected]> : Subject: [RBASE-L] - re: integrating cardreaders : : > Luc, : > Try this: : > : > www.byerley.net/cardreader.txt : > : > You will have to assign the values of the RBase variables below to your : > form fields using property commands: : > You will find them near the end of the code block. : > : > -- Use RBase Property Commands to update the values of your fields : > -- property CompID TEXTVALUE .vFirstName : > -- property CompID TEXTVALUE .vLastName : > -- property CompID TEXTVALUE .vStreetAndNumber : > -- property CompID TEXTVALUE .vPostCode : > -- property CompID TEXTVALUE .vCity : > : > : > : > Mike : > : > : > ----- Original Message ----- : > From: "Luc Delcoigne" <[email protected]> : > To: "RBASE-L Mailing List" <[email protected]> : > Sent: Sunday, June 05, 2011 2:40 PM : > Subject: [RBASE-L] - re: integrating cardreaders : > : > : > : Mike, : > : : > : I have a demo soft that works for 28 more days. : > : The code works perfectly in Access and VB6.0. : > : : > : the value of the constant csPresent = 2. : > : : > : So, if the cardreader.Status <> 2, the card is not in the reader. : > : : > : Luc : > : : > : : > : -------------------------------------------------- : > : From: "Mike Byerley" <[email protected]> : > : Sent: Sunday, June 05, 2011 8:23 PM : > : To: "RBASE-L Mailing List" <[email protected]> : > : Subject: [RBASE-L] - re: integrating cardreaders : > : : > : > Luc, : > : > Did you buy the cardreader software so you can find the value of the : > : > constant "csPresent" that is used in the VB code? I would need that : > value : > : > to determine if the card is in the reader. : > : > : > : > Mike : > : > : > : > : > : > ----- Original Message ----- : > : > From: "Luc Delcoigne" <[email protected]> : > : > To: "RBASE-L Mailing List" <[email protected]> : > : > Sent: Sunday, June 05, 2011 1:36 PM : > : > Subject: [RBASE-L] - re: integrating cardreaders : > : > : > : > : > : > : Mike, : > : > : : > : > : I'm working with the RMScript.dll. : > : > : : > : > : With the Efilmcode I had to send code from an rbase variable to : > efilm. : > : > : : > : > : Now I have to do the opposite. : > : > : How can I get the result from a DLCALL into a Rbase variable ? : > : > : : > : > : Luc D. : > : > : : > : > : -------------------------------------------------- : > : > : From: "Mike Byerley" <[email protected]> : > : > : Sent: Sunday, June 05, 2011 6:10 PM : > : > : To: "RBASE-L Mailing List" <[email protected]> : > : > : Subject: [RBASE-L] - re: integrating cardreaders : > : > : : > : > : > Luc, : > : > : > You are already using the RMScript.DLL that can execute the code : > you : > : > : > show.... Look at the code you are using already and you will see : > how : > : > to : > : > : > make it work. : > : > : > : > : > : > : > : > : > : > : > : > ----- Original Message ----- : > : > : > From: "Luc Delcoigne" <[email protected]> : > : > : > To: "RBASE-L Mailing List" <[email protected]> : > : > : > Sent: Sunday, June 05, 2011 11:57 AM : > : > : > Subject: [RBASE-L] - re: integrating cardreaders : > : > : > : > : > : > : > : > : > Tom, : > : > : > : > : > : > Sorry that I was not more specific. : > : > : > In fact I have to read data from a electronic chip-card, not : > reading : > a : > : > : > magnetic strip. : > : > : > : > : > : > I have found some software from www.roadbyte.be that could do the : > : > trick. : > : > : > I have some examples in visual basic and VBA. : > : > : > : > : > : > e.g. in Access : > : > : > : > : > : > Private Sub btnReadCard_Click() : > : > : > : > : > : > 'Get RoadByte eID Framework : > : > : > Dim framework As IRbApplication : > : > : > Set framework = CreateObject("RoadByte.Application") : > : > : > framework.Open : > : > : > : > : > : > 'Get card reader : > : > : > Dim cardreader As IRbCardReader : > : > : > Set cardreader = framework.ActiveCardReader : > : > : > : > : > : > 'Check if card present : > : > : > If (cardreader Is Nothing) Then : > : > : > MsgBox "No card reader found" : > : > : > ElseIf (cardreader.Status <> csPresent) Then : > : > : > MsgBox "No card in reader" : > : > : > Else : > : > : > Dim cardholder As IRbPerson : > : > : > Set cardholder = cardreader.card.Holder : > : > : > : > : > : > 'Update fields : > : > : > Me.FirstName.Value = cardholder.FirstName : > : > : > Me.LastName.Value = cardholder.LastName : > : > : > Me.Address.Value = cardholder.Address.StreetAndNumber : > : > : > Me.PostalCode.Value = cardholder.Address.PostCode : > : > : > Me.City.Value = cardholder.Address.City : > : > : > End If : > : > : > : > : > : > 'Always close framework when done : > : > : > framework.Close : > : > : > : > : > : > End Sub : > : > : > : > : > : > Now I have to implement this in R:base. : > : > : > : > : > : > I suspect that could be possible using DLCALL syntax. : > : > : > But I am not familiar with this. : > : > : > : > : > : > grtz : > : > : > : > : > : > Luc D. : > : > : > : > : > : > : > : > : > : > : > : > : > : > : > From: TOM HART : > : > : > Sent: Sunday, June 05, 2011 4:44 PM : > : > : > To: RBASE-L Mailing List : > : > : > Subject: [RBASE-L] - re: integrating cardreaders : > : > : > : > : > : > : > : > : > You should be able to scan it into a DB edit field. I use : > barcodes : > : > and : > : > a : > : > : > scanner to do it that way. : > : > : > Tom Hart : > : > : > : > : > : > : > : > : > : > : > : > : > : > : > : > : > : > : > : > : : > : > : > > -------------------------------------------------------------------------------- : > : > : > From: Luc Delcoigne <[email protected]> : > : > : > To: RBASE-L Mailing List <[email protected]> : > : > : > Sent: Sun, June 5, 2011 5:29:06 AM : > : > : > Subject: [RBASE-L] - re: integrating cardreaders : > : > : > : > : > : > : > : > : > hello, : > : > : > : > : > : > I Want to automatically read data from an ID cardreader into the : > rbase : > : > : > form. : > : > : > : > : > : > Is there anybody out there that hase some experience with this ? : > : > : > : > : > : > grtz : > : > : > : > : > : > Luc D. : > : > : > : > : > : > : > : > : : > : > : : > : > : > : > : > : : > : : > : > : :
