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
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)