unit1.pas

Delphi面向对象编程50例

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
  Dialogs, EXIF_Intf, ComCtrls, StdCtrls, ExtCtrls, ExtDlgs;

type
  TForm1 = class(TForm)
    Button1: TButton;
    opd: TOpenPictureDialog;
    List: TListView;
    Edit1: TEdit;
    tc: TTabControl;
    Image: TImage;
    ImagePanel: TPanel;
    Label1: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure cmOpen(Sender: TObject);
    procedure ListDblClick(Sender: TObject);
    procedure tcChange(Sender: TObject);
  private
    EXIF: TEXIF;
  public
    procedure DisplayIFD0;
    procedure DisplayIFD1;
    procedure DisplayEXIFSubIFD;
    procedure DisplayEXIFInteropIFD;
    procedure DisplayMakerNote;
    procedure DisplayThumbnail;
  end;

var
  Form1: TForm1;

implementation

uses JPEG;

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  EXIF:=TEXIF.Create;
end;

procedure TForm1.cmOpen(Sender: TObject);
begin
  if opd.Execute then begin
    EXIF.LoadFromFile(opd.Filename);
    Edit1.Text:=opd.Filename;
    tcChange(nil);
  end;
end;

procedure TForm1.ListDblClick(Sender: TObject);
var
  s: string;
begin
  try
    s:=TListView(Sender).Selected.SubItems[1];
    InputQuery(TListView(Sender).Selected.SubItems[0],TListView(Sender).Selected.Caption,s);
  except
  end;
end;

procedure TForm1.tcChange(Sender: TObject);
begin
  List.Hide;
  ImagePanel.Hide;
  case tc.TabIndex of
    0: DisplayIFD0;
    1: DisplayEXIFSubIFD;
    2: DisplayEXIFInteropIFD;
    3: DisplayMakerNote;
    4: DisplayIFD1;
    5: DisplayThumbnail;
  end;
end;

procedure TForm1.DisplayEXIFInteropIFD;
var
  i: Integer;
begin
  with EXIF do begin
    List.Items.BeginUpdate;
    try
      List.Items.Clear;
      for i:=0 to INTEROPCount-1 do
        with List.Items.Add do begin
          Caption:=Format('0x%x',[INTEROP_Index[i].Header.Tag]);
          SubItems.Add(INTEROP_Index[i].Header.Name);
          SubItems.Add(TranslateINTEROP(INTEROP_Index[i]));
          ImageIndex:=-1;
        end;
    finally
      List.Items.EndUpdate;
    end;
  end;
  List.Show;
end;

procedure TForm1.DisplayEXIFSubIFD;
var
  i: Integer;
begin
  with EXIF do begin
    List.Items.BeginUpdate;
    try
      List.Items.Clear;
      for i:=0 to EXIFCount-1 do
        with List.Items.Add do begin
          Caption:=Format('0x%x',[EXIF_Index[i].Header.Tag]);
          SubItems.Add(EXIF_Index[i].Header.Name);
          SubItems.Add(TranslateEXIF(EXIF_Index[i]));
          ImageIndex:=-1;
        end;
    finally
      List.Items.EndUpdate;
    end;
  end;
  List.Show;
end;

procedure TForm1.DisplayIFD0;
var
  i: Integer;
begin
  with EXIF do begin
    List.Items.BeginUpdate;
    try
      List.Items.Clear;
      for i:=0 to TIFFCount-1 do
        with List.Items.Add do begin
          Caption:=Format('0x%x',[TIFF_Index[i].Header.Tag]);
          SubItems.Add(TIFF_Index[i].Header.Name);
          SubItems.Add(TranslateTIFF(TIFF_Index[i]));
          ImageIndex:=-1;
        end;
    finally
      List.Items.EndUpdate;
    end;
  end;
  List.Show;
end;

procedure TForm1.DisplayMakerNote;
var
  i: Integer;
begin
  with EXIF do begin
    List.Items.BeginUpdate;
    try
      List.Items.Clear;
      for i:=0 to MakerNoteCount-1 do
        with List.Items.Add do begin
          Caption:=Format('0x%x',[MakerNote_Index[i].Header.Tag]);
          SubItems.Add(MakerNote_Index[i].Header.Name);
          SubItems.Add(TranslateMakerNote(MakerNoteFormat,MakerNote_Index[i]));
          ImageIndex:=-1;
        end;
    finally
      List.Items.EndUpdate;
    end;
  end;
  List.Show;
end;

procedure TForm1.DisplayIFD1;
var
  i: Integer;
begin
  with EXIF do begin
    List.Items.BeginUpdate;
    try
      List.Items.Clear;
      for i:=0 to EXIF_IFD1Count-1 do
        with List.Items.Add do begin
          Caption:=Format('0x%x',[EXIF_IFD1_Index[i].Header.Tag]);
          SubItems.Add(EXIF_IFD1_Index[i].Header.Name);
          SubItems.Add(TranslateTIFF(EXIF_IFD1_Index[i]));
          ImageIndex:=-1;
        end;
    finally
      List.Items.EndUpdate;
    end;
  end;
  List.Show;
end;

procedure TForm1.DisplayThumbnail;
begin
  if EXIF.Thumbnail.Height>0 then begin
    Image.Picture.Assign(EXIF.Thumbnail);
    ImagePanel.Show;
    Label1.Caption:=Format('%d x %d',[Image.Picture.Width,Image.Picture.Height]);
  end;
end;

end.