線上訂房服務-台灣趴趴狗聯合訂房中心
發文 回覆 瀏覽次數:3645
推到 Plurk!
推到 Facebook!

再問有關刷卡機的問題

答題得分者是:shinnuei
jhlin88
一般會員


發表:21
回覆:28
積分:9
註冊:2002-10-17

發送簡訊給我
#1 引用回覆 回覆 發表時間:2005-11-15 18:19:08 IP:211.23.xxx.xxx 未訂閱
不好意思,爬過文章後,仍然不知道以下幾句話,要如何做@@ 之前的文章:http://delphi.ktop.com.tw/topic.php?TOPIC_ID=44040 下面為要送的資料格式: STX-->CHR(2) ETX-->CHR(3) DATA-->共144個字 [Data ] LRC如下說明: Lrc : Exclusive-Or All Bytes Of Data & Etx (Stx Not Include). LRC要如何寫呢?對於這個部份能否能請大大給點意見~"~ 寫程式是為了讓生活更精彩
------
JamesLin
jhlin88
一般會員


發表:21
回覆:28
積分:9
註冊:2002-10-17

發送簡訊給我
#2 引用回覆 回覆 發表時間:2005-11-18 10:29:00 IP:211.23.xxx.xxx 未訂閱
不好意思,上面的問題,經過與廠商確認lrc的演算法後,總算可以送出正確的指令,不過遇到另一個問題: 小弟是使用TComport的元件來送指令,要如何在送完之後,等待刷卡機送回指令?經過查詢之前的文章後,有用到下面的事件: procedure TForm1.ComPortRxChar(Sender: TObject; Count: Integer); var Str: String; begin ComPort.ReadStr(Str, Count); Memo.Text := Memo.Text Str; end; 廠商說會送回來147長度的字串,我這樣寫對嗎(因為送回來的字串變成590) 另外,要如何利用這個Comport元件送出後,做到動作如下: 傳送字串給刷卡機----->等待刷卡機回應字串------>收到後解析 因為小弟不知道它什麼時候回傳完畢@@,能否請各位大大給點意見,謝謝。 寫程式是為了讓生活更精彩
------
JamesLin
leeonsoft
一般會員


發表:0
回覆:1
積分:0
註冊:2007-05-13

發送簡訊給我
#3 引用回覆 回覆 發表時間:2007-05-13 18:10:36 IP:58.34.xxx.xxx 訂閱
能告訴我LRC是如何計算出來的嘛?,下麵好像不正確!
var
Longkey: string;
I: Integer;
Next: char;
begin
for I := 1 to length(Stri) do
begin
Next := chr((ord(Stri[i]) xor ord(chr(3))));
Result := Result Next;
end;
ShowMessage(Result);
end;


shinnuei
一般會員


發表:32
回覆:48
積分:21
註冊:2002-03-13

發送簡訊給我
#4 引用回覆 回覆 發表時間:2007-12-03 14:46:43 IP:59.125.xxx.xxx 訂閱

[code delphi]
FUNCTION TForm1.Lrc(aString: STRING; aLength: integer): Byte;
VAR i: integer;
ret: integer;
BEGIN
ret := $0;
FOR i := 0 TO aLength DO
BEGIN
ret := ret XOR byte(aString[i]);
END;
result := ret;
END;

[/code]
你試試看這樣可不可以
系統時間:2017-12-17 12:11:05
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!