с чего тут AV можно словить?

← →
ВладОшин © (2014-09-22 18:52) [0]

картинка, кнопка, мемо
нажимаю, получаю в мемо что надо
при закрытии формы получается AV
Где!? - не понимаю..

если на кнопку не жать - закрывается нормально
----
procedure TForm1.btn1Click(Sender: TObject);
var
b1: TBitmap;
x, i, j: Integer;
s: string;
c: TColor;
f:string;
inf: Boolean;
begin
b1 := img1.Picture.Bitmap;
s := "";
x := 1;
for i := 1 to b1.Height-1 do
begin
inf := false;
for j := 1 to b1.Width-1 do
begin
c := b1.Canvas.Pixels[j,i];
if c > $FFF000 then
begin
f := " ";
M[x,j] := 0;
end else
begin
inf := True;
f := "*";
M[x,j] := 1;
end;
s := s + f;
end;
if inf then
begin
mmo1.Lines.Add(s);
x := x + 1;
end;
s := "";
end;
end;
----
TForm1 = class(TForm)
img1: TImage;
btn1: TButton;
mmo1: TMemo;
procedure btn1Click(Sender: TObject);
private
{ Private declarations }
public { Public declarations }
M: array[1..10,1..100] of Byte;
end;

← →
MBo © (2014-09-22 19:06) [1]

range check включил?
За M не вылезаешь?

← →
brother © (2014-09-22 19:21) [2]

> b1 := img1.Picture.Bitmap;

b1 нигде не уничтожается ручками? а без него, напрямую img1.bitmap если использовать?

← →
ВладОшин © (2014-09-22 19:37) [3]

> MBo © (22.09.14 19:06) [1]
>
> range check включил?
> За M не вылезаешь?

блин, спасибо!
оно
И даже не ругается, когда выходишь..

> b1 нигде не уничтожается ручками?

а нафиг? Просто приравниваю, не создаю..

← →
brother © (2014-09-22 19:43) [4]

> И даже не ругается, когда выходишь..

внимательнее надо быть)

> а нафиг? Просто приравниваю, не создаю..

бывает на автомате, увидил объяву, на дестройформы написал дестрой уничтожения объекта)

← →
ВладОшин © (2014-09-23 10:53) [5]

> на автомате, увидил объяву, на дестройформы написал дестрой

не, такое ловится быстро
а тут я и debug dcu подключал и эврику - "какую то фигню" сообщает
теперь понимаю - хотел М уничтожить, а оно частично не его

хотел наглядно картинки рассматривать, удобно в текстовом редакторе - xy сразу подсвечивается :)
некоторые картинки на пиксел больше, чем все остальные получаются..
можно матрицу М расширить, но надо процесс захвата переглядеть, по хорошему
с чего вдруг нарезает не так..

← →
MBo © (2014-09-23 11:31) [6]

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

← →
ВладОшин © (2014-09-23 11:39) [7]

> А почему игнорируются первый столбец и первая строка?

там пусто заведомо

> что этот код должен делать?

код на пару запусков (десятков запусков)
помочь понять "распределение" данных
меняю условие, смотрю в какой области группируется инфа, корректирую захват :)

← →
ВладОшин © (2014-09-23 11:57) [8]

а вообще задача определить что отметили на скане
сначала я его сжимаю, темных точек с опред. допуском больше в опред. области, которая нужна
потом эту область распознаю, там несколько квадратиков должно быть.
Опять же - где больше темного, там и зачеркнуто, вероятно.
ну как-то так
Почитал правильные методы - слишком сложно, надо быстрее :)
Оно может и неправильно, но задача допускает погрешность. Должно пройти.

← →
ВладОшин © (2014-09-23 12:17) [9]

перечитал.
Возникает вопрос - че вопрос задал то.
ответ:
1. Надо для статистики набрать координаты, а надоедает жать ошибку
2. Интересно стало. На пустом месте, казалось бы.. *
0. Спасибо сказать, вроде, не забыл :)

* Есть стандартный бэкап-iso диска, недавно восстановился, так то ставлю все галки, а на образе именно эта не стоит. А я то думаю, что все как всегда - стоит :)

согласен на удаление :)

← →
junglecat (2014-09-23 12:40) [10]

> так то ставлю все галки, а на образе именно эта не стоит

задача - распознать стоящую галку?

цитирование - > так то ставлю все галки, а на образе именно эта не стоит
не уместно.

при установки delphi галка range check error была выключена, так и был создан образ.
Потом я ее всегда включаю
А сейчас после накатки с образа системы - не включил эту галку в настройках компилятора.

-----
а задача - да,

> задача - распознать

отметку

чаще - да, галку

← →
junglecat (2014-09-23 15:17) [12]

а причем здесь скан?

на нем опции компилятора прописаны, я экран сфоткал, теперь хочу распознать, но троль под горой походу уже съел все негативы. Как быть?

с чего тут AV можно словить? Найти похожие ветки