Модераторы: Poseidon, Snowy, bems, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> как сделат Destroy Bitmap ? 
V
    Опции темы
Mersik
  Дата 21.1.2007, 19:35 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 69
Регистрация: 15.1.2007
Где: Latvija, Riga

Репутация: -1
Всего: 0
как сделат Destroy Bitmap ? smile 

Код

procedure load_image(fname:string);
var i,j,y:integer;
Bitmap1: TBitmap;
begin
     
      Bitmap1:= TBitmap.Create;
      Bitmap1.PixelFormat:=pf24bit;
      Bitmap1.LoadFromFile(Fname);
     // Form1.Image1.Picture.Graphic:= Bitmap1;
      Form1.image1.width:=bitmap1.width;
      Form1.image1.height:=bitmap1.height;
      y:= 0;
      for i := 0 to 15 do
        for j:= 0 to 15 do
          begin
          inc(y);
          Input_neiro_value[y]:=getRvalue(Form1.image1.canvas.pixels[i,j]);
          if Input_neiro_value[y]=255 then Input_neiro_value[y]:=0 else Input_neiro_value[y]:=1;
          end;

        Tbitmap.Destroy;   ?????????????????????????????????????????
end;
PM MAIL WWW   Вверх
Rodman
Дата 21.1.2007, 19:52 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


CIO
****


Профиль
Группа: Участник
Сообщений: 6144
Регистрация: 7.5.2006
Где: Ukraine ⇛ Kyiv ci ty

Репутация: 7
Всего: 122
в идеале должно быть так.. мне кажется
Код

procedure load_image(fname:string);
var i,j,y:integer;
      Bitmap1: TBitmap;
begin
      Bitmap1:= TBitmap.Create;
      try
        Bitmap1.PixelFormat:=pf24bit;
        Bitmap1.LoadFromFile(Fname);
        Form1.image1.width:=bitmap1.width;
        Form1.image1.height:=bitmap1.height;
        y:= 0;
        for i := 0 to 15 do
          for j:= 0 to 15 do
          begin
            inc(y);
            Input_neiro_value[y]:=getRvalue(Form1.image1.canvas.pixels[i,j]);
            if Input_neiro_value[y]=255 then 
                    Input_neiro_value[y]:=0 
            else 
                    Input_neiro_value[y]:=1;
          end;
       finally 
         Bitmap1.Free;
       end;
end;


Это сообщение отредактировал(а) Rodman - 21.1.2007, 19:57


--------------------

Лотереи мира
PM MAIL WWW Skype GTalk YIM MSN   Вверх
Sunvas
Дата 21.1.2007, 19:52 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Соль и сахар
****


Профиль
Группа: Участник
Сообщений: 3388
Регистрация: 12.3.2006
Где: Тосно

Репутация: 28
Всего: 89
Цитата(Mersik @  21.1.2007,  19:35 Найти цитируемый пост)
как сделат Destroy Bitmap ? 

А что мешает? Выбирай любое (но не два одновременно!):
Код

bitmap.destroy;
bitmap.free;


Это сообщение отредактировал(а) Sunvas - 21.1.2007, 20:00


--------------------
Воспитывая детей по своему образу и подобию, родители почему-то надеются, что они будут лучше их.
PM MAIL   Вверх
mrbrooks
Дата 21.1.2007, 19:52 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


трололомен
****


Профиль
Группа: Завсегдатай
Сообщений: 4259
Регистрация: 4.10.2006
Где: Дол Гулдур

Репутация: нет
Всего: 306
Я бы сделал так

Код


Bitmap1.Free;
PM MAIL   Вверх
Alexeis
Дата 21.1.2007, 19:58 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Амеба
Group Icon


Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 109
Всего: 459
Цитата(Sunvas @  21.1.2007,  19:52 Найти цитируемый пост)
А что мешает?
Код

bitmap.destroy;
bitmap.free;



Должно вызвать ошибку, потому что после вызова bitmap.destroy; - память объекта уже освобождена, а free - это не деструктор а обычный метод. Вызов метода несуществующего объекта всегда ошибка.


--------------------
Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать
PM ICQ Skype   Вверх
Sunvas
Дата 21.1.2007, 20:00 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Соль и сахар
****


Профиль
Группа: Участник
Сообщений: 3388
Регистрация: 12.3.2006
Где: Тосно

Репутация: 28
Всего: 89
Alexeis, это у мня на выбор - объеденяется условием "или". Просто забыл дописать. Ща исправлю.


--------------------
Воспитывая детей по своему образу и подобию, родители почему-то надеются, что они будут лучше их.
PM MAIL   Вверх
Rodman
Дата 21.1.2007, 20:02 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


CIO
****


Профиль
Группа: Участник
Сообщений: 6144
Регистрация: 7.5.2006
Где: Ukraine ⇛ Kyiv ci ty

Репутация: 7
Всего: 122
smile


Mersik, просто надо делать уничтожение не класса, а его экземпляра, т.е. Bitmap1'а...


--------------------

Лотереи мира
PM MAIL WWW Skype GTalk YIM MSN   Вверх
Mersik
Дата 21.1.2007, 20:16 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 69
Регистрация: 15.1.2007
Где: Latvija, Riga

Репутация: -1
Всего: 0
СПАСИБО !!! КАК я Уже ГОВОРИЛ ВИ лучшие !!!!!!!! smile 
PM MAIL WWW   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0765 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.