Blutooth Üzerinden RFID tag okuma
- adelphiforumz
- Üye
- Mesajlar: 602
- Kayıt: 01 Nis 2008 05:38
- Konum: İstanbul
Blutooth Üzerinden RFID tag okuma
Selamlar
RFID Taglerin sadece ID sini bluetooth üzerinden nasıl okuyabilirim
Bu konuda bilgisi olan varmıdır
Teşekkürler
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
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
Re: Blutooth Üzerinden RFID tag okuma
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?
- adelphiforumz
- Üye
- Mesajlar: 602
- Kayıt: 01 Nis 2008 05:38
- Konum: İstanbul
Re: Blutooth Üzerinden RFID tag okuma
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
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
Re: Blutooth Üzerinden RFID tag okuma
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.
- adelphiforumz
- Üye
- Mesajlar: 602
- Kayıt: 01 Nis 2008 05:38
- Konum: İstanbul
Re: Blutooth Üzerinden RFID tag okuma
Selamlarmkysoft 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.
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
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
Re: Blutooth Üzerinden RFID tag okuma
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.
- adelphiforumz
- Üye
- Mesajlar: 602
- Kayıt: 01 Nis 2008 05:38
- Konum: İstanbul
Re: Blutooth Üzerinden RFID tag okuma
Selamlarmkysoft 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.
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
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
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
Re: Blutooth Üzerinden RFID tag okuma
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.
- adelphiforumz
- Üye
- Mesajlar: 602
- Kayıt: 01 Nis 2008 05:38
- Konum: İstanbul
Re: Blutooth Üzerinden RFID tag okuma
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
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
Re: Blutooth Üzerinden RFID tag okuma
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.