|
Вопрос # 4 696/ вопрос открыт / |
|
Здравствуйте!
Перебирается каждый пиксель на картинке (на картинке пять точек) как только находит первый нужный пиксель цикл останавливается, начинается второй цикл нахождения второй точки... но он никак не хочет запускаться, первую находит и всё... я в панике, помогите пожалуйста, умоляю...
Приложение: Переключить в обычный режим- procedure TMainForm.Timer1Timer(Sender: TObject);
- var
- n,s,st,i,s2,st2,i2, n2:Integer;
- b,z:Cardinal;
- begin
- SampleGrabber1.GetBitmap(Image.Picture.Bitmap);
- s:=119;
- st:=159;
- for i:=0 to s do
- for n:=0 to st do
- begin
- b:= GetYValue(image.Picture.Bitmap.Canvas.Pixels[n,i]);
- if b>110 then
- begin
- Label1.Caption:='x='+IntToStr(n);
- Label2.Caption:='y='+IntToStr(i);
- exit;
- end;
- end;
-
- s2:=119;
- st2:=n+20;
-
- for i2:=i+10 to s2 do
- for n2:=n-20 to st2 do
-
- begin
- z:= GetYValue(image.Picture.Bitmap.Canvas.Pixels[n2,i2]);
- if z>110 then
- begin
- Label3.Caption:='x='+IntToStr(n2);
- Label4.Caption:='y='+IntToStr(i2);
- exit;
- end;
- end;
- end;
Примечание #1 (2 ноября 2010, 17:44): Цикл останавливал другим способом без exit;
s:=i;
st:=n;
непомогло
 |
Вопрос задал: EvgenDRV (статус: Посетитель)
Вопрос отправлен: 2 ноября 2010, 17:35
Состояние вопроса: открыт, ответов: 0.
|
Мини-форум вопроса
Всего сообщений: 21; последнее сообщение — 4 ноября 2010, 00:29; участников в обсуждении: 5.
Страницы: [« Предыдущая] [1] [2]
|
Вадим К (статус: Академик), 4 ноября 2010, 00:29 [#21]:
канва у TImage и просто объект типа TBitmap - ни одно и тоже. И скорость работы разная.
Галочка "подтверждения прочтения" - вселенское зло.
|
Страницы: [« Предыдущая] [1] [2]
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
