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. Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir. Yapmanız gereken dll dosyasının bulunduğu klasörde regsvr32 asptear.dll yazarak sisteme dll’i register etmenizdir. Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir. Biz bir örnek ile web sayfalarından nasıl bilgi alabileceğimizi inceleyelim: Kod: Kodu kopyalamak için üzerine çift tıklayın!
<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.