pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

fpexif: Adapt to better work in Delphi.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7908 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2020-11-29 13:58:23 +00:00
parent cef2fbba3b
commit 5979de2a61
19 changed files with 500 additions and 44 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
components/fpexif/examples/simple_demo/sdmain.pas
View File

@@ -269,8 +269,6 @@ begin
end;
procedure TMainForm.LoadFile(const AFileName: String);
var
exportOptions: TExportOptions;
begin
if FImgInfo = nil then
FImgInfo := TImgInfo.Create;
@@ -309,15 +307,14 @@ var
ms: TMemoryStream;
begin
if not FImgInfo.HasThumbnail then
begin
Thumbnail.Picture.Clear;
exit;
//if (FImgInfo.ExifData = nil) or (not FImgInfo.Exifdata.HasThumbnail) then
// exit;
end;
ms := TMemoryStream.Create;
try
FImgInfo.SaveThumbnailToStream(ms);
// FImgInfo.ExifData.SaveThumbnailToStream(ms);
ms.Position := 0;
Thumbnail.Picture.LoadfromStream(ms);
finally