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