全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數:6498
推到 Plurk!
推到 Facebook!

Delphi如何使用rs232

答題得分者是:max5020
mcho_60461
一般會員


發表:16
回覆:23
積分:7
註冊:2006-07-31

發送簡訊給我
#1 引用回覆 回覆 發表時間:2008-04-13 14:07:50 IP:203.79.xxx.xxx 訂閱
請問大大:
Delphi如何使用rs232 ,我沒用過有關rs232的功能,可否指點使用SendCmd()
需uses那一檔案。
謝謝!
------
mcho
mypigbaby
高階會員


發表:11
回覆:166
積分:150
註冊:2006-07-20

發送簡訊給我
#2 引用回覆 回覆 發表時間:2008-04-14 09:18:06 IP:203.73.xxx.xxx 未訂閱
豬寶寶是用
TurboPower Async Professional
去控制RS232的
給您參考看看


pedro
尊榮會員


發表:152
回覆:1177
積分:865
註冊:2002-06-12

發送簡訊給我
#3 引用回覆 回覆 發表時間:2008-04-14 09:24:24 IP:60.248.xxx.xxx 未訂閱
在本站使用CPort關鍵字去搜尋,會找到不少的貼文

有一本絕版書,可以到各大圖書館或各大校園裡的圖書館找找
http://www.sanmin.com.tw/page-product.asp?pf_id=000291345
max5020
資深會員


發表:26
回覆:275
積分:320
註冊:2003-06-04

發送簡訊給我
#4 引用回覆 回覆 發表時間:2008-04-16 11:26:37 IP:59.120.xxx.xxx 訂閱
mcho_60461
一般會員


發表:16
回覆:23
積分:7
註冊:2006-07-31

發送簡訊給我
#5 引用回覆 回覆 發表時間:2008-04-19 10:24:39 IP:203.79.xxx.xxx 訂閱
max5020:你好!
謝謝你的回應,請問:spcomm這個元件如何使用?
免費的我想用用看!但不會用可否指教或給一個範例 !

===================引 用 max5020 文 章===================
http://delphi.ktop.com.tw/board.php?cid=31&fid=77&tid=90212
我都是用spcomm, 免費的哦!!
------
mcho
max5020
資深會員


發表:26
回覆:275
積分:320
註冊:2003-06-04

發送簡訊給我
#6 引用回覆 回覆 發表時間:2008-04-21 09:46:45 IP:59.120.xxx.xxx 訂閱
http://delphi.ktop.com.tw/board.php?cid=30&fid=73&tid=53595
參考這篇,
以後請多用搜尋!!!
===================引 用 mcho_60461 文 章===================
max5020:你好!
謝謝你的回應,請問:spcomm這個元件如何使用?
免費的我想用用看!但不會用可否指教或給一個範例 !

===================引 用 max5020 文 章===================
http://delphi.ktop.com.tw/board.php?cid=31&fid=77&tid=90212
我都是用spcomm, 免費的哦!!
leida232
一般會員


發表:0
回覆:1
積分:0
註冊:2008-08-29

發送簡訊給我
#7 引用回覆 回覆 發表時間:2008-08-29 14:10:51 IP:123.113.xxx.xxx 訂閱
RS232 雷达软件代码用t2port.pas:www.88leida.com/delphi/rapierspeed2008v10b.zip (800kb)

9600,n,1

myPort.OpenPort('COM2');
myPort.SendData('21 06 02'); // (3 bytes)
if myPort.GetDataLTime(1,temp,'06',50) then
begin
...
end;
myPort.ClosePort;


// Oncoming FC FA SPD LEN
if MyPort.GetData(1,temp,'FC',false) then
begin
Form1.Panel3.Caption:='--- km/h';
Form1.Button2.Click;
end;


if MyPort.GetData(3,temp,'FA') and (Form1.Panel3.Caption='--- km/h') then // read 3 bytes if starting with $FA
begin
Form1.Panel3.Caption:=IntToStr(temp[1]) ' km/h';

if Form1.ListBox1.Items.Count>100 then Form1.ListBox1.Clear;
Form1.ListBox1.Items.Add(GETTME(1) ' ' Form1.Panel3.Caption);

form2.Image1.Canvas.TextOut(5,5,Form1.ListBox1.Items[Form1.ListBox1.Items.Count-1]);
if Form1.checkBox1.checked then Form1.Button3.Click;
end;

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