не работает сохранение в jpeg

← →
Dy1 © (2007-04-10 10:10) [0]

bmp := NewBitmap(50,50); bmp.LoadFromFileEx("01.bmp"); Jpg := NewJpeg; Jpg.Bitmap := Bmp; Jpg.CompressionQuality := 100; Jpg.SaveToFile("dd.jpg");
сохраняет серый прямоугольник, установка PixelFormat и т.п. ничего не меняет.
Методом научного тыка :\ выяснил, что проблема в Jpg.SaveToFile, дальше моих знаний не хватает.
БМП 24хбитное, отрисовываются и БМП и ЖПЕГ, kol+mck 2.37

← →
MTsv DN © (2007-04-10 10:20) [1]

А у меня сохраняет... Причем, если использовать LoadFromFileEx, то с небольшими артефактами, а если LoadFromFile, то 100% нормально... KOLnMCK у меня, конечно, не такой антикварный...

← →
MTsv DN © (2007-04-10 10:24) [2]

З.Ы. За эти 19 версий (с 2.37 по 2.56)..."очень много воды утекло"... Это Ваши проблемы, либо не все определяется "БМП 24хбитное"...

← →
Don © (2007-04-10 13:03) [3]

попробуй перед SaveToFile вызвать метод Compress

← →
Dy1 © (2007-04-10 20:07) [4]

> попробуй перед SaveToFile вызвать метод Compress
Та же фигня.

> KOLnMCK у меня, конечно, не такой антикварный...

> Это Ваши проблемы
Не, блин, здесь все такие умные! Объясните тогда наконец какого хрена появляются ошибки во всех версиях, кроме 2.37.
Ставлю так как написано в ФАКе! (недаром на инглише есть похожее по звучанию слово :\ :( )
И как ПРАВИЛЬНО ставить этот гимор?

(ветка по этому вопру была создана недавно. Ошибки появляются при попытке создать проект, во время установки норма)

← →
homm © (2007-04-10 21:29) [5]

> Ошибки появляются при попытке создать проект, во время установки норма

BUILD! Повторять как молитву перед сном. В сборку кол компилируется с другими опциями, не факт что в таком виде он заработает и в проекте.

← →
MTsv DN © (2007-04-10 22:20) [6]

Ну вот, "умным" обозвали...

Dy1, ты лучше не психуй, а на http://www.kolnmck.ru в разделе "Обновления" посмотри сколько раз обновлялся PBitmap, там как раз с версии 2.38 хистори ведется... Я ж не "от болды" инфу даю...

А по поводу ошибок при обновлении... Если есть желание, давай "пересечемся" где-нибудь, в ICQ или по email"у... Чем смогу - помогу...

← →
Dy1 © (2007-04-11 22:36) [7]

КОЛ 2.56; компиляция (билд не пашет); жпег также не сохраняет...

← →
D[u]fa © (2007-04-12 09:37) [8]

долго смотрел на тему. решил поверить сам)) все работает у меня. попробуй такой код:
var
jpg: PJpeg;

begin
Jpg := NewJpeg;
Jpg.Bitmap := NewBitmap(0, 0);
Jpg.Bitmap.LoadFromFileEx("D:\1.bmp");
Jpg.CompressionQuality := 100;
Jpg.SaveToFile("d:\1.jpg");
jpg.Free;

и с полными путями к файлам

зы: может у тебя "супер" картинка?

← →
Dy1 © (2007-04-12 20:30) [9]

> D[u]fa
> все работает у меня. попробуй такой код:
> Jpg.Bitmap.LoadFromFileEx("D:\1.bmp");

То же самое -- 625 Бт, серый прямоугольник

> и с полными путями к файлам

Пробовал.

> зы: может у тебя "супер" картинка?

Обычная 400х300х24 бита. Пробовал другие -- то же самое

← →
D[u]fa © (2007-04-12 20:44) [10]

>компиляция (билд не пашет);

тогда подробнее, как понять не пашет?

← →
Dy1 © (2007-04-12 22:29) [11]

> >билд не пашет
> тогда подробнее, как понять не пашет?

Пишу в две ветки сразу :/ В KOL.pas появлятся ошибки.
X-Files, блин!

← →
Dy1 © (2007-04-13 07:20) [12]

С КОЛ проблема решена, но ЖПЕГ так же не сохраняется (KnM 2.56)

← →
MTsv DN © (2007-04-13 08:15) [13]

> но ЖПЕГ так же не сохраняется
У тебя случайно {$DEFINE VER62} не определена?

obj-ы из Д7 и соответственно убрал комментарий

У меня, в Д7, стала вылетать ошибка когда я раскомментировал этот символ...

А у меня наоборот. И тогда jpg даже не читает

← →
Vladimir Kladov (2007-04-14 08:56) [17]

Сохранение в jpeg я проверил. Специально в фотошопе 3.0 создал битмап 24 бита 300х200, пробовал компрессию 100 и 80, работает. Кстати, компрессия 100 - неразумно, файл будет больше, чем сам битмап. VER62 вроде бы написано для чего. Чтобы работало с соответствующей версией obj-файлов от JPEG Group Inc, что идет в дистрибутиве Delphi. Начиная с Delphi7 (кажется так) сильные изменения, в том числе параметры другие. И новая версия стабильнее на сбойных файлах.

bmp := NewBitmap(50,50); bmp.LoadFromFileEx("01.bmp"); Jpg := NewJpeg; Jpg.Bitmap.Assign(Bmp); Jpg.CompressionQuality := 100; Jpg.SaveToFile("dd.jpg");

← →
Vladimir Kladov (2007-04-15 18:29) [19]

Код приведенный автором вопроса тоже работает.

не работает сохранение в jpeg Найти похожие ветки