CCR.Exif with lots of errors.

[sjubussen 0]

As a retired developer i'm a bit rusty (71 years) , and now i have run into a problem. I created a small windowsapplication using Delphi community edition 10.4 (i think) on Windows 10. The CCR.Exif worked perfectly.  Since then i have upgraded to Windows 11 and to Delphi 11 build 3. Now when i try to compile my project i get a lot of errors on CCR.Exif files. Here it seems that the CCR.Exif is not recognised (Pic1). Then i tried to create a small application and added all CCR files to the project. This gave me the error in Pic2. I hope there might be a simple solution to this and someone can help? Please?

[Lajos Juhász 292]

It is easier if you paste a text instead a picture. they have changed the signature of the Realloc method:

function TMemoryStream.Realloc(var NewCapacity: NativeInt): Pointer;
 

[sjubussen 0]

5 hours ago, Lajos Juhász said:

I will remember that. Thanks a lot for your reply. Your suggestion fixed the problem in my testapplication where the CCR files are added to the project. But i still get a error in my main application as seen in picture 1. Is there a path or something i have to set for the compiler to recognize the ccr library? 

 

 

 

 

[DelphiUdIT 166]

All the CCR realted files should be in the project directory, or you must add the path lib where these files are located (in the project options or in the tool/language/ Delphi options).

 

If the CCR is a standalone project group (runtime o designtime) you must build it after the changes (and the path that you should use is the path where the CCR project group save the DCU files).

If the CCR is only a set of Pascal source, your path lib must be the path where the sources are located.

 

Bye

 

[GPRSNerd 12]

In file CCR.Exif.BaseUtils.pas you have to change the following lines:

 

From

     

function Realloc(var NewCapacity: Longint): Pointer; override;

To

     

 function Realloc(var NewCapacity: {$IF CompilerVersion >= 35}NativeInt{$ELSE}LongInt{$IFEND}): Pointer; override;
{$IF CompilerVersion < 33} protected {$ELSE} public {$IFEND}

 

And From

 

 function TMetadataBlock.TDataStream.Realloc(var NewCapacity: Longint): Pointer;

To

 

function TMetadataBlock.TDataStream.Realloc(var NewCapacity: {$IF CompilerVersion >= 35}NativeInt{$ELSE}LongInt{$IFEND}): Pointer;

 

Edited October 13 by GPRSNerd