BeginInvoke与EndInvoke方法解决多线程接收委托返回值问题

最新推荐文章于 2023-02-15 01:17:26 发布

原创最新推荐文章于 2023-02-15 01:17:26 发布 · 1.9k 阅读

2 ·

CC 4.0 BY-SA版权

VB.net 专栏收录该内容

26 篇文章

订阅专栏

本文介绍了一种利用并行事件并行处理CSV加载任务的方法，通过创建平行事件和异步调用，实现任务的并发执行。同时，文章讨论了如何在所有任务完成后进行错误检查，并确保数据加载过程的可靠性。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

    Public Delegate Function ParallelEvent() As Boolean

       '並列処理で行う
        Dim waitHandleList As New List(Of WaitHandle)

        For Each procedure As CSVLoadProcedure In _procedureList
            Dim parallelEvent As ParallelEvent = New ParallelEvent(AddressOf procedure.CSVFieldCheckByConv)
            Dim iAsyncResult As IAsyncResult = parallelEvent.BeginInvoke(Nothing, Nothing)
            If Not parallelEvent.EndInvoke(iAsyncResult) Then
                If Not procedure.LoadException Is Nothing Then
                    WriteSystemErrorLog(procedure.LoadException)
                End If
                Return
            End If

            waitHandleList.Add(iAsyncResult.AsyncWaitHandle)
        Next

        'すべての処理が終了するまで待機()
        WaitHandle.WaitAll(waitHandleList.ToArray())

        If ExceptionExists() Then Throw New CRGaugeException("CSVFieldCheck")

    End Sub

参考

http://www.cnblogs.com/sufei/p/3140557.html