转换一批.bmp 文件为 .jpg

转换一批.bmp 文件为 .jpg

unit BMP2JPG_Unit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls ,jpeg, ComCtrls, filectrl, Menus;

type
  TForm1 = class(TForm)
    SourceB: TButton;
    Source: TLabel;
    Target: TLabel;
    targetB: TButton;
    ConvertB: TButton;
    CQ: TTrackBar;
    CQL: TLabel;
    ListBox: TListBox;
    BRB: TButton;
    NOW: TCheckBox;
    Button1: TButton;
    USD: TCheckBox;
    StatusBar: TStatusBar;
    Label1: TLabel;
    Label2: TLabel;
    PopupMenu1: TPopupMenu;
    Addfiles1: TMenuItem;
    Remove1: TMenuItem;
    Convertthis1: TMenuItem;
    Batchrun1: TMenuItem;
    Removeall1: TMenuItem;
    procedure SourceBClick(Sender: TObject);
    procedure targetBClick(Sender: TObject);
    procedure ConvertBClick(Sender: TObject);
    procedure CQChange(Sender: TObject);
    procedure BRBClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Addfiles1Click(Sender: TObject);
    procedure Batchrun1Click(Sender: TObject);
    procedure Convertthis1Click(Sender: TObject);
    procedure Remove1Click(Sender: TObject);
    procedure ListBoxClick(Sender: TObject);
    procedure Removeall1Click(Sender: TObject);
  private
    { Private declarations }
    outputdir:string;
    total:word;
  public
    { Public declarations }
    procedure bmp2jpg(FromBMP,ToJPG:string;Quality:byte);
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.SourceBClick(Sender: TObject);
var op:topendialog;  count:integer;
begin
  op:=topendialog.Create(nil);
  op.Options:=[ofAllowMultiSelect,ofReadOnly,ofPathMustExist,ofFileMustExist];
  op.Filter:='*.bmp|*.bmp';
  op.Execute;
  if op.Files.Count>0 then
    begin
      listbox.Items.AddStrings(op.Files);
      source.Caption:=listbox.Items[0];
      total:=listbox.Items.Count;
      statusbar.Panels[0].Text:='Total file '+inttostr(total);
    end;
  op.Free;
end;

procedure TForm1.targetBClick(Sender: TObject);
var op:tsavedialog;
begin
  op:=tsavedialog.Create(nil);
  op.Options:=[ofReadOnly,ofPathMustExist];
  op.DefaultExt:='jpg';
  op.Filter:='*.jpg|*.jpg';
  op.Execute;
  target.Caption:=op.FileName;
  op.Free;