Stream.Read上的exe文件

Question

我正在将这段C代码移植到VB.net。 功能cat接收指向文件的指针，将其读取并将其重写到控制台中（工作方式与DOS中的TYPE命令相同）。 我的vb实现对于除exe文件以外的所有类型的文件都适用，在这种情况下，写入的“文本”比exe文件中实际的要多得多。

这是C代码：

enum {
    BSIZE = 8192
};

int
cat(FILE *f)
{
    char buf[BSIZE];
    int n;

    while((n = fread(buf, 1, BSIZE, f)) > 0)
        if(fwrite(buf, 1, n, stdout) != n)
            return 0;
    return 1;
}

这是vb代码：

Public Const BSIZE As Integer = 8192

Function cat(ByVal f As Stream) As Integer
    Dim buf(BSIZE) As Byte
    Dim n As Integer

    Do
        n = f.Read(buf, 0, BSIZE)
        Try
            Console.OpenStandardOutput.Write(buf, 0, n)
        Catch ex As IOException
            Return 0
        End Try
    Loop While n > 0

    Return 1
End Function

例如，我使用程序的C-exe作为要读取的文件。 C版本写了大约10行难以理解的字符，而VB版本写了70多行。 在这些当中，我注意到了一些有趣的事情：

P§@ Mingw运行时失败：地址％p处％d字节的VirtualQuery失败，未知的伪重定位协议版本％d。 未知的伪重定位位大小％d。 GCC：（tdm-1）5.1.0 GCC：（tdm-1）5.1.0 GCC：（tdm-1）5.1.0 GCC：（tdm-1）5.1.0

看起来Stream.Read方法正在读取的内容超出其应读取的内容。 为什么会这样呢？