Всем привет!
Подскажите как на обработке можно воспроизвести видеофайл!!!

ActiveX

В помощь тебе куча компонентов ActiveX. Самый доступный для использования - Windows Media Player. При наличии определенного опыта можно сделать через Flash (SWF) в компоненте Shockwave Flash Object.

через Windows Media Player можно будет организовать прокрутку всех видео из определенной папки?

(0) простите. а зачем в 1с видео??

(3) да.

(4) :) желание клиента - закон

(5) имеется ввиду тот ActiveX, который подключается через таблицу или через какую-то внешнюю компоненту?

(6) это понятно. но что в 1с можно к видео присобачить

(7) Перебирай все видео средствами 1С

можно вставить в форму медиаплейер без активикса

(10) как?

(11) три варианта

(9) не понял Вас

(10) некрасиво же ..без интерфейса на морде.

но лучче с активиксом, очень популярна (и заслуженно конечно) 1с++

(14) я предлагаю целиком медиаплейер затолкать ))

(14)(16) а можно поподробнее?

(17) запускаешь медиаплейер, можно скрытым
и динамик врапером делаешь его дочерним форме и указываешь координаты

смотрю ActiveX
как называется класс для ActiveX Windows Media Player?
Что-то не получается запустить Windows Media Player по след структуре
АтрФормы = СоздатьОбъект("АтрибутФормы");
АтрФормы.УстановитьАтрибут(Форма,"Атрибут");
Дерево=СоздатьОбъект("Windows Media Player");//класс-наследник АктивИкс
АтрФормы.СоздатьЭлементУправления(Дерево); // СоздатьЭУ
Дерево.СоздатьЭУ("Windows Media Player");

(19)http://slil.ru/29217603

WMPlayer.OCX

(18) хитро..
дюнаврапер хорошая вещь..

(22) както делал вордом (как обычно )) ) всавлял cmd.exe

(20) Создание элемента управления MSComCtlLib.ImageComboCtl.2 не удалось

(24) а 1сpp загружена хоть?

(25) да

(26) а версия какая ? а MSCOMCTL.OCX ежели перезарегать?

а вот это выводит диалог выбора цвета ?

+27 http://slil.ru/29217776

+28 а если поменять на MSComCtlLib.ImageComboCtl ... ругается ?

(27) 1с++ 3.0.1.23

(28) Нет в системе файла comdlg32.ocx

+ (31) перезарегил MSCOMCTL.OCX, не помогло

(29) Создание элемента управления MSComCtlLib.ImageComboCtl не удалось

(33) другие то хоть создаются ?
1сpp какой версии хоть?

+34 а вижу..
в реестре посмотри, есть ли MSComCtlLib.ImageComboCtl

(35) все дело было в comdlg32.ocx

+(36) установил заработало :), спасибо

Перем Wmp1;
//======================================================================
Функция СоздатьКонтрол(ИмяКонтрола,ИмяАтрибутаФормы)
   АктивХ   = СоздатьОбъект("АктивИкс") ;
   АктивХ.УстановитьАтрибут(Форма,ИмяАтрибутаФормы);
   АктивХ.СоздатьЭУ(ИмяКонтрола);
   Возврат АктивХ.Объект;
КонецФункции // СоздатьКонтрол


//======================================================================
Процедура ПослеСозданияФормы()
   //WMPlayer control
   Wmp1 = СоздатьКонтрол("WMPlayer.OCX.7","Wmp");
   Wmp1.URL = "D:\MVI_4793.avi";
   
КонецПроцедуры // ПослеСозданяФормы

при выполнении кода вылазит ошибка
Wmp1.URL = "D:\MVI_4793.avi";
{D:\1CBASES\WMP\ВИДЕО.ERT(39)}: :

очень странно даже текст ошибки не пишет!

в отладчике
Wmp1 = OLE.IWMPPlayer4

(38)    
   Wmp1.FileName = "c:\1.mp3";
   Wmp1.Controls.Play();

(41)
Wmp1.FileName = "c:\1.mp3";
{D:\1CBASES\WMP\ВИДЕО.ERT(40)}: Поле агрегатного объекта не обнаружено (FileName)

в отладчике

Wmp1.FileName = Ошибка в выражении!
Wmp1.fullscreen = 0

хотя при попытке выполнить след код выходит ошибка
Wmp1.fullscreen = 1;
{D:\1CBASES\WMP\ВИДЕО.ERT(39)}: :

блин, ну посмотри ты свойства контрола..

Плеер = СоздатьКонтрол("WMPlayer.OCX.7","Wmp");
Контрол = Плеер.controls;
Плеер.URL = "D:\MVI_4793.avi";
Контрол .play();

Контрол = Плеер.controls;
{D:\1CBASES\WMP\ВИДЕО.ERT(45)}: :

все равно не работает

я прошу прощения за тупые вопросы,
где можно посмотреть описание этого объекта?

(45) для начала, сам контрол на форме отобразился хоть?

(46)Белый квадрат
в нем написано "Здесь должен быть АктивИкс"
и по диагоналям идут две линии

(48) значит не отобразился

(48)и как его отобразить?

(49) для начала, запустить (28).

Запустил - тоже самое

(50) Запустил - тоже самое

(52) зарегь comdlg32.ocx и MSCOMCTL.OCX

зарегал! все равно.. :(

(54) код в (28) выполняется ?

да

(56) т.е диалоговое окошко появляется ?
И это, сейчас то что не работает ?
Контрол - проигрыватель появился ?

(57) попробовал твой код из (20)


//======================================================================
Функция СоздатьКонтрол(ИмяКонтрола,ИмяАтрибутаФормы)
   АктивХ   = СоздатьОбъект("АктивИкс") ;
   АктивХ.УстановитьАтрибут(Форма,ИмяАтрибутаФормы);
   АктивХ.СоздатьЭУ(ИмяКонтрола);
   Возврат АктивХ.Объект;
КонецФункции // СоздатьКонтрол


//======================================================================
Процедура ПослеСозданияФормы()
   //ImageCombo control        MSComCtlLib.ImageComboCtl.2
   СоздатьКонтрол("MSComCtlLib.ImageComboCtl.2","ImageCombo");

   //ImageList control         MSComCtlLib.ImageListCtrl.2
   СоздатьКонтрол("MSComCtlLib.ImageListCtrl.2","ImageList");

   //ListView control          MSComCtlLib.ListViewCtrl.2
   СоздатьКонтрол("MSComCtlLib.ListViewCtrl.2","ListView");

   //ProgressBar control       MSComCtlLib.ProgCtrl.2
   СоздатьКонтрол("MSComCtlLib.ProgCtrl.2","Prog");

   //Slider control            MSComCtlLib.Slider.2
   СоздатьКонтрол("MSComCtlLib.Slider.2","Slider");

   //StatusBar control         MSComCtlLib.SBarCtrl.2
   СоздатьКонтрол("MSComCtlLib.SBarCtrl.2","SBar");

   //Toolbar control           MSComCtlLib.Toolbar.2
   СоздатьКонтрол("MSComCtlLib.Toolbar.2","Toolbar");

   //TreeView control           MSComCtlLib.TreeViewCtrl.2
   СоздатьКонтрол("MSComCtlLib.TreeCtrl.2","Tree");
   
   //WMPlayer control
   СоздатьКонтрол("WMPlayer.OCX.7","Wmp");
   
КонецПроцедуры // ПослеСозданяФормы


вышли прямоугольники с текстом "Здесь должен быть АктивИкс"

перенес АктивХ   = СоздатьОбъект("АктивИкс")  из функции в процедуру, добавил в начале Перем АтивИкс. После этого заработало

(58) не помню, вроде только в старых версиях 1cpp, были прроблемы, ежели Перем не объявишь..

(59) возможно. Но вот из контролов только последний отображался, пока не перенс создание объекта в процедуру ПослеСозданияформы()

а чо кмд еще никто не вложил ? ))

(18) как всегда рулит
*засечка* :)

Вроде как есть такая ВК - miracle.dll, которая умеет это.

(63) )))

а адинес умеет и без этого, ну разве что только со мсо и прочими апологетами)

Все классно работает спасибо!
Выподлняю код - проигрывается след файл,
только не ставится во весь экран:
//*******************************************
Процедура ПослеСозданияФормы()
   АктивХ   = СоздатьОбъект("АктивИкс") ;
   АктивХ.УстановитьАтрибут(Форма,"Wmp");
   АктивХ.СоздатьЭУ("WMPlayer.OCX.7");
   Плеер = АктивХ.Объект;
   Контрол = Плеер.Controls;
   Плеер.URL = "D:\MVI_4793.avi";
   Плеер.FullScreen = 1;
   Контрол.play();
КонецПроцедуры

Плеер.FullScreen = 1;
{D:\1CBASES\PT\EXTFORMS\ТАВТ.ERT(663)}: :

Как сделать FullScreen

Благодарю.

вопрос решился так:

Плеер.URL = "D:\TBA\ShowroomfilmGolfGTI2009.mpg";
Плеер.settings.volume = 100;
Контрол.play();
Пока Плеер.playState <> 3 Цикл
    Состояние("Preparing new media item.");
КонецЦикла;
Плеер.FullScreen = -1;

Только этот код уже лучше вызывать не в ПослеСозданияФормы(), а то 1с может подвиснуть

Всем спасибо! Вы крутые мужики.