如何获取系统中可用串口的名称 |
答題得分者是:hagar
|
justm
一般會員 發表:8 回覆:3 積分:2 註冊:2003-12-17 發送簡訊給我 |
|
hagar
版主 發表:143 回覆:4056 積分:4445 註冊:2002-04-14 發送簡訊給我 |
http://www.bsdg.org/SWAG/DELPHI/0394.PAS.html
> I'm Looking For a Routine to get the number of serial ports in a > machine, There is a function GetSerialPortList but Not in Delphi > Unit Files or any C Header File What function can I use....? ...and here is it - the best function for that! function SerialAvail(ComPort : integer) : boolean; const UsedComm : array[0..5] of char = 'COMx'; var H : integer; {$IFNDEF VER80} i : integer; CommConfig : TCommConfig; {$ENDIF} begin SerialAvail:=false; UsedComm[3]:=chr(ComPort $31); {$IFDEF VER80} { Win 3.x } H:=OpenComm(@UsedComm,256,256); if H>=0 then begin CloseComm(H); SerialAvail:=true; end; {$ELSE} { Win95/NT } H:=CreateFile(UsedComm,GENERIC_READ or GENERIC_WRITE, 0,nil,OPEN_EXISTING,FILE_ATTRIBUTE_NORMAL,0); if H<>INVALID_HANDLE_VALUE then begin CloseHandle(H); SerialAvail:=true; end; GetLastError; {$ENDIF} end;-- 悟嗎? |
justm
一般會員 發表:8 回覆:3 積分:2 註冊:2003-12-17 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |