paweld/lazarus-ccr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

fpexif: Undo r7416

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7778 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz 2020-10-14 19:05:30 +00:00
parent af6047d214
commit 660f4a7db7
1 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/fpexif/fpemetadata.pas
View File

@ -356,9 +356,7 @@ procedure TImgInfo.LoadFromFile(const AFileName: String);
var
stream: TStream;
begin
if not FileExists(AFileName {$IF FPC_FullVersion >=30200}, false{$IFEND}) then
// false ---> Fix bug accessing image on OneDrive For Business
// https://forum.lazarus.freepascal.org/index.php/topic,49564.msg359676/topicseen.html
if not FileExists(AFileName) then
Error(Format(rsFileNotFoundError, [AFileName]));
FWarnings.Clear;