You've already forked lazarus-ccr
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.
|
||
|
|
|