vb.net - FindMimeFromData 関数が一部のマシンで誤った結果を返す

Question

ファイルのMIMEタイプをチェックし、MIMEファイルタイプとその拡張子をクロスチェックしてファイルを検証するVB.netコードがあります。多くのマシンでは正常に動作していますが、一部のマシンでは動作していません。urlmon.dll の関数 FindMimeFromData を使用しました。

1) ```VB.net

Private Shared Function FindMimeFromData(ByVal pBC As IntPtr,
<MarshalAs(UnmanagedType.LPWStr)> ByVal pwzUrl As String,
<MarshalAs(UnmanagedType.LPArray, ArraySubType:=UnmanagedType.I1, SizeParamIndex:=3)> ByVal pBuffer As Byte(), ByVal cbSize As Integer,
<MarshalAs(UnmanagedType.LPWStr)> ByVal pwzMimeProposed As String, ByVal dwMimeFlags As Integer, <Out()> ByRef ppwzMimeOut As IntPtr, ByVal dwReserved As Integer) As Integer
End Function

2) ```VB.net
 Public Shared Function ScanFileForMimeType(fileName As HttpPostedFile, SaveLocation As String) As String
        Dim mimeout As IntPtr
        If Not System.IO.File.Exists(SaveLocation) Then
            Throw New FileNotFoundException(SaveLocation + " not found")
        End If
        Dim MaxContent As Integer = CInt(New FileInfo(SaveLocation).Length)
        If MaxContent > 4096 Then
            MaxContent = 4096
        End If

        Dim fs As New FileStream(SaveLocation, FileMode.Open)

        Dim buf(MaxContent) As Byte
        fs.Read(buf, 0, MaxContent)
        fs.Close()
        Dim result As Integer = FindMimeFromData(IntPtr.Zero, SaveLocation, buf, MaxContent, Nothing, 0, mimeout, 0)

        If result <> 0 Then
            'Throw Marshal.GetHRForExceptionresult)
        End If

        Dim mime As String = Marshal.PtrToStringUni(mimeout)
        Marshal.FreeCoTaskMem(mimeout)
        Return mime
    End Function

また、このコードを Linux サーバーで使用すると、何か問題が発生しますか? ありがとう。