| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

сжатие графики

MANGOL ©   (2004-09-23 14:13:00) 

привет!

не подскажите, как мне сжимать графику?
знаю, что можно переводить в jpg, но енто годится только для фоновых картинок, где прозрачного цвета нету.
Посоветуйте пожалста что-нибудь! ссылку почитать, или кодом например :))

---

Zer0   (2004-09-24 10:01:00) [1]

ppms/ppmd ( http://www.compression.ru/ds/ppmdi1.rar) тоже неплохой архиватор, рвет rar

для loseless сжатия изображению можно использовать bmf 1.1 ( http://compression.ru/ds)

---
skl-4ever

---

П7   (2004-09-23 22:40:00) [2]

> MANGOL   (23.09.04 17:58) [5]

В Тырнете... (: Хы-хы... Рамблер тебе в помощь.

ГЫ: Забыл в посте про изометрию написать. Скинь мне на мыло письмо с прозьбой дать тебе исходники Изометрического чего-нибудь, чтобы я не забыл и узнал твой адрес... (: Ну а я тебе этого изометрического отсыплю, по доброте душевной... (:

---

MANGOL   (2004-09-23 17:58:00) [3]

>> WondeRu ©   (23.09.04 16:08) [3]
спасибы! будем пробовать.

>> Ландграф Павел ©   (23.09.04 16:58) [4]
а где можно взять модули для работы с rar/zip?

---

Ландграф Павел   (2004-09-23 16:58:00) [4]

вот только никто не сказал какой формат сжимать библиотекой zlib, самый лучший вариант bmp256>rar/zip просто дико сжимает... для 32 битных разумеется tga с RLE, для фоновых картинок лучше jpeg ненайдешь...

---

WondeRu   (2004-09-23 16:08:00) [5]

Красный молоток   (23.09.04 14:57) [1]
uses Zlib;
но лучше
ZLib Ex.pas (zlib 1.2.1)   www.dellapasqua.com
этот модуль переработан и работает быстрее чем стандартный

ну и модуль написал, чтобы потоки легче было сжимать

unit uCompressRoutines;

interface
uses
 Classes, ZlibEx;

function CompressStream (aSource, aTarget: TStream): Single;
procedure DecompressStream (aSource, aTarget: TStream);

implementation

function CompressStream (aSource, aTarget: TStream): Single;
var
 comprStream: TZCompressionStream;
begin
 aSource.Position := 0;
 comprStream := TZCompressionStream.Create(aTarget, zcMax);
 try
   comprStream.CopyFrom(aSource, aSource.Size);
   Result := comprStream.CompressionRate;
 finally
   comprStream.Free;
 end;
end;

procedure DecompressStream (aSource, aTarget: TStream) ;
var
 decompStream: TZDecompressionStream;
begin
 decompStream := TZDecompressionStream.Create(aSource);
 try
   aTarget.CopyFrom(decompStream, 0);
   aTarget.Position := 0;
 finally
   decompStream.Free;
 end;
end;

end.

---

Mihey_temporary   (2004-09-23 15:27:00) [6]

PNG

---

Красный молоток   (2004-09-23 14:57:00) [7]

uses Zlib;

---

Наверх