Win98 İnternet bağlantısı..

[Nick_]

S.a arkadaslar

win98 de internet baglantısının olup olmadıgını nasıl bulabılırım? bırcok sıtede ornek functıonlar var ama pek dogru sonuc vermıyor. bunu ogrenmenın kesın bı yolu yokmudur?

ping atmayı denedım ancak programın ıcınde cok fazla net baglantısı kontrolu oldugu ıcın döndürülen ping degeri bazen farklı sonuc alabılıyor

[mkysoft]

ip öğrenme diye ararsanız bulabilirsiniz.

[ikutluay]

inetnet bağlantısından kasıt; makine internetmi bağlı yoksa kurulu bir bağlantı yada ip varmı yokmu diyeceğim, sen soru açık diyeceksin...

eğer kastın birinci seçenekse checkurl diye arattr cevabı orda hem kesin çalışıyor.

ikinci ise program içinden 127.0.0.1 e ping denemek lazım. buna cevap varsa ethernet ve tcp ip kurulu dmeektir.

[Nick_]

S.a

Kod: Tümünü seç

Function CheckUrl(url:string):boolean; 
 var 
 hSession, hfile, hRequest: hInternet; 
 dwindex,dwcodelen :dword; 
 dwcode:array[1..20] of char; 
 res : pchar; 
 begin 
   if pos('http://',lowercase(url))=0 then 
      url := 'http://'+url; 
   Result := false; 
   hSession := InternetOpen('InetURL:/1.0', 
        INTERNET_OPEN_TYPE_PRECONFIG,nil, nil, 0); 
   if assigned(hsession) then 
     begin 
       hfile := InternetOpenUrl( 
            hsession, 
            pchar(url), 
            nil, 
            0, 
            INTERNET_FLAG_RELOAD, 
            0); 
       dwIndex  := 0; 
       dwCodeLen := 10; 
       HttpQueryInfo(hfile, HTTP_QUERY_STATUS_CODE, 
               @dwcode, dwcodeLen, dwIndex); 
       res := pchar(@dwcode); 
       result:= (res ='200') or (res ='302'); 
       if assigned(hfile) then 
         InternetCloseHandle(hfile); 
       InternetCloseHandle(hsession); 
     end; 
 end; 
 

Kullanım şekli örnek

Kod: Tümünü seç

procedure TForm1.Button2Click(Sender: TObject); 
Var 
    Durum:Boolean; 
begin 
    Durum := CheckUrl('www.yahoo.com'); 

    if Durum = True Then 
        ShowMessage('Açık') 
    Else 
        ShowMessage('Kapalı') 

end; 
 

husonet hocanın bu kodları baglantı varken ıse yarıyor ancak baglantıyı kesıp denedıgımde 30-40 sn bekletıp oyle sonuc gelıyor.XP de denedıgımde hıcbı sorun yok tıkır tıkır calısıyor sorun win98 olması...Bunu hızlandıramazmıyız?

[ikutluay]

registry ile timeout konusuna bakılabilir... ancak zaten normaldede siteyi arama şubu derken vakit kaybı oluyor oysa