Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

не работает сохранение в jpeg [Delphi, Windows]

Dy1 © (2007-04-10 10:10:00)
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

Vladimir Kladov (2007-04-15 18:29:00) [1]
Код приведенный автором вопроса тоже работает.

dimaxx (2007-04-15 16:24:00) [2]
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-14 08:56:00) [3]
Сохранение в jpeg я проверил. Специально в фотошопе 3.0 создал битмап 24 бита 300х200, пробовал компрессию 100 и 80, работает. Кстати, компрессия 100 - неразумно, файл будет больше, чем сам битмап. VER62 вроде бы написано для чего. Чтобы работало с соответствующей версией obj-файлов от JPEG Group Inc, что идет в дистрибутиве Delphi. Начиная с Delphi7 (кажется так) сильные изменения, в том числе параметры другие. И новая версия стабильнее на сбойных файлах.

Dy1 (2007-04-14 06:38:00) [4]
А у меня наоборот. И тогда jpg даже не читает

MTsv DN (2007-04-13 22:20:00) [5]
У меня, в Д7, стала вылетать ошибка когда я раскомментировал этот символ...

Dy1 (2007-04-13 21:58:00) [6]
obj-ы из Д7 и соответственно убрал комментарий

MTsv DN (2007-04-13 08:15:00) [7]
> но ЖПЕГ так же не сохраняется
У тебя случайно {$DEFINE VER62} не определена?

Dy1 (2007-04-13 07:20:00) [8]
С КОЛ проблема решена, но ЖПЕГ так же не сохраняется (KnM 2.56)

Dy1 (2007-04-12 22:29:00) [9]

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

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

D[u]fa (2007-04-12 20:44:00) [10]
>компиляция (билд не пашет);

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

Dy1 (2007-04-12 20:30:00) [11]

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

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

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

Пробовал.

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

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

D[u]fa (2007-04-12 09:37:00) [12]
долго смотрел на тему. решил поверить сам)) все работает у меня. попробуй такой код:
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-11 22:36:00) [13]
КОЛ 2.56; компиляция (билд не пашет); жпег также не сохраняет...

MTsv DN (2007-04-10 22:20:00) [14]
Ну вот, "умным" обозвали...

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

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

homm (2007-04-10 21:29:00) [15]
> Ошибки появляются при попытке создать проект, во время установки норма

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

Dy1 (2007-04-10 20:07:00) [16]
> попробуй перед SaveToFile вызвать метод Compress
Та же фигня.

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

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

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

Don (2007-04-10 13:03:00) [17]
попробуй перед SaveToFile вызвать метод Compress

MTsv DN (2007-04-10 10:24:00) [18]
З.Ы. За эти 19 версий (с 2.37 по 2.56)..."очень много воды утекло"... Это Ваши проблемы, либо не все определяется " БМП 24хбитное"...

MTsv DN (2007-04-10 10:20:00) [19]
А у меня сохраняет... Причем, если использовать LoadFromFileEx, то с небольшими артефактами, а если LoadFromFile, то 100% нормально... KOLnMCK у меня, конечно, не такой антикварный...

Наверх

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