shahab_ksh
جمعه 04 تیر 1389, 23:00 عصر
با سلام
من از کد زیر برای Long Process استفاده می کنم
idu = Guid.NewGuid()
Dim ts AsThreadStart = NewThreadStart(AddressOf LongRunningProcess)
Dim th AsThread = NewThread(ts)
th.Start()
و تابع LongRunningProcess بصورت زیر می باشد
For i = 0 To 1000 Step i + 1
Thread.Sleep(10)
Next
خوب این کد بصورت صحیح اجرا میشه اما مشکل اینه
وقتی شما قصد اضافه کردن کدی رو غیر از Thread.Sleep(10) دارید
به مشکل بر میخورید و iis دچار مشکل میشه
این کد
ProtectedSub LongRunningProcess()
Dim i AsInteger
For i = 0 To 10 Step i + 1
Thread.Sleep(100)
Dim appPath AsString = Request.PhysicalApplicationPath
Dim filePath AsString = appPath + i + ".txt"
Dim w AsStreamWriter
w = File.CreateText(filePath)
w.WriteLine("This is a test line.")
w.WriteLine("This is another line.")
w.Flush()
w.Close()
Next
EndSub
من از کد زیر برای Long Process استفاده می کنم
idu = Guid.NewGuid()
Dim ts AsThreadStart = NewThreadStart(AddressOf LongRunningProcess)
Dim th AsThread = NewThread(ts)
th.Start()
و تابع LongRunningProcess بصورت زیر می باشد
For i = 0 To 1000 Step i + 1
Thread.Sleep(10)
Next
خوب این کد بصورت صحیح اجرا میشه اما مشکل اینه
وقتی شما قصد اضافه کردن کدی رو غیر از Thread.Sleep(10) دارید
به مشکل بر میخورید و iis دچار مشکل میشه
این کد
ProtectedSub LongRunningProcess()
Dim i AsInteger
For i = 0 To 10 Step i + 1
Thread.Sleep(100)
Dim appPath AsString = Request.PhysicalApplicationPath
Dim filePath AsString = appPath + i + ".txt"
Dim w AsStreamWriter
w = File.CreateText(filePath)
w.WriteLine("This is a test line.")
w.WriteLine("This is another line.")
w.Flush()
w.Close()
Next
EndSub