Головна сторінка
Top.Mail.Ru Яндекс.Метрика
Форум: "Основна";
Поточний архів: 2002.12.23;
Завантажити: [xml.tar.bz2];

Вниз

з неймовірною силою лізуть 255 в дані Знайти схожі гілки


vilfred   (2002-12-10 16:49) [0]

При считывании яркости пикселя с картинки(высота и ширина VidH и VidW соответственно) в двумерный массив:

const VidH=255; VidW=377;
....
if OpenDialog1.Execute then
починати
BitMap1: = TBitMap.Create;
BitMap2: = TBitMap.Create;
намагатися
BitMap1.LoadFromFile(OpenDialog1.FileName);
BitMap2.Assign(BitMap1);
BitMap2.Dormant;
BitMap2.FreeImage;
Image3.Canvas.Draw(0,0,BitMap2);
BitMap2.Monochrome := true;
BitMap2.ReleaseHandle;
for x:=0 to VidH-1 do begin
ee:=x;
for y:=0 to VidW-1 do begin
mas[x][y]:=byte(Image3.Canvas.Pixels[x,y])// and $ff);
end;
end;
Canvas.TextOut (100,295,
IntToStr(byte(Image3.Canvas.Pixels[112,160] and $ff)));
в кінці кінців
BitMap1.Free;
BitMap2.Free;
end;
Graphic;
end;

каждая строка начинает заполняться значением 255 на 241 шаге цикла, когда заполняю массив mas, т.е. недостача данных выходит ну и соответственно все идет лесом :(( ...

Но, если я делаю одномерный массив(и соответственно цикл по этому делу один) строчкой mas[x]:=byte(Image3.Canvas.Pixels[x,150]) вместо показанной mas[x][y]:=byte(Image3.Canvas.Pixels[x,y]), то заполнение данных происходит нормально, т.е. 255 нигде не появляются. Картинка нормальная, не битая, содержит 255 градаций серого. В той точке изображения где беру при помощи byte(Image3.Canvas.Pixels[x,y]) нет значения 255, т.е. не белый цвет... т.е. в массиве на данной строке и в данном столбце не должно быть значения 255.

Может быть дело в способе загрузки картинки? Или может быть надо взять цвет пикселя как-то по другому?



Subfire   (2002-12-10 17:17) [1]

mas глоюальная или локальная?
если локальная попробуй:
FillChar(mas,sizeof(mas),0);



vilfred   (2002-12-10 18:17) [2]

да это я похоже с размерами массива наглючил че-то очень сильно... вроде как все теперь сходится. т.е. это моя ошибка.



сторінки: 1 вся гілка

Форум: "Основна";
Поточний архів: 2002.12.23;
Завантажити: [xml.tar.bz2];

Вгору





Пам'ять: 0.55 MB
Час: 0.024 c
14-74954
Дмитро К.К.
2002-11-29 09:31
2002.12.23
Читання груп новин


1-74633
sniknik
2002-12-09 12:34
2002.12.23
компіляція Delphi проектів на FreePascal.


1-74678
dimonf
2002-12-13 12:25
2002.12.23
Як працює TEvent.WaitFor?


1-74666
Matolch
2002-12-11 20:26
2002.12.23
Як повісити іконку на TMenuItem. Ніяк. Чомусь ... Врятуйте від


1-74663
Alexander Vasjuk
2002-12-10 18:04
2002.12.23
як дізнатися скільки і які іконки в файлі * .ico?





африкаанс албанський арабська вірменин азербайджанець баскський білоруський болгарська каталонський Китайська (спрощене письмо) Китайський традиційний) хорватський чеська данську мову нідерландський Ukranian естонець Філіппінська фінську мову французький
галісійська грузинський німецький грецький гаїтянський креольський давньоєврейську хінді угорський ісландський індонезієць ірландський італійський японський корейський латиська литовець македонець малайський мальтійський норвежець
перс полірування португальська румунський російська сербський словацький словенський іспанська суахілі шведську мову тайський турецька український урду в'єтнамський валлійський ідиш бенгальський боснійський
кебуано есперанто гуджараті хауса хмонг ігбо яванський каннада кхмерская Лао латинь маорі маратхі монгольський непальська панджабі сомалійський тамільська телугу йоруба
зулуський
Англійська Французький Німецький Італійський Португальська Русский Іспанська