0

我有一个程序,其中有几个并行进程写入日志文件,主程序也在读取日志并将其汇集到文本字段中。

问题是,到了一定程度,我错过了日志并且总是读取 0 字节,尽管进程继续写入它。这是我的阅读器子,一段时间后,Dim n As Integer = stream.Read(bytes, numBytesRead, numBytesToRead)行总是给出 0:

Public Function readFile(ByRef stream As FileStream) As String
    Dim bytes() As Byte = New Byte((stream.Length) - 1) {}
    Dim numBytesToRead As Integer = CType(stream.Length, Integer)

    Dim numBytesRead As Integer = 0
    While (numBytesToRead > 0)
        ' Read may return anything from 0 to numBytesToRead. 
        Dim n As Integer = stream.Read(bytes, numBytesRead, numBytesToRead)
        ' Break when the end of the file is reached. 
        If (n = 0) Then
            Exit While
        End If
        numBytesRead = (numBytesRead + n)
        numBytesToRead = (numBytesToRead - n)

    End While
    numBytesToRead = bytes.Length

    Return Encoding.UTF8.GetString(bytes)
End Function

参数是一个全局变量(对主 Winform 来说是全局的),声明为:

Private FSReaderLog As FileStream

并初始化(仅在表单加载中)如下所示,打开流和中继文件内容:

Public Function InitLog(ByVal ruta_fichero As String) As FileStream
    Dim FS As New FileStream(ruta_fichero, FileMode.OpenOrCreate, FileAccess.ReadWrite, FileShare.ReadWrite)
    FS.SetLength(0)
    FS.Flush()
    Return FS
End Function

读者有什么问题?

谢谢

4

0 回答 0