как выделить память под TBitmap

[Volkogriz]

Доброе время суток!
суть такая:

PHP код:

bmp.PixelFormat:=pf32bit;
bmp.Width:= player.Width^;
bmp.Height:=player.Height^;
player.ExtractFrame(bmp); 


как под TBitmap память выделить:
при конвертации в jpg ну и в tga жрёт
за ранее благодарен!
С уважением,
Volkogriz!

[eoln]

bmp.Width:= player.Width^; точно так?

[Volkogriz]

Да )
BIK плеер готов только при конвертации
использую тот Bitmap в который использует плеер:

 player.ExtractFrame(bmp);

Но при конвертации начинает жрать память хоть и отчищаюЖ

TGA.Free;

но не магу добиться нормальной работы.
всё работает нормально но память до 1.5 гигов жрёт, памойму должно около
100 мег. максимум

тык как

[Stilet]

А что это за компонент такой? Попробуй через профайлер проект пропустить и посмотришь где утечка.

[Volkogriz]

Это не компонент.
Смысл просто как дубликат TBitmap зделать?
Когда пытаюсь создать дубликат TBitmap изображение очень некачественное получается)

[Stilet]

Это не компонент.

Тогда не понимаю. Есть у него FreeImage метод?

[Volkogriz]

Это модуль для работы с binkw32.dll и SMACKW32.DLL
Для воспроизведения делаю так:

bmp:=TBitmap.Create;
bmp.PixelFormat:=pf32bit;
bmp.Width:= player.Width^;
bmp.Height:=player.Height^;
player.ExtractFrame(bmp); 
Player.NextFrame;
Image1.Canvas.CopyRect(rect(0,0,bmp.Width,bmp.Height),bmp.Canvas,rect(0,0,bmp.Width,bmp.Height));

воспроизводит отлично, но при разбитие ролика на кадры:

jpgImg.Assign(bmp);
jpgImg.SaveToFile(ViewDir+Format('Ролик ' +StatusBar1.Panels[1].text+' Кадр ' +'%.*d.jpg', [k, Player.Frame]));
jpgImg.Free;

жрёт сволочь)
С уважением,
Volkogriz!

[Slym]

весь код, а не кусками
или проект в архиве

[Человек_Борща]

ТС а вы try finally ставьте. И в случае фэила память утекать не будет.