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 - URL Geçerlilik Kontrolü  (Okunma sayısı 2102 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 - URL Geçerlilik Kontrolü
« : 10 Ekim 2005 19:31:06 »
Uses satırına WinInet unitini ekleyin...

 

 

Kod:  (Unknown Language)
  1.  
  2.  
  3. Function CheckUrl(Url: String): Boolean;
  4.  
  5. Var    
  6.  
  7.    hSession, hfile, hRequest: hInternet;
  8.  
  9.    dwIndex, dwCodeLen: dWord;
  10.  
  11.    dwCode: Array[1..20] Of Char;
  12.  
  13.    Res: pChar;
  14.  
  15.  
  16.  
  17. Begin
  18.  
  19.  
  20.  
  21. If Pos('http://',lowercase(url))=0 Then Url:= 'http://' + Url;
  22.  
  23. Result:= False;
  24.  
  25. hSession:= InternetOpen('InetURL:/1.0', INTERNET_OPEN_TYPE_PRECONFIG, Nil, Nil, 0);
  26.  
  27. If Assigned(hSession) Then
  28.  
  29.    Begin
  30.  
  31.    hFile:= InternetOpenUrl(hSession, pChar(Url), Nil, 0, INTERNET_FLAG_RELOAD, 0);
  32.  
  33.    dwIndex:= 0;
  34.  
  35.    dwCodeLen:= 10;
  36.  
  37.    HttpQueryInfo(hFile, HTTP_QUERY_STATUS_CODE, @dwCode, dwCodeLen, dwIndex);
  38.  
  39.    Res:= pchar(@dwcode);
  40.  
  41.    Result:= (Res = '200') Or (Res = '302');
  42.  
  43.    If Assigned(hFile) Then InternetCloseHandle(hFile);
  44.  
  45.    InternetCloseHandle(hSession);
  46.  
  47.    End;
  48.  
  49.  
  50.  
  51. End;
  52.  
  53.  




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

Çevrimdışı gkhn_14

  • Delphi 1 Level 3
  • ***
  • İleti: 20
  • Rep: +0/-0
Ynt: Internet - URL Geçerlilik Kontrolü
« Yanıtla #1 : 04 Temmuz 2010 11:26:16 »
Çok güzel paylasım ancak hata alıyorum :S
Kayıtlı

Çevrimdışı barutali

  • Administrator
  • *****
  • İleti: 2.229
  • Rep: +55/-0
  • Cinsiyet: Bay
  • Falan filan ...
  • Delphi Sürümü: 2010 - XE2
Ynt: Internet - URL Geçerlilik Kontrolü
« Yanıtla #2 : 04 Temmuz 2010 11:38:20 »
uses kısmına WinInet namespace ini ekliyorsunuz değilmi
Kayıtlı



Amatör Küme Programcı

Çevrimdışı barutali

  • Administrator
  • *****
  • İleti: 2.229
  • Rep: +55/-0
  • Cinsiyet: Bay
  • Falan filan ...
  • Delphi Sürümü: 2010 - XE2
Ynt: Internet - URL Geçerlilik Kontrolü
« Yanıtla #3 : 05 Temmuz 2010 14:56:29 »
başka bir yöntem olarak ...

forma bir adet IdHttp koyun..

kontrol için olan button un kodlarına aşağıdaki bloğu yazınız...

var
  ws : wideString;
begin
 try 
   ws := idhttp.get('http://Http://www.siteadi.com');

   Showmessage('GEÇERLİ');
 except on e : exception do
 begin
   showmessage('GEÇERSİZ...');
 end;
end;

ezbere yazılmış bir blok olduğunda harf hataları olabilir ...
Kayıtlı



Amatör Küme Programcı

Çevrimdışı gkhn_14

  • Delphi 1 Level 3
  • ***
  • İleti: 20
  • Rep: +0/-0
Ynt: Internet - URL Geçerlilik Kontrolü
« Yanıtla #4 : 05 Temmuz 2010 22:24:05 »
Ellerınıze saglık sagolun hocam

Kod: [Seç]
var
  ws : wideString;
begin

   ws := idhtp1.get('http://www.offf.com.tr');
   if (ws<>'') then  begin
   Showmessage('GEÇERLİ');
   end
   else
   showmessage('GEÇERSİZ...');


  end;
-Geçerlılerde verıyor showmesagge ancak geçersız oldugunda  " Socket error 11001 - Host not found " dıye bır hata verıyor hocam yardımcı olursanız cok mutlu olcak...
Kayıtlı

Çevrimdışı barutali

  • Administrator
  • *****
  • İleti: 2.229
  • Rep: +55/-0
  • Cinsiyet: Bay
  • Falan filan ...
  • Delphi Sürümü: 2010 - XE2
Ynt: Internet - URL Geçerlilik Kontrolü
« Yanıtla #5 : 05 Temmuz 2010 22:47:05 »
try .. except bloğunu bu yüzden kullandım zaten..
hata messajlarını yakalayabilmek için ...
Kayıtlı



Amatör Küme Programcı

Çevrimdışı gkhn_14

  • Delphi 1 Level 3
  • ***
  • İleti: 20
  • Rep: +0/-0
Ynt: Internet - URL Geçerlilik Kontrolü
« Yanıtla #6 : 05 Temmuz 2010 22:53:47 »
malesef ondada hata vermekte hocam ya
Kayıtlı

Çevrimdışı barutali

  • Administrator
  • *****
  • İleti: 2.229
  • Rep: +55/-0
  • Cinsiyet: Bay
  • Falan filan ...
  • Delphi Sürümü: 2010 - XE2
Ynt: Internet - URL Geçerlilik Kontrolü
« Yanıtla #7 : 05 Temmuz 2010 23:27:54 »
F9 a basıp da deniyorsan hatayı verir :D
projeyi derledikten sonra dışardan exe yi çalıştır..
Kayıtlı



Amatör Küme Programcı

Çevrimdışı gkhn_14

  • Delphi 1 Level 3
  • ***
  • İleti: 20
  • Rep: +0/-0
Ynt: Internet - URL Geçerlilik Kontrolü
« Yanıtla #8 : 06 Temmuz 2010 22:46:14 »
hehe sagolasın hocam ya cok ısıme yaradı çok sagol
Kayıtlı
Sayfa: [1]   Yukarı git
« önceki sonraki »