小弟現在手上有一台刷卡機，但是試了好久就是無法控制它進行交易，請各位大大幫忙看看。 1.傳輸規格 ASYNC.9600, 7 data-bit, Even parity, 1 Stop-bit. 2.採固定長度資料送收 Total 144 byte 不用之欄位填"0" 3.資料傳輸協定 資料封包格式定義(Message Block Format) STX DATA ETX LRC DATA message data to be sent LRC exclusive-OR bytes from DATA to ETX STX = 0x02 ETX = 0x03 我寫了以下的程式作測試，但它就是不動。 unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Comms; type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.DFM} procedure TForm1.Button1Click(Sender: TObject); var i: integer; P,sP: string; ComPort,ComPort1: TComPort; begin ComPort := TComPort.Create(nil); ComPort.Port := TPortType(sInvComPort-1); ComPort.WriteBufSize:=0; try ComPort.Open; except raise Exception.Create('請確認刷卡機有否安裝好!'); end; P:=''; p:=p '01';//trans_type p:=p '0000000000000000000000000000000';//host_id receipt_no card_no date_exp p:=p '0000000100000';//trans_amount p:=p '000000000000000000000';//trans_date trans_time approval_no p:=p '000000000000000000000000';//auth_amount resp_code terminal_id p:=p '0000000000000000000000000000000000000';//ref_no exp_amount vip_card offset amount p:=p 'AA00000001';//invoice p:=p '0000000';//filler ComPort.WriteString(chr(2) P chr(3), True); Comport.free; end; end.

你好像沒有送 LRC 吧!!

LRC 要送什麼?

你自已不是Post出來嗎 ?     LRC exclusive-OR bytes from DATA to ETX 就是將 DATA到ETX的資料做XOR 運算後的值.

那請問一下有沒有可以取得字串的ascii碼的函數。

var 
   s : String;
   i : Integer;
   bb : BYTE;
begin
   s := '1234';
   for i := 1 to Length(s) do
   begin
      bb := BYTE(s[i]);
      ShowMessage(intToStr(bb));
   end;
end;