我有几个线程将使用的模块中的三个函数。所有的功能都访问除主doWork子之外的局部变量。这是一个线程安全的代码?
Sub DoWork(byval i as integer)
synclock (ListTasks)
dim strItem as string =ListTasks(CInt(i)).ToString
end SyncLock
dim strHtml as string = GetHtml(strItem)
dim strParsed as string = ParseHtml(strHtml)
dim strResult as string = Report(strParsed)
End sub
Function GetHtml(byval url as string) as string
'code to get website
ens sub
Function ParseHtml(Byval html as string) as string
'code to parse HtmlString
end function
Function Report(Byval html as string) as string
'do the work
end function
这是一个线程安全的代码,以便没有线程会覆盖数据?
你的代码中使用了哪个'ListTasks'?该代码也很重要。 – Justin