EOutOfResources в VCL

[darkwellroad]

В потоке создаю JPEG. Качаю в него картинку.. Создаю PNG CreateBlank и перересовываю на него. Через некоторое время работы программы ловлю:

В потоке: Test произошла ошибка: EOutOfResources сообщает об ошибке Error creating window device context

Это форма вывода ошибок в программе. Если что. Мне так удобно просто

Грешу на JPEG и PNG, т.к. есть подобные потоки и в них ошибки не возникают. Это проверено уже
Создание:

JPEG := TJPEGImage.Create;
//Скачивание.. Ничего интересного
PNG := Tpngimage.CreateBlank(COLOR_RGB, 8, JPEG.Width, JPEG.Height);
PNG.Canvas.Draw(0, 0, JPEG);

Уничтожение:

FreeAndNil(PNG);
FreeAndNil(JPEG);

Все это в try-finally. По правилам.. Может проблема именно в CreateBlank? Не работал раньше с ним.. Также проверял на утечки через ReportMemoryLeaksOnShutdown - ничего не обнаружил. Интересно ваше мнение по данной проблеме. Продолжение темы ТЫК

[min@y™]

Чем обусловлены именно такие значения первых двух (ColorType и Bitdepth) параметров конструктора? Чем, блин, тебе Assign() не угодил-то?

[darkwellroad]

Сообщение от min@y™

Чем обусловлены именно такие значения первых двух (ColorType и Bitdepth) параметров конструктора? Чем, блин, тебе Assign() не угодил-то?

Сам то, блин, пробовал Assign делать в PNG из JPEG? Значения из темы взяты. Более-менее рабочий вариант.

[min@y™]

Сам то, блин, пробовал Assign делать в PNG из JPEG?

нет, не пробовал. а что, не работает? так и пиши.

[darkwellroad]

Сообщение от min@y™

нет, не пробовал. а что, не работает? так и пиши.

Cannot assign a TJPEGImage to a TPngImage.

[Аватар]

Assign-ом через bitmap

[darkwellroad]

Сообщение от Аватар

Assign-ом через bitmap

Почитайте темку, которую я скинул сверху. Не хочу тут все переписывать. Все перелопатил и получилось только таким способом..

[Аватар]

Из файл в файл все конвертирует. То же самое будет и с Stream

  JPEG := TJPEGImage.Create;
  JPEG.LoadFromFile('e:\12802436_abc71642.jpg');
  Bitmap:=TBitmap.Create;
  Bitmap.Assign(JPEG);
  PNG:=TPngObject.Create;
  PNG.Assign(Bitmap);
  PNG.SaveToFile('e:\12802436_abc71642.png');
  JPEG.Free;
  Bitmap.Free;
  PNG.Free;

[min@y™]

Assign-ом через bitmap

согласен. Я залез в сорцы и убедился, что PNGImage не эссайнится от жпега, так авторами было задумано.

{Assigns from another object}
procedure TPngImage.Assign(Source: TPersistent);
begin
  {Being cleared}
  if Source = nil then
    ClearChunks
  {Assigns contents from another TPngImage}
  else if Source is TPngImage then
    AssignPNG(TPngImage(Source))
  {Copy contents from a TBitmap}
  {$IFDEF UseDelphi}else if Source is TBitmap then
    with TBitmap(Source) do
      AssignHandle(Handle, Transparent,
        ColorToRGB(TransparentColor)){$ENDIF}
  {Unknown source, let ancestor deal with it}
  else
    inherited;
end;

Поэтому, ТС, предлагаю 2 варианта:
1) написать наследника от TPngImage, в котором допилить метод Assign().
2) взять функцию преобразования через битмап (я только что её набрал, чтобы посмотреть, будет ли работать), вот такую:

function JpegToPng(const AJpgName, APngName: string): Boolean;
var
  jpg: TJPEGImage;
  png: TPngImage;
  bmp: TBitmap;
begin
  try
    jpg := TJPEGImage.Create;
    try
      jpg.LoadFromFile(AJpgName);
      png := TPngImage.Create;
      bmp:= TBitmap.Create();
      try
        bmp.Assign(jpg);
        png.Assign(bmp);
        png.SaveToFile(APngName);
      finally
        png.Free();
        bmp.Free();
      end;
    finally
      jpg.Free();
    end;
    Result:= True;
  except
    Result:= False;
  end;
end;

Главное теперь узнать, будет ли вылезать твой EOutOfResources.
Дерзай. О результатах сюда докладывай.

[darkwellroad]

Сообщение от min@y™

согласен. Я залез в сорцы и убедился, что PNGImage не эссайнится от жпега, так авторами было задумано.

{Assigns from another object}
procedure TPngImage.Assign(Source: TPersistent);
begin
  {Being cleared}
  if Source = nil then
    ClearChunks
  {Assigns contents from another TPngImage}
  else if Source is TPngImage then
    AssignPNG(TPngImage(Source))
  {Copy contents from a TBitmap}
  {$IFDEF UseDelphi}else if Source is TBitmap then
    with TBitmap(Source) do
      AssignHandle(Handle, Transparent,
        ColorToRGB(TransparentColor)){$ENDIF}
  {Unknown source, let ancestor deal with it}
  else
    inherited;
end;

Поэтому, ТС, предлагаю 2 варианта:
1) написать наследника от TPngImage, в котором допилить метод Assign().
2) взять функцию преобразования через битмап (я только что её набрал, чтобы посмотреть, будет ли работать), вот такую:

function JpegToPng(const AJpgName, APngName: string): Boolean;
var
  jpg: TJPEGImage;
  png: TPngImage;
  bmp: TBitmap;
begin
  try
    jpg := TJPEGImage.Create;
    try
      jpg.LoadFromFile(AJpgName);
      png := TPngImage.Create;
      bmp:= TBitmap.Create();
      try
        bmp.Assign(jpg);
        png.Assign(bmp);
        png.SaveToFile(APngName);
      finally
        png.Free();
        bmp.Free();
      end;
    finally
      jpg.Free();
    end;
    Result:= True;
  except
    Result:= False;
  end;
end;

Главное теперь узнать, будет ли вылезать твой EOutOfResources.
Дерзай. О результатах сюда докладывай.

Может и готовые есть..