Çok olmadı Blograzzi ile Tanışalı ama beğenimi kazanması uzun sürmedi. Gayet başarılı bulduğum bir servis. Asıl Konuya gelmeden servis hakkında biraz bilgi vermekte fayda var.
Nedir?
Blograzzi, kaliteli ve ilgi alanına uygun içeriğe zaman kaybetmeden ulaşmak isteyen Türk internet kullanıcısı için faydalı bir araç olması adına geliştirilmiş bir servistir.
Blograzzi nasıl çalışmaktadır?
Veritabanında yer alan blogların farklı kaynaklardan derlenen istatistikleri ve kullanıcıların katkısı ile desteklenen içeriği sayesinde kendisine özel algoritmaya sahip olan blograzzi puan hesaplanmaktadır. blograzzi puanı ile bloglar popülerliğine göre sıralanabilmekte ve diğer istatistikler ile birleştirip farklı kriterler bazında listelenebilmektedir. blograzzi’ye kayıtlı olan kullanıcılar istedikleri bloglar için yorum yazabilmekte, beğendikleri blogları favorilerine ekleyebilmekte ve bloglara oy verebilmektedirler. blograzzi’ye kayıtlı olan her kullanıcının kendisine özel bir profil sayfası bulunmaktadır ve bu alan üzerinden favori blogları ile birlikte sahip oldukları blogları yayınlayabilmektedirler.
Blograzzi API (Uygulama Programlama Arayüzü)
Blograzzi verilerini kullanarak çeşitli uygulamalar ve araçlar geliştirmelerine yardımcı olmak için hazırlanmıştır. Standart ve Gelişmiş olmak üzere iki ayrı servis bulunmaktadır. Standart servisi kullanmak tamamen ücretsizdir. Gelişmiş servis, Blograzzi verisini profesyonel amaçlarla kullanmak isteyen kişi ya da kuruluşlara çeştli şartlar çerçevesinde açıktır.
Devamı için..
Evett.. Projemize Başlayalım..
Herşeyden önce Blograzzi üyeliğimizin olması gerekiyor :)
Servise Kullanıcı girişi yaptıktan sonra bu adresteki Blograzzi Uygulama Geliştirme Anahtarımızı bi yere not alıyoruz...
ve yeni bir Web Projesi Açıyoruz.
Solution Explorer ´dan Projemize Sağ tıklayıp Add Web Reference Bölümüne giriyoruz.
Adres Olarak : http://webservice.blograzzi.com/BlograzziWS.asmx yazdıktan sonra onaylıyoruz ve Görüyoruzki Solution Explorer ´da App_WebRefrences Klasöründe gerekli dosyalar gelmiş.
Uzun uzun anlatmaya gerek olmaz sanırım, ama isteyen olursada daha müsait bi zamanda anlatayım.
Örnek Proje;
Default.aspx Dosyamızın İçeriği;
<%@ Page Language="VB" AutoEventWireup="false" CodeFile="Default.aspx.vb" Inherits="_Default" %>
<!
DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<
html xmlns="http://www.w3.org/1999/xhtml" >
<
head runat="server">
<title>Blograzzi Blog Bilgileri</title>
</head>
<body>
<form id="apiFormMain" runat="server">
<!--URL Al Başladı-->
<asp:Panel ID="pUrlAl" runat="server" Width="100%">
<span style="font-family: Trebuchet MS"><strong>Blog Url : </strong>
<asp:TextBox ID="txtUrl" runat="server" Width="239px" ForeColor="#400000">demirelce.com/tr</asp:TextBox>
<asp:Button ID="btnGoster" runat="server" Text="Bilgileri Göster" Font-Bold="True" /><br /><br />
<asp:Label ID="lblHata" runat="server" Font-Size="Small" ForeColor="Red"></asp:Label>
</span>
</asp:Panel>
<!--URL Al Bitti-->
<!--Blog Bilgileri Başladı-->
<asp:Panel ID="pAlan" runat="server" Visible="false" Width="100%">
<span style="font-family: Trebuchet MS">
<strong>Blog Bilgileri</strong><br />
<asp:Image ID="kullaniciResim" runat="server" Height="70px" Width="70px" /><br />
<span style="color: #330033; text-decoration: underline"><strong>Kullanıcı Adı:</strong></span>
<asp:Label ID="lblKullaniciAdi" runat="server"></asp:Label><br />
<span style="color: #330033; text-decoration: underline"><strong>Blog Adı:</strong></span>
<asp:Label ID="lblBlogAdi" runat="server"></asp:Label><br />
<span style="color: #330033; text-decoration: underline"><strong>Blog Adresi:</strong></span>
<asp:Label ID="lblBlogUrl" runat="server"></asp:Label><br />
<span style="color: #330033; text-decoration: underline"><strong>Açıklaması:</strong></span>
<asp:Label ID="lblBlogHakkinda" runat="server"></asp:Label><br />
<span style="color: #330033; text-decoration: underline"><strong>Kategorisi:</strong></span>
<asp:Label ID="lblKategori" runat="server"></asp:Label><br />
<span style="color: #330033; text-decoration: underline"><strong>Kategori Sırası:</strong></span>
<asp:Label ID="lblKategoriSira" runat="server"></asp:Label><br />
<span style="color: #330033; text-decoration: underline"><strong>Blograzzi Puanı:</strong></span>
<asp:Label ID="lblPuan" runat="server"></asp:Label><br />
<span style="color: #330033; text-decoration: underline"><strong>Etiketler:</strong></span>
<asp:Label ID="lblEtiket" runat="server"></asp:Label><br /><br />
<asp:Button ID="btnTekrar" runat="server" Text="Tekrar" Font-Bold="True" />
</span>
</asp:Panel>
<!--Blog Bilgileri Bitti-->
</form>
</body>
</html>
Default.aspx.vb Dosyamızın İçeriği;
Imports com.blograzzi.webservice
Partial Class _Default
Inherits System.Web.UI.Page
Dim anahtar As String = "Anahtarı Buraya Yazın"
´ Blograzzi Uygulama Geliştirme Anahtarınız
Dim blgServis As New BlograzziWS
´ Blograzzi Web Servisi Nesnemizi Oluşturduk
Dim blgBilgi As New BlogBilgileri
´ Blograzzi Web Servisi BlogBilgileri Nesnemizi Oluşturduk
Protected Sub btnGoster_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnGoster.Click
Dim webadres As String = txtUrl.Text
´ Blograzzi Kayıtlı Blog Adresiniz
blgBilgi = blgServis.BlogDetaylari(webadres, anahtar)
´ Kullanmak İstediğimize Bağlantı Kurduk
If Not blgBilgi.Url = Nothing Then
kullaniciResim.ImageUrl = blgBilgi.SahipFotoLink.ToString()
´ Kullanıcı Fotoğraf Adresini İstedik
kullaniciResim.AlternateText = blgBilgi.Sahibi.ToString()
´ Fotoğrafımızın Alternatif Yazısını Blograzzi Kullanıcı Adı Yaptık
lblKullaniciAdi.Text = blgBilgi.Sahibi.ToString()
´ Kullanıcı Adını Aldık
lblBlogAdi.Text = blgBilgi.Ad.ToString()
´ Blog Adı
lblBlogUrl.Text = blgBilgi.Url.ToString()
´ Blog Adresi http://xxx
lblBlogHakkinda.Text = blgBilgi.Ozet.ToString()
´ Blog Hakkında Bölümü
lblKategori.Text = blgBilgi.Kategori
´ Blog Kategorisi
lblKategoriSira.Text = blgBilgi.KategoriSirasi.ToString()
´ Blog Kategori Sırası
lblPuan.Text = blgBilgi.BlograzziPuanı.ToString()
´ Blograzzi Puanı
lblEtiket.Text = blgBilgi.Etiketler.ToString()
´ Blog Etiketleri
blgBilgi = Nothing
pUrlAl.Visible = False
pAlan.Visible = True
Else
lblHata.Text = "Blograzzi de kayıtlı blog bulunamadı!"
End If
End Sub
Protected Sub btnTekrar_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnTekrar.Click
lblHata.Text = Nothing
pUrlAl.Visible = True
pAlan.Visible = False
End Sub
End Class
Projemiz bittii..
Ne işe yaradığına gelince, Girilen Blograzzi´ye Kayıtlı Blog Adresinin Bilgilerini gösteriyor..
Daha gelişmiş bir sistemde yapılabilir, örnek uygulamamız olduğu için bu kadarı yeterli.
Blograzzi de Kod Örneklerinde Listelenmesi için gönderdim, Umarım Asp.NET/VB ile uğraşanlara yararlı olur..