Dies ist die Beschreibung der Delphi/Lazarus API Bindings für das NFC/RFID Bricklet. Allgemeine Informationen über die Funktionen und technischen Spezifikationen des NFC/RFID Bricklet sind in dessen Hardware Beschreibung zusammengefasst.
Eine Installationanleitung für die Delphi/Lazarus API Bindings ist Teil deren allgemeine Beschreibung.
Der folgende Beispielcode ist Public Domain (CC0 1.0).
Download (ExampleScanForTags.pas)
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 | program ExampleScanForTags;
{$ifdef MSWINDOWS}{$apptype CONSOLE}{$endif}
{$ifdef FPC}{$mode OBJFPC}{$H+}{$endif}
uses
SysUtils, IPConnection, BrickletNFCRFID;
type
TExample = class
private
ipcon: TIPConnection;
nr: TBrickletNFCRFID;
currentTagType: byte;
public
procedure StateChangedCB(sender: TBrickletNFCRFID; const state: byte;
const idle: boolean);
procedure Execute;
end;
const
HOST = 'localhost';
PORT = 4223;
UID = 'XYZ'; { Change XYZ to the UID of your NFC/RFID Bricklet }
var
e: TExample;
{ Callback procedure for state changed callback }
procedure TExample.StateChangedCB(sender: TBrickletNFCRFID; const state: byte;
const idle: boolean);
var tagType: byte;
var tidLength: byte;
var tid: {$ifdef FPC}array [0..6] of byte{$else}TArray0To6OfUInt8{$endif};
var s: string;
var i: byte;
begin
if state = BRICKLET_NFC_RFID_STATE_REQUEST_TAG_ID_READY then begin
sender.GetTagID(tagType, tidLength, tid);
s := 'Found tag of type ' + IntToStr(tagType);
s := s + ' with ID [' + IntToHex(tid[0], 2);
for i := 1 to (tidLength - 1) do begin
s := s + ' ' + IntToHex(tid[i], 2);
end;
s := s + ']';
WriteLn(s);
end;
{ Cycle through all types }
if idle then begin
currentTagType := (currentTagType + 1) mod 3;
sender.RequestTagID(currentTagType);
end;
end;
procedure TExample.Execute;
begin
{ Create IP connection }
ipcon := TIPConnection.Create;
{ Create device object }
nr := TBrickletNFCRFID.Create(UID, ipcon);
{ Connect to brickd }
ipcon.Connect(HOST, PORT);
{ Don't use device before ipcon is connected }
{ Register state changed callback to procedure StateChangedCB }
nr.OnStateChanged := {$ifdef FPC}@{$endif}StateChangedCB;
{ Start scan loop }
currentTagType := BRICKLET_NFC_RFID_TAG_TYPE_MIFARE_CLASSIC;
nr.RequestTagID(currentTagType);
WriteLn('Press key to exit');
ReadLn;
ipcon.Destroy; { Calls ipcon.Disconnect internally }
end;
begin
e := TExample.Create;
e.Execute;
e.Destroy;
end.
|
Download (ExampleWriteReadType2.pas)
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 | program ExampleWriteReadType2;
{$ifdef MSWINDOWS}{$apptype CONSOLE}{$endif}
{$ifdef FPC}{$mode OBJFPC}{$H+}{$endif}
uses
SysUtils, IPConnection, BrickletNFCRFID;
type
TExample = class
private
ipcon: TIPConnection;
nr: TBrickletNFCRFID;
public
procedure StateChangedCB(sender: TBrickletNFCRFID; const state: byte;
const idle: boolean);
procedure Execute;
end;
const
HOST = 'localhost';
PORT = 4223;
UID = 'XYZ'; { Change XYZ to the UID of your NFC/RFID Bricklet }
var
e: TExample;
{ Callback procedure for state changed callback }
procedure TExample.StateChangedCB(sender: TBrickletNFCRFID; const state: byte;
const idle: boolean);
const dataWrite: {$ifdef FPC}array [0..15] of byte{$else}TArray0To15OfUInt8{$endif} =
(0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15);
var s: String;
var dataRead: {$ifdef FPC}array [0..15] of byte{$else}TArray0To15OfUInt8{$endif};
var i: byte;
begin
if state = BRICKLET_NFC_RFID_STATE_REQUEST_TAG_ID_READY then begin
{ Write 16 byte to pages 5-8 }
WriteLn('Tag found');
sender.WritePage(5, dataWrite);
WriteLn('Writing data...');
end
else if state = BRICKLET_NFC_RFID_STATE_WRITE_PAGE_READY then begin
{ Request pages 5-8 }
sender.RequestPage(5);
WriteLn('Requesting data...');
end
else if state = BRICKLET_NFC_RFID_STATE_REQUEST_PAGE_READY then begin
{ Get and print pages }
dataRead := sender.GetPage();
s := 'Read data: [' + IntToStr(dataRead[0]);
for i:= 1 to 15 do begin
s := s + ' ' + IntToStr(dataRead[i]);
end;
s := s + ']';
WriteLn(s);
end
else if (state And (1 Shl 6)) = (1 Shl 6) then begin
WriteLn('Error: ' + IntToStr(state));
end;
end;
procedure TExample.Execute;
begin
{ Create IP connection }
ipcon := TIPConnection.Create;
{ Create device object }
nr := TBrickletNFCRFID.Create(UID, ipcon);
{ Connect to brickd }
ipcon.Connect(HOST, PORT);
{ Don't use device before ipcon is connected }
{ Register state changed callback to procedure StateChangedCB }
nr.OnStateChanged := {$ifdef FPC}@{$endif}StateChangedCB;
{ Select NFC Forum Type 2 tag }
nr.RequestTagID(BRICKLET_NFC_RFID_TAG_TYPE_TYPE2);
WriteLn('Press key to exit');
ReadLn;
ipcon.Destroy; { Calls ipcon.Disconnect internally }
end;
begin
e := TExample.Create;
e.Execute;
e.Destroy;
end.
|
Da Delphi nicht mehrere Rückgabewerte direkt unterstützt, wird das out
Schlüsselwort genutzt um mehrere Werte von einer Funktion zurückzugeben.
Alle folgend aufgelisteten Funktionen und Prozeduren sind Thread-sicher.
TBrickletNFCRFID.
Create
(const uid: string; ipcon: TIPConnection)¶Parameter: |
|
---|---|
Rückgabe: |
|
Erzeugt ein Objekt mit der eindeutigen Geräte ID uid
:
nfcRFID := TBrickletNFCRFID.Create('YOUR_DEVICE_UID', ipcon);
Dieses Objekt kann benutzt werden, nachdem die IP Connection verbunden ist.
TBrickletNFCRFID.
RequestTagID
(const tagType: byte)¶Parameter: |
|
---|
Um ein Tag welches sich in der nähe des NFC/RFID Bricklets befindet zu lesen oder zu schreiben muss zuerst diese Funktion mit dem erwarteten Tag Typ aufgerufen werden. Es ist kein Problem wenn der Typ nicht bekannt ist. Es ist möglich die verügbaren Tag Typen einfach nacheinander durchzutesten bis das Tag antwortet.
Aktuell werden die folgenden Tag Typen unterstützt:
Beim Aufruf von RequestTagID
probiert das NFC/RFID Bricklet die Tag ID
eines Tags auszulesen. Nachdem dieser Prozess beendet ist ändert sich
der Zustand des Bricklets. Es ist möglich den OnStateChanged
Callback zu
registrieren oder den Zustand über GetState
zu pollen.
Wenn der Zustand auf RequestTagIDError wechselt ist ein Fehler aufgetreten.
Dies bedeutet, dass entweder kein Tag oder kein Tag vom passenden Typ gefunden
werden konnte. Wenn der Zustand auf RequestTagIDReady wechselt ist ein
kompatibles Tag gefunden worden und die Tag ID wurde gespeichert. Die
Tag ID kann nun über GetTagID
ausgelesen werden.
Wenn sich zwei Tags gleichzeitig in der Nähe des NFC/RFID Bricklets befinden
werden diese nacheinander ausgelesen. Um ein spezifisches Tag zu selektieren
muss RequestTagID
so lange aufgerufen werden bis das korrekte Tag
gefunden wurde.
Falls sich das NFC/RFID Bricklet in einem der Error Zustände befindet
ist die Selektion aufgehoben und RequestTagID
muss erneut
aufgerufen werden.
Die folgenden Konstanten sind für diese Funktion verfügbar:
Für tagType:
TBrickletNFCRFID.
GetTagID
(out tagType: byte; out tidLength: byte; out tid: array [0..6] of byte)¶Ausgabeparameter: |
|
---|
Gibt den Tag Typ, die Tag ID und die Länge der Tag ID (4 oder 7 Byte
möglich) zurück. Diese Funktion kann nur aufgerufen werden wenn
sich das Bricklet gerade in einem der Ready-Zustände befindet. Die
zurückgegebene ID ist die letzte ID die durch einen Aufruf von
RequestTagID
gefunden wurde.
Der Ansatz um die Tag ID eines Tags zu bekommen sieht wie folgt aus:
RequestTagID
aufGetState
oder OnStateChanged
Callback)GetTagID
aufDie folgenden Konstanten sind für diese Funktion verfügbar:
Für tagType:
TBrickletNFCRFID.
GetState
(out state: byte; out idle: boolean)¶Ausgabeparameter: |
|
---|
Gibt den aktuellen Zustand des NFC/RFID Bricklets aus.
Während der Startphase ist der Zustand Initialization. Die Initialisierung dauert etwa 20ms. Danach ändert sich der Zustand zu Idle.
Die Funktionen dieses Bricklets können aufgerufen werden wenn der Zustand entweder Idle ist oder einer der Ready oder Error-Zustände erreicht wurde.
Beispiel: Wenn RequestPage
aufgerufen wird, änder sich der
Zustand zu RequestPage solange der Leseprozess noch nicht abgeschlossen
ist. Danach ändert sich der Zustand zu RequestPageReady wenn das lesen
funktioniert hat oder zu RequestPageError wenn nicht. Wenn die Anfrage
erfolgreich war kann die Page mit GetPage
abgerufen werden.
Der gleiche Ansatz kann analog für andere API Funktionen verwendet werden.
Die folgenden Konstanten sind für diese Funktion verfügbar:
Für state:
TBrickletNFCRFID.
AuthenticateMifareClassicPage
(const page: word; const keyNumber: byte; const key: array [0..5] of byte)¶Parameter: |
|
---|
Mifare Classic Tags nutzen Authentifizierung. Wenn eine Page eines
Mifare Classic Tags gelesen oder geschrieben werden soll muss diese
zuvor Authentifiziert werden. Jede Page kann mit zwei Schlüsseln, A
(key_number
= 0) und B (key_number
= 1),
authentifiziert werden. Ein neues Mifare Classic Tag welches noch nicht
beschrieben wurde kann über Schlüssel A mit dem Standardschlüssel
[0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF]
genutzt werden.
Der Ansatz um eine Mifare Classic Page zu lesen oder zu schreiben sieht wie folgt aus:
RequestTagID
aufGetState
oder OnStateChanged
Callback)GetTagID
auf und überprüfe, ob der erwartete Tag gefunden wurde,
wenn er nicht gefunden wurde mit Schritt 1 fortfahrenAuthenticateMifareClassicPage
mit Page und Schlüssel für die
Page aufGetState
oder OnStateChanged
Callback)RequestPage
oder WritePage
zum Lesen/Schreiben einer
Page aufDie folgenden Konstanten sind für diese Funktion verfügbar:
Für keyNumber:
TBrickletNFCRFID.
WritePage
(const page: word; const data: array [0..15] of byte)¶Parameter: |
|
---|
Schreibt 16 Bytes startend von der übergebenen Page. Wie viele Pages dadurch geschrieben werden hängt vom Typ des Tags ab. Die Pagegrößen verhalten sich wie folgt:
Der generelle Ansatz zum Schreiben eines Tags sieht wie folgt aus:
RequestTagID
aufGetState
oder OnStateChanged
callback)GetTagID
auf und überprüfe, ob der erwartete Tag gefunden wurde,
wenn er nicht gefunden wurde mit Schritt 1 fortfahrenWritePage
mit der Page sowie den zu schreibenden Daten aufGetState
oder OnStateChanged
Callback)Wenn ein Mifare Classic Tag verwendet wird muss die Page authentifiziert
werden bevor sie geschrieben werden kann. Siehe
AuthenticateMifareClassicPage
.
TBrickletNFCRFID.
RequestPage
(const page: word)¶Parameter: |
|
---|
Liest 16 Bytes startend von der übergebenen Page und speichert sie in
einem Buffer. Dieser Buffer kann mit GetPage
ausgelesen werden.
Wie viele Pages dadurch gelesen werden hängt vom Typ des Tags ab.
Die Pagegrößen verhalten sich wie folgt:
Der generelle Ansatz zum Lesen eines Tags sieht wie folgt aus:
RequestTagID
aufGetState
oder OnStateChanged
Callback)GetTagID
auf und überprüfe, ob der erwartete Tag gefunden wurde,
wenn er nicht gefunden wurde mit Schritt 1 fortfahrenRequestPage
mit der zu lesenden Page aufGetState
oder OnStateChanged
Callback)GetPage
auf um die gespeicherte Page abzufragenWenn ein Mifare Classic Tag verwendet wird muss die Page authentifiziert
werden bevor sie gelesen werden kann. Siehe AuthenticateMifareClassicPage
.
TBrickletNFCRFID.
GetPage
: array [0..15] of byte¶Rückgabe: |
|
---|
Gibt 16 Bytes Daten aus einem internen Buffer zurück. Der Buffer
kann zuvor mit spezifischen Pages über einen Aufruf von
RequestPage
gefüllt werden.
TBrickletNFCRFID.
GetIdentity
(out uid: string; out connectedUid: string; out position: char; out hardwareVersion: array [0..2] of byte; out firmwareVersion: array [0..2] of byte; out deviceIdentifier: word)¶Ausgabeparameter: |
|
---|
Gibt die UID, die UID zu der das Bricklet verbunden ist, die Position, die Hard- und Firmware Version sowie den Device Identifier zurück.
Die Position ist 'a', 'b', 'c', 'd', 'e', 'f', 'g' oder 'h' (Bricklet Anschluss). Ein Bricklet hinter einem Isolator Bricklet ist immer an Position 'z'.
Eine Liste der Device Identifier Werte ist hier zu finden. Es gibt auch eine Konstante für den Device Identifier dieses Bricklets.
Callbacks können registriert werden um zeitkritische oder wiederkehrende Daten vom Gerät zu erhalten. Die Registrierung erfolgt indem eine Prozedur einem Callback Property des Geräte Objektes zugewiesen wird:
procedure TExample.MyCallback(sender: TBrickletNFCRFID; const value: longint); begin WriteLn(Format('Value: %d', [value])); end; nfcRFID.OnExample := {$ifdef FPC}@{$endif}example.MyCallback;
Die verfügbaren Callback Properties und ihre Parametertypen werden weiter unten beschrieben.
Bemerkung
Callbacks für wiederkehrende Ereignisse zu verwenden ist immer zu bevorzugen gegenüber der Verwendung von Abfragen. Es wird weniger USB-Bandbreite benutzt und die Latenz ist erheblich geringer, da es keine Paketumlaufzeit gibt.
TBrickletNFCRFID.
OnStateChanged
¶procedure(sender: TBrickletNFCRFID; const state: byte; const idle: boolean) of object;
Callback-Parameter: |
|
---|
Dieser Callback wird ausgelöst, wenn der Zustand des NFC/RFID Bricklets
sich verändert. Siehe GetState
für mehr Informationen
über die möglichen Zustände des Bricklets.
Die folgenden Konstanten sind für diese Funktion verfügbar:
Für state:
Virtuelle Funktionen kommunizieren nicht mit dem Gerät selbst, sie arbeiten nur auf dem API Bindings Objekt. Dadurch können sie auch aufgerufen werden, ohne das das dazugehörige IP Connection Objekt verbunden ist.
TBrickletNFCRFID.
GetAPIVersion
: array [0..2] of byte¶Ausgabeparameter: |
|
---|
Gibt die Version der API Definition zurück, die diese API Bindings implementieren. Dies ist weder die Release-Version dieser API Bindings noch gibt es in irgendeiner Weise Auskunft über den oder das repräsentierte(n) Brick oder Bricklet.
TBrickletNFCRFID.
GetResponseExpected
(const functionId: byte): boolean¶Parameter: |
|
---|---|
Rückgabe: |
|
Gibt das Response-Expected-Flag für die Funktion mit der angegebenen Funktions IDs zurück. Es ist true falls für die Funktion beim Aufruf eine Antwort erwartet wird, false andernfalls.
Für Getter-Funktionen ist diese Flag immer gesetzt und kann nicht entfernt
werden, da diese Funktionen immer eine Antwort senden. Für
Konfigurationsfunktionen für Callbacks ist es standardmäßig gesetzt, kann aber
entfernt werden mittels SetResponseExpected
. Für Setter-Funktionen ist
es standardmäßig nicht gesetzt, kann aber gesetzt werden.
Wenn das Response-Expected-Flag für eine Setter-Funktion gesetzt ist, können Timeouts und andere Fehlerfälle auch für Aufrufe dieser Setter-Funktion detektiert werden. Das Gerät sendet dann eine Antwort extra für diesen Zweck. Wenn das Flag für eine Setter-Funktion nicht gesetzt ist, dann wird keine Antwort vom Gerät gesendet und Fehler werden stillschweigend ignoriert, da sie nicht detektiert werden können.
Die folgenden Konstanten sind für diese Funktion verfügbar:
Für functionId:
TBrickletNFCRFID.
SetResponseExpected
(const functionId: byte; const responseExpected: boolean)¶Parameter: |
|
---|
Ändert das Response-Expected-Flag für die Funktion mit der angegebenen Funktion IDs. Diese Flag kann nur für Setter-Funktionen (Standardwert: false) und Konfigurationsfunktionen für Callbacks (Standardwert: true) geändert werden. Für Getter-Funktionen ist das Flag immer gesetzt.
Wenn das Response-Expected-Flag für eine Setter-Funktion gesetzt ist, können Timeouts und andere Fehlerfälle auch für Aufrufe dieser Setter-Funktion detektiert werden. Das Gerät sendet dann eine Antwort extra für diesen Zweck. Wenn das Flag für eine Setter-Funktion nicht gesetzt ist, dann wird keine Antwort vom Gerät gesendet und Fehler werden stillschweigend ignoriert, da sie nicht detektiert werden können.
Die folgenden Konstanten sind für diese Funktion verfügbar:
Für functionId:
TBrickletNFCRFID.
SetResponseExpectedAll
(const responseExpected: boolean)¶Parameter: |
|
---|
Ändert das Response-Expected-Flag für alle Setter-Funktionen und Konfigurationsfunktionen für Callbacks diese Gerätes.
BRICKLET_NFC_RFID_DEVICE_IDENTIFIER
¶Diese Konstante wird verwendet um ein NFC/RFID Bricklet zu identifizieren.
Die GetIdentity
Funktion und der
TIPConnection.OnEnumerate
Callback der IP Connection haben ein deviceIdentifier
Parameter um den Typ
des Bricks oder Bricklets anzugeben.
BRICKLET_NFC_RFID_DEVICE_DISPLAY_NAME
¶Diese Konstante stellt den Anzeigenamen eines NFC/RFID Bricklet dar.