Hi,
/BuildRoot/Library/Caches/com.apple.xbs/Sources/AppleFSCompression/AppleFSCompression-96.60.1/Common/ChunkCompression.cpp:49: Error: unsupported compressor 8
/BuildRoot/Library/Caches/com.apple.xbs/Sources/AppleFSCompression/AppleFSCompression-96.60.1/Libraries/CompressData/CompressData.c:353: Error: Unknown compression scheme encountered for file '/System/Library/CoreServices/CoreTypes.bundle/Contents/Resources/Exceptions.plist'
/BuildRoot/Library/Caches/com.apple.xbs/Sources/AppleFSCompression/AppleFSCompression-96.60.1/Common/ChunkCompression.cpp:49: Error: unsupported compressor 8
/BuildRoot/Library/Caches/com.apple.xbs/Sources/AppleFSCompression/AppleFSCompression-96.60.1/Libraries/CompressData/CompressData.c:353: Error: Unknown compression scheme encountered for file '/System/Library/CoreServices/CoreTypes.bundle/Contents/Library/AppExceptions.bundle/Exceptions.plist'
Runtime error 230 at 001A5A03
The code is detailed below. Again, IF I remove the FMX.TMSCloudXXX units, it works perfectly, by just including even one of the units, it fails. Now that could be (in this instance) some other dependency, but it builds fine so I have no idea.
Have the TMS people run the FMX.Cloudxxx units ins A macOS DYLIB, if so, what am I missing, if NOT can you please do so and let me know how to do it. This is a big deal and the REASON we purchased the FMX Cloud Pack. Here is the unit for the DYLIB, the DPR file simply USES that unit:
unit uTestDLL;
interface
// External functions and procedures
function say_Hello(Hello: PChar; out ReturnString: PChar): boolean; {$IFDEF MSWINDOWS}stdcall{$ELSE}cdecl{$ENDIF}; forward;
procedure free_String(S: PChar); {$IFDEF MSWINDOWS}stdcall{$ELSE}cdecl{$ENDIF}; forward;
exports
say_Hello {$IFNDEF MSWINDOWS} name '_say_Hello'{$ENDIF},
free_String{$IFNDEF MSWINDOWS} name '_free_String'{$ENDIF};
Implementation
uses
System.SysUtils,
System.Diagnostics,
System.Classes,
// INCLUDE ANY OF THESE UNITS AND IT GIVES RUNTIME ERROR 230
FMX.TMSCloudBase,
FMX.TMSCloudBaseFMX,
FMX.TMSCloudWebBrowser.Mac,
FMX.TMSCloudWebBrowser,
FMX.TMSCloudDropBox,
FMX.TMSCloudCustomDropBox;
var
sType: string;
function say_Hello(Hello: PChar; out ReturnString: PChar): boolean; {$IFDEF MSWINDOWS}stdcall{$ELSE}cdecl{$ENDIF};
begin
try
try
Result := True;
ReturnString := StrAlloc(Length(sType));
StrPCopy(ReturnString, sType);
except
on E: Exception do
begin
free_String(ReturnString);
Result := False;
end;
end;
finally
end;
end;
procedure free_String(S: PChar); {$IFDEF MSWINDOWS}stdcall{$ELSE}cdecl{$ENDIF};
begin
StrDispose(S);
end;
initialization
{$IFDEF MSWINDOWS}sType := 'Windows DLL'; {$ENDIF}
{$IFDEF MACOS}sType := 'macOS DYLIB'; {$ENDIF}
finalization
end.