| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Где ошибка? [D2005, XP]

De1uxe ©   (2005-12-12 15:34:00) 

Вот чего я набрал:
var
bitmap1: tbitmap;
i,q,x,y: integer;
z,c:string;
begin
bitmap1.Create;
bitmap1.LoadFromFile('c:\test1\1.bmp');
for i:=1 to bitmap1.Height do
begin
for q:=1 to bitmap1.Width do
 begin
 if getpixel(bitmap1.Handle, q,i)=0 then
   begin
   x:=q;
   y:=i;
   end;
 end;
end;
z:=intTostr(x);
c:=intTostr(y);
label1.Caption:=('Координата Х:'+z+' Координата Y:'+c)
end;
но почему-то не работает. Кто подскажет почему? В указанной папке есть картинка 1.bmp на которой всего одна точка черного цвета.
при нажатии на кнопку он выдает ошибку типа:
project project.exe raised exception class EAccessViolation with message...

---

Джо   (2005-12-12 16:05:00) [1]

>  [4] De1uxe ©   (12.12.05 16:00)
>
> > Германн ©   (12.12.05 15:57) [3]
> >
> >
> > > bitmap1.Create;  тут
>
> и в чем же и как её испрасить?

Bitmap1 := TBitmap.Create

---

Zeqfreed   (2005-12-12 16:05:00) [2]

De1uxe ©   (12.12.05 16:00) [4]

> и в чем же

В том, что этот код вызывает метод ещё не созданного экземпляра класса.

> и как её испрасить?

Создать этот экземпляр в памяти, для начала. Но после этого вызов метода Create() уже врядли потребуется.

---

De1uxe   (2005-12-12 16:00:00) [3]

> Германн ©   (12.12.05 15:57) [3]
>
>
> > bitmap1.Create;  тут

и в чем же и как её испрасить?

---

Германн   (2005-12-12 15:57:00) [4]

> bitmap1.Create;  тут

---

Джо   (2005-12-12 15:46:00) [5]

Быть беде... Зачем спамить-то? Или ты не читатель?

---

Morgoth_   (2005-12-12 15:44:00) [6]

а не 0,0 координатф точки то?

---

Наверх