mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-21 09:58:13 +00:00
Code Issues Projects Releases Packages Wiki Activity

FIX: Exif plugin - detect string

Browse source 
(cherry picked from commit 9ae1cbc152)
This commit is contained in:
Alexander Koblov 2023-07-31 19:30:01 +03:00
commit b3248c39db
2 changed files with 3 additions and 20 deletions
Download patch file Download diff file Expand all files Collapse all files

9
src/uexifwdx.pas
View file

@ -3,7 +3,7 @@
-------------------------------------------------------------------------
Simple exif-wdx plugin.
Copyright (C) 2016-2017 Alexander Koblov (alexx2000@mail.ru)
Copyright (C) 2016-2023 Alexander Koblov (alexx2000@mail.ru)
This program is free software; you can redistribute it and/or
modify it under the terms of the GNU General Public License
@ -39,7 +39,6 @@ type
procedure GetData(const FileName: String);
protected
function GetAName: String; override;
function GetADetectStr: String; override;
public
//---------------------
constructor Create; override;
@ -75,15 +74,11 @@ begin
Result:= '<Exif>';
end;
function TExifWdx.GetADetectStr: String;
begin
Result:= CallContentGetDetectString;
end;
constructor TExifWdx.Create;
begin
inherited Create;
FExif:= TExifReader.Create;
DetectStr:= CallContentGetDetectString;
end;
destructor TExifWdx.Destroy;

14
src/uwdxmodule.pas
View file

@ -5,7 +5,7 @@
(TC WDX-API v1.5)
Copyright (C) 2008 Dmitry Kolomiets (B4rr4cuda@rambler.ru)
Copyright (C) 2008-2022 Alexander Koblov (alexx2000@mail.ru)
Copyright (C) 2008-2023 Alexander Koblov (alexx2000@mail.ru)
Some ideas were found in sources of WdxGuide by Alexey Torgashin
and SuperWDX by Pavel Dubrovsky and Dmitry Vorotilin.
@ -212,10 +212,8 @@ type
protected
function GetAName: String; override;
function GetAFileName: String; override;
function GetADetectStr: String; override;
procedure SetAName({%H-}AValue: String); override;
procedure SetAFileName({%H-}AValue: String); override;
procedure SetADetectStr(const {%H-}AValue: String); override;
protected
procedure AddField(const AName: String; AType: Integer);
public
@ -1268,11 +1266,6 @@ begin
Result:= ParamStrUTF8(0);
end;
function TEmbeddedWDX.GetADetectStr: String;
begin
Result:= EmptyStr;
end;
procedure TEmbeddedWDX.SetAName(AValue: String);
begin
@ -1283,11 +1276,6 @@ begin
end;
procedure TEmbeddedWDX.SetADetectStr(const AValue: String);
begin
end;
procedure TEmbeddedWDX.AddField(const AName: String; AType: Integer);
var
I: Integer;