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: Internet - Bağlantı Tipini Bulmak  (Okunma sayısı 2674 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
Internet - Bağlantı Tipini Bulmak
« : 10 Ekim 2005 19:39:05 »
Kod:  (Unknown Language)
  1.  
  2.  
  3. Function BaglantiTipi(): Boolean;
  4.  
  5. Var
  6.  
  7.    Flags: dWord;
  8.  
  9.  
  10.  
  11. Begin
  12.  
  13.  
  14.  
  15. Result:= InternetGetConnectedState(@Flags, 0);
  16.  
  17.  
  18.  
  19. If Result Then
  20.  
  21.    Begin
  22.  
  23.    If (Flags And INTERNET_CONNECTION_MODEM) = INTERNET_CONNECTION_MODEM Then
  24.  
  25.       ShowMessage('Bağlantı Tipi: Modem');
  26.  
  27.  
  28.  
  29.    If (Flags And INTERNET_CONNECTION_LAN) = INTERNET_CONNECTION_LAN Then
  30.  
  31.       ShowMessage('Bağlantı Tipi: Yerel Ağ');
  32.  
  33.  
  34.  
  35.    If (Flags And INTERNET_CONNECTION_PROXY) = INTERNET_CONNECTION_PROXY Then
  36.  
  37.       ShowMessage('Bağlantı Tipi: Proxy');
  38.  
  39.  
  40.  
  41.    If (Flags And INTERNET_CONNECTION_MODEM_BUSY)=INTERNET_CONNECTION_MODEM_BUSY Then
  42.  
  43.       ShowMessage('Bağlantı Tipi: Modem Busy');
  44.  
  45.   End;
  46.  
  47.  
  48.  
  49. End;
  50.  
  51.  






Kullanım Şekli



Kod:  (Unknown Language)
  1. Procedure TForm1.Button1Click(Sender: TObject);
  2.  
  3. Begin
  4.  
  5.  BaglantiTipi();
  6.  
  7. End;




  Edit by cmnsoft.com 2005
Kayıtlı
:::::::::::::::::::: www.CMNSOFT.com ::::::::::::::::::::

Çevrimdışı scorpionida

  • Delphi 1 Level 1
  • *
  • İleti: 3
  • Rep: +0/-0
Ynt: Internet - Bağlantı Tipini Bulmak
« Yanıtla #1 : 20 Şubat 2009 11:50:40 »
uses wininet
Kayıtlı
Sayfa: [1]   Yukarı git
« önceki sonraki »