vb.net 大于1G的tiff文件分块读取并另存为图片

对于大于 1G 的 TIFF 文件，可以采用分块读取的方式，避免一次性加载整个文件导致内存不足。下面是一个简单示例，将 TIFF 文件分成大小相等的多个块，分别读取并拼接成完整的图片，再保存为新的图片。

' 打开 TIFF 文件
Using fs As FileStream = File.Open("path/to/tiff", FileMode.Open, FileAccess.Read)
    Dim fileSize As Long = fs.Length
    Dim blockSize As Long = 1024 * 1024 * 1024 ' 每个块的大小为 1G
    Dim blockCount As Integer = Math.Ceiling(fileSize / blockSize)
    
    ' 读取每个块，并拼接成完整的图片
    Dim fullImage As Image = Nothing
    For i As Integer = 0 To blockCount - 1
        Dim buffer(blockSize - 1) As Byte
        Dim bytesRead As Integer = fs.Read(buffer, 0, blockSize)
        If bytesRead > 0 Then
            ' 将字节数组转换为内存流
            Using ms As New MemoryStream(buffer, 0, bytesRead)
                Dim blockImage As Image = Image.FromStream(ms)
                If fullImage Is Nothing Then
                    ' 第一个块，直接赋值
                    fullImage = blockImage
                Else
                    ' 拼接到完整的图片
                    Using g As Graphics = Graphics.FromImage(fullImage)
                        g.DrawImage(blockImage, fullImage.Width, fullImage.Height)
                    End Using
                End If
            End Using
        End If
    Next
    
    ' 保存为新的图片
    fullImage.Save("path/to/new/image.jpg", ImageFormat.Jpeg)
End Using

需要注意的是，由于 TIFF 文件的压缩方式不同，实际的块大小可能需要根据具体情况进行调整。另外，如果 TIFF 文件包含多个页，可以通过设置 Image.FromStream 方法的第二个参数来读取指定的页数。