8bf2380851
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6803 8e941d3f-bd1b-0410-a28a-d453659cc2b4
51 lines
1.1 KiB
ObjectPascal
51 lines
1.1 KiB
ObjectPascal
unit fpeMakerNoteEpson;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
interface
|
|
|
|
uses
|
|
Classes, SysUtils,
|
|
fpeTags, fpeExifReadWrite;
|
|
|
|
type
|
|
TEpsonMakerNoteReader = class(TMakerNoteReader)
|
|
protected
|
|
procedure GetTagDefs({%H-}AStream: TStream); override;
|
|
end;
|
|
|
|
implementation
|
|
|
|
procedure BuildEpsonTagDefs(AList: TTagDefList);
|
|
const
|
|
M = DWord(TAGPARENT_MAKERNOTE);
|
|
begin
|
|
Assert(AList <> nil);
|
|
with AList do begin
|
|
AddUShortTag(M+$0200, 'SpecialMode');
|
|
AddUShortTag(M+$0201, 'JpegQuality');
|
|
AddUShortTag(M+$0202, 'Macro');
|
|
AddUShortTag(M+$0204, 'DigitalZoom');
|
|
AddUShortTag(M+$0209, 'CameraID');
|
|
AddStringTag(M+$020A, 'Comments');
|
|
AddUShortTag(M+$020B, 'Width');
|
|
AddUShortTag(M+$020C, 'Height');
|
|
AddUShortTag(M+$020D, 'SoftRelease');
|
|
end;
|
|
end;
|
|
|
|
//==============================================================================
|
|
// TEpsonMakerNoteReader
|
|
//==============================================================================
|
|
|
|
procedure TEpsonMakerNoteReader.GetTagDefs(AStream: TStream);
|
|
begin
|
|
BuildEpsonTagDefs(FTagDefs);
|
|
end;
|
|
|
|
initialization
|
|
RegisterMakerNoteReader(TEpsonMakerNoteReader, 'Epson', '');
|
|
|
|
end.
|
|
|