Delphi 7 PNG надо его конвертировать в JPG

[Kronos913]

Добрый день. Как открыть картинку формата PNG ?
Вообще, надо его конвертировать в JPG

[Kronos913]

Пока ждал ответ, сам разобрался... Может кому пригодится:
Надо установить файл с архива, после чего вот такой код

uses pngimage

procedure PNGtoJPG(const s1:string; const s2:string);
var
 png: TPNGObject;
 jpg: TJPEGImage;
 bmp: TBitMap;
begin
   png:= TPNGObject.Create;
   png.LoadFromFile(s1);
   bmp:= TBitMap.Create;
   bmp.Assign(png);
   png.Free;
   jpg:= TJPEGImage.Create;
   jpg.Assign(bmp);
   bmp.Free;
   jpg.SaveToFile(s2);
   jpg.Free;
end;

PNGtoJPG('Файл1.png' , 'Файл2.jpg');

[Alar]

Редко кто выкладывает код после решения задачи, спасибо )

[Stanei]

Kronos913, Спасибо огромное тебе добрый человек, здоровья тебе, да побольше! Перепробовал варианта четыре конвертации, ничего не подошло под мой проект. А тут практически идеально, немного переписал под себя и счастья полные штаны)

п.с. побольше бы таких людей

[Kronos913]

Вот есть улучшенный код:

Function PNGJPG(const s1:string; const s2:string) : boolean;
var
 bmp: TBitMap;
 d:int64;
begin
   bmp:= TBitMap.Create;
   if PNGLoadBMP(s1, bmp) then begin
     d:=FileAge(s1);
     try
      JPGSaveBMP(s2, bmp);
      If FileExists(s2) then begin
       FileSetDate(s2, d);
       PNGJPG:=true;
      end else PNGJPG:=false;
     except
      PNGJPG:=false;
     end;
   end else PNGJPG:=false;
   bmp.Free;
end;

И выше должны быть описаны процедуры

Function JPGLoadBMP(const FName:string; var bmp1:TBitMap): boolean;
var
   jpg: TJPEGImage;
begin
   jpg:= TJPEGImage.Create;
   try
    jpg.LoadFromFile(FName);
    bmp1.Assign(jpg);
    JPGLoadBMP:=true;
   except
    JPGLoadBMP:=false;
   end;
   jpg.Free;
end;

procedure PNGSaveBMP(const FName:string; const bmp1:TBitMap);
begin
   With TPNGObject.Create do begin
     try
       Assign(bmp1);
       SaveToFile(FName);
     finally
       Free;
     end;
   end;
end;