Как Сохранить в PNG

← →
Fly © (2006-02-15 10:12) [0]

Товарищи помогите разобраться с PNG. Проблема в том что сохранять я собственно научился, но размер файла получается такой-же как у исходного bmp. Как можно сжимать PNG перед тем как сохранить его.

Stream:=TmemoryStream.create;
Stream1:=TmemoryStream.create;
Stream.LoadFromFile("C:\MY\Work\Справка\Резка_файла\171_.bmp");
Bitmap:=Tbitmap.create;{
bitmap.LoadFromFile("C:\MY\Work\Справка\Резка_файла\171_.bmp");}
Bitmap.loadfromstream(Stream);
png:=TPNGGraphic.Create;
png.Assign(Bitmap);
png.SaveToStream(stream1);
stream1.SaveToFile("C:\MY\Work\Справка\Резка_файла\171_111.png");

Bitmap.free;
Stream.Free;
stream1.Free;
png.free;

Пробовал строчку
png.ImageProperties.Compression:=ctRLE;

Не работает. Может как-то по другому можно присваивать тип сжатия?

← →
Ламерище (2006-02-16 03:43) [1]

procedure TForm1.Button1Click(Sender: TObject); var png: TpngImage; Bitmap: TBitmap; begin png := TpngImage.Create; Bitmap := TBitmap.Create; try Bitmap.LoadFromFile("ya6.bmp"); png.Assign(Bitmap); png.SaveToFile("yanew.png"); finally png.Free; Bitmap.Free; end; end; end.
У тебя не правельно 10 строка,и закоментирован код в строке 5.
Принцеп тот же что и с твоим компонентом пнг,
Попробуй должно работать,TpngImage замени на TPNGGraphic,
Если размер опять такой же будет тогда перед сохранением попробуй изменить компресию

Да то же самое получается. Мне как раз и надо узнать как изменить компрессию. Если знаешь подскажи плиз.

Как Сохранить в PNG Найти похожие ветки