отправитьдляобработки » Поиск

Результаты по ключевому слову: отправитьдляобработки

Как уменьшить вес картинок в базе данных или изменить размер, ширину или высоту картинок?

Иногда возникает необходимость обработать фотографии в 1С автоматически, уменьшить вес картинок в килобайтах, за счет удаления из файла не нужной технической информации и сглаживания цветов, или изменить размер, уменьшить картинку пропорционально задав максимальный размер по ширине или высоте.В этом случае можно:1) установить специальные библиотеки в операционной системе для работы с графикой, н-р GFLAx и подключать их как com-объекты2) использовать api сервисов, таких как optipic.io.

Рассмотрим оба варианта:1) Использование GFLAxСкачиваем и устанавливаем библиотеку GFLAx, скачать можно здесь https://www.xnview.com/en/#downloads

Далее её надо зарегистрировать в Windows. Для этого запускаем CMD.exe с правами администратора и набираем: regsrv32 "путь_к_DLL\GFLAx.dll"Далее уже в программе, для пропорционального изменения размера файла до максимального размера в 500 пикселей можно вставить такой код:

Код 1C v 8.х

 GFLAx = Новый COMОбъект("GFLAx.GFLAx");

GFLAx.LoadBitmap(ИмяИсходногоФайла);

// Получаем исходный размер картинки

Ширина = GFLAx.Width;

Высота = GFLAx.Height;

//определяем максимальную сторону по которой будем проводить пропорциональное изменениеДелитель= ?(Ширина>Высота, Делитель=Ширина/500, Делитель=Высота/500);

НоваяШирина = Ширина/Делитель;

НоваяВысота = Высота/Делитель;

GFLAx.Resize(Цел(НоваяШирина),Цел(НоваяВысота));

GFLAx.SaveBitmapИмяВыходногоФайла);

Данный способ требует специальных настроек операционной системы, навыков системного администрирования и данный способ не проводит полноценную оптимизацию картинки.Кроме того, на компьютере или сервере, где производиться оптимизация эта библиотека должна быть установлена.2) Использование сервиса optipic.ioПодобные сервисы обычно платные, но стоимость использования не высокая, а качество и гибкость существенно выше.

Преимущества использования сервиса optipic.io в проектах 1С:

Легко подключить
Не нужно устанавливать дополнительные библиотеки в операционной системе
Можно использовать как для оптимизации изображений, так и для изменения размера изображения в пикселях (ресайз)
Не зависит от операционной системы и типа используемого клиента
Конфигурация будет работать после переезда на другой компьютер или сервер
Качество и эффективность сжатия производятся в самом оптимальном виде

Использование сервиса можно легко встроить в любой свой проект на 1С. Для этого можно добавить себе функцию, в которую передавать имя файла с исходной картинкой и параметры оптимизации. А в качестве ответа получить имя файла уже оптимизированного сервисом.

Пример такой функции для 1C8:

Код 1C v 8.х

 Функция ОптимизироватьКартинку(ФайлКартинкиИсходный, Качество=70, НужноИзменятьРазмер=Ложь, МаксимальнаяШирина=1000, МаксимальнаяВысота=1000) Экспорт

	ssl = Новый ЗащищенноеСоединениеOpenSSL(Неопределено, Неопределено); 

	email  = "ВашEmail";

	Пароль = "ВашПароль";

	Соедиенение = Новый HTTPСоединение("optipic.io", , email, Пароль, , ,ssl);

	СкриптНаСайте = "api/compress?quality="+Качество+"&from=1c";

	Если НужноИзменятьРазмер Тогда

		СкриптНаСайте = СкриптНаСайте + "&maxwidth="+Формат(МаксимальнаяШирина, "ЧГ=")+"&maxheight="+Формат(МаксимальнаяВысота, "ЧГ=");

	КонецЕсли;

	

	НовыйФайлКартинки = ПолучитьИмяВременногоФайла();

	

	Попытка

		Результат  = Соедиенение.ОтправитьДляОбработки(ФайлКартинкиИсходный, СкриптНаСайте, НовыйФайлКартинки);

		Возврат НовыйФайлКартинки;

		

	Исключение

		//Обработка ошибки

		//Не удалось получить файл

		//Или нужно пополнить баланс

		Возврат ФайлКартинкиИсходный;

	КонецПопытки;

		

КонецФункции

И далее в коде обращаться к данной функции, н-р так

Код 1C v 8.х

 НовыйФайл = ОптимизироватьКартинку(ФайлКартинкиИсходный, 70, Истина, 500, 500);

Категория: 1С ERP Управление предприятием 2.0

Как установить HTTP соединение через прокси (proxy) сервер

В этом посте я покажу несколько примеров HTTP соединения используя прокси сервера:

Общий пример установки параметров прокси:

Код 1C v 8.х

  // соединение с параметрами по умолчанию

Соединение = Новый HTTPСоединение("www.mysite.ru");

 

// сервер использует порт 8080

Соединение = Новый HTTPСоединение("www.mysite.ru", 8080);

 

// сервер использует защищенное соединение (https),

// для подключения к серверу используется прокси

ПроксиСервер = Новый интернетПрокси;

ПроксиСервер.Пользователь = имяПользователя;

ПроксиСервер.Пароль       = парольПользователя;

 

Соединение = Новый HTTPСоединение("www.mysite.ru",,,, ПроксиСервер, Истина);

Пример загрузки файла

Код 1C v 8.х

  // Укажем настройки прокси-сервера

    ПроксиСервер = Новый ИнтернетПрокси;

    ПроксиСервер.Пользователь = "userfile";

    ПроксиСервер.Пароль = "12345";

    ПроксиСервер.Установить("http", "10.1.1.23", "3185");



    СерверИсточник = "shop.com"; 

    Адрес = "/price.asp"; 

    ИмяВходящегоФайла = "c:\temp\input.html";

    // Укажем в HTTP соединении что у нас есть проксик  

    НТТР = Новый HTTPСоединение(СерверИсточник,,,, ПроксиСервер); 

    НТТР.Получить(Адрес, ИмяВходящегоФайла); 

    ВходящийФайл = Новый Файл(ИмяВходящегоФайла);

Вот пример загрузки файла

Код 1C v 8.х

 //Создаем Файл для отправки

ИмяФайлаHTML = КаталогВременныхФайлов() + “My1cV8bNdr”;

ФайлHTML = Новый ЗаписьТекста(ИмяФайлаHTML, КодировкаТекста.ANSI);

ФайлHTML.ЗаписатьСтроку(”–My1cV8bNdr”);

ФайлHTML.ЗаписатьСтроку(”content-disposition: form-data; name=”"userfile”"; filename=”"test.htm”"”);

ФайлHTML.ЗаписатьСтроку(”Content-Type: text/html”);

ФайлHTML.ЗаписатьСтроку(”");

ФайлHTML.ЗаписатьСтроку(”Дальше вставляем html код.”);

ФайлHTML.ЗаписатьСтроку(”–My1cV8bNdr–”);

ФайлHTML.Закрыть();





// Если необходимо использовать прокси

ПроксиСервер = Новый ИнтернетПрокси();

ПроксиСервер.Сервер(”адрес прокси”);

ПроксиСервер.Порт(”порт прокси”);

ПроксиСервер.Пользователь = “пользователь прокси”;

ПроксиСервер.Пароль = “пароль прокси”;





// Формируем заголовок для запроса

ЗаголовокHTTP = Новый Соответствие();

ЗаголовокHTTP.Вставить(”Content-Type”, “multipart/form-data; boundary=My1cV8bNdr”);





// Устанавливаем соединение и отпровляем запрос

HTTP = Новый HTTPСоединение(”сервер куда соединяемся”, , , , ПроксиСервер);

HTTP.ОтправитьДляОбработки(ИмяФайлаHTML, “/upload.php”, КаталогВременныхФайлов() + “result.htm”, ЗаголовокHTTP);

HTTP = Неопределено;

Категория: Работа с Интернет, Почтой (Mail), FTP

Передача файлов и данных на веб-сервер из 1С методами GET и POST Категория: Работа с Интернет, Почтой (Mail), FTP

Двухсторонний обмен с 1C – WEB вариант решения через XML файл Категория: Конвертация данных, Обмен, Перенос