Узнат Координаты BMP файла

[epidemiya]

У меня 10 файлов мне очень нужна малинкая программа который открылбы одну из этих bmp файлов и сохранилбы координаты чорный пихкселей помагите мне очень нужно и я толька начинаю изучать Delphi спасибо всем

[SERG1980]

Сообщение от epidemiya

и сохранил бы координаты чёрных пикселей

куда вам нужно сохранять эти координаты?

[epidemiya]

кординаты сохранилбы в текстовый файл или в ворд разницы нету самое главное я выбирал фото и на кнопку нажимаю и чтобы сохранил примерна так (x1,y1);(x2,y2); ну толька чкрный цвет спасибо если поможеш очень буду блогодарен

[zetrix]

загружаем BMP в Image. В цикле проверяем если Image1.canvas.pixels[i,j]=RGB(0,0,0) то (i,j) записываем в файл. Попробуйте сами написать.

[epidemiya]

ну я толька что начил изучат Delphi и чтобы написать такуюу прогу мне нужна покрайней мери нужно ниделя а это проста мне очень нужно плизз напишити принципи я нашол этот фором я не один раз буду вас беспокоет когда изучу Delphi помогите плизз это задачу решит спасибо за помош

[Arigato]

Вот примерное решение:

var BitMap: TBitMap;
    X, Y: Integer;
    F: TextFile;
begin
  BitMap := TBitMap.Create;
  BitMap.LoadFromFile ('bitmap.bmp');
  {$I-}
  AssignFile (F, 'output.txt');
  Rewrite (F);
  for Y := 0 to BitMap.Height do
    for X := 0 to BitMap.Width do
      if BitMap.Canvas.Pixels[X,Y] = $000000 then Write (F, '(' , X , ',', Y, ');');
  CloseFile (F);
  {$I+}
  if IOResult <> 0 then MessageBox (Handle, 'Ошибка работы с файлом', 'Ошибка', MB_ICONERROR)
  else  MessageBox (Handle, 'Операция успешно завершена', 'Информация', MB_ICONINFORMATION);
  BitMap.Free;
end;

[mutabor]

я выбирал фото

Это слово здесь случайно, или действительно фото? Если фото, то ничего не выйдет, чистого черного цвета будет очень мало. Нужно будет расширить диапазон попадания в "черный" цвет.

[epidemiya]

неа 100% бмп чорный и белый цвет папробую что получится это всю когда нажимаю кнопку суда скапирыват?? я просто совсем навечок поетому ну спасибо если вопрос будеть напишу

спасибо получился и это только чернык цвета да ???

Спасибо я блогодарен

//не выдержал, нарушение за орфографию, zetrix

А как сохранит все координаты не толька черный цвет

[JUDAS]

var BitMap: TBitMap;
X, Y : Integer;
SL : TSTringList;
begin
BitMap := TBitMap.Create;
BitMap.LoadFromFile ('bitmap.bmp');
SL := TSTringList.Create;

for Y := 0 to BitMap.Height do
for X := 0 to BitMap.Width do
sl.add(format('(X=%d) (Y=%d)',[X,Y]));


SL.SaveToFile('exists.txt');
BitMap.Free;
SL.Free;

end;

[Mayday_007]

а кто-ниь может сделать тоже самое, только не загружая картинку, а читать побитого прямо из файла???