Шелл=СоздатьОбъект("Shell.Application"); Место=Шелл.NameSpace(Путь); Сообщить(Место.GetDetailsOf(Место.ParseName(Файл),26));
ИЕ=CreateObject("InternetExplorer.Application"); ИЕ.Navigate("Aboutblank"); // нужно AboutДВОЕТОЧИЕblank добавить в надежные узлы Док=ИЕ.document; Док.write("<img id=img src=file:"+Каталог+ИмяКартинки+">"); Результат = Док.getElementById("img").height; //Или такой вариант: Текст=СоздатьОбъект("Текст"); Текст.ДобавитьСтроку("<img id=img src='file://"+Путь+Файл+"' >"); Времянка=КаталогВременныхФайлов()+_GetPerformanceCounter()+".html"; Текст.Записать(Времянка); ИЕ=CreateObject("InternetExplorer.Application"); ИЕ.Navigate(Времянка); Пока ИЕ.ReadyState<4 Цикл КонецЦикла; Док=ИЕ.document; Сообщить(Док.getElementById("img").height);