tôi đang viết một ứng dụng truyền nhận qua cổng COM trên delphi. Tôi muốn làm một cái list box liệt kê các cổng COM tồn tại trên máy tính và tình trạng của nó (có rảnh không hay là đã bị một thằng khác chiếm rồi). Bạn nào có thể giúp tôi không?
Thông báo
Collapse
No announcement yet.
làm sao biết trên máy có mấy cổng COM??
Collapse
X
-
Nguyên văn bởi plain Xem bài viếttôi đang viết một ứng dụng truyền nhận qua cổng COM trên delphi. Tôi muốn làm một cái list box liệt kê các cổng COM tồn tại trên máy tính và tình trạng của nó (có rảnh không hay là đã bị một thằng khác chiếm rồi). Bạn nào có thể giúp tôi không?
Cách 2 : click chuột phải trên biểu tượng My computer trên desktop -> properties -> hardware -> device manager -> port
Goodluck.--->
-
bác có cách nào để chương trìnhn tự động làm việc này cho mình không? ý tôi là thay vì bạn phải tự vào device manager kiểm tra rồi mới viết viết chương trình thì có cách nào để chương trình tự kiểm tra không?
Giống như chương trình Terminal của bác phamthaihoa gửi ấy. Tôi chạy chương trình này trên máy có 1 cổng COM1 => chỉ có radio COM1 được enable, chạy chương trình trên máy có 2 cổng COM => COM1 & COM2 enable. Chạy chương trình trên máy có 2 cổng COM nhưng cổng COM1 đã bị ứng dụng khác chiếm => chỉ có COM2 enable.
Rất mong các bác chỉ giáo. Tôi xin cảm ơn nhìu nhìu.
Comment
-
tôi mới tìm thấy cái này. tiếc là vẫn chưa thực hiện việc kiểm tra tình trạng của cổng được.
Code:with TRegistry.create do try rootkey:=HKEY_LOCAL_MACHINE; if keyexists('HARDWARE') then if openkey('HARDWARE',false)then if keyexists('DEVICEMAP') then if openkey('DEVICEMAP',false)then if keyexists('SERIALCOMM') then if openkey('SERIALCOMM',false)then begin GetValueNames(cmbPort.Items); for i := 0 to cmbPort.Items.Count - 1 do cmbPort.items[i] := ReadString(cmbPort.Items[i]); end finally free; end;
Comment
-
Nguyên văn bởi plain Xem bài viếttôi đang viết một ứng dụng truyền nhận qua cổng COM trên delphi. Tôi muốn làm một cái list box liệt kê các cổng COM tồn tại trên máy tính và tình trạng của nó (có rảnh không hay là đã bị một thằng khác chiếm rồi). Bạn nào có thể giúp tôi không?
Try
...
Catch
...
end try
Bạn dùng có pháp này để mở lần lượt từng cổng COM. Nếu mở được tức là nó tồn tại và còn rỗi. Còn ngược lại là bận thôi.
Comment
-
Để biết PC có mấy cổng COM , ta có thể Theo Giải thuật này (mình dùng VISUAL BASIC- nên không biết có Ích không ,nhưng POST lên , hy vọng có chút ích về GIẢI THUẬT) .
Ở đây ,mình chọn tối đa là có 4 cổng COM , sau khi KIỂM TRA ,sẽ biết được mấy cổng COMTồn Tại:
Private Function ValidatePort() As Boolean
Dim i As Integer
On Error Resume Next
ValidatePort = False
With MSComm1
For i = 4 To 1 Step -1
.CommPort = i
Err.Clear
.PortOpen = True
If (Err.Number <> 0) Then
mnuCom(i).Enabled = False
Else
ValidatePort = True
.PortOpen = False
End If
Next i
End With
End Function
Private Sub Form_Load()
If Not ValidatePort Then
MsgBox "Khong ton tai cong COM nao trong may tinh cua ban", , "Thong bao"
End
End If
End SubMy department's Website: www4.hcmut.edu.vn/~thietbidien/trangchu
Motorola-FreeScale's MCU 68HC11 & HCS12X Supporter
Comment
-
cảm ơn bác phamthaihoa và bác hoanglongu.
đoạn mã mà mình post ở trên có thể cho biết trên máy có mấy cổng COM (kể cả COM ảo, USB to COM). Mình sẽ kết hợp đoạn mã mình tìm được với kỹ thuật mà các bác hướng dẫn để phát hiện cổng COM nào đang bị chiếm. Có điều mình vẫn chưa biết cách dùng câu lệnh mà bác phamthaihoa đã chỉ ra, phải mất thêm một chút thời gian nghiên cứu nữa mới được.
chào các bác
Comment
-
Nguyên văn bởi hoanglongu Xem bài viếtĐể biết PC có mấy cổng COM , ta có thể Theo Giải thuật này (mình dùng VISUAL BASIC- nên không biết có Ích không ,nhưng POST lên , hy vọng có chút ích về GIẢI THUẬT) .
Ở đây ,mình chọn tối đa là có 4 cổng COM , sau khi KIỂM TRA ,sẽ biết được mấy cổng COMTồn Tại:
Comment
-
Nguyên văn bởi duong_act Xem bài viếtLaptop bây giờ ko có USB=> COM thì làm gì còn COM nữa .
Comment
-
Nguyên văn bởi tranthangbk Xem bài viếtem thấy trên laptop vẫn có 1 cổng có 25 chân. thường để cắm ra máy chiếu, vậy đấy là công j vậy ak?
Comment
-
Nguyên văn bởi tranthangbk Xem bài viếtem thấy trên laptop vẫn có 1 cổng có 25 chân. thường để cắm ra máy chiếu, vậy đấy là công j vậy ak?
nếu là 25 chân là lpt, cổng song song cho máy in.
nếu là 15 chân là vga, cổng video gắn cho màng hình rời.Mãi đi tìm vàng.
Comment
Bài viết mới nhất
Collapse
-
bởi SchwarberyAs we take nearer and nearer toward the get started of the 2022-2023 period, pundits are gearing up with period previews and thorough assessments. Listed here at St. Louis Match Year, the divisional preview is inside of the functions as is a function-down of where by media voices come to feel the Blues...
-
Channel: Xu hướng, nhu cầu và thị trường
hôm nay, 16:59 -
-
bởi SchwarberyThe Have to have in the direction of KnowsTime: 6:00 pm PT / 9:00 pm ETThe Area: Rogers Vacation spot within Edmonton, AlbertaWhere in direction of Perspective: ROOT-NW inevitably again toward our nearby workforce!) or ESPN+ if out of marketWhere in direction of Hear: KJR 93. 3Comprehend Your EnemyIf...
-
Channel: Góp ý cho diễn đàn
hôm nay, 16:59 -
-
bởi SchwarberyNashville Predators Information NotesNashville Predators 4, Chicago Blackhawks 2: Josi sets heritage within just potent workers earn | Upon The ForecheckICYMI: Adhere faucets for El Capitan upon turning into the franchise chief in just Hockey Information NotesIs Carolina Hurricanes GM Dress in Waddell...
-
Channel: Hướng dẫn sử dụng diễn đàn
hôm nay, 16:58 -
-
bởi SchwarberyAnaheim DucksMarch 18: Center Sam Metallic is again at the time misplaced 3 video games with a facial CoyotesMarch 14: Remaining winger Antoine Roussel consists of been positioned upon hurt guide with a very low-system problems. Defenceman Jakob Chychrun consists of been sidelined indefinitely with...
-
Channel: Hỗ trợ học tập
hôm nay, 16:58 -
-
bởi SchwarberyThe Canucks incorporate entered the entertaining aspect of the calendar year. The chill out of December is loaded with Western convention competition. Every single recreation is a 3 or 4 reality swing inside of the standings. The final sport in opposition to the Wild was.. https://www.shopvancouver...
-
Channel: Góp ý cho diễn đàn
hôm nay, 16:56 -
-
Trả lời cho Hỏi xin sơ đồ tivi các loạibởi Trân thànhCần các Bạn giúp sơ đồ Lcd Samsung UA40JU6400 và UA43ku6500k. Xin cảm ơn!...
-
Channel: Điện tử truyền hình
Hôm qua, 16:07 -
-
Trả lời cho Hỏi xin sơ đồ tivi các loạibởi Trân thànhCần các Bạn giúp sơ đồ Lcd Samsung UA40JU6400 và UA43ku6500k. Xin cảm ơn!...
-
Channel: Điện tử truyền hình
Hôm qua, 16:01 -
-
bởi chinhnguyen9Hoạt động của thế hệ mạch cân bằng trước đây dựa trên nguyên lý so áp giữa 2 string liền kề. Hoạt động cân bằng chỉ kích hoạt khi sự chênh lệch vượt ngưỡng 100mV và ngưng hoạt động khi mức chênh lệch giảm xuống còn 30mV. Bản...
-
Channel: Điện tử dành cho người mới bắt đầu
27-04-2024, 05:07 -
-
bởi chinhnguyen9Xem hình minh họa có phần thuyết minh bên trong tiện việc quan sát và đọc thuyết minh. Khi G1 high dòng điện chạy theo các đường màu đen khi G2 high dòng điện chạy theo các đường màu nâu đỏ.
Bổ sung một tính chất củng cố cho tên gọi tụ bay: Trong mạch đề cập chỉ...-
Channel: Điện tử dành cho người mới bắt đầu
26-04-2024, 21:02 -
-
bởi chinhnguyen9Sản phẩm này ghi version 2.0 01-2024 MADE IN CHINA nhưng không thấy thương hiệu hình 1
Do 8 chân G của 8 mosfet được đấu song song thành 2 nhóm nên có cùng biên độ xung kích 12V. Nhưng Q1 và Q2 nằm cuối dãy, chân S cùa chúng có điện áp DC cao đến...-
Channel: Điện tử dành cho người mới bắt đầu
26-04-2024, 20:37 -
Comment