GZIP вцелом и для строк в частности

Вопросы программирования на Free Pascal, использования компилятора и утилит.

Модератор: Модераторы

GZIP вцелом и для строк в частности

Сообщение SovNarKom » 20.06.2007 01:52:46

Возникла необходимость написания процедуры, вида
procedure GZIPStr(const AStr: String; out AGZIPStr: Pointer {Ну или более явный массив байт});
которая, как ясно из названия создавала бы кусок сжатых GZIP данных, из полученной строки.

Смотрел конечно в сторону minigzip.exe и gzip.exe, по понятным причинам они мне не подходят...
Нашол реализацию утилит gzip.exe и gunzip.exe на FPC, но там меня убил стиль программирования и качество исполнения...

Корочеговоря нужна любая информация по конкретной проблеме, а использование сторонних либ неприемлимо. Кроме того нужна и обратная процедура.

Кто что может посоветовать, не стесняйтесь :)
SovNarKom
постоялец
 
Сообщения: 389
Зарегистрирован: 28.05.2005 10:37:39
Откуда: Воронеж [vrn] [36]

Сообщение STAKANOV » 21.06.2007 00:02:59

Аватара пользователя
STAKANOV
энтузиаст
 
Сообщения: 1069
Зарегистрирован: 14.05.2006 21:26:24
Откуда: Зеленоград

Сообщение SovNarKom » 29.06.2007 12:06:32

STAKANOV
Ну... да... это я всё видел... немного не то, ну да ладно..
SovNarKom
постоялец
 
Сообщения: 389
Зарегистрирован: 28.05.2005 10:37:39
Откуда: Воронеж [vrn] [36]

Сообщение shade » 29.06.2007 21:54:12

SovNarKom писал(а):Возникла необходимость написания процедуры, вида
procedure GZIPStr(const AStr: String; out AGZIPStr: Pointer {Ну или более явный массив байт});

Делал что-то подобное для bz2, только ради интереса... и понял что смысла в этом нет, т.к. размер "сжатых" данных был больше чем не сжатых. Это применимо только к более менее большим строкам, ну хотя бы пару кило, а то и больше..

см. zstream, а также сюда http://www.freepascal.ru/forum/viewtopic.php?t=2012
Аватара пользователя
shade
энтузиаст
 
Сообщения: 879
Зарегистрирован: 21.02.2006 20:15:48
Откуда: http://shamangrad.net/

Сообщение SovNarKom » 11.07.2007 19:55:07

да знаю, что ссысла нету, только один протокол зачем то требует такую ерунду, да ещё BASE64 преобразованную...
SovNarKom
постоялец
 
Сообщения: 389
Зарегистрирован: 28.05.2005 10:37:39
Откуда: Воронеж [vrn] [36]


Вернуться в Free Pascal Compiler

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 2

Рейтинг@Mail.ru