OK.. give me a few minutes. I'll set a few more public variables for the "cardreader" objects property values. That should work...
----- Original Message ----- From: "Luc Delcoigne" <[email protected]> To: "RBASE-L Mailing List" <[email protected]> Sent: Sunday, June 05, 2011 6:14 PM Subject: [RBASE-L] - re: integrating cardreaders : Mike, : : no succes yet. : : When I trace the code I see that de vFirstname etc are all set to 1500 char, : but they remain empty. : : Luc : : -------------------------------------------------- : From: "Mike Byerley" <[email protected]> : Sent: Sunday, June 05, 2011 11:48 PM : To: "RBASE-L Mailing List" <[email protected]> : Subject: [RBASE-L] - re: integrating cardreaders : : > 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. : > : > : > : > : > : > : > : > : > : > : > : : > : > : > : : > : > : > : > : > : > : > : > : : > : > : : > : > : > : > : > : : > : : > : > : :
