不好意思，爬過文章後，仍然不知道以下幾句話，要如何做@@ 之前的文章：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

不好意思，上面的問題，經過與廠商確認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

能告訴我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;

[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]
你試試看這樣可不可以