ASP.NET ile Threading

Makale

ASP.NET ile Threading

A��klama: ASP.NET ile �oklu email g�nderme uygulamas�n�n Threading ile uygulanmas�.

Thread bir program�n ba��ms�z olarak �al��t�r�lan par�as�na denir. .NET platformu ile �ok thread li programlar yazabiliriz. Tabiki bu durum ASP.NET i�in de ge�erli. ASP nin �nceki versiyonlar�nda b�yle bir imkan mevcut de�ildi.

�rne�in makalemizin konusu olan �ok fazla say�da ki�iye email g�ndermek i�in t�m kullan�c�lar� bir for d�ng�s�ne al�p tek tek g�nderme yaparken g�nderilecek ki�i say�s� art�k�a i�lemin alaca�� s�rede artar. Bu i�i ASP3 gibi bir ortamda yapmak istersek asp sayfam�z i�lemlerin bitmesini bekleyemeden timeout olacak ve i�lemimizde kesilecekti. ASP.NET cephesine bakarsak Threading deste�i sayesinde bu i� kolayla��yor. Threading i�in yukar�da "ba��ms�z olarak �al��t�r�lan program kod par�as�" deyimini kullanm��t�k. ��te bu sayede email g�ndermek i�in gerekli olan kod par�as�n� (subroutione -sub-) uygulaman�n ana threadinden ayr� olarak �al��t�r�yoruz ve i�lemin arkaplanda devam etmesini sa�l�yoruz.

.Net te multi thread programlama "System.Threading" namespace indeki "Thread" s�n�f� kullan�larak yap�labilir. Thread s�n�f�n�n yap�land�r�c�s� (constructor) ayr� bir thread olarak �al��t�r�lacak olan prosed�r�n adresini parametre olarak al�r.

ASP.NET ile Threading kullanarak yaz�lm�� olan bir projede 40-50 bin ki�iye email g�nderiyorum ve hi� bir sorun ya�am�yorum. ��te bu durumda "Neden ASP.NET?" diyenlere bir cevap daha vermi� olduk. :)

Uygulamam�za ge�elim ve asp.net ile threading yapmay� ��renelim.

Amac�m�z nedir? �ok say�da ki�iye email g�ndermek. Bu g�nderim s�ras�nda g�nderim i�leminin uzunlu�u dolay�s�yla sayfan�n h�z�n� kesmemek, i�lemlerin arkaplanda yap�lmaya devam etmesini sa�lmak.

Amac�m�z do�rultusunda Postaci isminde bir s�n�f olu�tural�m.

Gerekli namespace tan�mlamalar�n� yapt�ktan sonra Postaci s�n�f�n� olu�turuyoruz. En �stte Property lerin veri ta��y�c�s� olarak kullan�lacak olan de�i�ken tan�mlamalar� yap�l�yor. Emailler (email adreslerini tutan dizi de�i�ken), Mesaj (mailmessage �rne�i), SmtpServer (mail g�ndermek i�in kullan�lacak sunucu adresi), UysunMu (threadin belli zamanlarda bekleyerek smtp sunucusunun nefes almas�na izin vermesini sa�layan �zellik), UykuLimiti (ka� g�nderimde bir bekleme yap�laca��), UykuSuresi (uyku durumunda iken ne kadar beklenece�i, dakika cinsinden) �zellikleri bu private de�i�kenleri ta��y�c� olarak kullan�rlar.

S�n�f new ile t�retildi�inde varsay�lan ayarlar�n atanmas� i�in yap�land�r�c� (constructor) olu�turuluyor. Postala metodu ile g�nderme i�lemi ba�lat�lacak. Burada yeni bir Thread olu�turuluyor, isBackground �zelli�i ile ana thread ile ba�lant�s�z olarak arkaplanda �al��aca�� belirleniyor ve Start ile uygulama start ediliyor. Burada olu�turulan Thread Postalayici metodunu �al��t�r�yor.

Postalayici metodunu inceleyelim, i�lemin ne kadar s�rd��n� belirlemek i�in baslangic de�i�kenine �u anki zaman bilgisi yaz�l�yor. _strEx, _countEx de�i�kenleri ise g�nderme i�lemi i�erisindeki hata say�s�n�n ve hatalar�n g�r�nt�lenmesini sa�lar. smptServer Property si ile g�nderme i�lemi i�in kullan�lacak olan smtp sunucusu (smtpmail.smtpserver) belirleniyor. Ard�ndan for d�ng�s� ile Emailler Propertysindeki email adresleri kadar d�ng� i�lemi yap�l�yor. E�er UyusunMu de�i�keni True ise ikinci if kontrol�ne bak�l�r. �kinci kontrol ise d�ng�n�n ilk basama��nda (i=0) olmamas�na ve UykuLimitinin gelip gelmedi�ine bakar. Ard�ndan mailmessage s�n�f�ndan t�reyen mesaj nesnesinin to �zelli�i �uanda g�nderim yap�lacak olan ki�iyi belirliyor. SmtpMail.Send ile de g�nderim i�lemi yap�l�yor. B�t�n g�nderim i�lemi Try-Catch i�erisinde yap�l�r ve olu�an hatalar bir de�i�kende biriktirilir. D�ng� i�lemini bitirdikten sonra bu hata mesajlar� FROM adresi ile belirlenen ki�iye g�nderiliyor.

Imports System.Web.Mail
Imports System.Threading
Imports System.Text

Public Class Postaci
    Private _emailler() As String
    Private _mesaj As MailMessage
    Private _smtpServer As String
    Private _uyusunMu As Boolean
    Private _uykuLimiti As Integer
    Private _uykuSuresi As Integer
    Sub New()
        smtpServer = "localhost"
        UyusunMu = True
        UykuLimiti = 100
        UykuSuresi = 1
    End Sub
    Public Sub Postala()
        Dim th As Thread
        th = New Thread(AddressOf Postalayici)
        th.IsBackground = True
        th.Start()
    End Sub
    Private Sub Postalayici()
        Dim baslangic As DateTime
        baslangic = Now
        Dim _strEx As String = ""
        Dim _countEx As Integer = 0
        SmtpMail.SmtpServer = smtpServer
        For i As Integer = 0 To Emailler.Length - 1
           t�m emailler i�in d�ng�
            Try
                If UyusunMu Then
                    If i <> 0 AndAlso i Mod UykuLimiti = 0 Then
                        Thread.CurrentThread.Sleep(New TimeSpan(0, UykuSuresi, 0))
                    End If
                End If
                Mesaj.To = Emailler(i)
                SmtpMail.Send(Mesaj)
            Catch ex As Exception
                _countEx += 1
                _strEx += ex.ToString & ControlChars.CrLf & ControlChars.CrLf
            End Try
        Next
        Dim strAdminMsg As New StringBuilder
        strAdminMsg.Append("Toplu mesaj g�nderme i�lemi ba�ar�l� olarak sonland�!")
        strAdminMsg.Append(ControlChars.CrLf)
        strAdminMsg.Append("Email say�s� : " & Emailler.Length)
        strAdminMsg.Append(ControlChars.CrLf)
        strAdminMsg.Append("Ba�lang�� : " & baslangic.ToString)
        strAdminMsg.Append(ControlChars.CrLf)
        strAdminMsg.Append("Biti� : " & Now.ToString)
        strAdminMsg.Append(ControlChars.CrLf)
        strAdminMsg.Append("Ge�en S�re : " & DateDiff(DateInterval.Minute, baslangic, Now))
        strAdminMsg.Append(ControlChars.CrLf)
        strAdminMsg.Append(ControlChars.CrLf)
        strAdminMsg.Append("Olu�an Hatalar : (" & _countEx.ToString & ")")
        strAdminMsg.Append(ControlChars.CrLf)
        strAdminMsg.Append(_strEx)
        SmtpMail.Send(Mesaj.From, Mesaj.From, "G�nderim ��lemi Tamamland�!", strAdminMsg.ToString)
    End Sub
    Public Property Mesaj() As MailMessage
        Get
            Return _mesaj
        End Get
        Set(ByVal Value As MailMessage)
            _mesaj = Value
        End Set
    End Property
    Public Property Emailler() As String()
        Get
            Return _emailler
        End Get
        Set(ByVal Value() As String)
            _emailler = Value
        End Set
    End Property
    Public Property smtpServer() As String
        Get
            Return _smtpServer
        End Get
        Set(ByVal Value As String)
            _smtpServer = Value
        End Set
    End Property
    Public Property UyusunMu() As Boolean
        Get
            Return _uyusunMu
        End Get
        Set(ByVal Value As Boolean)
            _uyusunMu = Value
        End Set
    End Property
    Public Property UykuLimiti() As Integer
        Get
            Return _uykuLimiti
        End Get
        Set(ByVal Value As Integer)
            _uykuLimiti = Value
        End Set
    End Property
    Public Property UykuSuresi() As Integer
        Get
            Return _uykuSuresi
        End Get
        Set(ByVal Value As Integer)
            _uykuSuresi = Value
        End Set
    End Property
End Class

Yukar�daki s�n�f tasar�m�n� yapt�ktan sonra bu s�n�f� kullanmak i�in a�a��daki gibi bir web form tasarlay�n�z. Kontrollerin isimleri s�ras�yla txtFrom, txtSubject, txtBody, txtSmtpServer ve Button1 dir.

�ekilde g�r�nen webform uygulamas�n�n codebehind dosyas�na a�a��daki kodu ekleyiniz.

Private Function AdresleriAl() As String()
    Dim adresler(3) As String
    adresler(0) = "cengiz11@cengizhan.com"
    adresler(1) = "hancengiz11@hotmail.com"
    adresler(2) = "cengiz.han11@bigfoot.com"
    adresler(3) = "cengiz.han11@celiknet.com"
    Return adresler
End Function

Yukar�daki metod ile email adreslerini dizi de�i�ken olarak geriye d�nd�r�yoruz. Burada sadece d�rt adet email adresine g�nderim yap�ld�� i�in threadinging faydas� g�z ile g�r�lecek �ekilde anla��lamayabilir. Bu metod ile kendi haz�rlad��n�z bir veritaban�nda email listesini �ekerek �ok say�da ki�iye g�nderim yapabilirsiniz.

Private Sub Button1_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Button1.Click
    Dim m As New System.web.mail.MailMessage
    m.From = txtFrom.Text
    m.Subject = txtSubject.Text
    m.Body = txtBody.Text
    m.BodyFormat = Mail.MailFormat.Text
    m.BodyEncoding = System.Text.Encoding.GetEncoding(1254)
    Dim x As New Postaci
    x.smtpServer = txtSmtpServer.Text
    x.Mesaj = m
    x.Emailler = AdresleriAl()
    x.UykuLimiti = 50 50 postada bir bekle
    x.UykuSuresi = 2 dakika
    x.UyusunMu = True
    x.Postala()
End Sub

Yukar�daki kod ile butona t�klad��nda gerekli parametreler ile yeni nesneler olu�turulup Postaci s�n�f�nfan t�retilen x nesnesinin Postala metodu �a�r�l�yor. Bu metodu �a��rarak yeni bit thread i�erisinde ve arkaplan da email g�nderimine ba�lan�r.

Sayfa postback olup tekrar y�klenirken kullan�c� arabirimi normal bi�imde g�r�nt�lenir. Sayfan�n g�rsel unsurlar� mail g�nderim i�leminin bitmesini beklemez ��nk� i�lem arkaplanda yap�l�r. (isbackground) Bu durumda 50 bin ki�iye email g�ndermek istedi�iniz zaman i�lemi ba�latman�z yeterli olacakt�r. E�er uygulamay� uzaktaki bir web sunucusundan (hosting firman�z�n web sunucusu olabilir) �al��t�r�yorsan�z, ak�am i� yerinden ��karken i�lemi ba�lat�p, kendi bilgisayar�n�z� kapat�p gidebilirsiniz. Sabah geldi�inizde email adresinize durum raporunun maillendi�ini g�receksiniz.

Bahsedilen �ekilde bu uygulaman�n t�m m��terilerinize, sitenizin �yelerine mail g�nderir hale gelmesi i�in AdresleriAl metodunun veritaban� ba�lant�l� olarak tekrar d�zenlenmesi gerekebilir.

Bu uygulama ASP.NET ile Threading konusunu anlatmay� amac�yla yaz�ld�. Daha esnek ve �zelle�tirilebilir bir uygulama tasar�m� yapabilirsiniz. �rne�in mail mesaj�n�n i�inde ki�iye ismi ile hitap eden, ki�iye �zel bilgiler sunan bir uygulama yapabilirsiniz. Bunlar sizin uygulama tasar�m�n�za ba�l� konular.

Ayr�ca HTML format�nda mail g�ndermek i�in m.BodyFormat = Mail.MailFormat.Html yapmal�s�n�z. Bu durumda m.Body �zelli�ine ise i�inde html etiketleri bar�nd�ran bir mesaj metni atamal�s�n�z.

Bu makale ile ger�ek hayatta bir �ok ki�inin ihtiya� duydu�u bir konu �zerine de�inmek istedim. Umar�m makalenin birilerine faydas� dokunur.

�rnek uygulamay� indirmek i�in t�klay�n�z. http://www.cengizhan.com/MailSender.zip

Cengiz HAN
cengiz@cengizhan.com
www.cengizhan.com

Makaleyi nas�l buldunuz?

Makaleyi nas�l buldunuz?
�ok K�t�		�ok Yararl�

G�r��leriniz : (opsiyonel)

ASP.NET ile ThreadingPrint Versiyonu

ASP.NET ile Threading

Print Versiyonu