A script to set a subtitle language
Settings - Processing - Add
Name: Select Subtitle
Click "Button on the main form"
Script:
Code:
procedure ProcessItem(const aItem: TWmsScriptMediaItem; const aLanguage: string);
var
i, j: Integer;
sSubtitleList: string;
begin
if VarToStr(aItem.Properties[mpiVideoCodec]) <> '' then begin
sSubtitleList := VarToStr(aItem.Properties[mpiSubtitleList]);
if sSubtitleList <> '' then begin
i := Pos(aLanguage, sSubtitleList);
if i > 0 then begin
j := i + Length(aLanguage);
while (j <= Length(sSubtitleList)) and (sSubtitleList[j] <> ',') do
Inc(j);
aItem.Properties[mpiSubtitleLanguage] := Copy(sSubtitleList, i, j - i)
end
end
end else if aItem.HasChildItems then
for i := 0 to aItem.ChildCount - 1 do
ProcessItem(aItem.ChildItems[i], aLanguage)
end;
begin
if WmsCurrentMediaTreeItem <> nil then begin
WmsShowInformation('Set subtitle language...');
try
ProcessItem(WmsCurrentMediaTreeItem, 'nl');
finally
WmsHideInformation
end
end;
WmsDatabaseAutoSave;
ShowMessage('Setting the subtitle language completed');
ProcessMediaResult := True
end.
Usage:
1. Select folder in Folders [Movies]
2. Click "Select Subtitle"