IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

Visual Basic kullanarak geliştirebilen COM bileşeni ile daha önceleri belirtiğimiz bir adresi msinet.ocx dosyasını kullarak string olarak alabiliyorduk. Peki o zaman neden ASPtear var ki? Cevap açık, ASPtear size sadece bu özelliği değil daha birçok fonksiyonalite sunuyor, ayrıca sizi VB’de kod yazmaktan kurtarıp sadece bir nesne yaratarak bu özelliği kullanabilmenizi sağlıyor.
ASPtear Internet Programcılığı, Ağ ve Bilgisayar güvenliği konularında tanıdığımız AplhaSierraPapa firması tarafından geliştirilen bileşenlerden biri. Bulunan son sürümü 1.50. Bu bileşen ile yapılabilecekleri şu şekilde listelemek mümkün:
- Online dökümanların string olarak alınması
- Sabit diske kayıt
- SSL desteği
- Proxy Server desteği
- Sayfa Tamponlama Özelliği
- Yönlendirme desteği
- Geliştirilmiş Cookie fonksiyonalitesi

Online dökümanların string olarak alınması dışında olan tüm özellikler 15 günlük bir deneme sürümü olarak geliyor. Eğer memnun kalırsanız yazılımı satın almanız gerekiyor. Öncelikle asptear.dll adlı dosyayı sisteminize register etmeniz gerekiyor. Bu işlem için özellikle oluşturduğunuz bir klasör mevcut ise aşağıda da linkini verdiğimiz adreslerden bu dll dosyasını download ederek o klasöre kopyalayınız. Benim size önerim bu dosyayı diğer dll’ler ie aynı klasöre yani windows’un altındaki system32 klasörü altına kopyalamanız olacaktır.

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Yapmanız gereken dll dosyasının bulunduğu klasörde regsvr32 asptear.dll yazarak sisteme dll’i register etmenizdir.

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Biz bir örnek ile web sayfalarından nasıl bilgi alabileceğimizi inceleyelim:

Kod:


 <html> 
 <head>
  <meta http-equiv="Content-Type" content="text/html; charset=windows-1254"> 
 <title>ASPnedir?com - Hava Durumu</title> 
 </head> 
 <body>
 <%
 ' Meteoroloji sayfasının günlük tahminleri 

' yayınladığı herkese açık olan bir döküman adresi 
 adres = "
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
color="blue">On Error Resume Next
 ' ASPtear bileşenini yaratıyoruz
 Set Tear = Server.CreateObject("Softwing.AspTear") 
 ' Verdiğimiz adresi bir string olarak alıyoruz

strVeri = Tear.Retrieve(adres,2, "","","")
 
 if Err <> 0 then

 Response.Write "Bir hata oluştu, açıklaması: "& Err.Description 

 Response.End 
 end if
 
 ' Aldığımız string içerisinde başlamasını istediğimiz yeri buluyoruz 

tahminler = Instr(1,strVeri,"SICAKLIKLARI DA SOYLE OLACAK") 
 ' Bulduğumuz konumdan itibaren ne kadar karaktere ihtiyamız varsa alıyoruz 
 strHava_Durumu = Mid(veri,tahminler+38,157)

%> 
 
 <font size="2" face="Verdana"><b><%=Date()%></b> tarihli Hava Tahmini şöyledir: <p> 
 <b><%=strHava_Durumu%></b> </font>
  </body> 
 </html>

Örnekte de gördüğünüz gibi bir web dökümanını string olarak alıp istediğiniz bilgileri kendi sayfanızda kullanmak ASPtear ile çok kolay hale geliyor.