BinaryToString Fonksiyonu
6 Ağustos 2007Binary verileri stringlere çevirmeye yarayan bir fonksiyon, xmlHTTP ile veri çektiğimizde gelen binary verileri süzmemize yarayacaktır.
Private Function BinaryToString(Binary)
Dim cl1, cl2, cl3, pl1, pl2, pl3
Dim L
cl1 = 1
cl2 = 1
cl3 = 1
L = LenB(Binary)
Do While cl1<=L
pl3 = pl3 & Chr(AscB(MidB(Binary,cl1,1)))
cl1 = cl1 + 1
cl3 = cl3 + 1
If cl3>300 Then
pl2 = pl2 & pl3
pl3 = ""
cl3 = 1
cl2 = cl2 + 1
If cl2>200 Then
pl1 = pl1 & pl2
pl2 = ""
cl2 = 1
End If
End If
Loop
BinaryToString = pl1 & pl2 & pl3
End Function
Devamı
Yorumlar (0)
Tarih : 6 Ağustos 2007 Pazartesi Saat: 20:12:05
Kategoriler : Makale, Sorun Giderme, Programlama
Etiketler : BinaryToString, xmlhttp, binary, string, fonksiyon, asp
xmlHTTP ile başka siteden veri çekmek
6 Ağustos 2007xmlHTTP nedir?
xmlHTTP windows sunucularda kullanılan bir componenttir, görevi ise başka sitelere veri göndererek karşılık almaktır.
(Yani ben böyle tarif ediyorum) xmlHTTP componenti elinizde yok ise buradan indirebilirsiniz.
Şimdi vereceğim örnek fonksiyon ile başka sitelerden gönlünüzce veri alabilirsiniz.
Function GETHTTP(adres)
On Error Resume Next
Set StrHTTP = Server.CreateObject("MSXML2.ServerXMLHTTP")
StrHTTP.Open "GET" , adres, False
StrHTTP.sEnd
GETHTTP = StrHTTP.Responsetext
Set StrHTTP = Nothing
End Function
Kullanım şekli ise
URL = "http://www.youtube.com/"
Veri = GETHTTP(Url)
Response.Write Veri
Şeklinde kullanabilirsiniz, ileriki derslerde veriler üzerinde nasıl oynanacağını göstereceğim.
Kolay gelsin.
Devamı
Yorumlar (2)
Tarih : 6 Ağustos 2007 Pazartesi Saat: 19:29:16
Kategoriler : Makale, Programlama
Etiketler : xml, xmlhttp, asp, başka siteden veri çekmek
