Генерирование картинки штрихкода
12 января 2021
Нет комментариев
Задача сама по себе простая, но иногда поиск информации про эту вещь заставляет тратить кучу времени. Я сам по себе не любитель долго искать, поэтому запишу этот кусок кода здесь для будущих разработчиков.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 |
Попытка WinHttp = Новый COMОбъект("WinHttp.WinHttpRequest.5.1"); //WinHttpRequest Stream = Новый COMОбъект("ADODB.Stream"); //Stream (ADO) //Адрес = "http://www.calc.ru/generator-shtrikh-kodov/download.php?code="+КодОбъекта+"&type=EAN13"; //Адрес = "http://barcode.tec-it.com/barcode.ashx?translate-esc=off&data="+КодОбъекта+"&code=EAN13&unit=Fit&dpi=96&imagetype=Gif&rotation=0&color=000000&bgcolor=FFFFFF&qunit=Mm&quiet=0"; //Адрес = "https://www.barcodesinc.com/generator_files/image.php?code="+КодОбъекта+"&style=196&type=C39&width=200&height=60&xres=2&font=3"; Адрес = "http://generator.barcodetools.com/barcode.png?gen=0&data="+КодОбъекта+"&bcolor=FFFFFF&fcolor=000000&tcolor=000000&fh=15&bred=0&w2n=2.5&xdim=2&w=0&h=120&debug=1&btype=11&angle=0&quiet=1&balign=2&talign=6&guarg=1&text=1&tdown=1&stst=1&schk=0&cchk=0&ntxt=1&c128=0"; FileName = КаталогВременныхФайлов()+КодОбъекта+".png"; WinHttp.Open("GET", Адрес, Ложь); WinHttp.Send(); Если WinHttp.Status = 200 Тогда Stream = Новый COMОбъект("ADODB.Stream"); Stream.Type = 1; Stream.Mode = 3; Stream.Open(); Stream.Write(WinHttp.ResponseBody); Stream.SaveToFile(FileName, 2); Stream.Close(); Stream = Неопределено; Возврат FileName; Иначе Сообщить("HTTP " + WinHttp.Status + " " + WinHttp.StatusText); Возврат ""; КонецЕсли; Исключение Сообщить("Картинка штрихкода накладной не сгенерирована! Ошибка подключения к серверу! Проверьте интернет-соединение! |"+ОписаниеОшибки()); Возврат ""; КонецПопытки; |
Категория: 1С Предприятие 8.2
Свежие комментарии