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

如何利用Delphi 寫開啟COM PORT

缺席
lovemari
中階會員


發表:134
回覆:224
積分:76
註冊:2005-08-18

發送簡訊給我
#1 引用回覆 回覆 發表時間:2009-05-04 17:18:30 IP:122.116.xxx.xxx 訂閱
小弟需要一各Botton 的功能是

點擊第一次 開啟指定的COM PORT
點擊第二次 關閉指定的COM PORT

請問 該怎麼寫呢??
------
Program : Delphi 7
DataBase : Oracle 9i
Client : ClientDataSet
pcplayer99
尊榮會員


發表:146
回覆:790
積分:632
註冊:2003-01-21

發送簡訊給我
#2 引用回覆 回覆 發表時間:2009-05-05 11:34:13 IP:58.60.xxx.xxx 訂閱
控制 COM PORT 的控件有很多,你在网上搜一下。直接用控件就可以完成你要的。
lovemari
中階會員


發表:134
回覆:224
積分:76
註冊:2005-08-18

發送簡訊給我
#3 引用回覆 回覆 發表時間:2009-05-05 13:19:43 IP:122.116.xxx.xxx 訂閱
屙...大大我搜尋過 COM PORT 還有去過GOOGLE

還是得不到一各所以然的答案耶

能不能告訴我一各簡單的COM PORT 開啟方法

好像是有元件 可以直接指定開啟?
------
Program : Delphi 7
DataBase : Oracle 9i
Client : ClientDataSet
lovemari
中階會員


發表:134
回覆:224
積分:76
註冊:2005-08-18

發送簡訊給我
#4 引用回覆 回覆 發表時間:2009-05-05 13:44:45 IP:122.116.xxx.xxx 訂閱
找到了
我找到SPCOMM元件

並且成功開啟COM PORT了

那想請問一各小問題
我有各BUTTON 是開啟 我希望
按第一下是開啟 按第二下是關閉
想請問這樣該怎麼寫呢??
------
Program : Delphi 7
DataBase : Oracle 9i
Client : ClientDataSet
lovemari
中階會員


發表:134
回覆:224
積分:76
註冊:2005-08-18

發送簡訊給我
#5 引用回覆 回覆 發表時間:2009-05-05 15:15:26 IP:122.116.xxx.xxx 訂閱
上述也完成了= =

想在請教的是
如何在程式開啟的時候
會去抓現有PC已存在的COM PORT 然後
寫在ComboBox.Item 裡面呢

------
Program : Delphi 7
DataBase : Oracle 9i
Client : ClientDataSet
lovemari
中階會員


發表:134
回覆:224
積分:76
註冊:2005-08-18

發送簡訊給我
#6 引用回覆 回覆 發表時間:2009-05-05 18:42:18 IP:122.116.xxx.xxx 訂閱
我在

HKEY_LOCAL_MACHINE\\HARDWARE\\DEVICEMAP\\SERIALCOMM

找到COM PORT了

請教 該怎麼寫入 ComboBox 呢?
------
Program : Delphi 7
DataBase : Oracle 9i
Client : ClientDataSet
lovemari
中階會員


發表:134
回覆:224
積分:76
註冊:2005-08-18

發送簡訊給我
#7 引用回覆 回覆 發表時間:2009-05-06 10:30:35 IP:122.116.xxx.xxx 訂閱
我查到了 也寫好了

在此獻給大家做參考


[code delphi]
procedure TForm1.Button11Click(Sender: TObject);
var
Reg: TRegistry;
begin
Reg := TRegistry.Create;
try
Reg.Rootkey := HKEY_LOCAL_MACHINE;
if Reg.OpenKey('\HARDWARE\DEVICEMAP\SERIALCOMM', True) then
begin
if Reg.ReadString('\Device\porte1') <> '' then begin
Combobox2.Items.Add(Reg.ReadString('\Device\porte1'));
end;
end;
finally
Reg.Closekey;
Reg.Free;
end;
end;
[/code]
------
Program : Delphi 7
DataBase : Oracle 9i
Client : ClientDataSet
系統時間:2024-05-17 4:46:31
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!