Запись....Ок. Чтение....Fail :(

[Alex Cones]

var
  Form1: TForm1;
    ImArr: Array[0..26] of ShortString =
  ('ABTD','ABTL','CLSD','CLSL','DDPD','DDPL','DOWN','DUPD','DUPL',
   'HLPD','HLPL','HSTD','HSTL','LEFT','MIDDLE','MNMD','MNML','RIGHT',
   'SAYD','SAYL','STND','STNL','UDPD','UDPL','UP','UUPD','UUPL');
implementation

{$R *.dfm}

procedure TForm1.Button2Click(Sender: TObject);
Var
I:Byte;
X,Y:SmallInt;
N:Array[0..15] of Integer;
F:File;
Bit:TBitMap;
begin
 AssignFile(F,'Palette.pal');
Reset(F,SizeOf(N));
Bit:=TBitMap.Create;
 For I:=0 to 26 do
  Begin
   BlockRead(F,N,1);
   Bit.LoadFromFile(ImArr[I]+'.bmp');
   For Y:=0 to Bit.Height - 1 do
    For X:=0 to Bit.Width - 1 do
     Begin
      If Bit.Canvas.Pixels[X,Y] = N[ 0] Then Bit.Canvas.Pixels[X,Y] := $000000 Else
      If Bit.Canvas.Pixels[X,Y] = N[ 1] Then Bit.Canvas.Pixels[X,Y] := $000080 Else
      If Bit.Canvas.Pixels[X,Y] = N[ 2] Then Bit.Canvas.Pixels[X,Y] := $0000FF Else
      If Bit.Canvas.Pixels[X,Y] = N[ 3] Then Bit.Canvas.Pixels[X,Y] := $800000 Else
      If Bit.Canvas.Pixels[X,Y] = N[ 4] Then Bit.Canvas.Pixels[X,Y] := $800080 Else
      If Bit.Canvas.Pixels[X,Y] = N[ 5] Then Bit.Canvas.Pixels[X,Y] := $008000 Else
      If Bit.Canvas.Pixels[X,Y] = N[ 6] Then Bit.Canvas.Pixels[X,Y] := $FF0000 Else
      If Bit.Canvas.Pixels[X,Y] = N[ 7] Then Bit.Canvas.Pixels[X,Y] := $008080 Else
      If Bit.Canvas.Pixels[X,Y] = N[ 8] Then Bit.Canvas.Pixels[X,Y] := $FF00FF Else
      If Bit.Canvas.Pixels[X,Y] = N[ 9] Then Bit.Canvas.Pixels[X,Y] := $808000 Else
      If Bit.Canvas.Pixels[X,Y] = N[10] Then Bit.Canvas.Pixels[X,Y] := $808080 Else
      If Bit.Canvas.Pixels[X,Y] = N[11] Then Bit.Canvas.Pixels[X,Y] := $00FF00 Else
      If Bit.Canvas.Pixels[X,Y] = N[12] Then Bit.Canvas.Pixels[X,Y] := $00FFFF Else
      If Bit.Canvas.Pixels[X,Y] = N[13] Then Bit.Canvas.Pixels[X,Y] := $C0C0C0 Else
      If Bit.Canvas.Pixels[X,Y] = N[14] Then Bit.Canvas.Pixels[X,Y] := $FFFF00 Else
      If Bit.Canvas.Pixels[X,Y] = N[15] Then Bit.Canvas.Pixels[X,Y] := $FFFFFF Else
      ShowMessage('Неясный цвет! Ищи ошибку!');
     End;
   Bit.SaveToFile('D:\Alius\Новая папка\Новая папка\Новая папка\'+ImArr[I]+'Temp.bmp');
  End;
 CloseFile(F);
 Bit.Free;
end;

procedure TForm1.Button3Click(Sender: TObject);
Var
N:Array[0..15] of Integer;
F:File;
X,Y:SmallInt;
I:Byte;
Bit:TBitMap;
begin
AssignFile(F,'Palette.pal');
Reset(F,Sizeof(N));
Bit:=TBitMap.Create;
For I:=0 to 26 do
 Begin
  BlockRead(F,N,1);
  Bit.LoadFromFile('D:\Alius\Новая папка\Новая папка\Новая папка\'+ImArr[I]+'Temp.bmp');
   For Y:=0 to Bit.Height - 1 do
    For X:=0 to Bit.Width - 1 do
     Begin
  If Bit.Canvas.Pixels[X,Y] = $000000 Then Bit.Canvas.Pixels[X,Y] := N[ 0] Else
  If Bit.Canvas.Pixels[X,Y] = $000080 Then Bit.Canvas.Pixels[X,Y] := N[ 1] Else
  If Bit.Canvas.Pixels[X,Y] = $0000FF Then Bit.Canvas.Pixels[X,Y] := N[ 2] Else
  If Bit.Canvas.Pixels[X,Y] = $800000 Then Bit.Canvas.Pixels[X,Y] := N[ 3] Else
  If Bit.Canvas.Pixels[X,Y] = $800080 Then Bit.Canvas.Pixels[X,Y] := N[ 4] Else
  If Bit.Canvas.Pixels[X,Y] = $008000 Then Bit.Canvas.Pixels[X,Y] := N[ 5] Else
  If Bit.Canvas.Pixels[X,Y] = $FF0000 Then Bit.Canvas.Pixels[X,Y] := N[ 6] Else
  If Bit.Canvas.Pixels[X,Y] = $008080 Then Bit.Canvas.Pixels[X,Y] := N[ 7] Else
  If Bit.Canvas.Pixels[X,Y] = $FF00FF Then Bit.Canvas.Pixels[X,Y] := N[ 8] Else
  If Bit.Canvas.Pixels[X,Y] = $808000 Then Bit.Canvas.Pixels[X,Y] := N[ 9] Else
  If Bit.Canvas.Pixels[X,Y] = $808080 Then Bit.Canvas.Pixels[X,Y] := N[10] Else
  If Bit.Canvas.Pixels[X,Y] = $00FF00 Then Bit.Canvas.Pixels[X,Y] := N[11] Else
  If Bit.Canvas.Pixels[X,Y] = $00FFFF Then Bit.Canvas.Pixels[X,Y] := N[12] Else
  If Bit.Canvas.Pixels[X,Y] = $C0C0C0 Then Bit.Canvas.Pixels[X,Y] := N[13] Else
  If Bit.Canvas.Pixels[X,Y] = $FFFF00 Then Bit.Canvas.Pixels[X,Y] := N[14] Else
  If Bit.Canvas.Pixels[X,Y] = $FFFFFF Then Bit.Canvas.Pixels[X,Y] := N[15] Else
   ShowMessage('Неясный цвет! Ищи ошибку!');
   End;
  Bit.SaveToFile('D:\Alius\Новая папка\Новая папка\Новая папка\Новая папка\'+ImArr[I]+'.bmp');
 End;
CloseFile(F);
Bit.Free;
end;

На батон 2 - молчание, все файлы записались хорошо и не один пиксель не проFAIL мне свой цвет. Запускаю батон 3: почти на каждый пиксель: "Неясный цвет! Ищи ошибку!". Ищу... Но не нахожу.

[mihali4]

А Bit.Monochrome чему равно?
А записывается правильно?
Вы проверяли на маленьком битмапе (4х4, например)?

[Alex Cones]

Поставил

If Bit.Monochrome Then ShowMessage('TRUE') Else ShowMessage('FALSE');

после каждой загрузки файла - значения везде FALSE.

Да в том то и дело, что записывает как-то странно - только 4 цвета, не смотря на то, что в исходной картинке 16 цветов (записанные в palette.pal, если бы это было не так, палитра записалась бы полупустой, ан нет, все значения массива заполнены - проверял отладчиком).

Вот, прилагаю образец того, что было и того, что стало:
Было:

Стало:

А по идее должна быть пестрой как попугай.

[Alex Cones]

Добавил код на ведение лога. Получил следующее:
(Даю отрезок, полный весит 5 кб):

Загрузил палитру
0 606060
1 686868
2 707070
3 797979
4 474747
5 404040
6 5A5A5A
7 393939
8 3D3D3D
9 747474
10 6D6D6D
11 656565
12 343434
13 252525
14 545454
15 000000
Загрузил изображение ABTD
Обрабатываю пиксель 0 0
Значение пиксела - 606060
Цвет пикселя был заменен на 000000
Обрабатываю пиксель 1 0
Значение пиксела - 606060
Цвет пикселя был заменен на 000000
Обрабатываю пиксель 2 0
Значение пиксела - 606060
Цвет пикселя был заменен на 000000
Обрабатываю пиксель 3 0
Значение пиксела - 686868
Цвет пикселя был заменен на 252525
Обрабатываю пиксель 4 0
Значение пиксела - 707070
Цвет пикселя был заменен на 545454
Обрабатываю пиксель 5 0
Значение пиксела - 707070
Цвет пикселя был заменен на 545454

Заменяет на какие-то "левые" цвета. Ощущение, что он переводит все в монохром не смотря на отключенный флаг.

[Stilet]

Alex Cones

А скажи ка мне , дружок, что програма должна делать?

[Alex Cones]

По нажатию на первый батон - заменить 16 цветов изображения согласно палитре на 16 стандартных виндовых цветов.
По нажатию. на второй - проделать обратную операцию.

[Alex Cones]

Удалось локализовать и решить проблему! Она заключалась в том, что после сохранения рисунка через фотошоп он самовольно поменял стандартную битмаповскую палитру (ту, которая в бмп). Решил так:

 If Bit.Canvas.Pixels[X,Y] = $000080 Then OutBit.Canvas.Pixels[X,Y] := N[ 3] Else

Результат:

[Stilet]

Ты знаешь, я бы тебе посоветовал от IFов отказаться и искать цвет в цикле проходом по массиву...
Можешь прикрепить сюда весь проект с картинками и прилагающимся?

[Alex Cones]

Можешь прикрепить сюда весь проект с картинками и прилагающимся?

Проблема решена, тему можно закрывать. Насчет If`оф подумаю. Но и с ними теперь работает прекрасно. Еще есть потребность в проекте?

[Stilet]

Ясно. Нет. Тему закрываю. )