Well.. It wasn't that much fun without a cardreader on this end to test it.. but glad it worked for you.
----- Original Message ----- From: "Luc Delcoigne" <[email protected]> To: "RBASE-L Mailing List" <[email protected]> Sent: Sunday, June 05, 2011 7:02 PM Subject: [RBASE-L] - re: integrating cardreaders : Yes, Mike. : : This time its works fine. : : Thanks a lot, man. : Now I can finetune it with the parameters I need. : : 01.00 AM over here. : : Time to get some sleep. : : Have a nice evening, Mike. : : Luc D. : : -------------------------------------------------- : From: "Mike Byerley" <[email protected]> : Sent: Monday, June 06, 2011 12:27 AM : To: "RBASE-L Mailing List" <[email protected]> : Subject: [RBASE-L] - re: integrating cardreaders : : > I'm just getting crosseyed.. I missed that it was CardHolder and not : > CardReader.. So 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 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. : > : > : > : > : > : > : > : > : > : > : > : > : > : > : : > : > : > : > : : > : > : > : > : > : > : > : > : > : > : > : : > : > : > : : > : > : > : > : > : > : > : > : : > : > : : > : > : > : > : > : : > : : > : > : :
