From 94067dff3d62e2be9b0b12a9adb7b760e6b28d26 Mon Sep 17 00:00:00 2001
From: wp_xxyyzz <wp_xxyyzz@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Wed, 29 Apr 2020 06:33:35 +0000
Subject: [PATCH] fpexif: Fix file-not-found error when image is on One Drive
 for Business. See
 https://forum.lazarus.freepascal.org/index.php/topic,49564.msg359676.html

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7416 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 components/fpexif/fpemetadata.pas | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/components/fpexif/fpemetadata.pas b/components/fpexif/fpemetadata.pas
index a9fd9fd80..1e8f1d39e 100644
--- a/components/fpexif/fpemetadata.pas
+++ b/components/fpexif/fpemetadata.pas
@@ -353,7 +353,9 @@ procedure TImgInfo.LoadFromFile(const AFileName: String);
 var
   stream: TStream;
 begin
-  if not FileExists(AFileName) then
+  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
     Error(Format(rsFileNotFoundError, [AFileName]));
 
   FWarnings.Clear;