unsplit.pas

这是我用Delphi和Matlab写的一个程序

unit unSplit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls, ExtDlgs, ExtCtrls, Buttons, Jpeg;

type
  TfmSplit = class(TForm)
    lblP: TLabel;
    lblQ: TLabel;
    ScrollBoxP: TScrollBox;
    ImageP: TImage;
    ScrollBoxQ: TScrollBox;
    ImageQ: TImage;
    btnSaveP: TBitBtn;
    btnSaveQ: TBitBtn;
    SaveDialog: TSaveDialog;
    procedure btnSavePClick(Sender: TObject);
    procedure btnSaveQClick(Sender: TObject);
  private
    { Private declarations }
    procedure Save(var Img: TImage);
  public
    { Public declarations }
  end;

var
  fmSplit: TfmSplit;

implementation

{$R *.dfm}

procedure TfmSplit.btnSavePClick(Sender: TObject);
begin
  Save(ImageP);
end;

procedure TfmSplit.btnSaveQClick(Sender: TObject);
begin
  Save(ImageQ);
end;

procedure TfmSplit.Save(var Img: TImage);
var
  MYJPEG: TJPEGImage;
begin
  if SaveDialog.Execute then
    if Pos('.jpg', SaveDialog.FileName) <> 0 then
    begin
      MYJPEG := TJPEGImage.Create;
      with MYJPEG do
      begin
        Assign(Img.Picture.Bitmap);
        SaveToFile(SaveDialog.FileName); //  保存路径
        Free;
      end
    end
    else
    begin
      Img.Picture.Bitmap.PixelFormat := pf24bit; //  存成24位的位图
      Img.Picture.SaveToFile(SaveDialog.FileName); //  具体执行保存过程
    end;
end;

end.