delphi 7 de internet bağlantısı

[sarp_halit]

merhaba arkadaşlar. delphi 7 de program çalıştırılırken ya da çalıştırıldığında ( fark etmez) internet bağlantısının var olup olmadığını kontrol etmek istiyorum. bir de eğer internet bağlantısı yoksa bir bağlan butonu oluşturup oradan bağlanmayı sağlamak istiyorum. bunu nasıl gerçekleştirebilirim. ya da bu kontrolleri 7 sürümünde hangi bileşenle yapabilirim?

yardımlarınızdan dolayı teşekkür ederim. herkese iyi çalışmalar.

kolay gele

[mrmarman]

- Internet bağlantısı olup olmadığını kontrol etmeyi anladım o yapılır da bağlantıyı neyle ve nasıl yaptıracaksın ? Orasını anlamadım. Bir modem varsa TTNet 'i çevir, başarısız olunursa modem telefona bağlı değil demektir deyip LAN'dan 10.0.0.2 veya 192.168.0.1 dene ADSL modem var mı ? varsa PPP Connect yap yoksa Wireless arama yap. Varsa ona bağlan o da yoksa Bluetooth var mı, varsa çevredeki bağlantılı telefonları bul, bulduğunla GPRS bağlan gibisinden mi ? ( ironi yapıyorum yanlış anlaşılmasın, bunlar yapılası değil )

- Bir firma için özel çözüm üretiyorsan ve o firmanın (x) şekilde bir internet bağlantı imkanı var ancak sürekli kapalı tutuluyor, lazım olduğunda açılmak suretiyle kullanılıyor işi bitince kapatılıyor şeklinde net bir durum varsa söyle yardımcı olalım.

[shadowmann]

internet bağlantısı var mı yok mu?

Kod: Tümünü seç

 
procedure TForm1.Button1Click(Sender: TObject) ;

  function FuncAvail(_dllname, _funcname: string;
                     var _p: pointer): boolean;
  {return True if _funcname exists in _dllname}
  var _lib: tHandle;
  begin
   Result := false;
   if LoadLibrary(PChar(_dllname)) = 0 then exit;
   _lib := GetModuleHandle(PChar(_dllname)) ;
   if _lib <> 0 then begin
    _p := GetProcAddress(_lib, PChar(_funcname)) ;
    if _p <> NIL then Result := true;
   end;
  end;

  {
  Call SHELL32.DLL for Win < Win98
  otherwise call URL.dll
  }
  {button code:}
  var
   InetIsOffline : function(dwFlags: DWORD):
                   BOOL; stdcall;
  begin
   if FuncAvail('URL.DLL', 'InetIsOffline',
                @InetIsOffline) then
    if InetIsOffLine(0) = true
     then ShowMessage('Not connected')
     else ShowMessage('Connected!') ;
  end;

Burda da dial up bağlantı kurma yer alıyor.

Kod: Tümünü seç

uses WinInet;
...
InternetAutoDial(internet_autodial_force_unattended, Handle) ;

{
To disconnect this automatic dial-up connection, use
}

InternetAutodialHangup(0)

{
Another way is to specify the name
of the connection you wish to use
(ConnectionName), from Dialup
networking:
}

if InternetDial
    (0, PChar(ConnectionName), INTERNET_AUTODIAL_FORCE_UNATTENDED, dwConn, 0) <> ERROR_SUCCESS then exit;
//Do something with Internet...
InternetHangup(dwConn, 0) ;

[sarp_halit]

hocam teşekkür ederim ama fonsksiyon internet bağlantısı olsa da olmasa da bağlantı var diye gösteriyor.