Delphi Dünyası Facebook'ta

Duyurular

Kodbank İndir

! CODEBANK 2012 !

İNDİRMEK&DETAYLI BİLGİ ALMAK İÇİN BURAYI TIKLAYINIZ.

« önceki sonraki »
Sayfa: [1]   Aşağı git

Gönderen Konu: Kullanılabilir Portlar  (Okunma sayısı 1624 defa)

0 Üye ve 1 Ziyaretçi konuyu incelemekte.

Çevrimdışı CMNSOFT

  • Delphi 2 Level 4
  • ****
  • İleti: 82
  • Rep: +2/-2
  • Cinsiyet: Bay
    • http://www.cmnsoft.com
Kullanılabilir Portlar
« : 13 Ekim 2005 19:48:56 »
Kod:  (Unknown Language)
  1. Function ComPortAvailable(Port: PChar): Boolean;
  2.  
  3. Var
  4.  
  5.    DeviceName: Array[0..80] Of Char;
  6.  
  7.    ComFile: THandle;
  8.  
  9.  
  10.  
  11. Begin
  12.  
  13. StrPCopy(DeviceName, Port);
  14.  
  15.  
  16.  
  17. ComFile:= CreateFile(DeviceName, GENERIC_READ Or GENERIC_WRITE, 0, Nil,
  18.  
  19.                      OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);
  20.  
  21.  
  22.  
  23. Result&#58;= ComFile <> INVALID_HANDLE_VALUE;
  24.  
  25. CloseHandle&#40;ComFile&#41;;
  26.  
  27. End;








Kullanım Şekli

Kod:  (Unknown Language)
  1. Procedure TForm1.Button1Click&#40;Sender&#58; TObject&#41;;
  2.  
  3. Begin
  4.  
  5. If ComPortAvailable&#40;'COM1&#58;'&#41; Then
  6.  
  7.    ShowMessage&#40;'Port Kullan&#305;labilir'&#41;
  8.  
  9. Else
  10.  
  11.    ShowMessage&#40;'Port Kullan&#305;lamaz'&#41;;
  12.  
  13. End;
Kayıtlı
:::::::::::::::::::: www.CMNSOFT.com ::::::::::::::::::::
Sayfa: [1]   Yukarı git
« önceki sonraki »