TBitMap Canvas в многопотоке утечка памяти

@Samsams · Регистрация: 31.01.2015

Author24 — интернет-сервис помощи студентам

И так для теста на писал не сколько функций.
Тут все нормально очищает:

Delphi

procedure TForm1.Button3Click(Sender: TObject);
var
  BitMap: TBitMap;
  InJPEG: TJpegImage;
  i: Integer;
begin
  for i := 0 to 200 do
  begin
    BitMap:= TBitMap.Create;
    BitMap.PixelFormat:= pf24bit;
    BitMap.Canvas.Brush.Color:= clWhite;
    BitMap.Width:= 600;
    BitMap.Height:= 2000;
 
    InJPEG:= TJpegImage.Create;
    InJPEG.Assign(MemoryImages[Random(Length(MemoryImages)-1)]);
 
    BitMap.Canvas.Draw(0,0,InJPEG);
    InJPEG.Free;
    BitMap.Free;
  end;
end;

В MemoryImages лежит массив с JPEG изображениями

Проходит цикл 200 в дитспечере задач "Память" показывает сколько было старта, столько и осталось после завершения.

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

Delphi

function TestBMP:String;
var
  BitMapIn: TBitMap;
  InJPEG: TJpegImage;
begin
  BitMapIn:= TBitMap.Create;
  BitMapIn.PixelFormat:= pf24bit;
  BitMapIn.Canvas.Brush.Color:= clWhite;
  BitMapIn.Width:= 600;
  BitMapIn.Height:= 2000;
 
  InJPEG:= TJpegImage.Create;
  InJPEG.Assign(MemoryImages[Random(Length(MemoryImages)-1)]);
 
  BitMapIn.Canvas.Draw(0,0,InJPEG);
  BitMapIn.Free;
  InJPEG.Free;
 
  Result:= '';
end;

То после создания и уничтожения потоков, в дистпечере задач начинает добавляться мегабайтами память. При завершении всех потоков, она не очищается, хотя потоки верно созданы и уничтожаются FreeOnTreminate:= True

Далее комментирую строчку //BitMapIn.Canvas.Draw(0,0,InJPEG); тогда нечего не переполняется. Что же делать?

Добавлено через 35 минут
Когда 1 мегабайтовая картинка в MemoryImages проходит 10 потоков, то после завершения в память добавляется +20-30 мб

Добавлено через 36 минут
В общем обернул в try except и он выдает это "JPEG error #68" или это "JPEG error #61" и то оставляет то нет по +10 мб в памяти. Конфликтует как то между собой чтоле когда в многопоток работает. Если слать в поток команду по 1 запросу. Т.е. Поток создал он отработал, потом опять создал. Не одновременно а по очередно, то нет переполнения. Как решить то из за чего он конфликтует?

@mss · 29.05.2015, 21:36

Сообщение от Samsams

из за чего

Из-за MemoryImages

Не по теме:

И так
на писал
не сколько

@Samsams · 29.05.2015, 21:40 **[ТС]**

А как поступить, к примеру загружается картинки 3 и в течении дня они берутся и редактируются во много потоке. Как лучше реализовать. Я вот сделал когда софт запускается то в массив картинок загружаются картинки и далее из него уже потоки дергают изображения, видать то что одновременно бывает обращаются и происходит конфликт, так как лучше сделать через синхронизацию. Так скорость снизится

@mss · 29.05.2015, 21:50

Сообщение от Samsams

берутся и редактируются во много потоке

Сообщение от Samsams

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

"Дерготня" в приведенном тобой коде присутствует
А редактированием и близко не пахнет.

@Samsams · 29.05.2015, 23:38 **[ТС]**

Это я пример привел, а основной код большой. Редактирует нормально все. Там переполнения нету. Анализировал проверял все. Ладно с дерганьем пофиг другое ченить придумаю, а вот про редактирование спрошу. Вообщем когда картинка выдернута, она разрезается на не сколько частей рандом строк, рандом столбцов. И вот еще одна проблема, я значит копиректом копирую по вычисленным координатам в новосозданый BitMap:

Delphi

BitMapR.Canvas.CopyRect(
Rect(0,0,tmpX2,tmpY2),
MemoryImages[Random(Length(MemoryImages)-1)].Canvas,
Rect(tmpX1,tmpY1,tmpX2+CountW,tmpY2+CountH)
);

И тут при 100 потоках, гдето 1 на 200 пройденных потоков, бывает что после копирования и при выполнения следующего кода в BitMapR еще нету скопированного куска. Т.е. я его дальше гоню в конвертацию Base64, а в нем пусто. Решил по извращенски сначало сохраняю в файл и сразу загружаю тот же файл в него:

Delphi

BStream:= TFileStream.Create(ExtractFilePath(Application.ExeName)+'tmp\'+FileNameJPG+'.bmp',fmCreate);
BitMapR.SaveToStream(BStream);
BStream.Free;
BitMapR.LoadFromFile(ExtractFilePath(Application.ExeName)+'tmp\'+FileNameJPG+'.bmp');

Это опять же занимает какое-то время, т.к. битмапы и весят не мало. Но что только не пробовал и в stream и draw. Что на это скажешь?

Добавлено через 43 минуты
Вылетает исключение "canvas does not allow drawing". С тем извращением реже)

@mss 2664 / 2270 / 279 Регистрация: 24.12.2010 Сообщений: 13,723
	29.05.2015, 21:36	2
	Сообщение от Samsams из за чего Из-за MemoryImages Не по теме: И так на писал не сколько 0

@Samsams 2 / 2 / 1 Регистрация: 31.01.2015 Сообщений: 26
	29.05.2015, 21:40 [ТС]	3
	А как поступить, к примеру загружается картинки 3 и в течении дня они берутся и редактируются во много потоке. Как лучше реализовать. Я вот сделал когда софт запускается то в массив картинок загружаются картинки и далее из него уже потоки дергают изображения, видать то что одновременно бывает обращаются и происходит конфликт, так как лучше сделать через синхронизацию. Так скорость снизится 0

@mss 2664 / 2270 / 279 Регистрация: 24.12.2010 Сообщений: 13,723
	29.05.2015, 21:50	4
	Сообщение от Samsams берутся и редактируются во много потоке Сообщение от Samsams из него уже потоки дергают изображения "Дерготня" в приведенном тобой коде присутствует А редактированием и близко не пахнет. 0

	29.05.2015, 23:38