[DenIvan]

Всем здравствуйте. Сохраняю разные файлы в формат bmp, а затем из bmp вывожу матрицу цветов пикселей. И вот на одном из jpg изображений при попытке получить матрицу (процедура TForm1.Button2Click) выходит сообщение с ошибкой:

---------------------------
Debugger Exception Notification
---------------------------
Проект Capcha.exe вызвал исключение класса EAccessViolation с сообщением 'Access violation at address 0048A3A8 in module

'Capcha.exe'. Read of address 01155000'. Процесс остановлен. Используйте Шаг или Запуск для продолжения.
---------------------------
OK Help
---------------------------

Само изображение трехмерное. Файл во вложении "не вышло". Другие изображения нормально проходят матрицу (например, файл во
вложении "вышло"). В чем же дело: в том что изображение трехмерное и надо как-то по-другому с ним работать, или в чём
другом? Прошу подсказать, пожалуйста. Вот код (Button1Click-выбор исходного файла, задание имен исходника и bmp файла; Button3Click - сохранение исходника в bmp-файл; Button2Click - получение матрицы цветов пикселей файла bmp - здесь проблемы):

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70

uses   Windows, ..., jpeg, pngimage, GifImage; ............. procedure TForm1.Button1Click(Sender: TObject);   begin    if OpenDialog1.Execute then Image1.Picture.LoadFromFile(OpenDialog1.FileName);  //Image1.Stretch:= true;  Edit4.Text:=OpenDialog1.FileName;  Edit1.Text:=StringReplace(OpenDialog1.FileName,             ExtractFileExt(OpenDialog1.FileName),'',[])+'.bmp'; end;     procedure TForm1.Button2Click(Sender: TObject); var  Line: pByteArray;  i, j: integer;  s   : string;  sl  : TStrings;  sl2  : TStrings;  bmp : TBitmap;  begin  sl:= TStringList.Create;  sl2:= TStringList.Create;  bmp:= TBitmap.Create;  bmp.LoadFromFile(Edit1.Text); for i:= 0 to bmp.Height - 1 do   begin    s:= '';    j:= 0;    Line:= bmp.ScanLine[i];    while  j <= bmp.Width * 3  do     begin       s:='R'  + IntToStr(Line[j]) +       'G'  + IntToStr(Line[j+1]) +       'B'  +IntToStr(Line[j+2]);      inc(j, 3);      sl.Add(s);     end;    end;  sl.SaveToFile('D:\Делфи 7 проекты\Матрица капчи.txt');  sl.Free;    Edit2.Text:=IntToStr(bmp.Width+1);  Edit3.Text:=IntToStr(bmp.Height);  sl2.Add(IntToStr(bmp.Width)+ '; ' + IntToStr(bmp.Height));  sl2.SaveToFile('D:\Делфи 7 проекты\Размер капчи.txt');  sl2.Free;  bmp.Free; end;     procedure TForm1.Button3Click(Sender: TObject); var   bmp: TBitmap; begin bmp:=TBitmap.Create;   with TPicture.Create do begin     LoadFromFile(Edit4.Text); //jpg,png,gif,bmp     bmp.Assign(Graphic);     Free;   end;   bmp.SaveToFile(Edit1.Text);   bmp.Free;   Image2.Picture.LoadFromFile(Edit1.Text); end;   end.

[Alegun]

Вероятно, я стал обыкновенным ретроградом и повёл вас по не правильному пути - пжлст, посмотрите предпоследний пост УК NumLock в этой топке. Извнт, но честно, проверял на *.bmp и *.jpg: оно работало

[x128]

DenIvan, ты делаешь предположение, что битмап 24 бита на пиксел, но это не всегда так. Да и весь код какой-то странный, битмап сохраняется, потом загружается и всё это только для того, чтобы сохранить как текст. Приложенные изображения в градациях серого, может стоит писать в текст только одно значение, а не три одинаковых значения РГБ?

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34

procedure TForm1.Button1Click(Sender: TObject); var   bmp: TBitmap;   scan: pByteArray;   x,y: integer;   r,g,b,gr: byte;   txt: TStringList;   str: string; begin   if OpenPictureDialog1.Execute then begin     bmp:=TBitmap.Create;     with TPicture.Create do begin       LoadFromFile(OpenPictureDialog1.FileName);       bmp.Assign(Graphic);       Free;     end;     bmp.PixelFormat:=pf24bit;     txt:=TStringList.Create;     txt.Add('W:'+IntToStr(bmp.Width)+' H:'+IntToStr(bmp.Height));     for y:=0 to bmp.Height-1 do begin       scan:=bmp.ScanLine[y]; str:='';       for x:=0 to bmp.Width-1 do begin         r:=scan[x*3+2]; g:=scan[x*3+1]; b:=scan[x*3+0];         str:=str+'R'+IntToStr(r)+'G'+IntToStr(g)+'B'+IntToStr(b);         //gr:=round(0.299*r+0.587*g+0.114*b);         //str:=str+IntToStr(gr)+'|';       end;       txt.Add(str);     end;     txt.SaveToFile('image.txt');     txt.Free;     bmp.Free;   end; end;