Сейчас на форуме: tyns777, zds, JustLife, 2nd, morgot (+5 невидимых)

 eXeL@B —› Программирование —› bmp 2 txt
Посл.ответ Сообщение


Ранг: 156.2 (ветеран), 2thx
Активность: 0.09↘0
Статус: Участник

 Создано: 11 июня 2009 15:01
· Личное сообщение · #1

Народ, подскажите, как считать bmp в txt. Нужно записать числом значение яркости каждого пикселя.
Нужно на win api. я пока что (без) апи сделал так:
Code:
  1.  
  2. var
  3.   bPicture:TPicture;
  4.   brg:double;
  5.   P : PByteArray;
  6.   Ft:text;
  7.  
  8. .......................
  9.  
  10.  AssignFile(FT,'data.txt');
  11.  ReWrite(Ft);
  12.  
  13.  for j:=0 to bPicture.Bitmap.Height-1 do begin
  14.   for i:=0 to bPicture.Bitmap.Width-1 do
  15.    begin
  16.     P := bPicture.BitMap.ScanLine[J];
  17.     brg:=0.3*GetRValue(P[i])+0.59*GetGValue(P[i])+0.11*GetBValue(P[i]);
  18.     Write(Ft,brg:3:3,' ');
  19.    end;
  20.     Writeln(Ft);
  21.    end;
  22.   CloseFile(ft);
  23.  

Ранг: 13.7 (новичок)
Активность: 0.01↘0
Статус: Участник

 Создано: 11 июня 2009 21:10 · Поправил: Nowar
· Личное сообщение · #2

Ну и чем твой метод тебя не устраивает?
Можешь посмотреть на http://www.delphikingdom.ru/asp/answer.asp?IDAnswer=57345
Там же и задать вопрос этот, а в этом форуме не по теме немного...

update: sorry, невнимательно прочитал код... Он у тебя и так через scanline.
Модератору: мой пост можно удалить за ламерство



Ранг: 101.0 (ветеран), 344thx
Активность: 1.15↘0
Статус: Участник

 Создано: 11 июня 2009 21:29
· Личное сообщение · #3

Не в этот форум надо было такие вопросы задавать.


 eXeL@B —› Программирование —› bmp 2 txt
Эта тема закрыта. Ответы больше не принимаются.
   Для печати Для печати