新搞到一个平板（win10系统的），想问下怎么用delphi获取NFC读到的卡号

LinY_X 2019-12-19 09:14:40

如题
新搞到一个平板（win10系统的），
想问下怎么用delphi获取NFC读到的卡号，
只需要读到卡号就行了

...全文

753 17 打赏收藏转发到动态举报

写回复

用AI写文章

17 条回复

切换为时间正序

请发表友善的回复…

发表回复

LinY_X 2020-04-02

打赏
举报

有没有人帮忙啊急！！！

LinY_X 2020-04-02

打赏
举报

型号是PN547

日立奔腾浪潮微软松下联想 2020-01-13

打赏
举报

关键大部分人没这设备，研究起来很麻烦

LinY_X 2020-01-13

打赏
举报

难道要去研究libnfc么

LinY_X 2020-01-03

打赏
举报

LinY_X 2020-01-02

打赏
举报

引用 11 楼早打大打打核战争的回复:

myDeviceArrived-DeviceId，这个应该就是吧

不是我试了刷相同卡 deviceId会变的

日立奔腾浪潮微软松下联想 2019-12-31

打赏
举报

myDeviceArrived-DeviceId，这个应该就是吧

LinY_X 2019-12-31

打赏
举报

新手只能加到400分了有大佬指点下么

LinY_X 2019-12-31

打赏
举报


unit Unit3;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
  System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs,
  Winapi.Networking.Proximity, Vcl.StdCtrls, Vcl.ComCtrls, Winapi.WinRT,
  System.Win.ComObj, Winapi.Foundation.Types, Winapi.Storage.Streams,
  Winapi.CommonTypes, System.Win.WinRT;

const
  MsgTypes: array[0..4] of string = ('NDEF', 'Pairing:Bluetooth', 'WindowsUri',
    'WindowsMime', 'WriteableTag');

type
  TMessageReceivedHandler = class(TInterfacedObject, MessageReceivedHandler)
  public
    procedure Invoke(Sender: IProximityDevice; message: IProximityMessage); safecall;
  end;

  TDeviceArrivedEventHandler = class(TInterfacedObject, DeviceArrivedEventHandler)
  public
    procedure Invoke(Sender: IProximityDevice); safecall;
  end;

  TDeviceDepartedEventHandler = class(TInterfacedObject, DeviceDepartedEventHandler)
  public
    procedure Invoke(Sender: IProximityDevice); safecall;
  end;

  TForm3 = class(TForm)
    rbOutput: TRichEdit;
    btnInit: TButton;
    btnQuit: TButton;
    ComboBox1: TComboBox;
    procedure btnInitClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure btnQuitClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
    Device: TProximityDevice;
    NFCReader: IProximityDevice;
    FDeviceArrivedHandler: DeviceArrivedEventHandler;
    FDeviceDepartedHandler: DeviceDepartedEventHandler;
    token: EventRegistrationToken;
    FMsgHandler: TMessageReceivedHandler;
    FMsgType: string;
  public
    { Public declarations }
  end;

procedure ReceiveMessage(Sender: IProximityDevice; message: IProximityMessage);

procedure myDeviceArrived(Sender: IProximityDevice);

procedure myDeviceDeparted(Sender: IProximityDevice);

function StringToHSTRING(Value: string): HSTRING;

function HSTRINGToString(Src: HSTRING): string;

procedure Log(Str: string);

var
  Form3: TForm3;

implementation

{$R *.dfm}

procedure TForm3.btnInitClick(Sender: TObject);
var
  MsgType: string;
  h: HSTRING;
  SubscribeID: Int64;
  launchArgs, praid, appName, launchAppMessage: string;
begin
  try
    Device := TProximityDevice.Create;
    Log('Device.GetDeviceSelector:' + IntToStr(Device.GetDeviceSelector));
    NFCReader := Device.GetDefault;

    if (not Assigned(NFCReader)) then
    begin
      FreeAndNil(NFCReader);
      FreeAndNil(Device);
      Log('no reader');
      Exit;
    end;
    Log('Device.GetDefault.DeviceId:' + IntToStr(NFCReader.DeviceId));
    MsgType := ComboBox1.Text;
    h := StringToHSTRING(MsgType);
    Log(Format('h:%s>>>%s', [MsgType, IntToStr(h)]));
    FMsgHandler := TMessageReceivedHandler.Create;
    SubscribeID := Form3.NFCReader.SubscribeForMessage(h, Form3.FMsgHandler);
    Log('SubscribeForMessage-ID:' + IntToStr(SubscribeID));

    FDeviceArrivedHandler := TDeviceArrivedEventHandler.Create;
    token := NFCReader.add_DeviceArrived(FDeviceArrivedHandler);
    Log('add_DeviceArrived-token' + IntToStr(token.Value));

    FDeviceDepartedHandler := TDeviceDepartedEventHandler.Create;
    token := NFCReader.add_DeviceDeparted(FDeviceDepartedHandler);
    Log('add_DeviceDeparted-token' + IntToStr(token.Value));
  except
    on E: Exception do
    begin
      Log('error:' + E.ClassName + '///' + E.Message);
    end;
  end;
end;

procedure TForm3.btnQuitClick(Sender: TObject);
begin
  FreeAndNil(FMsgHandler);
  FreeAndNil(FDeviceArrivedHandler);
  FreeAndNil(FDeviceDepartedHandler);
  FreeAndNil(NFCReader);
  FreeAndNil(Device);
end;

procedure TForm3.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  btnQuitClick(nil);
  inherited;
end;

procedure TForm3.FormShow(Sender: TObject);
var
  I: Integer;
begin
  inherited;
  for I := 0 to Length(MsgTypes) - 1 do
  begin
    ComboBox1.Items.Add(MsgTypes[I]);
  end;
end;

procedure myDeviceArrived(sender: IProximityDevice);
var
  SubscribeID: Int64;
  iidCount: Cardinal;
  iids: PGUID;
  ret: HRESULT;
begin
  Log('myDeviceArrived-DeviceId:' + IntToStr(sender.DeviceId));
  Log('myDeviceArrived-MaxMessageBytes:' + IntToStr(sender.MaxMessageBytes));
  Log('myDeviceArrived-BitsPerSecond:' + UIntToStr(sender.BitsPerSecond));
  ret := sender.GetIids(iidCount, iids);
//
  Log('myDeviceArrived-iidCount:' + IntToStr(iidCount));
  Log('myDeviceArrived-iids:' + GUIDToString(iids^));
  Log('myDeviceArrived-ret:' + IntToStr(ret));
end;

procedure myDeviceDeparted(sender: IProximityDevice);
var
  SubscribeID: Int64;
begin
  Log('myDeviceArrived-DeviceId:' + IntToStr(sender.DeviceId));
  Log('myDeviceArrived-MaxMessageBytes:' + IntToStr(sender.MaxMessageBytes));
  Log('myDeviceArrived-BitsPerSecond:' + UIntToStr(sender.BitsPerSecond));

  SubscribeID := sender.SubscribeForMessage(HSTRING(LongInt(@Form3.FMsgType)),
    Form3.FMsgHandler);
  Log('12-SubscribeID' + IntToStr(SubscribeID));
end;

{ TDeviceArrivedEventHandler }

procedure TDeviceArrivedEventHandler.Invoke(sender: IProximityDevice);
begin
  myDeviceArrived(sender);
end;

procedure ReceiveMessage(sender: IProximityDevice; message: IProximityMessage);
var
  str: string;
begin
  str := Format('[%s]msg[%s]:%s', [IntToStr(sender.DeviceId), IntToStr(message.MessageType),
    string(message.DataAsString)]);
  Log(str);
end;

{ TMessageReceivedHandler }

procedure TMessageReceivedHandler.Invoke(sender: IProximityDevice; message:
  IProximityMessage);
begin
  Log('111');
  ReceiveMessage(sender, message);
end;

{ TDeviceDepartedEventHandler }

procedure TDeviceDepartedEventHandler.Invoke(sender: IProximityDevice);
begin
  myDeviceDeparted(sender);
end;

function StringToHSTRING(Value: string): HSTRING;
begin
  if not Succeeded(WindowsCreateString(PWideChar(Value), Length(Value), Result)) then
    raise Exception.CreateFmt('Unable to create HString for %s', [Value]);
end;

function HSTRINGToString(Src: HSTRING): string;
var
  c: Cardinal;
begin
  c := WindowsGetStringLen(Src);
  Result := WindowsGetStringRawBuffer(Src, @c);
end;

procedure Log(str: string);
begin
  Form3.rbOutput.Lines.Insert(0, str);
end;

end.

这是新改之后的代码 DeviceArrived和DeviceDeparted 刷卡进入和离开事件都能监听到但是不知道怎么获取卡号 SubscribeForMessage设置成功了但是刷卡没反应测试结果是这样的：

LinY_X 2019-12-28

打赏
举报

官网看到的都是NFC设备交互的一个发送消息另一个接收消息我这里只是读取普通M卡的卡号有整过的大佬指导下么试了好久了

日立奔腾浪潮微软松下联想 2019-12-20

打赏
举报

我用10.2.1编译你的代码通过，至于功能性，我这没有带NFC的win10设备，无法验证

LinY_X 2019-12-20

打赏
举报

引用 5 楼早打大打打核战争的回复:

这有一个更详细的例子：https://github.com/Microsoft/Windows-universal-samples/blob/master/Samples/NfcProvisioner/cs/Scenario1.xaml.cs

0.0 不怎么懂C# 小白一个帮忙看下这样写有点问题


unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
  System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs,
  Winapi.Networking.Proximity, Vcl.StdCtrls, Vcl.ComCtrls, Winapi.WinRT;

type
  TMessageReceivedHandler = class(TInterfacedObject, MessageReceivedHandler)
  public
    procedure Invoke(sender: IProximityDevice; message: IProximityMessage); safecall;
  end;

  TForm1 = class(TForm)
    Label1: TLabel;
    cbReader: TComboBox;
    rbOutput: TRichEdit;
    btnInit: TButton;
    btnConnect: TButton;
    btnActive: TButton;
    SendGroup: TGroupBox;
    tbData: TMemo;
    btnClear: TButton;
    btnReset: TButton;
    btnQuit: TButton;
    procedure btnInitClick(sender: TObject);
    procedure FormClose(sender: TObject; var Action: TCloseAction);
    procedure btnQuitClick(sender: TObject);
    procedure FormCreate(sender: TObject);
  private
    { Private declarations }
    Device: TProximityDevice;
    NFCReader: IProximityDevice;
    SubscribedMessageId: Int64;
    MessageReceivedHandler: TMessageReceivedHandler;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.btnInitClick(Sender: TObject);
var
  h: HSTRING;
begin
  try
    Device := TProximityDevice.Create;
    rbOutput.Lines.Add('Device.GetDeviceSelector:' + IntToStr(Device.GetDeviceSelector));
    NFCReader := Device.GetDefault;
    if (not Assigned(NFCReader)) then
    begin
      FreeAndNil(NFCReader);
      FreeAndNil(Device);
      rbOutput.Lines.Add('no reader');
      Exit;
    end;
    rbOutput.Lines.Add('Device.GetDefault.DeviceId' + IntToStr(NFCReader.DeviceId));
    // TODO: 这个HSTRING 为啥是数字的？ 微软那边不是字符串么
//    h := HSTRING(1);
    rbOutput.Lines.Add('h>>>');
    if (not Assigned(MessageReceivedHandler)) then
    begin
      MessageReceivedHandler := TMessageReceivedHandler.Create;
      rbOutput.Lines.Add('MessageReceivedHandler.Create>>>');
    end;
    if (SubscribedMessageId = -1) then
    begin
      // TODO: 这行有问题 会报错
      SubscribedMessageId := NFCReader.SubscribeForMessage(h, MessageReceivedHandler);
    end;
    rbOutput.Lines.Add('SubscribedMessageId:' + IntToStr(SubscribedMessageId));
  except
    on E: Exception do
    begin
      rbOutput.Lines.Add('error:' + E.ClassName + '///' + E.Message);
    end;
  end;
end;

procedure TForm1.btnQuitClick(Sender: TObject);
begin
  rbOutput.Lines.Add('FreeAndNil(MessageReceivedHandler)');
  try
    FreeAndNil(MessageReceivedHandler);
  except
    on E: Exception do
    begin
      rbOutput.Lines.Add('error:' + E.ClassName + '///' + E.Message);
    end;
  end;
  rbOutput.Lines.Add('FreeAndNil(NFCReader)');
  try
    FreeAndNil(NFCReader);
  except
    on E: Exception do
    begin
      rbOutput.Lines.Add('error:' + E.ClassName + '///' + E.Message);
    end;
  end;
  rbOutput.Lines.Add('FreeAndNil(Device)');
  try
    FreeAndNil(Device);
  except
    on E: Exception do
    begin
      rbOutput.Lines.Add('error:' + E.ClassName + '///' + E.Message);
    end;
  end;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  rbOutput.Lines.Add('FreeAndNil(MessageReceivedHandler)');
  try
    FreeAndNil(MessageReceivedHandler);
  except
    on E: Exception do
    begin
      rbOutput.Lines.Add('error:' + E.ClassName + '///' + E.Message);
    end;
  end;
  rbOutput.Lines.Add('FreeAndNil(NFCReader)');
  try
    FreeAndNil(NFCReader);
  except
    on E: Exception do
    begin
      rbOutput.Lines.Add('error:' + E.ClassName + '///' + E.Message);
    end;
  end;
  rbOutput.Lines.Add('FreeAndNil(Device)');
  try
    FreeAndNil(Device);
  except
    on E: Exception do
    begin
      rbOutput.Lines.Add('error:' + E.ClassName + '///' + E.Message);
    end;
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  inherited;
  SubscribedMessageId := 1;
end;


{ TMessageReceivedHandler }

procedure TMessageReceivedHandler.Invoke(sender: IProximityDevice; message:
  IProximityMessage);
begin
  inherited;
  Form1.rbOutput.Lines.Add('[' + IntToStr(sender.DeviceId) + ']msg:' + string(message.DataAsString));
end;

end.

doloopcn 2019-12-19

打赏
举报

就是向提供商索要平板的SDK啊

如果是通用型NFCA型或B型，先到网上找例子（一般都是JAVA），然后转到DELPHI吧，或者直接找D的例子试试

LinY_X 2019-12-19

打赏
举报

有没有大佬啊给个思路也行啊

LinY_X 2019-12-19

打赏
举报

NFC设备是 NXP NearFieldProximity Provider

日立奔腾浪潮微软松下联想 2019-12-19

打赏
举报

这有一个更详细的例子：https://github.com/Microsoft/Windows-universal-samples/blob/master/Samples/NfcProvisioner/cs/Scenario1.xaml.cs

日立奔腾浪潮微软松下联想 2019-12-19

打赏
举报

win10从10240开始已经内置支持NFC设备，WinRT API Windows.Networking.Proximity，参考：https://docs.microsoft.com/en-us/uwp/api/Windows.Networking.Proximity.ProximityDevice?redirectedfrom=MSDN

Delphi大概从10.0 Seattle开始支持WinRT API，你只需要uses WinAPI.Networking.Proximity; 然后抄一下微软的例子就差不多了