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. : > : > : > : > : > : : > : : > : > : :
