По теме из базы знаний
- Загрузка номенклатуры c картинками (несколько потоков одновременно) и сопутствующими данными в базу и любые документы из yml, xls, xlsx, xlsm, ods, ots, csv для УТ 10.3, УТ 11 (все), БП 3, КА 2, ERP 2, УНФ 1.6/3.0, Розница 2/3.0
- Загрузка файлов/картинок/изображений/фото номенклатуры PRO (УНФ, УТ 11, ERP, Розница)
- Просто картинки. И удобно смотреть
- Загрузка и просмотр картинок в номенклатуре (форма элемента, списка, выбора), создание отчета "Прайс-лист" с картинками
- Удобный просмотр картинок библиотеки и других
Найденные решения
Остальные ответы
Подписаться на ответы
Инфостарт бот
Сортировка:
Древо развёрнутое
Свернуть все
(1) Лови для клюшек
Функция глКодироватьСтрокуВ_Base64(_Строка, Кодировка="Base64") Экспорт
ЦДО=СоздатьОбъект("CDO.Message");
БодиПарт=ЦДО.BodyPart;
Поля=БодиПарт.Fields;
Поле=Поля.Item("urn:schemas:mailheader:content-type");
Поле.Value="text/plain; charset=""windows-1251""";
Поля.Update();
Стрим = БодиПарт.GetDecodedContentStream();
Стрим.charset = "windows-1251";
Стрим.WriteText(_Строка);
Стрим.Flush();
БодиПарт.ContentTransferEncoding = Кодировка;
Стрим=БодиПарт.GetEncodedContentStream();
Возврат Стрим.ReadText();
КонецФункции
//***********************************************************
// Можно кодировку задать как "quoted-printable"
Функция глДекодироватьСтрокуИз_Base64(_Строка, Кодировка) Экспорт
ЦДО=СоздатьОбъект("CDO.Message");
БодиПарт=ЦДО.BodyPart;
БодиПарт.ContentTransferEncoding = Кодировка;
Стрим=БодиПарт.GetEncodedContentStream();
Поля=БодиПарт.Fields;
Поле=Поля.Item("urn:schemas:mailheader:content-type");
Поле.Value="text/plain; charset=""windows-1251""";
Поля.Update();
Стрим.WriteText(_Строка);
Стрим.Flush();
Стрим = БодиПарт.GetDecodedContentStream();
Стрим.charset = "windows-1251";
Возврат Стрим.ReadText();
КонецФункции
Функция глКодироватьСтрокуВ_Base64(_Строка, Кодировка="Base64") Экспорт
ЦДО=СоздатьОбъект("CDO.Message");
БодиПарт=ЦДО.BodyPart;
Поля=БодиПарт.Fields;
Поле=Поля.Item("urn:schemas:mailheader:content-type");
Поле.Value="text/plain; charset=""windows-1251""";
Поля.Update();
Стрим = БодиПарт.GetDecodedContentStream();
Стрим.charset = "windows-1251";
Стрим.WriteText(_Строка);
Стрим.Flush();
БодиПарт.ContentTransferEncoding = Кодировка;
Стрим=БодиПарт.GetEncodedContentStream();
Возврат Стрим.ReadText();
КонецФункции
//***********************************************************
// Можно кодировку задать как "quoted-printable"
Функция глДекодироватьСтрокуИз_Base64(_Строка, Кодировка) Экспорт
ЦДО=СоздатьОбъект("CDO.Message");
БодиПарт=ЦДО.BodyPart;
БодиПарт.ContentTransferEncoding = Кодировка;
Стрим=БодиПарт.GetEncodedContentStream();
Поля=БодиПарт.Fields;
Поле=Поля.Item("urn:schemas:mailheader:content-type");
Поле.Value="text/plain; charset=""windows-1251""";
Поля.Update();
Стрим.WriteText(_Строка);
Стрим.Flush();
Стрим = БодиПарт.GetDecodedContentStream();
Стрим.charset = "windows-1251";
Возврат Стрим.ReadText();
КонецФункции
(11) Это исходный base64:
"data:image/webp;base64,UklGRrgFAABXRUJQVlA4IKwFAACQLgCdASo6Ad0APu1yslUppiUjIVLqCTAd
Я уже наверно понял свою ошибку: сохраняю результат в файл через объект "Текст", на через двоичный файл.
Ищу как, может есть идеи?
"data:image/webp;base64,UklGRrgFAABXRUJQVlA4IKwFAACQLgCdASo6Ad0APu1yslUppiUjIVLqCTAd
Я уже наверно понял свою ошибку: сохраняю результат в файл через объект "Текст", на через двоичный файл.
Ищу как, может есть идеи?
обСтримВыход=СоздатьОбъект("ADODB.Stream");
обСтримВыход.Type=1;
обСтримВыход.Mode=3;
обСтримВыход.Open();
олеШелл = СоздатьОбъект("MSScriptControl.ScriptControl");
// установим язык сценариев
олеШелл.Language = "vbscript";
// добавим созданные объекты
олеШелл.AddObject("oleADO", обСтримВыход);
олеШелл.AddObject("WinHttp", WinHttp);
// с помощью скрипта запишем в поток ADO данные из
// объекта XMLHttpRequest
// то есть содержимое страницы
олеШелл.Eval("oleADO.Write(WinHttp.ResponseBody)");
обСтримВыход.SaveToFile(ИмяВходящегоФайла,2);
обСтримВыход.Close();
Если ответ так сохранить?
обСтримВыход.Type=1;
обСтримВыход.Mode=3;
обСтримВыход.Open();
олеШелл = СоздатьОбъект("MSScriptControl.ScriptControl");
// установим язык сценариев
олеШелл.Language = "vbscript";
// добавим созданные объекты
олеШелл.AddObject("oleADO", обСтримВыход);
олеШелл.AddObject("WinHttp", WinHttp);
// с помощью скрипта запишем в поток ADO данные из
// объекта XMLHttpRequest
// то есть содержимое страницы
олеШелл.Eval("oleADO.Write(WinHttp.ResponseBody)");
обСтримВыход.SaveToFile(ИмяВходящегоФайла,2);
обСтримВыход.Close();
Если ответ так сохранить?
На выходе и есть содержимое RIFF, типа:
RIFFёWEBPVP8 ¬ђ.ќ*:Э>нrІU)¦%#!Rк 0 ‰inбsAу«ипkxфЩнЪџЕ_Ћ<УnиeѕЪFtЯж)эЈРЫ?пTы~№zX{э№цOеФ7.c|є†еМeн?пкњхO—ЩsЏ<u§.mЪ‡dgЋ4бћДwNз–тsёёE©И+•RpЬ№ЌтиеЂ[\<лЅИр}l‡‰юu4®&њ7.c|ґeПFE~`xрХHG
Е„©“GЗ JVOЊс/Цw/°\Й‹&2Н4Жщu
КЄ*FЏ/Ћу<QHСїЗbђ€:)Вн°мЊсЖ™DТ”PМХi4Ж4б№sг:и]щҐЧSLјІHу>Йa№sе§ыrѓ„…g?ѕ~бЖ(n\ЖщiюЬУїSo*tћ8У†еДmg %sТЙ]•>СFщu
Буду пробовать через BinaryData.
RIFFёWEBPVP8 ¬ђ.ќ*:Э>нrІU)¦%#!Rк 0 ‰inбsAу«ипkxфЩнЪџЕ_Ћ<УnиeѕЪFtЯж)эЈРЫ?пTы~№zX{э№цOеФ7.c|є†еМeн?пкњхO—ЩsЏ<u§.mЪ‡dgЋ4бћДwNз–тsёёE©И+•RpЬ№ЌтиеЂ[\<лЅИр}l‡‰юu4®&њ7.c|ґeПFE~`xрХHG
Е„©“GЗ JVOЊс/Цw/°\Й‹&2Н4Жщu
КЄ*FЏ/Ћу<QHСїЗbђ€:)Вн°мЊсЖ™DТ”PМХi4Ж4б№sг:и]щҐЧSLјІHу>Йa№sе§ыrѓ„…g?ѕ~бЖ(n\ЖщiюЬУїSo*tћ8У†еДmg %sТЙ]•>СFщu
Буду пробовать через BinaryData.
Не получается корректно сохранить файл.
- это через веб-браузер
- это через 1с-ку, и здесь чего-то не хватает.
Как в 1с-ке сохранить двоичный файл?, пока не получается.
- это через веб-браузер
- это через 1с-ку, и здесь чего-то не хватает.
Как в 1с-ке сохранить двоичный файл?, пока не получается.
Прикрепленные файлы:
Без названия.webp
pic1.jpg
Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот