Определить количество точек

[Sibedir]

возникает ошибка ([Hint] Unit1.pas(40): Value assigned to 'y' never used) ([Hint] Unit1.pas(39): Value assigned to 'x' never used)

А зачем вот это?

x:=LOGPIXELSX;
y:=LOGPIXELSY;

не показывает рисунок белое окно

Может из-за пробела в имени

'C:\12._bmp'

Пошу уточнить: Вам действительно нужно

определеить количество черных точек

?
А то судя по коду вам нужна координата Y последней черной точки в первом столбце, в котором она встречается.

[Артур22]

Да нужно определить значение y, вот написал кое что лишнее убрал но все равно результата не выводит в численном значении, не понимаю в чем дело

procedure TForm1.Button1Click(Sender: TObject);
var
myJpg: TJpegImage;
begin
myJpg:=TJpegImage.Create;
myJpg.LoadFromFile('C:\12.jpg');
end;

procedure TForm1.Button2Click(Sender: TObject);
var x,y,z,r: integer;
begin
x:=0;y:=0;
for z:=0 to image1.Width  do
for r:=0 to image1.Height do
if image1.Canvas.Pixels[z,r]=clblack then
begin
x:=z;
y:=r;
Edit1.Text:=FloatToStr(z)+'_znach'+#13;
Edit2.Text:=FloatToStr(r)+'_znach'+#13;
end;
end;
end.

[Sibedir]

1

Да нужно определить значение y

Первое вхождение или последнее? Опишите четко. Например:

нужна координата Y последней черной точки в первом столбце, в котором она встречается.

От этого зависит организация цикла

procedure TForm1.Button1Click(Sender: TObject);
var
  x, y: Integer;
  p: TPoint;
begin
  p.X := -1;
  p.Y := -1;
  for x := 0 to Image1.Width do begin
    for y := Image1.Height downto 0 do begin
      if Image1.Canvas.Pixels[x,y]=clblack then
      begin
        p.X := x;
        p.Y := y;
        Break;
      end;
      if p.X <> -1 then Break;
    end;
  end;
  if p.X = -1 then begin
    Edit1.Text := '<не найдено>';
    Edit2.Text := '<не найдено>';
  end
  else begin
    Edit1.Text := IntToStr (p.X);
    Edit2.Text := IntToStr (p.Y);
  end;
end;

2

procedure TForm1.Button1Click(Sender: TObject);
var
myJpg: TJpegImage;
begin
myJpg:=TJpegImage.Create;
myJpg.LoadFromFile('C:\12.jpg');
end;

Загрузка картинки неведомо куда и как результат отсутствие результата и утечка памяти.
Так было вернее

Image1.Picture.LoadFromFile('C:\12.bmp');

А то грузите картинку в некий myJpg, который потом нельзя использовать вне процедуры TForm1.Button1Click, а работаете с пустым Image1.

Добавлено -------------------------------------------------------------------------
P.S.: Для загрузкик JPG

Image1.Picture.LoadFromFile('C:\12.jpg');

добавте в uses "Jpeg".

[Артур22]

Все как сказали сделал, картинку показывает но не решает количество пикселей и выводит следующую ошибку (Can only modify an image if it contains a bitmap). Здесь я хочу найти сначало общее количество черных точек (пикселей) в image1. Затем найти количество черных точек (пикселей) по клеткам то есть раздельно

procedure TForm1.Button1Click(Sender: TObject);
var
  myJpg: TJpegImage;
begin
image1.Picture.LoadFromFile('C:\12.jpg');
Image1.Stretch:= True;
end;

procedure TForm1.Button2Click(Sender: TObject);
var x,y: integer;
begin
for x:=0 to image1.Width  do
for y:=0 to image1.Height do
if image1.Canvas.Pixels[x,y]=clblack then
Edit1.Text:=FloatToStr(x)+'_znach'+#13;
Edit2.Text:=FloatToStr(y)+'_znach'+#13;
end;
end.

[Sibedir]

АХТУНГ:

Image1.Stretch:= True;

При растяжении картинка деформируется => координаты и кол-во могут не соответствовать требуемому результату

не решает количество пикселей и выводит следующую ошибку

Здесь я хочу найти сначало общее количество черных точек (пикселей) в image1

Я в ауте. Вы что, еще не определились что вам нужно.
Не знаю, есть ли смысл продолжать разговор.

выводит следующую ошибку (Can only modify an image if it contains a bitmap)

procedure TForm1.Button1Click(Sender: TObject);
var
  x, y: Integer;
  p: TPoint;
  bm: TBitmap;
begin
  bm := TBitmap.Create;
  bm.Assign (Image1.Picture.Graphic);
  ...
  for x:=0 to bm.Width  do
    for y:=0 to bm.Height do
      if bm.Canvas.Pixels[x,y]=clblack then
  ...
  bm.Free;
end;

Затем найти количество черных точек (пикселей) по клеткам то есть раздельно

По каким еще клеткам?

[Артур22]

Это уже следующая программа, а как сделать не растягивая рисунок

[Sibedir]

Убрать Image1.Stretch:= True. У вас видимо картинка больше Image'а.
Хотя если делать через

bm.Assign (Image1.Picture.Graphic);

и работать не с канвой Image, а с bm

if bm.Canvas.Pixels[x,y]=clblack then

то фиг с ним со стрейчем, всеравно работаем непосредственно с картинкой.

[Артур22]

Спасибо большое мне пора идти, дома попытаюсь еще что нибуть сделать поковыряюсь в книгах. Если будут вопросы оставлю на форуме