Увеличение размера изображения на 34% после сохранения в D7

[Alex Cones]

Имеется 2 одинаковых изображения:
1. (на схеме красное) - Оригинал
2. (на схеме зеленое) - Сохраненное из D7 посредством Picture.SaveToFile()

Сразу бросается в глаза разность размеров. Откуда взялись лишние 6 МБ???

P.S. Оригинал в 24-разряде. Разрядность больше этой я не знаю.

P.S.S. Картинка в вложении пересохранена на 256 цвет, а то выходило больше 1 мб.

[DeKot]

А Вы ничего не перепутали? При сохранении 24-разрядного рисунка в 256- цветный размер вобще то уменьшается примерно в три раза (с некоторой потерей качества).
Извиняюсь за невнимательность, не учел

Сохраненное из D7 посредством Picture.SaveToFile()

.

[SERG1980]

попробовал в D2007 рис БМП 2048*1536 размер одинаковый

[Alex Cones]

DeKot Неее, картинка во ВЛОЖЕНИИ (которую сбросил на форум) переснята на 256, чтоб легче было другим смотреть, а картинки о которых я веду речь лежат в папке на компьютере, но из-за их о_О размера я не могу их сбросить.

SERG1980, я так понимаю что бы не менялось с содержанием, картинки должны весить одинаково? Это ведь бмп, там каждый пиксель отдельно?

[DeKot]

Да я уже все понял.
Пробовал в D7 - все совпадает.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, Buttons;

type
  TForm1 = class(TForm)
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Image1: TImage;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  Form1.Image1.Picture.LoadFromFile('Ris24.bmp');
end;

procedure TForm1.BitBtn2Click(Sender: TObject);
begin
  Form1.Image1.Picture.SaveToFile('RisSave.bmp');
end;

end.

Возможно проблема в большом размере файла.

[Alex Cones]

А может заключаться проблема в том, что в программе меняю пиксели цвет по каналам которых не кратен 4.
(Например 255.0.255 => 252.0.252
64.23.65 => 64.20.64)?
Хотя думаю, что нет. Ведь каждий пиксель все равно кодируется по 24.

-----------------------------------------

DeKot, попробовал Ваш вариант, размер действительно соответствует. Значит дело в изменении пикселов, что по теории быть не должно.

[DomiNick]

Странно.....
А можно посмотреть сами файлы?

А может оно просто 32-битным сохранилось?

[Alex Cones]

Что бы сбросить сами файлы хотя бы на народ мне потребуется около часа на полной скорости, а сейчас качаю фильм.
32-х битный??? Что-то новенькое. Это как? Если это правда, то можно ли как -то заставить дельфю сохранять именно в определенной битности?

P.S. Возникает страшная мысль, что это страшный вирус, прячущий свои exe-шники в картинки. Тьфу-тьфу-тьфу.

[DomiNick]

32-х битный??? Что-то новенькое. Это как?

Это с полупрозрачностью... =))

[Alex Cones]

о_О Дельфи сохраняет BMP с полупрозрачностью??? Что-то необяснимое и невероятное. Хотя чем еще объяснить увеличение размеров файла.
Что-бы не ходило слухов о том, что я изобрел полупрозрачность в БМП, выкладываю код:

N:=StrToInt(Edit1.Text);

{For N:=255 downto 2 do
Begin}

 Bit:=TBitMap.Create;
 Bit.LoadFromFile('D:\A-MIND\Utils\Archiver\Resource\Main.bmp');
 Bit2:=TBitMap.Create;
 Bit2.LoadFromFile('D:\A-MIND\Utils\Archiver\Resource\Main.bmp');
 Windows.Beep(700,700);
 For Y:=0 to 8399 do
  For X:=0 to 749 do
   Begin
    C:=Bit2.Canvas.Pixels[X,Y];
    CHex:=IntToHex(C,1);
    CHex:=StringOfChar('0',6-Length(CHex))+CHex;
    SFD:=Copy(CHex,1,2);
    SSD:=Copy(CHex,3,2);
    STD:=Copy(CHex,5,2);
    CHex:='';
    FD:=StrToInt('$'+SFD);
    SD:=StrToInt('$'+SSD);
    TD:=StrToInt('$'+STD);
    If (FD mod N <> 0) Then FD:=FD-(FD mod N);
    If (SD mod N <> 0) Then SD:=SD-(SD mod N);
    If (TD mod N <> 0) Then TD:=TD-(TD mod N);
    SFD:=IntToHex(FD,2);
    SSD:=IntToHex(SD,2);
    STD:=IntToHex(TD,2);
    C:=StrToInt('$'+SFD+SSD+STD);
    Bit.Canvas.Pixels[X,Y]:=C;
    If Y mod 100 =0 Then
     Begin
      Edit1.Text:=IntToStr(Y);
      Edit1.Refresh;
     End;
   End;
   Windows.Beep(700,700);
 {Image1.Canvas.Draw(0,0,Bit2); }
 Image2.Canvas.Draw(0,0,Bit);
 Edit1.Text:=IntToStr(N);
 Edit1.Refresh;
 Image2.Refresh;
 Image2.Picture.SaveToFile('MainFC.bmp');

Поясняю, если сложно разобраться. Код считывает из эдита шаг (коэффицент сокращения N), и если канал света не делится на N без остатка изменяет до соответствующего значения. Код служит для уменьшения информационного объема изображения.