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/console_demo/console_demo.lpi
View File

@ -1,16 +1,16 @@
<?xml version="1.0" encoding="UTF-8"?>
<CONFIG>
<ProjectOptions>
<Version Value="11"/>
<Version Value="12"/>
<PathDelim Value="\"/>
<General>
<Flags>
<MainUnitHasCreateFormStatements Value="False"/>
<MainUnitHasTitleStatement Value="False"/>
<MainUnitHasScaledStatement Value="False"/>
<CompatibilityMode Value="True"/>
</Flags>
<SessionStorage Value="InProjectDir"/>
<MainUnit Value="0"/>
<Title Value="console_demo"/>
<UseAppBundle Value="False"/>
<ResourceType Value="res"/>
@ -49,6 +49,11 @@
<IncludeFiles Value="$(ProjOutDir)"/>
<UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
</SearchPaths>
<Linking>
<Debugging>
<DebugInfoType Value="dsDwarf2Set"/>
</Debugging>
</Linking>
</CompilerOptions>
<Debugging>
<Exceptions Count="3">

7
components/fpexif/examples/file_renamer/file_renamer.lpi
View File

@ -1,11 +1,13 @@
<?xml version="1.0" encoding="UTF-8"?>
<CONFIG>
<ProjectOptions>
<Version Value="11"/>
<Version Value="12"/>
<PathDelim Value="\"/>
<General>
<Flags>
<CompatibilityMode Value="True"/>
</Flags>
<SessionStorage Value="InProjectDir"/>
<MainUnit Value="0"/>
<Title Value="file_renamer"/>
<Scaled Value="True"/>
<ResourceType Value="res"/>
@ -22,7 +24,6 @@
</PublishOptions>
<RunParams>
<FormatVersion Value="2"/>
<Modes Count="0"/>
</RunParams>
<RequiredPackages Count="2">
<Item1>

2
components/fpexif/examples/simple_demo/ExifSimpleDemo.lpi
View File

@ -60,7 +60,7 @@
</SearchPaths>
<Linking>
<Debugging>
<UseExternalDbgSyms Value="True"/>
<DebugInfoType Value="dsDwarf2"/>
</Debugging>
<Options>
<Win32>

6
components/fpexif/examples/simple_demo/sdmain.lfm
View File

@ -40,7 +40,7 @@ object MainForm: TMainForm
ItemHeight = 15
OnSelect = CbFilenameSelect
TabOrder = 1
Text = '..\..\tests\pictures\originals\Canon-Powershot_A70-II-Th.JPG'
Text = '..\..\tests\pictures\originals\with_exif.tif'
end
object Memo: TMemo
AnchorSideLeft.Control = Owner
@ -242,7 +242,7 @@ object MainForm: TMainForm
object OpenDialog: TOpenDialog
DefaultExt = '.jpg'
Filter = 'All supported images (*.jpg; *.jpeg; *.jfe); *.tiff; *.tif|*.jpg;*.jpeg;*.jfe;*.tiff;*.tif|JPG files (*.jpg; *.jpeg; *.jfe)|*.jpg;*.jpeg;*.jfe|TIFF files (*.tiff; *.tif)|*.tiff;*.tif'
left = 248
top = 168
Left = 248
Top = 168
end
end

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