使用 SDK 以编程方式将转换后的视频添加到 iTunes

Question

我编写了一些简单的代码，与 HandbrakeCLI 交互，将视频转换为 iTunes 可以处理的格式。完成后，我希望它自动添加到 iTunes。

据我从 iTunes SDK 文档中得知，以下 VBScript 代码应该可以工作：

Option Explicit
Dim oiTunes
Set oiTunes = CreateObject("iTunes.Application")
oiTunes.ConvertFile2("D:\Development\VBScript\converted-video.avi")
Set oiTunes = Nothing
Msgbox "Uploaded!"

但是，在运行时，“已上传！”出现消息，但 iTunes 尚未导入（或什至开始导入）任何视频文件。

谁能建议我如何让它发挥作用？此外，如果有人可以向我展示如何确定它是否已完成导入（因为我想在导入完成后重命名元数据），那么我将非常感激。

Answer 1

似乎 oiTunes.ConvertFile2 是一个返回“转换”对象的方法。可能它正在异步转换文件，因此您可以同时执行其他 VBScript 代码。但是，您的代码直接终止了 oiTunes 对象，也终止了转换进程。
似乎有两个属性可以用来读取转换的状态：.ProgressValue 和 .MaxProgressValue。因此，您可以创建一个循环，例如：

Dim oConvert : Set oConvert = oiTunes.ConvertFile2(...)
Do : Loop while oConvert.ProgressValue < oConvert.MaxProgressValue
Set oConvert = Nothing
Set oiTunes = Nothing
MsgBox "Uploaded!"

我现在没有 iTunes，因此我无法验证这是否能解决您的问题，但我希望这能推动您朝着正确的方向前进。

Answer 2

遵循 AutomatedChaos 的有用指示，我提供了以下工作代码示例：

Option Explicit
Dim oiTunes, oTracks, oAdd
Set oiTunes = CreateObject("iTunes.Application")
Set oTracks = oiTunes.LibraryPlaylist
Set oAdd = oTracks.AddFile("D:\Development\VBScript\converted-video.mp4")
Do : Loop While oAdd.InProgress = True
Set oAdd = Nothing
Set oTracks = Nothing
Set oiTunes = Nothing
Msgbox "Uploaded!"

确保您可以首先通过 iTunes UI 导入视频文件，因为如果不能，那么导入将会失败。

尝试将任何内容放入 Do .. Loop 中没有什么意义，因为一个 44 分钟的视频在大约 2 秒内就添加到了我的（相当低的规格）计算机上。