全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數:2779
推到 Plurk!
推到 Facebook!

如何讀取RFID數據?

缺席
stars_chen
一般會員


發表:14
回覆:35
積分:9
註冊:2006-10-29

發送簡訊給我
#1 引用回覆 回覆 發表時間:2007-05-09 17:15:32 IP:218.104.xxx.xxx 訂閱
各位大大幫幫忙,有知道怎麽讀取RFID數據的嗎?
我是要通過COM口來讀取數據.
現在發現一個問題就是我在連接好COM口的關態下接通電源和RFID連上可讀出一次數據,但之後就讀不出來.
只有在斷來電源再接通電源後又可以讀出一次數據.
知道這是為什麽嗎?還是在通過什麽命令來再次接收呢?
我有看說明文檔,但是我通過COM口傳入命令RFID沒有什麽反應.
我附上說明檔,我用的是那ASCII.PDF方式的.
知道的大大們看看,急呀!

下面是我寫DELPHI的源代碼.
unit RFID_Unit;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, CPort, StdCtrls, ExtCtrls;

type
TRFID_Frm = class(TForm)
Panel1: TPanel;
Memo1: TMemo;
Button1: TButton;
Label1: TLabel;
E_INPUT: TEdit;
ComPort1: TComPort;
Button2: TButton;
procedure Button2Click(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure ComPort1RxChar(Sender: TObject; Count: Integer);
procedure E_INPUTKeyPress(Sender: TObject; var Key: Char);
private
{ Private declarations }
public
{ Public declarations }
end;

var
RFID_Frm: TRFID_Frm;

implementation
{$R *.dfm}
procedure TRFID_Frm.Button2Click(Sender: TObject);
begin
try
ComPort1.Close;
ComPort1.ShowSetupDialog;
ComPort1.Open;
E_INPUT.SetFocus;
except
end;
end;

procedure TRFID_Frm.FormShow(Sender: TObject);
begin
E_INPUT.SetFocus;
ComPort1.Open;
end;

procedure TRFID_Frm.Button1Click(Sender: TObject);
var
vStr: string;
begin
try
vStr := Trim(E_INPUT.Text);
ComPort1.WriteStr(vStr);
E_INPUT.SetFocus;
E_INPUT.SelectAll;
except
end;
end;

procedure TRFID_Frm.ComPort1RxChar(Sender: TObject; Count: Integer);
var
vStr: string;
begin
try
vStr := '';
if Comport1.Connected then
begin
sleep(300);
Comport1.ReadStr(vStr, 1024);
end;
if trim(vStr) <> '' then
memo1.Lines.Add(vStr);
except
on e: exception do
begin
memo1.Lines.Add('Read Com Data Error:' e.Message);
end;
end;
end;

procedure TRFID_Frm.E_INPUTKeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then
Button1Click(nil);
end;

end.

暗黑破壞神
版主


發表:9
回覆:2301
積分:1627
註冊:2004-10-04

發送簡訊給我
#2 引用回覆 回覆 發表時間:2007-05-09 18:13:00 IP:220.131.xxx.xxx 未訂閱
你好好把 ASCII.pdf 讀個十遍就知道了。^_^
加油
stars_chen
一般會員


發表:14
回覆:35
積分:9
註冊:2006-10-29

發送簡訊給我
#3 引用回覆 回覆 發表時間:2007-05-11 17:40:47 IP:218.104.xxx.xxx 訂閱
問題解決了!
系統時間:2017-10-23 17:43:57
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!