异步 PDF 创建的 IOException 问题

Question

我有一个异步方法，可以从数据库中检索的 XML 创建 PDF 文件。一切正常，但偶尔我会收到 IOException，因为当我在创建 PDF 后尝试清理临时的 .fo 文件时，该文件仍在使用中。

Public Sub FormatObjectToPdf(ByVal intRxNo As Integer, ByVal strSourceFileName As String)
    Dim startInfo As New ProcessStartInfo
    Dim strPdfFile As String = g_strRootPath & "Paperwork\" & intRxNo & "M.pdf"

    ' if the PDF file already exists, no need to re-create it
    If Not File.Exists(strPdfFile) Then
        Try
            startInfo.Arguments = "-fo """ & strSourceFileName & """ -pdf """ & strPdfFile & """"
            startInfo.FileName = g_strAppPath & "FO.NET\fonet.exe"
            startInfo.UseShellExecute = True
            startInfo.WindowStyle = ProcessWindowStyle.Hidden

            Using proc As Process = Process.Start(startInfo)
                proc.WaitForExit()

                If proc.HasExited Then
                    proc.Dispose()
                End If
            End Using
        Catch ex As Exception
            Call InsertLog("ErrorLog", "FormatObjectToPdf: " & ex.Message, ex)
            MessageBox.Show(ex.Message, "Create PDF", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
        End Try
    End If

    ' wait 3 seconds to allow file to be released
    System.Threading.Thread.Sleep(3000)

    ' delete the source FO file when processing is complete
    If File.Exists(strSourceFileName) Then
        Try
            File.Delete(strSourceFileName)
        Catch iEx As IOException
            Call InsertLog("ErrorLog", "Could not delete file '" & strSourceFileName & "': " & iEx.Message, iEx)
        Catch ex As Exception
            Call InsertLog("ErrorLog", "Error deleting file '" & strSourceFileName & "': " & ex.Message, ex)
        End Try
    End If
End Sub

FormatObjectToPdf 方法是从另一个方法AsyncXmlToPdf 中调用的，这实际上是抛出IOException 的地方。我最初认为异常是在FormatObjectToPdf 中，因为这是我要删除.fo 文件的地方，所以我添加了一个Sleep(3000)，看看给它几秒钟是否会有所帮助。

这里是AsyncXmlToPdf：

Public Sub AsyncXmlToPdf(ByVal state As Object)
    Dim intRxNo = state(0)
    Dim flgPrintResult As Boolean = state(1)
    Dim strFileName As String = g_strAppPath & intRxNo & ".fo"
    Dim strOutput As String
    Dim strPdfFile As String = g_strRootPath & "Paperwork\" & intRxNo & "M.pdf"

    Try
        If File.Exists(strPdfFile) Then
            File.Delete(strPdfFile)
        End If

        If Not File.Exists(strPdfFile) AndAlso Not File.Exists(strFileName) Then
            strOutput = XmlToFormatObject(intRxNo, g_strAppPath & "FO.NET\immfo.xsl")
            Using writer As StreamWriter = New StreamWriter(strFileName)
                writer.Write(strOutput)
            End Using

            Call FormatObjectToPdf(intRxNo, strFileName)
        End If
    Catch ex As Exception
        Call InsertLog("ErrorLog", "AsyncXmlToPdf: " & ex.Message, ex)
    End Try
End Sub

除了strFileName 的声明之外，这两种方法的唯一部分甚至对.fo 文件执行任何操作都在FormatObjectToPdf 中，并且该方法具有用于IOException 的Catch 块。为什么AsyncXmlToPdf 中会捕获到异常？？这是实际的错误消息：

3/25/2015 11:15 AM: [IOException] AsyncXmlToPdf: The process cannot access the file 'C:\Users\<username>\AppData\Local\Apps\2.0\1M2D4TCB.REJ\3LH3JZY2.TQC\<clickonce app>\561964.fo' because it is being used by another process.

除了出现此异常时偶尔出现的孤立的.fo 文件外，一切都按预期工作。有人对我如何找出问题所在有任何建议吗？

Answer 1

The only part of either method ... that even does anything with the .fo file is in FormatObjectToPdf 看来AsyncXmlToPdf 也会尝试在其上打开流写入器。

如果其他一些 BackGroundWorker、Thread 或 Task 也可能在同一组文件上工作，则同一文件可能会在 AsyncXmlToPdf 和 FormatObjectToPdf 中使用。 MSDN 在File.Exists 条目中对此发出警告：

请注意，在您调用 Exists 方法和对文件执行其他操作（例如删除）之间，另一个进程可能会对文件执行某些操作。

在你的情况下，它看起来可能是抛硬币，异常会发生在哪个方法中。

如果意外双击可能会启动同一进程两次，则可能同一文件可能同时在两种方法中使用。您可以添加另一个测试以查看是否可以打开文件进行读写。鉴于该文件不应该存在，您至少可以确定原因。

阻止一组以上作业启动的某种标志可能是最终解决方案。