Внешняя компонента для сжатия/распаковки файлов, двоичных данных и строк по алгоритму Zlib, Deflate и GZip

97 Comments

1. fishca 15.03.2016 at 12:38

   Исходники компоненты будут?

   Reply ↓
2. nixel 15.03.2016 at 12:53

   Добро пожаловать в клуб «Yet another unpack»
   
   Скорость работы с тем же zlib сравнивали? Есть прирост?

   Reply ↓
3. frkbvfnjh 15.03.2016 at 13:49

   (1) fishca, нет, исходники пока выкладывать не буду 🙁

   Reply ↓
4. frkbvfnjh 15.03.2016 at 13:51

   (2) nixel, нет скорость не замерял, не думаю, что есть существенная разница

   Reply ↓
5. saa@kuzov.org 15.03.2016 at 15:03

   В типовом примере ВК на ИТС показано, как передавать двоичные данные из ВК в 1С.

   Reply ↓
6. fishca 15.03.2016 at 16:28

   (3) компонента писана на С++ или ???

   Reply ↓
7. frkbvfnjh 15.03.2016 at 18:05

   (6) fishca, компонента написана на Delphi

   Reply ↓
8. frkbvfnjh 15.03.2016 at 18:05

   (5) saa@kuzov.org, оооо, спасибо, гляну, попробую разобраться

   Reply ↓
9. biformatus 15.03.2016 at 21:56

   efd можно распаковать?

   Reply ↓
10. Arxxximed 16.03.2016 at 00:27

    Так это же круто))) можно наконец сжатый http ответ дешифровывать . Или не получиться на лету?

    Reply ↓
11. frkbvfnjh 16.03.2016 at 06:00

    (10) Arxxximed, со сжатым http-ответом не работал, не знаю как там чего устроено, но если он приходит в виде сжатой строки в BASE64, то по крайней мере можно попробовать.

    Reply ↓
12. frkbvfnjh 16.03.2016 at 06:19

    (9) biformatus, я не знаю, что это за зверь efd, вернее не знаю как устроен этот формат, но обработкой он распаковался, правда что дальше делать с этим файлом, не понятно, видимо нужно знать формат распакованного efd.

    Reply ↓
13. BorovikSV 16.03.2016 at 07:13

    (12) EFD — http://infostart.ru/public/19221/

    Reply ↓
14. v77 16.03.2016 at 08:50

    Двоичные данные это VTYPE_BLOB.
    
    function TV8UserObject.V8SetBlob(V: PV8Variant; Value: PByte;
    
    Length: integer): boolean;

    Reply ↓
15. frkbvfnjh 16.03.2016 at 09:12

    (13) BorovikSV, да, спасибо, я тоже нарыл эту публикацию, но сам формат файла там не обсуждался 🙁

    Reply ↓
16. frkbvfnjh 16.03.2016 at 10:50

    (14) v77, да, большое спасибо, кажись это оно! Попробую допилить…

    Reply ↓
17. Steelvan 16.03.2016 at 13:15

    Надо добавить возможность шифрования паролем, тогда можно получить симметричное шифрование без использования диска (сейчас нужен диск при использовании ZIP пароля).

    Reply ↓
18. Serginio 16.03.2016 at 16:17

    (10) http://infostart.ru/public/466052/ Там есть пример использования сжатия трафика.

    http://infostart.ru/public/448668/ в 35 есть пример сжатия разжатия
    
    http://www.forum.mista.ru/topic.php?id=765672#72

    Reply ↓
19. PLAstic 16.03.2016 at 17:16

    В папке лежит архив формата gzip с одним файлом внутри. Пытаюсь извлечь файл с помощью РаспаковатьФайл. Спустя ожидание от 2 секунд до 5 минут задумчивости вылетает приятное окно с информированием, что «работа была завершена, перезапустить или завершить работу». Перезапуск не помогает, файл не распаковывается.
    
    Проблема же метода РаспаковатьФайлGZip в том, что под него надо создавать папку из-за проблем с определением имени файла в архиве. Ну создали мы папку, есть на это СоздатьКаталог(). А удалить потом за собой чем?
    
    Сделай функцию, возвращающую массив имён файлов внутри архива и возможность извлечения файла по имени.

    Добавлено:
    
    Метод РаспаковатьФайлGZip не работает. На том же архиве с одним файлом внутри. Просто ничего не распаковывает. При этом 7-zip нормально его распаковывает.

    Reply ↓
20. frkbvfnjh 17.03.2016 at 05:59

    (19) PLAstic, извините, но не совсем понятно, что Вы делаете. Из текста я понял, что вы gzip файл пытаетесь распаковать методом РаспаковатьФайл. Этот метод не может этого сделать. На данный момент это можно сделать только методом РаспаковатьФайлGZip. И да, за папками нужно следить из 1С самостоятельно, сама компонента ничего удалять не будет. Я добавлю метод получения имени файла и распаковку в файл для GZip. На файл который Вы пытаетесь распаковать я бы посмотрел. Если хотите отправьте мне на почту, я гляну.

    Reply ↓
21. PLAstic 21.03.2016 at 10:00

    (20) подскажи, чем удалять папки из 1С?

    Reply ↓
22. frkbvfnjh 21.03.2016 at 11:07

    (21) PLAstic, Глобальный контекст (Global context)
    
    УдалитьФайлы (DeleteFiles)
    
    Синтаксис:

    УдалитьФайлы(<Путь>, <Маска>)
    
    Параметры:

    <Путь> (обязательный)

    Тип: Строка.
    
    Путь к удаляемым файлам.
    
    <Маска> (необязательный)

    Тип: Строка.
    
    Маска для выбора удаляемых файлов.
    
    Если <Маска> не указана, то удаляются все файлы и каталог <Путь>.

    Reply ↓
23. frkbvfnjh 21.03.2016 at 11:11

    (21) PLAstic, кстати, я обновил публикацию и добавил новые методы, перечитайте публикацию

    Reply ↓
24. PLAstic 22.03.2016 at 11:24

    (22) изучал недавно, но пропустил последнюю строку. Спасибо.

    Reply ↓
25. ture 19.04.2016 at 18:57

    Обрати свой взор на конфиг 1С8 хранящийся на sql. Ты его можешь читать и парсить теперь.
    
    Собственно есть ссылка и имя объекта, надо вынуть УФ форму из соседней базы и нарисовать ее в текущей базе 1С (с представлениями на месте реквизитов объекта).

    Reply ↓
26. frkbvfnjh 20.04.2016 at 05:54

    (25) ture, А что такое

    конфиг 1С8 хранящийся на sql?

    Не совсем понимаю о чем речь, может ссылки по теме дадите…

    Reply ↓
27. Sam13 18.05.2016 at 12:08

    Коллеги, плиз, хелп!
    
    Стоит задача подготовить препроводительную ведомость для сбербанка, данные которой должны быть закодированы также в двумерном штрихкоде.
    
    Штрихкод формируется следующим образом:
    
    — формируется XML-описание препроводительной ведомости
    
    — к результирующему XML применяется deflate
    
    — затем результат кодируется base64, к результирующей строке добавляется сигнатура @NN@ — номер версии формата. 01 или 02
    
    c deflate и base64 возникли проблемы.

    В инструкции сбербанка приведена закодированная строка (сжатая) и ее xml-исходник и команда проверки (linuxового шелла)
    
    echo «@01@eJw9UMlugzAQvfcrkO/ENoZCpWFy6xe0Z+SAS1CMHWGKmr/vmM2nt4z­fLHD9G22ymCkM3tVMXgRLjGt9N7i+Zt9fn2nFkjBr12nrnamZ8+yK8GwW0yF­0etaYCalSkadZBnwVwDX+huVHkQtZlVIKehL4qpIXXuNDo8qLTOVR3ThMTXs­3M+aiFFklRaEqWdBHVah34LsJYWoxTH330wfgkYDz4+C0bR7engSp5UUICt8­5RJdGWIsWbWk/g9QE+EGiOr+eBuOkBz4DtnQa9OZtOAAKWniHEH7Hs2vEh0P­VfDvW2z8i03VO» | sed ‘s/@01@//’ | base64 -d | zlib-flate -uncompress

    Результат:
    
    <?xml version=»1.0″ encoding=»UTF-8″ standalone=»no»?><p_ved><data>2013-04-22</data><n_ob>795401871100001</n_ob><n_symka>345234</n_symk­a><r_chet>40702810538150003536</r_chet><src>srgdfgs</src><no­minal_kol><nominal>100.00</nominal><kol>1</kol><valcode>810</valcode><valtype>01</v­altype></nominal_kol><symbols><symbol>02</symbol><sum>100.00</sum></symbols></p_ved>

    Как я не бился, у меня не удается получить сходный результат.

    Как получить результат, который был сходным со сбербанком? Имею ввиду именно кодирование deflate

    Reply ↓
28. frkbvfnjh 18.05.2016 at 15:29

    (27) Sam13, ща попробую помочь…

    Reply ↓
29. Serginio 18.05.2016 at 16:46

    (27) http://www.forum.mista.ru/topic.php?id=765672#61

    Reply ↓
30. Sam13 19.05.2016 at 09:58

    (29) Serginio, спасибо, почти получилось.
    
    Но я не понял все-таки как сделать deflate твоим (http://www.forum.mista.ru/topic.php?id=765672#61) способом.
    
    Хелпани, плиз.

    Reply ↓
31. Serginio 19.05.2016 at 10:21

    Если тебе нужно просто сжать данные и получить Base64

    стр = «Строка для теста компрессии декомпрессии»;
    
    // Получим используемые типы
    
    MemoryStream=Врап.ПолучитьТип(«System.IO.MemoryStream»);
    UTF8=Врап.ПолучитьТип(«System.Text.Encoding»).UTF8;
    CompressionMode = врап.ПолучитьТип(«System.IO.Compression.CompressionMode»);
    
    
    СжатыйПоток = врап.СоздатьОбъект(MemoryStream);//Поток куда запишутся сжатые данные
    
    
    
    zipStr = врап.СоздатьОбъект(«System.IO.Compression.GZipStream», СжатыйПоток, CompressionMode.Compress);
    
    МассивДанных= UTF8.GetBytes(стр)// Получим массив данных используя кодировку  UTF8
    
    ПотокДляСжатия = Врап.СоздатьОбъект(MemoryStream,МассивДанных);  // Создадим поток из массива данных
    
    
    ПотокДляСжатия.CopyTo(zipStr);
    zipStr.Flush();// Сбросим данные в  СжатыйПоток
    
    zipStr.Close();// Закроем  GZipStream
    
    compressed = СжатыйПоток.ToArray();// Получим массив байт сжатых данных
    
    
    Convert=Врап.ПолучитьТип(«System.Convert»);
    стр64=Convert.ToBase64String(compressed);// Переведем сжатые данные в Base64

    Показать

    Reply ↓
32. Serginio 19.05.2016 at 10:53

    Для Deflate нужно использовать System.IO.Compression.DeflateStream

    Заменить на

    zipStr = врап.СоздатьОбъект(«System.IO.Compression.DeflateStream», СжатыйПоток, CompressionMode.Compress);

    Reply ↓
33. Sam13 19.05.2016 at 13:55

    Спасибо тебе за помощь. Алгоритм отработал нормально, выдал результат. Вот только он не совпадает с тем, что выдает linux

    Вот код, который я исполняю в 1С:

    Стр = «1234567890»;
    
    Врап = Новый COMОбъект(«NetObjectToIDispatch45»);
    MemoryStream=Врап.ПолучитьТип(«System.IO.MemoryStream»);
    UTF8=Врап.ПолучитьТип(«System.Text.Encoding»).UTF8;
    CompressionMode = врап.ПолучитьТип(«System.IO.Compression.CompressionMode»);
    
    СжатыйПоток = врап.СоздатьОбъект(MemoryStream);//Поток куда запишутся сжатые данные
    
    zipStr = врап.СоздатьОбъект(«System.IO.Compression.DeflateStream», СжатыйПоток, CompressionMode.Compress);
    
    МассивДанных= UTF8.GetBytes(стр);// Получим массив данных используя кодировку  UTF8
    ПотокДляСжатия = Врап.СоздатьОбъект(MemoryStream,МассивДанных);  // Создадим поток из массива данных
    ПотокДляСжатия.CopyTo(zipStr);
    zipStr.Flush();// Сбросим данные в  СжатыйПоток
    zipStr.Close();// Закроем  GZipStream
    
    compressed = СжатыйПоток.ToArray();// Получим массив байт сжатых данных
    
    Convert=Врап.ПолучитьТип(«System.Convert»);
    стр64=Convert.ToBase64String(compressed);// Переведем сжатые данные в Base64

    Показать

    Мне возвращается результат: MzQyNjE1M7ewNAAA

    Если я делаю методом проверки сбербанка, (echo ‘1234567890’| zlib-flate -compress | base64), то мне возвращается результат: eJwzNDI2MTUzt7A04AIADUQCGA==
    
    Если пытаюсь результирующую сжатую строку 1с сунуть в линукс, применяю echo ‘MzQyNjE1M7ewNAAA’| base64 -d | zlib-flate -uncompress, получаю:
    
    flate: inflate: dat a: incorrect header check

    Ну и соответственно алгоритм 1С не может расшифровать строку, которая сжата командой линукс (eJwzNDI2MTUzt7A04AIADUQCGA==)

    В чем может быть причина?

    Reply ↓
34. Serginio 19.05.2016 at 14:16

    http://stackoverflow.com/questions/34387549/zlib-compression-incompatibile-c-vs-c-sharp-implementations

    добавить файлы байты

    public static byte[] DecompressZLibRaw(byte[] bCompressed)
    {
    byte[] bHdr = new byte[] { 0x1F, 0x8b, 0x08, 0, 0, 0, 0, 0 };
    
    using (var sOutput = new MemoryStream())
    using (var sCompressed = new MemoryStream())
    {
    sCompressed.Write(bHdr, 0, bHdr.Length);
    sCompressed.Write(bCompressed, 0, bCompressed.Length);
    sCompressed.Position = 0;
    using (var decomp = new GZipStream(sCompressed, CompressionMode.Decompress))
    {
    decomp.CopyTo(sOutput);
    }
    return sOutput.ToArray();
    }
    }

    Показать

    Reply ↓
35. Sam13 19.05.2016 at 17:08

    Круто, спасибо. Я даже немножко что-то понял.
    
    Только как это в мой код 1С сунуть?

    Reply ↓
36. frkbvfnjh 20.05.2016 at 07:19

    (35) Sam13, кажется я решил Вашу проблему. Если еще интересует могу компоненту допилить под Вас. Дело в том, что Deflate не так прост как кажется… На самом деле вариантов сжатия методом Deflate не меренное множество и в Вашем случае как раз используется самый простой, а я в компоненте использовал алгоритм который использует 1С в формате своих файлов. У меня получилось и сжать и распаковать Ваш xml, все хэш суммы совпали.

    Reply ↓
37. Sam13 20.05.2016 at 09:14

    (36) буду очень признателен.
    
    Думаю, что это будет полезно многим, т.к. сейчас сбер многих переводит на печатную форму со штрихкодами. Но для формирования предлагает свой софт.
    
    Неудобно пользоваться еще одной программой, когда уже есть база 1С.

    Reply ↓
38. frkbvfnjh 20.05.2016 at 13:03

    (37) Sam13, Обработку с новой компонентой выслал Вам на почту. Проблема оказалась куда глубже чем просто алгоритм сжатия. Дело в том, что в Вашем примере текст должен быть именно в кодировке ANSI, а из 1С, строки можно передать только в уникоде, поэтому помимо смены алгоритма сжатия еще пришлось предварительно менять кодировку строк с UTF8 в ANSI, но в итоге все отработало как надо. В дальнейшем возможно обновлю публикацию и для каждой функции по сжатию строк добавлю аналоги с постфиксом «ANSI» и добавлю функции со стандартным алгоритмом Deflate. Надеюсь помог.

    Reply ↓
39. frkbvfnjh 20.05.2016 at 13:10

    (37) Sam13, кстати если работаете в управляемом приложении то перед тестирование предварительно удалите файлы из каталога %APPDATA%1C1Cv8ExtCompT, по крайней мере удалите файл Arc1C.dll, а то 1С будет упорно использовать старую версию…

    Reply ↓
40. dshevchenko 20.05.2016 at 14:16

    (38) а можете выслать и мне исправленный вариант? У меня та же проблема, заморочки со Сбербанком.

    Reply ↓
41. frkbvfnjh 20.05.2016 at 15:04

    (40) dshevchenko, хорошо, скиньте почту

    Reply ↓
42. dshevchenko 20.05.2016 at 15:50

    (41) в профиле, d.shevchenko@pokupochka.ru , заранее спасибо.

    Reply ↓
43. Serginio 20.05.2016 at 16:55

    (35)
    
    Замени
    

    UTF8=Врап.ПолучитьТип(«System.Text.Encoding»).UTF8;

    на
    

    UTF8=Врап.СоздатьОбъект(«System.Text.Encoding»,1251);

    Reply ↓
44. dshevchenko 23.05.2016 at 10:34

    Ура, все работает! Тестовые xml, запакованные вашей исправленной
    
    обработкой, нормально распаковываются Сбером. Огромное вам спасибо!
    

    Reply ↓
45. frkbvfnjh 23.05.2016 at 11:13

    (44) dshevchenko, спасибо за ответ. Тогда скоро обновлю публикацию…

    Reply ↓
46. Sam13 23.05.2016 at 16:21

    Подтверждаю, все работает. Большое спасибо.
    
    Сбер принял штрихкод.
    
    Постараюсь сделать публикацию по формированию ШК

    Reply ↓
47. Serginio 23.05.2016 at 17:47

    34+ Если добавить заголовочные файлы то разжимает

    врап=новый COMОбъект(«NetObjectToIDispatch45»);
    MemoryStream=Врап.ПолучитьТип(«System.IO.MemoryStream»);
    UTF8=Врап.ПолучитьТип(«System.Text.Encoding»).UTF8;
    CompressionMode = врап.ПолучитьТип(«System.IO.Compression.CompressionMode»);
    UTF8=Врап.ПолучитьТип(«System.Text.Encoding»).GetEncoding(1251);
    Convert=Врап.ПолучитьТип(«System.Convert»);
    
    Загол= Convert.FromBase64String(«H4sIAAAAAAA=»);
    стр64=»eJwzNDI2MTUzt7A04AIADUQCGA==»;
    compressed=Convert.FromBase64String(стр64);
    
    
    ПотокСжатыхДанных = врап.СоздатьОбъект(MemoryStream);
    ПотокСжатыхДанных.Write(Загол, 0,   Загол.GetLength(0));
    ПотокСжатыхДанных.Write(compressed, 0, compressed.GetLength(0));
    
    ПотокСжатыхДанных.Position = 0;
    GZipПоток =врап.СоздатьОбъект(«System.IO.Compression.GZipStream»,ПотокСжатыхДанных, CompressionMode.Decompress);
    ПотокРазжатыхДанных = врап.СоздатьОбъект(MemoryStream);
    GZipПоток.CopyTo(ПотокРазжатыхДанных);
    Данные=ПотокРазжатыхДанных.ToArray();
    output = UTF8.GetString(Данные);
    
    Сообщить(output);
    

    Показать

    Reply ↓
48. frkbvfnjh 24.05.2016 at 02:25

    (46) Sam13, спасибо за ответ!

    Reply ↓
49. frkbvfnjh 24.05.2016 at 05:37

    (46) Sam13, обновил публикацию. Можете заново скачать обработку, в новой версии исправил проблемы с кириллицей.

    Reply ↓
50. vit-vas 07.10.2016 at 12:57

    На 1С сервере 64 bit не работает что ли?

    Reply ↓
51. frkbvfnjh 10.10.2016 at 05:50

    (50) vit-vas, странно, в теории должно работать… Как проверю, отпишусь, по возможности исправлю.

    Reply ↓
52. biformatus 19.10.2016 at 23:03

    с efd пока никак?

    Reply ↓
53. frkbvfnjh 20.10.2016 at 06:25

    (52) biformatus, дайте формат efd, я сделаю… Я нигде не нашел описания формата. На инфостарте есть плагин для тотал коммандера, но автор то исходник не даст и формат не расскажет, а реверсингом нет ни желания, ни времени, ни опыта заниматься..

    Reply ↓
54. vit-vas 07.11.2016 at 00:25

    (51) будет версия 64 bit?

    Reply ↓
55. frkbvfnjh 07.11.2016 at 11:34

    (54) vit-vas, какая ошибка выходит? Теоретически должно все работать, у меня нет возможности проверить, т.к. нет 64-го сервера 1С.

    Reply ↓
56. Serginio 07.11.2016 at 12:26

    Поставь 64 разрядного 8.3.9 клиента. Полезно для отладки

    Reply ↓
57. mbzapas 15.11.2016 at 16:00

    Что-то пошло не так…
    
    Данные взяты из 1CD:
    
    Исходная строка: {2,e0666db2-45d6-49b4-a200-061c6ba7d569,}
    
    Упаковано компонентой: eJwdjAkKgDAQxPIgC1V60OdY7SvEvzcsA0vIDPtxcbDItMjL1CQKVW5BQ1ek­2yabFOuTxzu13WWV
    
    h59+NrkRCpE=
    
    Хранится в 1CD: e797f7WRTqqBmZlZSpKRrolpipmuiWWSiW6ikYGBroGZYbJZUqJ5iqmZpU4t­AA==

    Это еще один вариант Deflate или неправильно пользуюсь компонентой?

    P.S. на 64-bit текущая версия работать точно не может. 🙁

    Reply ↓
58. frkbvfnjh 25.01.2017 at 08:59

    (54) Добавил поддержку 64 bit

    Reply ↓
59. frkbvfnjh 25.01.2017 at 09:03

    (57)

    e797f7WRTqqBmZlZSpKRrolpipmuiWWSiW6ikYGBroGZYbJZUqJ5iqmZpU4t­AA==
    

    Подозреваю, что строка в данном случае храниться в base64, а не сжатая дефлейтом. Поддержку 64 bit добавил

    Reply ↓
60. МихаилМ 25.01.2017 at 16:52

    и бэйс и дефлэйт (стандартный) есть в 1с8 .

    если автор добавит Zopfli. тогда хоть какой-то смысл будет

    Reply ↓
61. Alligator84 24.06.2017 at 16:56

    Автору респект.
    
    Андрей, DT распакует?

    Reply ↓
62. frkbvfnjh 26.06.2017 at 07:06

    На прямую, думаю что нет. Нужно знать формат DT файла, а я его не знаю. Если кто даст ссылки на какие-то зацепки по этому формату, то постараюсь сделать распаковщик DT-файлов…

    Reply ↓
63. German 05.12.2017 at 00:53

    epf не распаковывает(

    Reply ↓
64. frkbvfnjh 05.12.2017 at 05:12

    Нашел исходник https://infostart.ru/public/15867/
    
    Попробую заточить под внешнюю компоненту

    Reply ↓
65. user894822 16.02.2018 at 12:42

    (58) На 64 бит сервере не работает. Пытаюсь выполнить РаспаковатьСтрокуBase64 в фоновом процессе. Что происходит, непонятно, но что-то настолько плохое, что даже блок Попытка-Исключение это не ловит, процесс просто аварийно завершается.

    Reply ↓
66. user894822 16.02.2018 at 12:45

    (60) поделитесь, где в 1с8 функция распаковки дефлета?

    Reply ↓
67. МихаилМ 16.02.2018 at 13:53

    (66) не готовый в 1с . метода в
    
    https://infostart.ru/public/325624/

    Reply ↓
68. user894822 19.02.2018 at 00:34

    (67) Я видел. Он через файлы работает, а хотелось бы в памяти. Второй недостаток — всегда выдает исключение, т.к. не знает правильной контрольной суммы исходных данных. Т.е. невозможно контролировать целостность данных.

    Reply ↓
69. frkbvfnjh 19.02.2018 at 04:58

    (68) До недавнего времени из внешних компонент не возможно было передавать двоичные данные в 1С, поэтому работа с двоичными данными только через файлы. Начиная с последних платформ такая возможность появилась, будет время, попробую доработать. А по поводу контрольных сумм — за этим следите сами, т.к. это чистый deflate, если нужны контрольные суммы, то пользуйтесь встроенным zip’ом или gzip’ом встроенным в данную внешнюю компоненту.

    Reply ↓
70. user894822 19.02.2018 at 09:13

    (69) По поводу контрольных сумм — мой ответ был Михаилу, по поводу другой обработки, которая работает путем добавления к дефлету заголовка zip-формата и затем использует 1с-овскую функцию распаковки zip.
    
    В моём случае сжатые данные поступают в формате zlib (см. rfc-1950), от чистого дефлета он отличается наличием 2-байтного заголовка в начале и 4-байтной контрольной суммы ADLER32 в конце. Поэтому мне приходится сначала отсекать заголовок zlib.

    Функция РаспаковатьДвоичныеДанные(ДД, ZLIB)
    
    Буфер = ПолучитьБуферДвоичныхДанныхИзДвоичныхДанных(ДД);
    
    // Получить срез со смещением 2 байта, чтобы пропустить заголовок формата ZLIB (RFC-1950)
    Срез = Буфер.ПолучитьСрез(2, Буфер.Размер — 2);
    
    СтрокаBase64 = ПолучитьBase64СтрокуИзБуфераДвоичныхДанных(Срез);
    Возврат ZLIB.РаспаковатьСтрокуBase64(СтрокаBase64);
    
    КонецФункции
    

    Показать

    А контрольную сумму я даже не проверяю, т.к. средствами 1С она считается очень медленно. Когда я, в порядке прикола, написал свой собственный распаковщик дефлета на языке 1С, цикл вычисления контрольной суммы занимал 25% (!) общего времени выполнения. А полное время распаковки составляло что-то около 10 секунд на 50кб сжатых данных.

    Reply ↓
71. user894822 19.02.2018 at 11:16

    (69) Разобрался, почему была фатальная ошибка на клиенте. Если получать строку base64 прямо из буфера двоичных данных (ПолучитьBase64СтрокуИзБуфераДвоичныхДанных), то при передаче этой строки в вашу ВК почему-то случается фатальная ошибка. А если сначала получить двоичные данные из буфера (ПолучитьДвоичныеДанныеИзБуфераДвоичныхДанных), а потом из этих двоичных данных получить строку base64 (ПолучитьBase64СтрокуИзДвоичныхДанных), тогда фатальной ошибки не происходит.

    Но на 64-бит сервере такое решение всё равно не помогло, по-прежнему вылетает фатальная ошибка. Возможно, это потому, что на сервере я использую синхронную версию ВК?

    И ещё одна странность обнаружилась. Если я сохраняю сжатые данные в файл (чистый дефлет), то ваша внешняя обработка этот файл успешно распаковывает. Но если я эти же данные перегоняю в base64 и пытаюсь распаковать функцией НачатьВызовРаспаковатьСтрокуBase64, то ВК выдает ошибку — на этот раз не фатальную, просто «Ошибка внешней компоненты».

    Reply ↓
72. frkbvfnjh 19.02.2018 at 11:58

    (71) Спасибо за подробный комментарий, нужно переварить и обдумать все написанное Вами, давно не занимался этой компонентой. Нужно проверить на совместимость этой компоненты с новыми методами платформы по работе с двоичными данными которые появились. Постараюсь выбрать время, переосмыслить всю работу компоненты и по возможности усовершенствовать ее…

    Reply ↓
73. user894822 19.02.2018 at 12:26

    (72) Было бы неплохо. Сейчас мне на сервере придётся выкручиваться через zip-файлы.

    Вообще, работа с буферами двоичных данных в платформе пока еще сыровата. Вот еще пример. Я читаю сжатые данные из внешнего источника (база MSSQL). В выборке из запроса поле blob возвращается в виде объекта ДвоичныеДанные. При попытке вызвать ПолучитьБуферДвоичныхДанныхИзДвоичныхДанных() прямо по полю выборки, происходит фатальная ошибка (серверный процесс вылетает). А если поле выборки сначала присвоить промежуточной переменной, а потому уже получить буфер по этой переменной — тогда всё в порядке.

    Reply ↓
74. frkbvfnjh 20.02.2018 at 06:37

    (73) Вроде начал разбираться в коде своего проекта. Компоненту сейчас дорабатываю, подождите пару дней. В Вашем случае функция РаспаковатьСтрокуBase64 не буде работать, т.к. она предназначена для других целей — она распаковывает именно обычный текст сжатый с помощью функции СжатьСтрокуBase64 (посмотрите пример в обработке). Так что в Вашем случае действительно нужно распаковывать только через файлы. Сейчас я добавлю функции именно по сжатию и распаковке двоичных данных. Почему я это не сделал изначально, что бы двоичные данные можно было передать хотя бы в виде строки base64, я не сам не понимаю, видимо посчитал, что работы с файлами будет достаточно, т.к. делал обработку в основном для собственных нужд, но как оказалось для других эта тема тоже актуальна. Поэтому постараюсь сейчас доработать все должным образом и сделать описание более понятным языком.

    Reply ↓
75. frkbvfnjh 20.02.2018 at 07:21

    (73) Кстати, если хотите, то можете мне дать ваши данные в формате zlib rfc-1950, попробую их распаковать без 1Совских ухищрений, если получится, то включу методы во внешнюю компоненту

    Reply ↓
76. user894822 21.02.2018 at 12:25

    (75) Вот образец. Пароль архива отправил в личку.

    Reply ↓
77. frkbvfnjh 22.02.2018 at 10:49

    (76) Внешнюю компоненту полностью переписал, она стала универсальнее и понятнее. С Вашим файлом пока разбираюсь. Новую версию выложу на днях.

    Reply ↓
78. SerVer1C 07.03.2018 at 14:06

    С появлением в платформе возможности удобной работы с двоичными данными сжимать и распаковывать Zlib, Deflate и GZip можно встроенными средствами языка 1С, используя класс для работы с zip-архивами, манупулируя заголовком zip-файла.

    Reply ↓
79. frkbvfnjh 07.03.2018 at 14:11

    (77) В заголовке файла оказался BOM от UTF-8, если его убрать, то все распаковывается нормально.

    Reply ↓
80. GoodZone 28.05.2018 at 10:22

    (78) А можно пример как gzip строку распаковать?

    Reply ↓
81. GoodZone 28.05.2018 at 10:38

    (64) Скачал компоненту пробую проделать что-нибудь выдает «ошибка компоненты» и все. Объясню предысторию. Я получаю html страницу сжатую gzip, все это происходит на сервере, могу я Вашей компонентой распаковать её? Если уж совсем подробно: получаю HTTPОтвет.ПолучитьТелоКакСтроку(), она запакована gzip, мне нужно распаковать эту строку, чтоб получить исходный код страницы. У Вас в обработке есть команда «ПроверитьСжатиеСтрок», как отдельно Распаковка не могу понять, хотелось бы описание методов, в статье я так понял только для толстого клиента методы расписаны.

    Reply ↓
82. frkbvfnjh 28.05.2018 at 10:49

    (80) РаспаковатьСтроку(Строка, Истина, 2) или попробовать 2-ой параметр «Ложь»

    Reply ↓
83. GoodZone 28.05.2018 at 11:03

    (82) {ВнешняяОбработка.ZLib.Форма.Форма.Форма(270)}: Ошибка при вызове метода контекста (РаспаковатьСтроку)
    
    ОбъектAddIn.РаспаковатьСтроку(СжатаяСтрока,КодировкаANSI, АлгоритмСжатия);
    
    по причине:
    
    Ошибка внешней компоненты

    Reply ↓
84. frkbvfnjh 28.05.2018 at 12:03

    (83) Если хотите, то можете мне отправить сжатую строку в виде файла двоичных данных, а я у себя проверю. Только не в виде текстового файла высылайте, потому, что текстовые редакторы не сохранят никогда оригинал. Получите тело ответа в виде двоичных данных и сохраните их в файл через метод «Записать».

    Reply ↓
85. GoodZone 28.05.2018 at 12:18

    (84) вот пример прилагаю

    Reply ↓
86. frkbvfnjh 29.05.2018 at 06:22

    (85) Я посмотрел Ваш файл, так вот это не совсем строка сжатая GZIP, это архив GZIP с текстовым файлом, поэтому сначала сохраните эти двоичные данные в файл, а затем распакуйте этот файл как архив GZIP, и полученный файл уже читайте как текстовый:

    ОбъектAddIn.РаспаковатьФайл(«C:	est1.», «C:	est1.txt», 2);

    Reply ↓
87. GoodZone 29.05.2018 at 07:26

    (86) Да так сработало, спасибо.

    Reply ↓
88. GoodZone 29.05.2018 at 07:28

    А может кто-нибудь знает как налету распаковывать без файловых операций и желательно без компонент???

    Reply ↓
89. frkbvfnjh 29.05.2018 at 08:17

    (88) Без компоненты не знаю, но с этой же компонентой можно:

    ДвоичныеДанные = ОбъектAddIn.РаспаковатьДвоичныеДанные(ОтветHTTP.ПолучитьТелоКакДвоичныеДанные(), 2);
    ИсходнаяСтрока = ПолучитьСтрокуИзДвоичныхДанных(ДвоичныеДанные, КодировкаТекста.UTF8);

    Reply ↓
90. uno-c 03.12.2018 at 16:49

    (88)Через ЗаписьZipФайла, ЧтениеZipФайла, Потока и манипуляции с заголовками — все действия данной Native можно перевести в родные эсочные процедуры без использования ВК и даже без файловых операций.

    Reply ↓
91. GoodZone 05.12.2018 at 06:20

    (90) Пробовал без этой компоненты, гораздо медленнее работает. Тут же на исе публикация была без компонент Без компонент. Так что использую эту и доволен.

    Reply ↓
92. uno-c 05.12.2018 at 08:54

    (91)Эска медленнее сжимает или распаковывает?

    Reply ↓
93. GoodZone 06.12.2018 at 12:16

    (92) да, на порядок.

    Reply ↓
94. uno-c 06.12.2018 at 13:31

    (93)Видимо, эска долго распаковывает. Мне пока требовалось только сжатие — 9М текста json эска внутренними средствами пакует меньше секунды, на выходе — 1.5М чистого дефлейта.

    Reply ↓
95. rvs_29 25.01.2019 at 18:52

    (46) Sam13 , чем все закончилось со Сбером ? Публикацию не получилось сделать ? У меня сейчас та же заморочка 😉

    Reply ↓
96. rvs_29 28.01.2019 at 15:07

    Добрый день ! Скачал компоненту, не подскажите , каким образом ей скормить строку «1234567890» и на выходе получить «eJwzNDI2MTUzt7A04AIADUQCGA==» как в (33)

    Reply ↓
97. frkbvfnjh 28.01.2019 at 15:18

    (96) Никак. Что бы получить такую строку, нужно скормить строку «1234567890» + в конце перевод строки, а в настройках указать алгоритм сжатия ZLIB (RFC-1950) и установить признак предварительного кодирования в ANSI. Это настройка для Сбера.

    Reply ↓