VPF::bmp to txt - Форум программистов

welt

Дата 12.6.2009, 17:33 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 89
Регистрация: 21.5.2005
Где: UnderGround

Репутация: нет
Всего: нет

Нужно сохранить bmp файл в массив значений. Каждый пиксел записать числом, соответствующим его яркости.
Но это нужно сделать на winApi.
без апи я пока что сделал так:

Код


var
  bPicture:TPicture; 
  brg:double;
  P : PByteArray;
  Ft:text;
 
.......................
 
 AssignFile(FT,'data.txt');
 ReWrite(Ft);
 
 for j:=0 to bPicture.Bitmap.Height-1 do begin
  for i:=0 to bPicture.Bitmap.Width-1 do
   begin
    P := bPicture.BitMap.ScanLine[J];
    brg:=0.3*GetRValue(P[i])+0.59*GetGValue(P[i])+0.11*GetBValue(P[i]);
    Write(Ft,brg:3:3,' ');
   end;
    Writeln(Ft);
   end;
  CloseFile(ft);

А вот как сичтать в файл на api...Может надо как-то через функцию CreateBitmap...

Alexeis

Дата 12.6.2009, 18:03 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 16
Всего: 459

Посмотрите тут http://forum.vingrad.ru/forum/topic-104913...mage/index.html

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

Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать

Romikgy

Дата 12.6.2009, 19:52 (ссылка)

(нет голосов)

Загрузка ...

Любитель-программер

Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: 13
Всего: 146

а чем не устраивает вариант тот что есть он и в винде работать будет

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

Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности.

welt

Дата 13.6.2009, 15:38 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 89
Регистрация: 21.5.2005
Где: UnderGround

Репутация: нет
Всего: нет

Alexeis,
Спасибо, нашел в той теме как вывести через пикселы на форму и получилось записать в файл.
Но я пишу на winapi и хочу на контент окна вывести картинку, но почему-то не выводится.
Делаю так:

Код


var
  Image1 : HWND;
//.......................

Image1 := CreateWindow('Static' ,'  ' ,WS_CHILD or SS_BITMAP or WS_VISIBLE,
104, 8, 281, 313, Handle, 0, hInst, nil);
SendMessage(Image1, WM_SETFONT, hFont, 0);
Bmp := LoadBitmap(hInstance, MAKEINTRESOURCE('Image1.bmp'));
SendMessage(Image1, STM_SETIMAGE, IMAGE_BITMAP, Bmp);

Romikgy,
Надо на апи))

Это сообщение отредактировал(а) welt - 13.6.2009, 15:39

Alexeis

Дата 13.6.2009, 15:50 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 16
Всего: 459

Цитата(welt @ 13.6.2009, 14:38

)

Но я пишу на winapi и хочу на контент окна вывести картинку

bitblt рисует. Скопировать с контекста битмапа, на контекст канвы.

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

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: WinAPI и системное программирование \| Следующая тема »