gifts2017

MiracleV8: ВК для 1cv 8.1 и 1cv 7.7

Опубликовал Аркадий Кучер (Abadonna) в раздел Программирование - Внешние компоненты

Работа напрямую с xls-файлами для всех версий 1С.
Для работы компоненты НЕ потребуется установленный Microsoft .NET Framework 2.0, так что качать его не надо ;) [Душелова беззлобно подколол]

Библиотека находится внутри упакованной базы 1CV 8.1, там же файлы, необходимые для демонстрации, там же readme. Желательно первый раз распаковать базу в корень С: (см. ридми)

Прямое чтение xls-файлов, установка иконки главного окна, установка заголовка главного окна, установка прозрачности, асинхронное проигрывание mp3 и wav, трэк-бар на форму с откликом, проигрывание видео прямо на форме отчета, генерация внешних событий

Скачать файлы

Наименование Файл Версия Размер Кол. Скачив.
-
.1229861534 588,69Kb
25.09.09
1269
.1229861534 588,69Kb 1269 Бесплатно

См. также

Внимание! Тема закрыта. Добавлять сообщения в закрытую тему запрещено.
Подписаться Добавить вознаграждение

Комментарии

1. Василий Демидов (Душелов) 21.12.08 15:20
(0) >НЕ потребуется установленный Microsoft .NET Framework 2.0, так что качать его не надо ;) [Душелова беззлобно подколол]

Ага-ага :)

anig99; shik; +2 Ответить
2. Василий Демидов (Душелов) 22.12.08 09:22
Даешь не и т.д., а полный список бантиков! :)
3. Аркадий Кучер (Abadonna) 22.12.08 09:56
(2) Список бантиков я тебе мылом кинул. ;) Вот там бантики так бантики, можно сказать даже петля :))))))))
4. Яков Коган (Yashazz) 22.12.08 10:20
Симпатичные бантики! Буду пробовать!

Несколько не в тему, но раз уж речь о бантиках...
Уважаемые коллеги, а думал ли кто-нибудь из вас над задачей улавливания события пользовательского прерывания - с тем, чтобы при Ctrl+Break генерилось некое событие и, возможно, с переходом к продолжению прерванного?
5. Аркадий Кучер (Abadonna) 22.12.08 10:21
(4) Как два байта отослать! ;)
6. Андрей Скляров (coder1cv8) 22.12.08 10:23
7. Василий Демидов (Душелов) 22.12.08 10:27
(6) Прервать-то прервешь, а продолжить? ;)
8. Василий Демидов (Душелов) 22.12.08 10:28
(3) Бантики и рюшечки... И масочки... :)
9. Евгений Мартыненков (JohnyDeath) 22.12.08 10:38
(3) Аркадий, а ты по какому принципу бантики рассылаешь?
10. Аркадий Кучер (Abadonna) 22.12.08 10:40
(9) По принципу ст. 146 УК РФ :)))
А то некоторые не полностью допонимают
11. Olga Olga (olga1974) 22.12.08 18:17
слушай ничего себе штучка, забавная,а собачка то твоя???
12. Андрей (strah4) 23.12.08 11:21
А реализация считывания значения если в ячейке формула среди бантиков случайно не присутствует? А то у меня тут план БДР надо считывать, там формулы половина и текущая схема от Душелова(большущее ему, кстати, человеческое спасибо, сильно выручает!!!) считывает только пустую строку, можно конечно вручную выделять, копировать и специальной вставкой вставлять назад только значения, но этож юзерам делать, а у них всегда что-нибудь не так, я же в конкретных локациях бываю нечасто. Разобраться и попробовать свое написать конечно можно, но я и так второй месяц без выходных почти.
13. Аркадий Кучер (Abadonna) 23.12.08 11:31
(12) Составил табличку, в первой колонке 1..6, во второй формула - первая в квадрате. Все значения считала...
14. Александр Шишкин (Шёпот теней) 23.12.08 11:36
15. Андрей (strah4) 23.12.08 11:37
Спасибо!!! Буду пробовать!!!
16. Vasily Kushnir (vasilykushnir) 23.12.08 12:53
Библиотекой пользуюсь давно - очень выручает, когда поставщики высылают прайсы екселевские в формате "кто в лес, кто по дрова..."
17. Евгений Мартыненков (JohnyDeath) 23.12.08 14:21
Таки вынудили скачать )))
18. Аркадий Кучер (Abadonna) 23.12.08 14:26
Кто это Вас, молодой человек, вынуждал? ;)))
19. Евгений Мартыненков (JohnyDeath) 23.12.08 15:17
20. Vasily Kushnir (vasilykushnir) 23.12.08 16:46
Только одно замечание, даже не замечание, а так... походу (не путать с по...!) - криво читает Excel-5.0
Может выслать дла пробы образец?
21. Аркадий Кучер (Abadonna) 23.12.08 16:48
Отстань! ;) Уж ежели воруете ёксель - воруйте хотя бы ХР, 2003
22. Vasily Kushnir (vasilykushnir) 23.12.08 16:51
(21) Мне присылают в формате Е5.0 !!!
А мы не воруем - просто временно пользуемся...
23. Альтаир (Altair777) 23.12.08 16:52
(22) "Просю выдать литр самогона во временное пользование" :-)
х/ф "Зеленый фургон"
24. Аркадий Кучер (Abadonna) 24.12.08 08:45
Совершенно случайно обнаружил! (не знал до этого). Если установить на окно
SetLayeredWindowAttributes, то даже при параметре прозрачности 255 (полностью непрозрачно) это окно НЕ ВИДИТ RAdmin, никакие SpyScreenShot-ы тоже! Так что особо "зашифрованные" могут побаловаться написанием программы, которая, например, установит этот атрибут на все окна, кроме 1С :)))
25. Аркадий Кучер (Abadonna) 24.12.08 09:05
+(24) Уточнение, третий RAdmin, говорят, видит. У нас - второй
26. Василий Демидов (Душелов) 24.12.08 09:25
(24) Установить на все, кроме скринсейвера моего ;) А его пустить в фоне и все :)
27. Аркадий Кучер (Abadonna) 24.12.08 09:38
(26) Ты когда на него клавиши на выход приделаешь? Для использования как приложения, а не скринсейвера
28. Василий Демидов (Душелов) 24.12.08 09:41
(27) Так я сделал.. А потом оказалось, что в старых исходниках... Вот сам и запутался, что свежее, а что нет :)
29. Аркадий Кучер (Abadonna) 24.12.08 09:43
Я не знаю как там у вас на C#, а вот у нас в Дельфи стоит галка "Добавить информацию о версии", спецом для таких забывчивых ;)
30. Василий Демидов (Душелов) 24.12.08 09:44
(29) У меня с версиями все ок... Я просто туда-сюда таскал исходними дом-работа-дом :)
31. Аркадий Кучер (Abadonna) 24.12.08 09:45
32. Аркадий Кучер (Abadonna) 24.12.08 09:45
Эту спецом на работу не принес ;)
33. Василий Демидов (Душелов) 24.12.08 09:46
Принес, принес... Открыл уже :) Даже чаю себе не налил еще! А уже начал вносить изменения ;)
34. Аркадий Кучер (Abadonna) 25.12.08 17:41
Нарушил свой принцип - не пихать в 1С что попало ;)
Добавил метод проигрывания видео-файлов (*.avi)
Примечания:
- проигрываются только файлы avi
- воспроизведение асинхронное (независимое, не тормозящее)
- при каждом последующем вызове PlaySound, предыдущий экземпляр плейера разрушается
- воспроизведение осуществляется прямо на форме вызывающего отчета.
- воспроизведение только в истинном размере медиа-файла, без мастштабирования
- размер формы автоматически подстраивается под размер файла
- компонент Дельфи MPlayer очень капризен к установленным кодекам.
у меня установлен "K-Lite Codec Pack Full 3.65.exe" - работает.
Версия библиотеки: 1.2.2.1
35. Аркадий Кучер (Abadonna) 25.12.08 17:46
(34) Сорри, в примечаниях (и ридми) читать не PlaySound, а PlayVideo
[накопипастил :)]
36. sh4d0w (alexeys81@ukr.net) 31.12.08 14:09
Библиотечка - просто супер! Теперь для импорта из Excel буду использовать только её, а не OLE!!! Библиотечку можно удобно включить в обработку вот так: в обработке создаём новый макет. Тип макета - двоичные данные. И в процедуре ПриОткрытии() данной обработки пишем что-то типа:

Папка = СокрЛП(КаталогВременныхФайлов());
Если Прав(Папка, 1) <> "\" Тогда
Папка = Папка + "\";
КонецЕсли;
Компонента = ПолучитьМакет("Компонента");
ПутьКомпонента = Папка + "MiracleV8.dll";
Попытка
Компонента.Записать(ПутьКомпонента);
Исключение КонецПопытки;
Попытка
ЗагрузитьВнешнююКомпоненту(ПутьКомпонента);
Исключение
КонецПопытки;
L = ПолучитьCOMОбъект("","AddIn.MiracleClass");

// Переменная L - глобальная переменная данного модуля

И обработка будет работать в любой системе, не важно есть там или нет этой компоненты!
37. Василий Демидов (Душелов) 31.12.08 14:29
(36) Поздравляю с открытием! :)
38. Василий Демидов (Душелов) 31.12.08 15:25
39. Аркадий Кучер (Abadonna) 10.01.09 20:53
Чёб еще к ней приделать? ;)
40. Андрей (Inteco123) 14.01.09 18:39
Экзель=СоздатьОбъект("AddIn.MiracleClass");

ап=Экзель.ReadXLS("d:\Акт.xls");
КоличествоКолонок = Экзель.ColCount();
{D:\ЭКСЕЛЬ.ERT(14)}: Неверное число параметров

Почему?
41. sh4d0w (alexeys81@ukr.net) 21.01.09 15:30
А можно полный список бантиков сюда: Aleksander.Shadow@gmail.com

И вопросик: загружаю файл xls с формулами. На ячейки с формулами ругается вот так: Ошибка в вызове метода контекста (ReadCell): Произошла исключительная ситуация(AddIn.MiracleClass): -7 509.95 is not f valid integer value

С чем это может быть связано?
42. Аркадий Кучер (Abadonna) 06.02.09 03:01
(40)>КоличествоКолонок = Экзель.ColCount();
{D:\ЭКСЕЛЬ.ERT(14)}: Неверное число параметров

Прошу простить, что поздно ответил. В readme ошибка (в примере всё верно)
ColCount(НомерЛиста);, RowCount(НомерЛист)
43. Олег (Punisher) 21.03.09 12:57
Супер. Использую правда для одной небольшой цели. Воспроизведение звука.
44. Аркадий Кучер (Abadonna) 30.10.09 17:45
Рекомендую качать MiracleV8: Расширенная версия 1.9.6.4
http://www.infostart.ru/public/59436/