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

Search com port

 
NextTime
一般會員


發表:12
回覆:4
積分:3
註冊:2002-03-16

發送簡訊給我
#1 引用回覆 回覆 發表時間:2002-04-25 11:16:31 IP:203.67.xxx.xxx 未訂閱
請問有無方法可以知道現在系統上有幾個Com port可用 下一次 一定會更好
------
下一次 一定會更好
領航天使
站長


發表:12216
回覆:4186
積分:4084
註冊:2001-07-25

發送簡訊給我
#2 引用回覆 回覆 發表時間:2002-04-25 19:07:50 IP:61.219.xxx.xxx 未訂閱
引言: 請問有無方法可以知道現在系統上有幾個Com port可用 下一次 一定會更好
以前BIOS有一個區域可以讀出有幾個Com port & port address, 在Windows下則不準,有些PCI的Com Port卡規格都不同, 在NT下讀Ram也是個問題! 不然就一個一個port開看看就知道存不存在了! ~~~Delphi K.Top討論區站長~~~
------
~~~Delphi K.Top討論區站長~~~
阿子
站務副站長


發表:120
回覆:230
積分:201
註冊:2002-03-18

發送簡訊給我
#3 引用回覆 回覆 發表時間:2002-04-25 23:27:11 IP:61.221.xxx.xxx 未訂閱
var
    UsedComm: array[0..5] of char = 'COMx';    {* ****************************** zSerialAvail ****************************** *}
{* =================================Blue Fox================================= *}
{* 目    的:  檢查通訊埠是否存在 (COM Port)
{* 關 鍵 字:
{* 輸 入 值:  ComPort: integer
{* 傳 回 值:  zSerialAvail:boolean
{* 呼 叫 式:
{* 說    明:   1. Borland Web
{* 日    期      由      注解
{* ----------    ----    -------
{* 2002/4/24     Levi
{* =================================Blue Fox==============================2.0 *}
 function zSerialAvail(ComPort: integer): boolean;
var H: integer;
begin
  result:= false;
  UsedComm[3] := chr(ComPort   $31);    {$IFDEF VER80} { Win 3.x }
  H := OpenComm(@UsedComm, 256, 256);
  if H >= 0 then
  begin
    CloseComm(H);
    result:= true;
  end;
{$ELSE} { Win95/NT }
  H := CreateFile(UsedComm, GENERIC_READ or GENERIC_WRITE,
    0, nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);
  if H <> -1 then
  begin
    CloseHandle(H);
    result:= true;
  end;
  GetLastError;
{$ENDIF}
end;
用看看巴。 阿子 從思考取勝一切~q 發表人 - 阿子 於 2002/04/26 18:04:01
------
從思考取勝一切~q
系統時間:2017-10-17 10:08:52
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!