Добрый день, Мастера!
В процедуре onCtreate создал Bitmap:


A процедуре onResize мне необходимо изменить размеры Bitmap:


При этом данный процесс "съедает" уйму памяти.  можно просто изменить параметры ширины и высоты Bitmap в TBitmapInfo непосредстенно в памяти, чтобы не создавать новый bitmap с новыми шириной и высотой. Как связать bitmap и память (TBitmapInfo)? Пожалуйста, если можно, небольшой практический пример как это можно реализовать. Всем спасибо!

> [0] Dr. Andrew   (29.08.07 17:58)

А где этот битмап потом используется?
И смысл на OnResize делать так:
 bitmap.Height := 2000;
 bitmap.Width := 3000;
???

> можно просто изменить параметры ширины и высоты Bitmap в
> TBitmapInfo непосредстенно в памяти, чтобы не создавать
> новый bitmap с новыми шириной и высотой.

Ну так и меняй BMP.Width:=NewWidth.... без создания его заного..

А лучше задачу "нарисуй" поподробнее....

> потом стандартными методами загружаю в него туже картинку.

Стандартным - это каким? LoadFromFile?
Если Да - то все эти установки размеров и прочего к чертям собачьим....
Нет смысла настраивать Битмап перед загрузкой его из файла...

procedure TForm1.onCtreate(Sender : TObject);
begin
bitmap := Tbitmap.Create;
bitmap.Pixelformat := pf24bit;
bitmap.Height := 200;
bitmap.Width := 300;
bitmap.LoadfromFile(D:/My Folder/Img_001.bmp);
Canvas.Draw(0,0, bitmap);
end;

Далее я разворачиваю окно на весь экран, а в процедуре onResize мне необходимо изменить размеры Bitmap (применение процедуры скреч исключено!). Мне нужен битмар с большими размерами (размерами экрана):

procedure TForm1.onResize(Sender : TObject);
begin
 if bitmap <> nil then
   bitmap.Free;
 bitmap := Tbitmap.Create;
 bitmap.Pixelformat := pf24bit;
 bitmap.Height := 2000;
 bitmap.Width := 3000;
 потом стандартными методами загружаю в него туже картинку.
end;

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

Посмотри вот это:
unit Unit1;
interface
uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs;

type
 TForm1 = class(TForm)
   procedure FormCreate(Sender: TObject);
   procedure FormResize(Sender: TObject);
   procedure FormPaint(Sender: TObject);
   procedure FormClose(Sender: TObject; var Action: TCloseAction);
 private
   { Private declarations }
 public
   BmpOrig, BmpTmp: TBitmap;
   { Public declarations }
 end;

var
 Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
 BmpOrig:=TBitMap.Create;
 BmpOrig.LoadFromFile('D:\My Folder\Img_001.bmp');
end;

procedure TForm1.FormResize(Sender: TObject);
begin
 try
  if not Assigned(BmpTmp) then BmpTmp:=TBitMap.Create;
  BmpTmp.Width:=Width div 2;
  BmpTmp.Height:=Height div 2;
  BmpTmp.Canvas.StretchDraw(BmpTmp.Canvas.ClipRect, BmpOrig);
  Invalidate;
 except
  if Assigned(BmpTmp) then FreeAndNil(BmpTmp);
 end;
end;

procedure TForm1.FormPaint(Sender: TObject);
begin
 Canvas.Draw(10, 10, BmpTmp);
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 if Assigned(BmpTmp) then FreeAndNil(BmpTmp);
 if Assigned(BmpOrig) then FreeAndNil(BmpOrig);
end;

end.
И опять...

> procedure TForm1.onCtreate(Sender : TObject);
> begin
> bitmap := Tbitmap.Create;

> bitmap.Pixelformat := pf24bit;
> bitmap.Height := 200;
> bitmap.Width := 300;
Это все рухнет после:
> bitmap.LoadfromFile(D:/My Folder/Img_001.bmp);
> Canvas.Draw(0,0, bitmap);
> end;

да бог сним с этим bitmap.LoadfromFile. Выаводим просто люой рисунок, напрмиер методом Scanline. а далее необходимо растянуть битмар на весь экран, но оставить прорисовку с использованием метода Scanline, например, а не применяя процедуру StretchDraw. Вот вопрос в чем. Как изменить размеры битмапа без создания нового с размерами экрана, потому что в данном случае он съедает кучу памяти. Спасибо.

> [6] Dr. Andrew   (29.08.07 18:48)
> Вот вопрос в чем. Как изменить размеры битмапа без создания
> нового с размерами экрана,

Ну незнаю.... я же тебе пример кинул изменение размеров без создания его заного....
Вот вместо

напиши свой метод на основе Scanline и все тут...

А съедает у тебя потому, что ты его на каждый чих в OnResize'е создаешь но не уничтожаешь...
Т.е. вот это

> if bitmap <> nil then
>   bitmap.Free;

у тебя не срабатывает, а создается новый bitmap, старый(т.е. занятая память под него) не освобождается...

> А съедает у тебя потому, что ты его на каждый чих в OnResize'е
> создаешь но не уничтожаешь...
> Т.е. вот это
>
> > if bitmap <> nil then
> >   bitmap.Free;
>
> у тебя не срабатывает, а создается новый bitmap, старый(т.е.
> занятая память под него) не освобождается...

Т.е. немного не так, но суть в том что

> bitmap.Free;

это сработает один раз и все, так как переменная bitmap не нилится.... а потом просто.... окончание [7]

Сорри... чёт я конец [7] и [8] запутался уже сам... сейчас соображу... напишу :)

изменения к уничтожению стаого битмапа ничего не дают

Впрочем... Вот это:

var bitmap : Tbitmap; //глобальная переменная....

procedure TForm1.onCtreate(Sender : TObject);
begin
 bitmap := Tbitmap.Create;
 bitmap.LoadfromFile(D:/My Folder/Img_001.bmp);
end;

procedure TForm1.onResize(Sender : TObject);
begin
 if bitmap <> nil then bitmap.Free;
 bitmap := Tbitmap.Create;
 bitmap.LoadfromFile(D:/My Folder/Img_001.bmp);
end;

Никаких утечек не должно быть, тормоза - да. Смотри в другом месте утечки...
Но данный код "не правильный"... См мой пример в [5] там нет многократного создания/удаления...

> [10] Dr. Andrew   (29.08.07 20:00)

?

RASkov. Спасибо, но речь не идет о LoadfromFile. да бог сней - забудьте ее. Мне необходимо изменит размер в боьшую сторону битмапа с экономией памяти. Вот в чем конректный вопрос, а не полкемика о процедуре загрузки файла.

> [12] Dr. Andrew   (29.08.07 20:30)

Да я и не про LoadfromFile :) Он там так.... к примеру в тему....

Посмотри метод SetWidth(Height) у TBitmap... ведь если ты захочешь менять размер через Ж...(TBitmapInfo) то и "вручки" нужно делать распределение памяти под новый размер картинки... т.е. придется делать нечто тоже самое что и
 bitmap.Height := 2000;
 bitmap.Width := 3000;
В общем может объяснил криво... сорри... Ты хоть пробывал пример [5]? Есть в нем утечки?

Не нравиться StretchDraw, создовай битмэп делой свой метод для увиличения. Память разумеется займется битмэпом.
Можно через SetPixel, canvas.Pixels со всеми вытекающиме тормазами.

RASkov - метод SetWidth(Height) у TBitmap - а что это такое? и откуда у битмапа такие методы?
Pavia - речь не о загрузке или выгрузке, а об изменении размера любого битмапа с экономичным использованием памяти.

> [15] Dr. Andrew   (29.08.07 20:53)
> метод SetWidth(Height) у TBitmap - а что это такое?

Это когда свойству Width(Heigth) присваеваешь новое значение, то выполняются его защищенные(protected) методы...

Впринципе... да, тут и не нужен второй битмап.... это я чет запарился с размерами :)... достаточно одного [14], в который в начале загрузить оригинал картинки, а масштабировать(выводить) как угодно на канву..... и не нужно менять никаких размеров....

А нафига его каждый раз создавать, удалять. Один раз создал и меняй размеры.

Так загружаем картинку в память, создаем новый битмоп копируем с увеличением. Освобождаем старый.
Не устраивает такой метод. Пишем свой обработчик который будет читать по частям битмэп и записывать в другой файл.

orgbmp.Assign(bmp); - это не нужно
Просто работаем с bmp