зацените программу BMP->CIF

[prizrak1390]

Программа попиксельно снимает цвет с картинки и записывает его в файл...
так же возможны некоторые доп. возможности....Вообщем подробное описание в README файле...

З.Ы: Программу создавал только для того, что бы научиться маломальски работать с канвой и еще с некоторыми вещами...так что строго не судите

[mutabor]

Довольно интересно было посмотреть.
Программа меня заинтересовала так как сам когда-то типа такой делал (сжатия bmp без потерь, тоже в свой формат, но моя намного проще была).

Представляю сколько пришлось бы ждать пока перекодируется 1024х768
Пару раз зависала, пришлось из диспетчера убивать (не во время кодирования, просто лазил по меню, отмены нажимал).
В ридми собственно никакого подробного описания нет. Хотелось бы узнать что она собственно делает, в чем цель перекодирования?
Меню пугает количеством непонятных опций.

[Карась]

Тоже тестировал.
Минусы:
- куча какихто непонятных опций.
- куча окон.
- нет кнопки "свернуть".
- некоторые окна которые вылазят отсчитывать время или показывать статус кодирования нужно поместить на форму. Ктомуже как ни странно можно менять их размер и одно из окон "Инфа ...." почемуто сама незакрцвается.
- я долго пытался понять как делать преобразование. С трудом поянл что это называется образ.
- при открытии больших картинах (я сдуру открыл 7 меровую) она естественно невлазит в форму при просмотре. И кароче торчит лишь кусок картинки.

Вообщем чтото намудрил там с опциями и окнами. Сделай чоб всё было на одной форме.

И кстати почемуто образ картинки в два раза больше самой картинки
Разве эта прога не должна сжимать?

[prizrak1390]

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

[mutabor]

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

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

Я отвечал? (не помню уже)
Не работай через канву, работай в памяти, на канве только результат показывай.

Вот посмотри как я делал, щас добавлю диалоги открытия (а то в оригинальной версии их нет, имя файла вручную писать надо =)) и выложу с исходником.

[prizrak1390]

2Mutabor
было бы просто замечательно.Однако я заметил что, если два раза подряд работать с одной картинкой(распаковывать или запаковывать) то скорость работы увеличивается в 10 раз... Но как сделать что-бы такая скорость была всегда я не понял

Как картинку предварительно занести в память???
2MUTABOR
Спасибо за програмку кое что возьму на вооРужение

[Карась]

Ну ты крут mutabor, сжал картинку в 16 раз
Было 950 кб, стало 59 кб

Зато другую картинку сделал в два раза тяжелее
Там была простая чёрно белая с формулами и примерами, а эта была большая фотка...

[mutabor]

Не, в два раза не будет, в самом неблагоприятном случае максимум в 1.33 раза
Можно немного усовершенствовать, если размер ожидается больше то просто сохранить как есть, размер будет 1 : 1, только формат хранения поменяется. Правда пользы от этого никакой, bmp хоть все программы понимают

Как картинку предварительно занести в память???

Скопировать значения пикселей в матрицу любого 4-х байтового типа:
array of array of integer; или array of array of TColor;
И дальше работать с ней. Только не забывай память очищать, когда она будет не нужна, присвой ей nil

[prizrak1390]

2Mutabor
Спасибо!!!!!!!!!
А мне еще говорили, что бы я использовал ScanLine. Я попытался, но ничего не выШло

[mutabor]

Мне кажется со ScanLine быстрее не будет, разве что самую малость. Из того массива что ScanLine возвращает все равно ведь пиксели поштучно доставать надо.