請教高手 有誰知道 出據機 TM-T88III 控制碼? |
|
尚未結案
|
|
sl0215
一般會員   發表：4 回覆：4 積分：1 註冊：2004-10-27 發送簡訊給我 |
|
|
㊣
版主   發表：261 回覆：2302 積分：1667 註冊：2005-01-04 發送簡訊給我 |
|
|
sl0215
一般會員 發表：4 回覆：4 積分：1 註冊：2004-10-27 發送簡訊給我 |
|
|
暗黑破壞神
版主  發表：9 回覆：2301 積分：1627 註冊：2004-10-04 發送簡訊給我 |
|
|
㊣
版主 發表：261 回覆：2302 積分：1667 註冊：2005-01-04 發送簡訊給我 |
不好意思,呵~~我以為User manual 裡就會有了,沒有詳細看. http://www.rd-agentur.de/download/dateien/12_1461_TM-T88III_spc_e.pdf#search='TMT88III' 這裡你看看吧,我看過了.有他的interface(232,485...等),code,configuration,Option,Control command....
還有一些特性 K完它,應該就OK了!
------
------------------------------------------------------------------------- 走是為了到另一境界，停是為了欣賞人生；未走過千山萬水，怎知生命的虛實與輕重！？ |
|
sl0215
一般會員 發表：4 回覆：4 積分：1 註冊：2004-10-27 發送簡訊給我 |
謝謝!! 請問 一下有沒有 Delphi 範例程式 不知用delphi 怎麼控制?
引言: 不好意思,呵~~我以為User manual 裡就會有了,沒有詳細看. http://www.rd-agentur.de/download/dateien/12_1461_TM-T88III_spc_e.pdf#search='TMT88III' 這裡你看看吧,我看過了.有他的interface(232,485...等),code,configuration,Option,Control command.... 還有一些特性 K完它,應該就OK了! |
|
暗黑破壞神
版主 發表：9 回覆：2301 積分：1627 註冊：2004-10-04 發送簡訊給我 |
|
|
wayne_cheng
一般會員 發表：1 回覆：19 積分：14 註冊：2002-07-10 發送簡訊給我 |
|
|
ph
一般會員 發表：3 回覆：27 積分：11 註冊：2003-09-28 發送簡訊給我 |
1.先對Com port作初始化
procedure OpenCom;
Var cb:dcb;
S:String;
lrc:Dword;
vCom:String;
hComm:THandle;
begin
vCom:=INI_LOAD_STR2(vPath '\' 'POS.INI', 'POS','COMPORT','COM1'); hComm:=CreateFile(PChar(vCom),Generic_Read OR Generic_Write, 0, nil, OPEN_EXISTING,FILE_ATTRIBUTE_NORMAL, 0);
if hComm = INVALID_HANDLE_VALUE then
begin
Showmessage('RS-232¶}±Ò¿ù»~');
CloseHandle(hcomm);
exit; end;
GetCommState(hComm,cb);//
cb.BaudRate:=CBR_9600;//³]©wÀj²v¬°9600
cb.ByteSize:=8;//³]©w¬°8bit
cb.Parity:=EVENPARITY;//³]©w¬°°¸¦P¦ì
cb.StopBits:=ONESTOPBIT;//³]©w¤@Ó°±¤î¦ì¤¸ if Not SetCommState(hComm,cb) then
begin
Showmessage('SetCommState ¥¢±Ñ');
CloseHandle(hcomm);
exit;
end
else
begin
CloseHandle(hcomm); end;
end;
2.用寫檔的方式把控制碼寫入
FUNCTION COMPORT_OUTLN(PortNAME,EXPRESS:STRING):BOOLEAN;
VAR TF :TEXTFILE;
BEGIN
RESULT := FALSE;
IF TEST_OPEN_FILE(PortNAME) = TRUE THEN
BEGIN
TRY
AssignFile(TF,PortNAME); Rewrite(TF);
Writeln(TF,EXPRESS); CloseFile(TF);
RESULT := TRUE;
EXCEPT
SHOWMESSAGE('µLªk°e¥X¸ê®Æ!');
RESULT := FALSE;
END;
END;
END; PROCEDURE DSP_CTRL(EXPRESSION:STRING);
Var vCom:String;
BEGIN
vCom:=INI_LOAD_STR2(vPath '\' 'POS.INI', 'POS','COMPORT','COM1');
COMPORT_OUTLN(vCom,EXPRESSION);
// IF FormExists('FRDSP' )=TRUE THEN FRDSP.MEMO.Lines.Add( EXPRESSION );
END; 3.寫入控制碼
指令需要參考說明書(丟ASCii Code) ex.
DSP_CTRL(CHR(27) CHR(64)); // ESC @ 參考Delphi與 RS232 范逸之 陳立元邊著 文魁出版社 山即是我 我即是山
------
學了這麼久還是沒進步 |
發表時間：2005-04-14 13:27:13
IP:61.218.xxx.xxx 未訂閱
系統時間：2024-04-19 6:00:52
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |