Мне только что написали функцию, которая использует MediaToolKit.DLL, которая была добавлена в папку Bin. Когда я вызываю функцию, я получаю сообщение об ошибке «Доступ к пути \ MediaToolkit запрещен». Кто-нибудь знает, как это исправить? Я пытаюсь вызвать функцию, как это ..
ConvertFile("E:\kunden\homepages\19\d664110395\www\example\catalog\videos\" & imageFilename, "E:\kunden\homepages\19\d664110395\www\example\catalog\videos\new\" & imageFilename, Options.VideoSize.Hd720)
А вот функция ..
Private Function ConvertFile(ByVal sourceFile As String, ByVal destinationFile As String,
ByVal videoSize As MediaToolkit.Options.VideoSize) As MediaFile
Dim inputFile = New MediaFile With {.Filename = sourceFile}
Dim outputFile = New MediaFile With {.Filename = destinationFile}
Using engine = New Engine()
'engine.ConvertProgressEvent = RaiseEvent engine_ConvertProgressEvent
'engine.ConversionCompleteEvent = RaiseEvent engine_ConversionCompleteEvent
engine.Convert(inputFile, outputFile, New MediaToolkit.Options.ConversionOptions With {
.VideoSize = videoSize
})
engine.GetMetadata(inputFile)
engine.GetMetadata(outputFile)
End Using
Dim inputMeta As Metadata = inputFile.Metadata
Dim outputMeta As Metadata = outputFile.Metadata
Return outputFile
End Function