Localhost`ta xmlhttp kullanımı
24 Ocak 2008Xmlhttp ile ilgili yazılarım mevcuttu, bunu sitemi takip edenler biliyor. Bugün bir mail aldım ve bir arkadaşımız localhost`ta xmlhttp`yi nasıl çalıştıracağını sormuş.
XmlHttp bir componenttir, çalışması için sisteme register edilmesi gerekir, register etmek içinse Regsvr32 komutu kullanılır, bu komutun kullanımı ile ilgili bilgi için burayı okuyabilirsiniz.
Ama bu işlemi xmlhttp için yapmanıza gerek kalmıyor çünkü Microsoft web sitesinden paket olarak indiriyorsunuz ve setup dosyası sizin yerinize bunu yapıyor 
XmlHTTP kurulum dosyasını Microsoft web sitesinden indirebilirsiniz.
Download Et
http://www.microsoft.com/downloads/details.aspx?FamilyID=28494391-052B-42FF-9674-F752BDCA9582&displaylang=en
Devamı
Yorumlar (5)
Tarih : 24 Ocak 2008 Perşembe Saat: 18:31:47
Kategoriler : Makale, Programlama
Etiketler : xmlhttp, kurulum, register, regsvr32, microsoft
XMLDOM ile RSS verilerini almak (Örnek: Haber7.com verilerini almak)
24 Ekim 2007xmlHTTP ile ilgili uzun süredir yazılar yazmaktayım ve bu konularla ilgili bir çok mail aldım, sanırım yazılar bazı arkadaşlarımız için iyi oluyor 
Neyse şimdi de XMLDOM ile RSS dosyalarını nasıl kendi web sitemize alıp kullanacağımızı gösteren bir kod yığını yayınlayacağım inşAllah işinize yarar.
Bu örnekte haber7.com adresindeki haberleri nasıl alacağımızı anlatarak size sistemin nasıl oluşturulması gerektiğini anlatacağım.
rssfile = "http://sondakika.haber7.com/sondakika.rss"
ile hangi adresten rss dosyasını çekeceğimizi bir belirleyelim.
Dim objXML, objRoot, objItems
Set objXML = Server.CreateObject("Microsoft.XMLDOM")
objXML.Async = False
objXML.SetProperty "ServerHTTPRequest", True
objXML.ResolveExternals = True
objXML.ValiDateOnParse = True
objXML.Load(rssFile)
ile bağlantımızı oluşturalım.
Set objItems = objRoot.getElementsByTagName("item")
If IsObject(objItems) = True Then
Dim objItem
For Each objItem In objItems
Döngümüzü oluşturalım ki <item> dizisinde bulunan veri başlıklarını sırayla alıp yayınlayalım,
strTitle = objItem.SelectSingleNode("title").Text
strDesc = objItem.SelectSingleNode("description").Text
strLink = objItem.SelectSingleNode("link").Text
strDate = objItem.SelectSingleNode("pubDate").Text
ile de <item> içerisinde bulunan title, desc, link ve pubdate verilerini alalım.
<a target="_blank" href="<%= strLink %>"><b><%= strTitle %></b></a> - <%=strDate%><br />
<%=strDesc%><br /><br />
ile verileri ekrana yazdırıyoruz.
Next
Else
Response.Write "<b>Bilgiler Getirilemiyor</b>"
End If
Döngüyü tekrar başa alalım hata varsa ekranda gösterelim.
Set objRoot = Nothing
Set objItems = Nothing
End If
Set objXML = Nothing
ve başlayan kodumuzu bitirelim.
İşte bu kadar rss okuyucu dosyamız hazır. Scriptin tüm dosyalarını http://www.hakansen.com/kod/haber7rss.asp.txt adresinde de görebilirsiniz.
Devamı
Yorumlar (1)
Tarih : 24 Ekim 2007 Çarşamba Saat: 16:00:13
Kategoriler : Programlama
Etiketler : xmldom, xmlhttp, rss, okuma
XML Servislerinden Veri Almak
18 Ekim 2007XML`in çeşitli kullanımları ile ilgili örnek yazılar yazmıştım, fakat bu sefer farklı bir yöntem izleyeceğiz msxml2.DOMDocument ile veri almak işlemini yapıcaz fakat biraz değişik bir yol ile.
Öncelikle uygulamayı kendi sitemde denemek için bir xml servisi oluşturdum. Bu serviste www.hakansen.com adresinde ki tüm yazı ve yorumların sayısını başka bir sitede nasıl gösterileceğini göstermek istedim.
www.hakansen.com/kod/stats.asp adresinden başlayalım.
- <istatistik>
<ToplamKonu>145</ToplamKonu>
<ToplamYorum>142</ToplamYorum>
</istatistik>
şeklinde bir servis oluşturdum içerisindeki veriler veritabanındakilere göre otomatik olarak değişiyor.
Peki bunu başka bir sitede nasıl alıp kullanabilirim.
Bunun için ise verileri alma fonksiyonumuzu hazırlayalım.
Function GetStats(Veri,url)
Set xObj=Server.CreateObject("msxml2.DOMDocument")
xobj.async=False
xobj.setProperty "ServerHTTPRequest",True
xobj.load(url)
If (xObj.parseError.errorCode <> 0) Then
GetStats = xObj.parseError.reason
Else
Set sonuc=xobj.getElementsByTagName("istatistik")
GetStats = (sonuc.Item(0).childnodes.Item(Veri).text)
End If
End Function
şeklinde fonksiyonumuzu belirledik, Bu fonksiyonu biraz açıklamak gerekirse.
GetStats fonksiyonunu tanımlarken Url kısmına çekilecek verinin adresini belirtiyoruz.
Veri kısmına ise <istatistik> alt dizisinde bulunan verilerin sırasını giriyoruz bu sıra aynı Array nesnesi gibi 0,1,2,3,4... şeklinde gidecek yani 0 dan başlayacak.
Buraya kadar anlaşıldıysa uygulamaya da geçelim
www.hakansen.com sitesinde şuan itibariyle Toplam <b><%=GetStats(0,"http://www.hakansen.com/kod/stats.asp")%> Konu</b> ve <b><%=GetStats(1,"http://www.hakansen.com/kod/stats.asp")%> Yorum</b> bulunmaktadır.
yazdığınız zaman
www.hakansen.com sitesinde şuan itibariyle Toplam 145 Konu ve 142 Yorum bulunmaktadır.
şeklinde bir cevap ile karşılaşacaksınız ve xmldeki verileri almış olacaksınız.
Devamı
Yorumlar (1)
Tarih : 18 Ekim 2007 Perşembe Saat: 13:50:29
Kategoriler : Programlama
Etiketler : xml, DOMDocument, msxml2, istatistik, veri almak
xmlHTTP ile Merkez Bankası Döviz Kurları (Ayrıntılı Açıklama)
7 Ağustos 2007Bilindiği gibi xmlHTTP`yi başka sitelerden veri çekmek için kullanıyoruz. xmlHTTP ile ilgili diğer yazılarım için http://www.hakansen.com/etiket/xmlhttp/ adresinden diğer konulara göz gezdirebilirsiniz.
Bu yazıda http://www.tcmb.gov.tr/kurlar/today.html adresinden Merkez Bankası döviz kurlarını anlık olarak nasıl alınır mantığı nedir ne değildir onu göstermeye çalışacağım.
Öncelikle Fonksiyonumuzu kurarak başlayalım.
Public Function GETHTTP(strGelen)
Set objVeriAl = Server.CreateObject("Microsoft.XMLHTTP" )
objVeriAl.Open "GET" , strGelen, False
objVeriAl.sEnd
GETHTTP= objVeriAl.Responsetext
Set objVeriAl = Nothing
End Function
Bu her zaman kullandığımız xmlhttp ile get metodu ile veri çekmek için kullanacağımız koddur.
şimdi devam edelim ve http://www.tcmb.gov.tr/kurlar/today.html adresine bağlanalım.
strURL = "http://www.tcmb.gov.tr/kurlar/toDay.html"
strVeri = GETHTTP(strAdres)
Siteye bağlandık ve responsetext olarak kaynağını aldık.
Şimdi sıra geldi USD yani dolar kurunu bu kodların içerisinden nasıl alırız onu öğrenmeye. Bu işlemi yapabilmek için inStr() ve Mid() fonksiyonlarını kullanacağız.
iDolar=InStr(strVeri,"USD" )
strDolarAlis=Mid(strVeri,iDolar+39,10)
strDolarSatis=Mid(strVeri,iDolar+52,10)
InStr() fonksiyonu ile aldığımız kaynak kodunda USD yazan yerin karakter sırasını alıyoruz ve Mid() fonksiyonuyla koddaki karakterler arasında kurların yazdığı bölümü alıyoruz.
strDolarAlis=Mid(strVeri,iDolar+39,10)
kodunda kaynak kodunun USD geçen yerinden 39 karakter sonrasindan başlayarak 10 karakter sonrasina kadar geçen bölümü alıyoruz, bu bölüm Merkez Bankası Dolar Alış kurunu almış oluyoruz.
Aynı şekilde EUR değerlerini de almak için
iEuro=InStr(strVeri,"EUR" )
strEuroAlis=Mid(strVeri,iEuro+39,11)
strEuroSatis=Mid(strVeri,iEuro+52,11)
Böylelikle tüm verileri almış oluyoruz, bunları sitede kullanmak istediğimiz yerlerde
Response.Write "Dolar Satış : "& strdolarsatis &"<br>"
Response.Write "Dolar Alış : "& strDolarAlis &"<br>"
Response.Write "Euro Satış : "& strEuroSatis &"<br>"
Response.Write "Euro Alış : "& strEuroAlis &"<br>"
şeklinde istediğiniz yerde kullanabilirsiniz.
Kodun komple çalışan versiyonuna http://www.hakansen.com/Kod/doviz.kurlari.txt adresinden ulaşabilirsiniz.
Devamı
Yorumlar (1)
Tarih : 7 Ağustos 2007 Salı Saat: 20:52:07
Kategoriler : Makale, Programlama
Etiketler : asp, xmlhttp, merkez bankası, kurları, instr, mid, fonksiyon
xmlHTTP ile url kontrolü
6 Ağustos 2007xmlHTTP Kullanarak sorgulanmak istenen URL`nin var olup olmadığını kontrol etmek mümkündür.
kayit.kisaltiyor.us adresinde kısaltılacak urller girildiğinde öyle bir adresin var olup olmadığını kontrol etmek için kullanıyordum, bir yerlerde işinize yarayabilir.
Function GETHTTP(adres)
On Error Resume Next
Set StrHTTP = Server.CreateObject("MSXML2.ServerXMLHTTP")
StrHTTP.Open "GET" , adres, False
StrHTTP.sEnd
If Err.Number = -2147012889 Then
Mesaj = "<font style=""color:red;"">DNS Yanıt vermiyor, Siteye ulaşılamadı</font>"
ElseIf Err.Number = -2147012867 Then
Mesaj = "<font style=""color:red;"">Url Bulunamadı</font>"
Else
Mesaj = "Url Bulundu Çalışıyor"
End If
GETHTTP = Mesaj
Set StrHTTP = Nothing
End Function
strUrl = Request("url")
If strUrl = "" Then strUrl = "www.hakansen.com"
If Mid(strUrl,1,7) <> "http://" Then strUrl = "http://"&strUrl
Veri = GETHTTP(strUrl)
Response.Write Veri
strUrl değişkenini request("url") nesnesi ile aldık ama bunu başka bir siteden input değeri ile post veya get methodu ile bir formdan gönderip de işlem yapabilirsiniz.
Devamı
Yorumlar (4)
Tarih : 6 Ağustos 2007 Pazartesi Saat: 21:14:49
Kategoriler : Makale, Programlama
Etiketler : xml, xmlhttp, asp, url kontrolü, fonksiyon,
