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