Name: Search video-files on FTP
Click "Button on the main form"
Script:
Code: Select all
const
FtpAddress = 'ftp://127.0.0.1';
TranscodingProfile = ''; // 'Internet-television (Input stream)';
procedure ProcessFolder(const aFolder: Variant; const aFolderPath: string);
var
i, iItemCount: Integer;
Folder, FolderItem, FolderItems: Variant;
sItemPath, sItemName: string;
begin
FolderItems := aFolder.Items;
iItemCount := FolderItems.Count;
for i := 0 to iItemCount - 1 do begin
FolderItem := FolderItems.Item(i);
sItemPath := FolderItem.Path;
sItemName := FolderItem.Name;
if FolderItem.IsFolder then begin
Folder := FolderItem.GetFolder;
ProcessFolder(Folder, aFolderPath + '\' + sItemName)
end else if WmsFileMediaType(sItemPath) = mtVideo then
WmsCreateMediaItem(sItemPath, mfVideoInternetTelevisionItemID, aFolderPath);
end
end;
var
MediaFolder: TWmsScriptMediaItem;
Folder, Shell: Variant;
begin
WmsShowInformation('Search video-files...');
try
MediaFolder := WmsFindMediaFolder(mfVideoInternetTelevisionItemID, FtpAddress);
if MediaFolder <> nil then
MediaFolder.DeleteChildItems;
Shell := CreateOleObject('Shell.Application');
Folder := Shell.NameSpace(FtpAddress);
ProcessFolder(Folder, FtpAddress);
finally
WmsHideInformation
end;
WmsDatabaseAutoSave;
ProcessMediaResult := True
end.
If you want to transfer files without transcoding
Code: Select all
TranscodingProfile = 'Internet-television (Input stream)';
Click "Search video-files on FTP"
The folder "Internet-television" - "Ftp-address"