unit UnitImageConvertor;

interface

uses
  System.SysUtils,
  System.Classes,
  System.Threading,
  System.SyncObjs,
  System.Math,
  Vcl.Imaging.jpeg,
  Vcl.Graphics,
  Vcl.Imaging.pngimage,
  Vcl.FileCtrl;


type
  TArryNameFile = array of string;

  TMyThread = class(TThread);
  MyClass = class(TObject);
  //private
  //FResult: Int64;


procedure RunParalel(const AArraySourceNameFile, AArrayFinishNameFile: TArryNameFile;
  const ALengthArray: Integer);


function LoadImageFromFile(const ASourceNameFile: PChar): THandle;
procedure SaveImageToFile(const AImageHandle: THandle; AFinishNameFile: PChar);
procedure FreeImage(const AImageHandle: THandle);

procedure PositionProgressBar;

var
  Position: Integer;

implementation

uses
  FiveProgect;




function LoadImageFromFile(const ASourceNameFile: PChar): THandle;
var
  LBmpFile: TBitmap;
  LJPEGFile: TJPEGImage;
  LPngFile: TPNGObject;

begin
  LBmpFile := TBitmap.Create;

  if AnsiUpperCase(ExtractFileExt(string(ASourceNameFile))) = '.BMP' then
  begin
    try
      LBmpFile.LoadFromFile(string(ASourceNameFile));
      Result := THandle(LBmpFile);
    finally
    end;
  end
  else if (AnsiUpperCase(ExtractFileExt(string(ASourceNameFile))) = '.JPG') then
  begin
    LJPEGFile := TJPEGImage.Create;
    try
      LJPEGFile.CompressionQuality := 100;
      LJPEGFile.LoadFromFile(string(ASourceNameFile));
      LBmpFile.Assign(LJPEGFile);
      Result := THandle(LBmpFile);
    finally
      LJPEGFile.Free;
    end;
  end
  else if (AnsiUpperCase(ExtractFileExt(ASourceNameFile)) = '.PNG') then
  begin
    LPngFile := TPNGObject.Create;
    try
      LPngFile.LoadFromFile(ASourceNameFile);
      LBmpFile.Assign(LPngFile);
      Result := THandle(LBmpFile);
    finally
      LPngFile.Free;
    end;
  end;

end;

procedure SaveImageToFile(const AImageHandle: THandle; AFinishNameFile: PChar);
var
  LBmpFileSource: TBitmap;
  LJPEGFile: TJPEGImage;
  LPngFile: TPNGObject;
begin
  LBmpFileSource := TBitmap(AImageHandle);
  if AnsiUpperCase(ExtractFileExt(AFinishNameFile)) = '.BMP' then
  begin
  LBmpFileSource.SaveToFile(AFinishNameFile)
  end
  else if AnsiUpperCase(ExtractFileExt(AFinishNameFile)) = '.JPG' then
  begin
    LJPEGFile := TJPEGImage.Create;

    try
      LJPEGFile.Assign(LBmpFileSource);
      LJPEGFile.SaveToFile(AFinishNameFile);
    finally
      LJPEGFile.Free;
    end;

  end
  else if AnsiUpperCase(ExtractFileExt(AFinishNameFile)) = '.PNG' then
  begin
    LPngFile := TPNGObject.Create;

      try
        LPngFile.Assign(LBmpFileSource);
        LPngFile.SaveToFile(AFinishNameFile);
      finally
        LPngFile.Free;
      end;

  end;
end;

procedure FreeImage(const AImageHandle: THandle);
begin
  TObject(AImageHandle).Free;

end;

procedure RunParalel(const AArraySourceNameFile, AArrayFinishNameFile: TArryNameFile;
  const ALengthArray: Integer);
var
  LHandleImage: THandle;
  //Myjb: TThread;

begin
  Form1.ProgressBarConvert.Max := ALengthArray;
  Form1.ProgressBarConvert.Position := 0;
  //Myjb := TThread.Create(true);

  TParallel.For(0,  ALengthArray-1, procedure(I : integer)
    var
      FileName: string;
    begin

     //
      FileName := AArraySourceNameFile[i];
      LHandleImage:= LoadImageFromFile(Pchar(FileName));

      if LHandleImage > 0 then
      begin
        SaveImageToFile(LHandleImage, PChar(AArrayFinishNameFile[i]));
        //Position := I;
        TThread.Synchronize(nil ,
        procedure
        begin
        Form1.ProgressBarConvert.Position := I;
        end);
        //PositionProgressBar
      end;


    end
   );
end;

procedure PositionProgressBar;
var
My: TMyThread;
begin
  My := TMyThread.Create;
  Form1.ProgressBarConvert.Position := Position;
  My.FreeOnTerminate := True;
end;

end.