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

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

Где ошибка? Подскажите.... [D7]

Страницы:   < 1 2 >

-=Germe$=- ©   (2006-08-09 10:47:00) 

При закрытии окна вылетает ошибка. Вот код

var Pic, Pic1: array of array of TColor;
   X, Y: Integer;
   f: File;
begin
 SetLength(Pic, Image1.Width);
 For Y:=0 to Image1.Height do
   SetLength(Pic[Y], Image1.Width);
 For X:=0 to Image1.Width-1 do
   For Y:=0 to Image1.Height-1 do
     Pic[Y, X]:=Image1.Picture.Bitmap.Canvas.Pixels[X, Y];
 SetLength(Pic1, Image1.Width);
 For Y:=0 to Image1.Height do
   SetLength(Pic1[Y], Image1.Width);
 AssignFile(F, 'd:\Temp.temp');
 ReWrite(F);
 BlockWrite(F,Pic, SizeOf(Pic));
 CloseFIle(F);
 AssignFile(F, 'd:\Temp.temp');
 Reset(F, 1);
 BLockRead(F, Pic1, SizeOf(Pic));
 CloseFile(F);
 For X:=0 to Image1.Width do
   For Y:=0 to Image1.Height do
     Image2.Canvas.Pixels[X, Y]:=Pic1[Y, X];
end;


---

Сергей М.   (2006-08-09 10:54:00) [21]

Какая ошибка-то ?)

---

clickmaker   (2006-08-09 10:53:00) [22]

во-первых
SetLength(Pic, Image1.Width);
For Y:=0 to Image1.Height do
длину массива ставишь равной ширине, а потом идешь по высоте. Ну если картинка квадратная, сработает

и потом: зачем читать и писать в файл попиксельно? Есть же TPicture.Load/SaveFromFile

---

Страницы:   < 1 2 >

Наверх