v7: Еще один диалог открытия/сохранения файлов в адинес (HtmlDlgHelper)

1C 7.7

08.08.11

✎

13:32

Есть некоторые особенности и варианты использования


 
//*******************************************
 
Процедура Сформировать()
 
    Перем Окно;
 
    Сигнатура=_GetPerformanceCounter();
 
    ЗапуститьПриложение("mshta ""about:
 
    |<hta:application border='none' caption='no' showintaskbar='no' />
 
    |<body onload=""javascript:window.resizeTo(0,0);obj.object.PutProperty('Сигнатура','"+Сигнатура+"')"">
 
    |    <object id='obj' classid='clsid:8856F961-340A-11D0-A96B-00C04FD705A2'><param name=RegisterAsBrowser value=1></object>
 
    |    <object id='dlg' classid='clsid:3050f4e1-98b5-11cf-bb82-00aa00bdce0b'></object>
 
    |</body>
 
    |""");
 
    ХТМЛ = СоздатьОбъект("htmlfile");
 
    ХТМЛ.Open("text/html");
 
    //<-- Подготовим нужные методы
 
    ХТМЛ.Write("<script>Новый=function(x,y){return new x(y)}</script>");
 
    Это=ХТМЛ.documentElement.document.script;
 
    Шел=СоздатьОбъект("Shell.Application");
 
    Начало=_GetPerformanceCounter();
 
    Пока (_GetPerformanceCounter()-Начало<3000) и (ПустоеЗначение(Окно)=1) Цикл
 
        Окна=Это.Новый(Это.Enumerator,Шел.Windows());
 
        Пока Окна.atEnd(0)=0 Цикл
 
            Если Строка(Сигнатура)=Окна.item(0).GetProperty("Сигнатура") Тогда
 
                Окно=Окна.item(0);
 
                Прервать;
 
            КонецЕсли;
 
            Окна.moveNext(0);
 
        КонецЦикла;
 
    КонецЦикла;
 
    Док=Окно.document;
 
    Окно=Док.parentWindow;
 
    Диалог=Окно.dlg.object;
 
    Диалог.openfiledlg("C:\*.jpg;*.gif;*.png;*.bmp ",,"Картинки (*.jpg;*.gif;*.png;*.bmp)|*.jpg;*.gif;*.png;*.bmp|Все файлы (*.*)|*.*","Выберите картинку...");
 
    Окно.close();
 
КонецПроцедуры