Не получается конвертировать jpg в png

[Русик123]

помогите пожалуйста нашел пример как конвертировать, вроде бы все сделал правильно потестил, все работала, а как только пользователь коснулся программы, конвертор слетел и теперь выдает ошибку
---------------------------
SmarTeam Kit
---------------------------
Cannot assign a TJPEGImage to a TPngImage.
---------------------------
ОК
---------------------------

procedure TF_ADD_Requests.JPEGtoBMP(const FileName: TFileName;
  var openDLG: TOpenDialog);
var
  jpg: TJPEGImage;
  png: TPngImage;
begin
  jpg := TJPEGImage.Create;
  try
    jpg.LoadFromFile(FileName);
    png := TPngImage.Create;
    try
      png.Assign(jpg);
      png.SaveToFile(ChangeFileExt(FileName, '.png'));
      openDLG.FileName := ChangeFileExt(FileName, '.png');
    finally
      png.Free
    end;
  finally
    jpg.Free
  end;
end;

что я сделал не так!?



___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Tip.the.besT]

Сообщение от Русик123

помогите пожалуйста нашел пример как конвертировать, вроде бы все сделал правильно потестил, все работала, а как только пользователь коснулся программы, конвертор слетел и теперь выдает ошибку
---------------------------
SmarTeam Kit
---------------------------
Cannot assign a TJPEGImage to a TPngImage.
---------------------------
ОК
---------------------------

procedure TF_ADD_Requests.JPEGtoBMP(const FileName: TFileName;
  var openDLG: TOpenDialog);
var
  jpg: TJPEGImage;
  png: TPngImage;
begin
  jpg := TJPEGImage.Create;
  try
    jpg.LoadFromFile(FileName);
    png := TPngImage.Create;
    try
      png.Assign(jpg);
      png.SaveToFile(ChangeFileExt(FileName, '.png'));
      openDLG.FileName := ChangeFileExt(FileName, '.png');
    finally
      png.Free
    end;
  finally
    jpg.Free
  end;
end;

что я сделал не так!?



___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

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

[Пепел Феникса]

попробуйте такой схемой:
jpeg->bmp->png.

[Tip.the.besT]

Сообщение от Пепел Феникса

попробуйте такой схемой:
jpeg->bmp->png.

Спасибо, именно так я и сделал. Меня натолкнул на такую мысль timage, который не разрешает читать с канвы png. Говорит мол только bmp имеет право, мерзавец А с bmp всё отлично читается. Кончено способ извращенский, но за неимением лучшего...

[x128]

var
  jpg: TJPEGImage;
  png: TPNGObject;
begin
  jpg:=TJPEGImage.Create;
  jpg.LoadFromFile('image.jpg');
  png:=TPNGObject.CreateBlank(COLOR_RGB, 8, jpg.Width, jpg.Height);
  png.Canvas.Draw(0,0,jpg);
  png.SaveToFile('image.png');
  png.Free;
  jpg.Free;
end;

Только какой смысл в таком преобразовании?