Blutooth Üzerinden RFID tag okuma

FireMonkey ve Mobil uygulama (iOS, Android, Windows Phone) ile ilgili sorularınızı bu foruma sorabilirsiniz.
Cevapla
Kullanıcı avatarı
adelphiforumz
Üye
Mesajlar: 602
Kayıt: 01 Nis 2008 05:38
Konum: İstanbul

Blutooth Üzerinden RFID tag okuma

Mesaj gönderen adelphiforumz »

Selamlar

RFID Taglerin sadece ID sini bluetooth üzerinden nasıl okuyabilirim
Bu konuda bilgisi olan varmıdır

Teşekkürler
Ehil olmayanlara sabretmek ehil olanları parlatır.
Akıllı birisinden gelen cefa, bilgisizlerin vefasından iyidir.
Bilgiye ulaştı mı ayak, kanat olur
Biz insanı kıyafetiyle ağırlar bilgisiyle uğurlarız.
Mevlana
mkysoft
Kıdemli Üye
Mesajlar: 3103
Kayıt: 26 Ağu 2003 12:35
Konum: Berlin
İletişim:

Re: Blutooth Üzerinden RFID tag okuma

Mesaj gönderen mkysoft »

RFID'leri bluetooth üzerinden okuyamazsınız RFID ile Bluetooth farklı protokoller. Bluetooth üzerinden çalışan RFID okuyucular olabilir. Amacınız bunları kullanabilmek midir?
Kullanıcı avatarı
adelphiforumz
Üye
Mesajlar: 602
Kayıt: 01 Nis 2008 05:38
Konum: İstanbul

Re: Blutooth Üzerinden RFID tag okuma

Mesaj gönderen adelphiforumz »

mkysoft yazdı: 28 Eki 2017 06:08 RFID'leri bluetooth üzerinden okuyamazsınız RFID ile Bluetooth farklı protokoller. Bluetooth üzerinden çalışan RFID okuyucular olabilir. Amacınız bunları kullanabilmek midir?
Selamlar mkysoft hocam

Aşağıdaki linkte bulunan ürünü kullanıyorum.
Tüm yapmak istediğim Mifare kartın tag numarasını okumak karta birşey yazılmıyacak.
http://www.bilkur.com.tr/Urunler/Sunlux_XL-868.htm

Firma tarafından paylaşılan döküman linkleride aşağıdakiler
Bu doğrultuda Delphi ile android üstünde bu iş yapılabilirmi sizce
http://www.bilkur.com/download/Sunlux/P ... 68_API.zip
http://www.bilkur.com/download/Sunlux/D ... rogram.pdf


Bu ürün üzerinde NFC desteği var diyorlar, fakat ayarlada NFC olarak hiç bir ayar bulunmuyor.
Satıcı ile konuştuğumda cihazın blutooth üzerinden RFID kartları okuduğunu
piyasadaki neredeyse tüm cihazların bu yolla okuma yaptığını söylüyor.

Banada pek mantıklı gelmedi fakat iddaları bu.
Fakat Teknik özelliklerine baktığımdada RFID için aşağıdaki bilgiler yazıyor
Frekans 13.56 Mhz
Tag Support ISO15693, ISO14443A , ISO14443B (NFC Desteği)
Ehil olmayanlara sabretmek ehil olanları parlatır.
Akıllı birisinden gelen cefa, bilgisizlerin vefasından iyidir.
Bilgiye ulaştı mı ayak, kanat olur
Biz insanı kıyafetiyle ağırlar bilgisiyle uğurlarız.
Mevlana
mkysoft
Kıdemli Üye
Mesajlar: 3103
Kayıt: 26 Ağu 2003 12:35
Konum: Berlin
İletişim:

Re: Blutooth Üzerinden RFID tag okuma

Mesaj gönderen mkysoft »

Cihazı biraz araştırdım. Tam olarak üreticisini belirleyemedim. Üzerinde yazan marka tarafından ütetilmiş görünmüyor. http://dggf0769.com/ ürünü olduğuna dair ipucu buldum. Sadate gelirsek bazı sitelerde RFID özelliğinin opsiyonel olduğu yazıyor. Sizdeki modelde bu özellik mevcut mu? Storedan yükleyeceğiniz uygulamalar ile deneme yaptınız mı? DroidInfo isimli bir program var mesala, telefondali cihazları listeliyor. RFID olduğundan emin olun öncelikle derim.
Kullanıcı avatarı
adelphiforumz
Üye
Mesajlar: 602
Kayıt: 01 Nis 2008 05:38
Konum: İstanbul

Re: Blutooth Üzerinden RFID tag okuma

Mesaj gönderen adelphiforumz »

mkysoft yazdı: 31 Eki 2017 09:37 Cihazı biraz araştırdım. Tam olarak üreticisini belirleyemedim. Üzerinde yazan marka tarafından ütetilmiş görünmüyor. http://dggf0769.com/ ürünü olduğuna dair ipucu buldum. Sadate gelirsek bazı sitelerde RFID özelliğinin opsiyonel olduğu yazıyor. Sizdeki modelde bu özellik mevcut mu? Storedan yükleyeceğiniz uygulamalar ile deneme yaptınız mı? DroidInfo isimli bir program var mesala, telefondali cihazları listeliyor. RFID olduğundan emin olun öncelikle derim.
Selamlar

Cihazın kendi üzerinde RFID Reader diye bir uygulama var
Bu uygulama ile Mifare Clasic Karları okuttuğumda kartın Tag Numarası geliyor.

Fakat ben bunu delphide nasıl çalıştırıcam bunu bulamadım.
Tek bildiğim satıcısının okumayı bluetooth üzerinden com gibi yapıyor demesinden başka bir şey yok elimde

Belki linke eklediğim API üerinden yola çıkarak birşeyler bulunabilir diye düşündüm.
Fakat onuda başaramadım.
Bu konuda yardımcı olabilieceklere şimdiden teşkkürler
Ehil olmayanlara sabretmek ehil olanları parlatır.
Akıllı birisinden gelen cefa, bilgisizlerin vefasından iyidir.
Bilgiye ulaştı mı ayak, kanat olur
Biz insanı kıyafetiyle ağırlar bilgisiyle uğurlarız.
Mevlana
mkysoft
Kıdemli Üye
Mesajlar: 3103
Kayıt: 26 Ağu 2003 12:35
Konum: Berlin
İletişim:

Re: Blutooth Üzerinden RFID tag okuma

Mesaj gönderen mkysoft »

API dökümanına baktım, dedikleri gibi com port olarak çalışıyormuş alet. Bir okuma yaptığından comportdan veri gelmiş gibi oluyormuş. Delphi'de android projesinde comporta erişebilir misiniz bilmiyorum. https://www.winsoft.sk/acomport.htm adresinde fmx için bir bileşen satılıyor, trial varsa deneyebilirsiniz ya da ücretsiz seçenekler arayabilirsiniz.
Kullanıcı avatarı
adelphiforumz
Üye
Mesajlar: 602
Kayıt: 01 Nis 2008 05:38
Konum: İstanbul

Re: Blutooth Üzerinden RFID tag okuma

Mesaj gönderen adelphiforumz »

mkysoft yazdı: 01 Kas 2017 09:00 API dökümanına baktım, dedikleri gibi com port olarak çalışıyormuş alet. Bir okuma yaptığından comportdan veri gelmiş gibi oluyormuş. Delphi'de android projesinde comporta erişebilir misiniz bilmiyorum. https://www.winsoft.sk/acomport.htm adresinde fmx için bir bileşen satılıyor, trial varsa deneyebilirsiniz ya da ücretsiz seçenekler arayabilirsiniz.
Selamlar

internet bir çok comport kullanım örneği bıuldum fakat hepsinin takıldığı yer aynı
comport aç dediğimde "Error 2:No such file or directory" hatası alıyorum

Şimdilik Winsoft'un AComPort unu trial olarak kullandım.

programda seting nasıl kullanılır bilmediğim için aldığım örnekteki ksımları kapatıp default deger verdim


bunu nasıl aşabilirim
DFM

Kod: Tümünü seç

inherited FormMain_NmXhdpiPh: TFormMain_NmXhdpiPh
  ClientHeight = 615
  ClientWidth = 400
  DesignerMasterStyle = 3
  inherited Memo: TMemo
    Position.X = 8.000000000000000000
    Position.Y = 72.000000000000000000
    Size.Width = 385.000000000000000000
    Size.Height = 313.000000000000000000
    Viewport.Width = 377.000000000000000000
    Viewport.Height = 305.000000000000000000
  end
  inherited StatusBar: TStatusBar
    Position.Y = 584.000000000000000000
    Size.Width = 400.000000000000000000
  end
  inherited ToolBar: TToolBar
    Size.Width = 400.000000000000000000
  end
  inherited ButtonSettings: TButton
    Position.X = 10.000000000000000000
    Position.Y = 400.000000000000000000
  end
  inherited ButtonOpenClose: TButton
    Position.X = 118.000000000000000000
    Position.Y = 402.000000000000000000
  end
  inherited LabelStatus: TLabel
    Position.X = 12.000000000000000000
    Position.Y = 442.000000000000000000
    Size.Width = 375.000000000000000000
  end
  inherited Timer: TTimer [6]
  end
  inherited AComPort: TAComPort [7]
  end
end
Pas

Kod: Tümünü seç

unit Main;

interface

uses
  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
  FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.StdCtrls,
  FMX.Layouts, FMX.Memo, Winsoft.Android.ComPort, FMX.Controls.Presentation,
  FMX.ScrollBox;

type
  TFormMain = class(TForm)
    AComPort: TAComPort;
    Memo: TMemo;
    StatusBar: TStatusBar;
    Timer: TTimer;
    ToolBar: TToolBar;
    LabelStatus : TLabel;
    ButtonSettings : TButton;
    ButtonOpenClose : TButton;

    procedure ButtonOpenCloseClick(Sender: TObject);
    procedure AComPortAfterWrite(Sender: TObject; Buffer: Pointer; Length: Integer);
    procedure TimerTimer(Sender: TObject);
    procedure AComPortAfterRead(Sender: TObject; Buffer: Pointer; Length: Integer);
    procedure MemoKeyDown(Sender: TObject; var Key: Word; var KeyChar: Char; Shift: TShiftState);
    procedure AComPortError(ComPort: TAComPort; E: EComError; var Action: TComAction);
    procedure ButtonSettingsClick(Sender: TObject);
  private
    { Private declarations }
    FReadCount: Integer;
    FWriteCount: Integer;
    procedure UpdateStatus;
  public
    { Public declarations }
  end;

var
  FormMain: TFormMain;

implementation

//uses Settings;

{$R *.fmx}
{$R *.NmXhdpiPh.fmx ANDROID}

procedure TFormMain.UpdateStatus;
begin
  LabelStatus.Text := 'Read bytes: ' + IntToStr(FReadCount) + '     Write bytes: ' + IntToStr(FWriteCount);
end;

procedure TFormMain.AComPortAfterRead(Sender: TObject; Buffer: Pointer; Length: Integer);
begin
  FReadCount := FReadCount + Length;
  UpdateStatus;
end;

procedure TFormMain.AComPortAfterWrite(Sender: TObject; Buffer: Pointer; Length: Integer);
begin
  FWriteCount := FWriteCount + Length;
  UpdateStatus;
end;

procedure TFormMain.AComPortError(ComPort: TAComPort; E: EComError; var Action: TComAction);
begin
  ShowMessage('Error ' + IntToStr(E.ErrorCode) + ': ' + E.Message);
  Action := caAbort;
end;

procedure TFormMain.ButtonOpenCloseClick(Sender: TObject);
begin
  AComPort.Active := not AComPort.Active;
  Timer.Enabled := AComPort.Active;
  Memo.Enabled := AComPort.Active;
  ButtonSettings.Enabled := not AComPort.Active;
  if AComPort.Active then
    ButtonOpenClose.Text := 'Close'
  else
    ButtonOpenClose.Text := 'Open';
end;

procedure TFormMain.ButtonSettingsClick(Sender: TObject);
begin
  //FormSettings.Show;
end;

procedure TFormMain.MemoKeyDown(Sender: TObject; var Key: Word; var KeyChar: Char; Shift: TShiftState);
begin
  AComPort.WriteByte(Ord(KeyChar));
end;

procedure TFormMain.TimerTimer(Sender: TObject);
var Text: string;
begin
  Text := AComPort.ReadUtf8;
  if Text <> '' then
    Memo.Text := Memo.Text + Text;
end;

end.
Ehil olmayanlara sabretmek ehil olanları parlatır.
Akıllı birisinden gelen cefa, bilgisizlerin vefasından iyidir.
Bilgiye ulaştı mı ayak, kanat olur
Biz insanı kıyafetiyle ağırlar bilgisiyle uğurlarız.
Mevlana
mkysoft
Kıdemli Üye
Mesajlar: 3103
Kayıt: 26 Ağu 2003 12:35
Konum: Berlin
İletişim:

Re: Blutooth Üzerinden RFID tag okuma

Mesaj gönderen mkysoft »

Comport 2 üzerinde çalışıyormuş, rfid aktif etmeniz için 3 bytlık bir veri göndermeniz gerekiyor. Yine API içinde example var, orada görebilirsiniz.
Kullanıcı avatarı
adelphiforumz
Üye
Mesajlar: 602
Kayıt: 01 Nis 2008 05:38
Konum: İstanbul

Re: Blutooth Üzerinden RFID tag okuma

Mesaj gönderen adelphiforumz »

mkysoft yazdı: 03 Kas 2017 02:12 Comport 2 üzerinde çalışıyormuş, rfid aktif etmeniz için 3 bytlık bir veri göndermeniz gerekiyor. Yine API içinde example var, orada görebilirsiniz.
Selamlar mkysoft hocam
Benim şu anda aşamadığım sıkıntı comport aç dediğimde cihaz üzerinde "Error 2:No such file or directory" hatası alıyorum
bazı yerlerde manifest dosyasına aşağıdaki kodların eklenmesini öneriyorlar fakat denedim yinede olmadı
<uses-sdk android:minSdkVersion="14" android:targetSdkVersion="19" />
<uses-permission android:name="android.permission.WRITE_EXTERNAL_STORAGE" />

API'yi inceledim orda gönderilen 3 by veri kart varmı sorgusu eğer var ise kart numarası yok ise yok bilgisi döndürüyor.

Destekleriniz için tekrar tekrar teşekkür ederim.
Ehil olmayanlara sabretmek ehil olanları parlatır.
Akıllı birisinden gelen cefa, bilgisizlerin vefasından iyidir.
Bilgiye ulaştı mı ayak, kanat olur
Biz insanı kıyafetiyle ağırlar bilgisiyle uğurlarız.
Mevlana
mkysoft
Kıdemli Üye
Mesajlar: 3103
Kayıt: 26 Ağu 2003 12:35
Konum: Berlin
İletişim:

Re: Blutooth Üzerinden RFID tag okuma

Mesaj gönderen mkysoft »

Ben sizin yerinizde olsam önce android studio ile verilen örneği çalıştırmaya çalışırım. Başarılı olunca kullandığınız delphi versiyonunun kullandığı SDK'da çalışan bir halini denerim. Sonrasında bu işi FMX'de yapmaya çalışırım. FMX tarafında başarısız olsanız bile Android Studio ile yazacağınız kodları çağırma şansınız olacak. FMX içinden jar içindeki fonsiyonları çağırmaya yönelik örnekler vardı. Belki de cihazla ile gelen okuyucu uygulamasını bile kullanabilirsiniz.
Cevapla