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