Последние записи

made in programmersforum 8

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

11th
Мар

Конвертирование PNG в JPG на Delphi

Posted by obzor under Delphi

Как открыть картинку формата 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');

Вложения

PngComponentsSetup.zip (627.0 Кб)

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

Код:

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;