Декомпрессия данных

@vlad_07 · Регистрация: 09.12.2013

Студворк — интернет-сервис помощи студентам

Здравствуйте, уважаемые форумчане! Есть ли у кого работающие примеры декомпрессии данных с помощью метода Zlib.Inflate?
Видел примеры декомпрессии разными способами для C#, C++, Delphi, а для VBNet не нашел.

Мои пробы дали такие результаты:

VB.NET
1
2
3
4
5
<DllImport("zlib1.dll", EntryPoint:="inflate")> _
Public Shared Function ZLIB_Inflate(ByRef dest As Byte(), ByRef destLen As Integer, ByVal data As Byte(), ByVal LenCompress As Integer) As Integer
 
<DllImport("zlibwapi.dll", EntryPoint:="uncompress")> _
Public Shared Function UncompressByteArray(ByRef dest As Byte(), ByRef destLen As Integer, ByVal data As Byte(), ByVal LenCompress As Integer) As Integer

1-й вариант:

VB.NET
1
2
3
4
5
6
7
...
Dim Buffersize As Integer = CInt(Origsize + (Origsize * 0.01) + 12)
ReDim buf_Decompress(Buffersize)
...
rezult = Zlib_Inflate(buf_Decompress, Origsize, buf_Compress, buf_Compress.Length)
'rezult = -2
'в buf_Decompress записан 1 байт со значением 0

2-й вариант:

VB.NET
1
2
3
4
5
6
7
8
9
10
...
Dim Buffersize As Integer = CInt(Origsize + (Origsize * 0.01) + 12)
ReDim buf_Decompress(Buffersize)
...
rezult = UncompressByteArray(buf_Decompress, Origsize, buf_Compress, Ubound(buf_Compress) + 1)
'rezult = -5
'в buf_Decompress записаны значения, но, при дальнейшем сохранении потока в рисунок:
 
Dim picture as Image
picture = Image.FromStream(m_Stream_Out)

в debug-е появляется сообщение: "A generic error-occured in GDI+",

и в PictureBox на форме рисунка нет.

Может быть причина в библиотеке zlib1.dll? Дело в том, что потоковые данные, которые я пытаюсь распаковать, записаны методом Zlib.Deflate (Zlib1.dll) в 2002 г, с тех пор не менялись (это растры областей карты). Предполагаю, что и распаковывать их надо точно так же, но методом Inflate.

Подскажите, плиз.

@Winney · 23.08.2017, 13:29

Сообщение от vlad_07

в debug-е появляется сообщение: "A generic error-occured in GDI+",
и в PictureBox на форме рисунка нет.

Это ошибка общего вида в GDI+, то есть при отрисовке. Такая ошибка может возникать при большом размере (разрешении) файла. Распакуйте ваши данные в папку и посмотрите на них глазками - есть картинки или нет. Если есть - проблема в программе, если нет - возможно и в ZIPе.

@vlad_07 · 23.08.2017, 15:01 **[ТС]**

Сжатые данные записаны как OLE-объект в поле таблицы БД. Я считываю их в буфер методом GetChunk, потом пытаюсь декомпрессовать, чтобы далее отобразить в PictureBox на форме. Возможно, я неправильно применяю метод Zlib.Inflate, где-то видел сообщение, что вначале надо выполнить инициализацию этого метода, в delphi-коде так было, я ищу реализацию на VBNet.

Новые блоги и статьи Все статьи Все блоги /
Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .	Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .	Команды формы и диалоговое окно Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных. . .
Кому нужен AOT? DevAlt 26.03.2026 Решил сделать простой ланчер Написал заготовку: dotnet new console --aot -o UrlHandler var items = args. Split(":"); var tag = items; var id = items; var executable = args;. . .	Отправка уведомления на почту при создании или изменении элементов справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной записи электронной. . .	модель ЗдравоСохранения 5. Меньше увольнений- больше дохода! anaschu 24.03.2026 Теперь система здравосохранения уменьшает количество увольнений. 9TO2GP2bpX4 a42b81fb172ffc12ca589c7898261ccb/ https:/ / rutube. ru/ video/ a42b81fb172ffc12ca589c7898261ccb/ Слева синяя линия -. . .	Midnight Chicago Blues kumehtar 24.03.2026 Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .

@vlad_07 1 / 1 / 0 Регистрация: 09.12.2013 Сообщений: 16
	23.08.2017, 15:01 [ТС]
	Сжатые данные записаны как OLE-объект в поле таблицы БД. Я считываю их в буфер методом GetChunk, потом пытаюсь декомпрессовать, чтобы далее отобразить в PictureBox на форме. Возможно, я неправильно применяю метод Zlib.Inflate, где-то видел сообщение, что вначале надо выполнить инициализацию этого метода, в delphi-коде так было, я ищу реализацию на VBNet. 0