劃卡讀卡機的問題 |
答題得分者是:terrychen
|
junlin
初階會員 發表:66 回覆:94 積分:42 註冊:2002-03-13 發送簡訊給我 |
|
terrychen
尊榮會員 發表:90 回覆:794 積分:501 註冊:2003-05-01 發送簡訊給我 |
您好:
以我們公司而言是利用,讀卡機所附的元件來做,但型號跟你不同,提供你一些我們的程式希望對你有幫助
CComm1.Open := False; CComm1.ComPort := StrToInt(sComPort); CComm1.Protocol := sProtocol; // Open Com Port OpenComPort; // Rest Scanner // CComm1.Flush; CComm1.SendCommand('SRST'); CComm1.SendCommand('THR=' IntToStr(edTHR.Value)); if cbPrint.Checked then CComm1.SendCommand('PRN$ 1 Y ') else CComm1.SendCommand('PRN$ 1 N 1'); GetValidate; JustStart := 1; // load Form CComm1.SendQSTS;這是怎ㄇ讓讀卡機動,至於一些資料的轉換,你寫在元件的事件裡,試試看 ~~應無所住而生其心~~ |
junlin
初階會員 發表:66 回覆:94 積分:42 註冊:2002-03-13 發送簡訊給我 |
現在我的source如下,但是我在按讀卡機上的start時,並不會收到任何的回傳data,
也不知道是哪裡有了問題,我有用portmon去看,但是卻完全看不懂@_@ procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
comm1.StopComm;//關閉窗體時,將comm1控件關閉。
end; procedure TForm1.Comm1ReceiveData(Sender: TObject; Buffer: Pointer;
BufferLength: Word);
var s: string;
begin
SetLength(S, BufferLength);
Move(Buffer^, PChar(S)^, BufferLength);
Memo1.Lines.Add(S);
Memo1.Invalidate;
end; procedure TForm1.Comm1ReceiveError(Sender: TObject; EventMask: Cardinal);
begin
showmessage('receiveerror');
end; procedure TForm1.FormCreate(Sender: TObject);
begin
comm1.StopComm;//關閉窗體時,將comm1控件關閉。
Comm1.startcomm;//創建窗體時,將comm1控件打開。
end;
|
terrychen
尊榮會員 發表:90 回覆:794 積分:501 註冊:2003-05-01 發送簡訊給我 |
|
junlin
初階會員 發表:66 回覆:94 積分:42 註冊:2002-03-13 發送簡訊給我 |
|
terrychen
尊榮會員 發表:90 回覆:794 積分:501 註冊:2003-05-01 發送簡訊給我 |
|
bbtw
一般會員 發表:2 回覆:31 積分:16 註冊:2003-07-11 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |