[SOLVED] Read file inside app bundle MacOs

[madref]

This peace of code did work perfectly on OS Monterey.

Code: Pascal  [Select][+][-]

1.   ProgramDir := LeftStr (ExtractFilePath(Application.ExeName), Length(ExtractFilePath(Application.ExeName))-15);
2.   if ProgramDir[Length(ProgramDir)] <> '/' then ProgramDir := ProgramDir + '/';
3.   ResourceDir := ProgramDir + 'Contents/Resources/';
4.   RapportDir := ResourceDir + 'Reports/';
5.   UserDir := GetUserDir + 'Documents/Referee Database 5/';
6.   LogoDir := ResourceDir + 'Logos/';
7.   // Waar staat het bestand met de opties.
8.   cfgFile := ResourceDir + 'Referee5_DB.xml' ;
9.   if FileExists(cfgFile) then
10.     begin
11.       XMLConfig_DB.Filename := cfgFile ;
12.       // Check version
13.       Code := AnsiString(XMLConfig_DB.GetValue ('/DATABASE/Version/Value', ''));
14.       k := StrToInt(Code);
15.       v := StrToInt(Copy(Prg_Versie,1,1));
16.       if k <> v then begin
17.         KleurPop := Rood;
18.         Form_Melding.Melding(mUitroep1, bOk, 'Options File is for different version. Please go to the Option Form and set all your options!!', PrgNaam);
19.       end;  // if
20.       RefereeDBF := AnsiString(XMLConfig_DB.GetValue ('/DATABASE/Current/Value', ''));
21.       k := XMLConfig_DB.GetValue ('/SETUP/Color/Value', 1);
22.       case k of
23.         0 : KleurPop := Rood;
24.         1 : KleurPop := Oranje;
25.         2 : KleurPop := Blauw;
26.         3 : KleurPop := Groen;
27.         4 : KleurPop := Paars;
28.         5 : KleurPop := Geel;
29.         6 : KleurPop := Zwart;
30.       end;  // case k
31.       Shirt_Style := XMLConfig_DB.GetValue ('/SETUP/Style/Value', 1);
32.       Cipher:= TDCP_rc4.Create(Self);
33.       Cipher.InitStr(cfgFile,TDCP_sha256);         // initialize the cipher with a hash of the passphrase
34.       Code := AnsiString(XMLConfig_DB.GetValue ('/SETUP/Base_MS/Value', ''));
35.       smtpHost := MyDecryption(Code);
36.       Code := AnsiString(XMLConfig_DB.GetValue ('/SETUP/Base_MP/Value', ''));
37.       smtpPort := MyDecryption(Code);
38.       Code := AnsiString(XMLConfig_DB.GetValue ('/SETUP/Base_UN/Value', ''));
39.       smtpUser := MyDecryption(Code);
40.       Code := AnsiString(XMLConfig_DB.GetValue ('/SETUP/Base_UP/Value', ''));
41.       smtpPassword := MyDecryption(Code);
42.       Code := AnsiString(XMLConfig_DB.GetValue ('/SETUP/Base_NM/Value', ''));
43.       SenderName := MyDecryption(Code);
44.       Code := AnsiString(XMLConfig_DB.GetValue ('/SETUP/Base_NE/Value', ''));
45.       SenderEMail := MyDecryption(Code);
46.       Code := AnsiString(XMLConfig_DB.GetValue ('/SETUP/Base_TI/Value', ''));
47.       SenderTitel := MyDecryption(Code);
48.       Code := AnsiString(XMLConfig_DB.GetValue ('/SETUP/Base_RP/Value', ''));
49.       SenderRapportEmail := MyDecryption(Code);
50.       Cipher.Burn;
51.       Cipher.Free;
52.     end
53.   else begin
54.     KleurPop := Rood;  // Standaard keuze
55.     smtpHost := '';
56.     smtpPort := '';
57.     smtpUser := '';
58.     smtpPassword := '';
59.     SenderName := '';
60.     SenderEMail := '';
61.     SenderTitel := '';
62.     SenderRapportEmail := '';
63.     // Maak een XML-file aan.
64.  
65.  
66.     AssignFile(F,cfgFile);
67.     try
68.       Rewrite(F);
69.       Writeln(F,'<?xml version="1.0" encoding="utf-8"?>');
70.       Writeln(F,'<REFEREE_5>');
71.       Writeln(F,'  <DATABASE>');
72.       Writeln(F,'  </DATABASE>');
73.       Writeln(F,'  <SETUP>');
74.       Writeln(F,'    <Color Value="0"/>');
75.       Writeln(F,'  </SETUP>');
76.       Writeln(F,'</REFEREE_5>');
77.     finally
78.       CloseFile(F);
79.     end;  // try
80.   end;  // if
81.  

But after upgrading to OS Sonoma this is a total disaster.


How can I read a file inside my app bundle in OS Sonoma

[jamie]

your code can be clean up a little to make it easier to debug.

The first two lines you have can be replaced with the

ExtractFilePath(Application......);

That will remove everything to the right up to the last "/" and will include the "/" too.

[madref]

yes... but that still leaves the problem

[dbannon]

Without seeing the bundle or the errors generated, not a lot anyone can do here I suspect.

Davo

[jamie]

yes... but that still leaves the problem

Problem being what? I noticed you are subtracting 15 chars from the end. What I suggested will remove that.

Are you sure the path length hasn't changed and your -15 is wrong? which is why I suggested cleaning up that code and let the function take care of that part.

[madref]

If you had read it properly... I said that in OS Monterey that DID work. But under OS Sonoma is DOES NOT work anymore


The error I get is in the attachment and the bundle also.


All I want to do is access the file Referee_DB5.xml as read and when the program exits as a write because this is where I store some information.

[jamie]

Yup, as I said. check your paths. Use the debugger.

[Fred vS]

This works here on Sonoma:

Code: Pascal  [Select][+][-]

1. var
2.  BinDir, ResourceDir: string;
3. ...
4. BinDir := IncludeTrailingBackslash(ExtractFilePath(ParamStr(0)));
5. ResourceDir := copy(BinDir, 1, length(BinDir) -6) + 'Resources/'; // length(BinDir) -6 ---> 'MacOs/' ---> where the binary is located

[madref]

Found the solution for MacOSx Sonoma.
Apparently you also have to include the extension of the application to it.


So the solution is:

Code: Pascal  [Select][+][-]

1.   ProgramDir := Application.ExeName + '.app';
2.   if ProgramDir[Length(ProgramDir)] <> '/' then ProgramDir := ProgramDir + '/';

to this is faster.

Code: Pascal  [Select][+][-]

1.   ProgramDir := Application.ExeName + '.app/';

THIS IS TOTALLY WRONG !!! and TRon was partially right

[dbannon]

Yep, the application bundle is just a directory with an extension 'app'. So would need that in any version of MacOS.

Davo

[TRon]

So the solution is:
..
to this is faster.
..

And you really should be using something like IncludeTrailingPathDelimiter or at least DirectorySeparator even if it applies for your (single) OS only.


PS: a general remark: no wonder I am (mostly) unable to locate something mac specific as most of the threads that are specific to it seem to be located somewhere else than the dedicated macos subforum.... tuvok would say: logical 

[dbannon]

.....
And you really should be using something like IncludeTrailingPathDelimiter or at least DirectorySeparator even if it applies for your (single) OS only.

Agreed !  I generally use :=AppendPathDelim(Dir), its shorter than the others mentioned and only appends if necessary.

Davo

[jamie]

My understanding of the "ExtractFilePath" from the help indicates that it also includes the last "/" ?

Is the help wrong or did I misread it ?

[TRon]

Is the help wrong or did I misread it ?

No you understood correctly... It is macos that is doing things out of the ordinary (for non macos users)

the appbundle directory is application.exename + ".app" (and the slash appended to actually indicate the directory).

[KodeZwerg]

And you really should be using something like IncludeTrailingPathDelimiter or at least DirectorySeparator even if it applies for your (single) OS only.

Absolute, initial path by one of the named methods, following sub-levels separated by PathDelim
Quick updated to a PathDelim only variant.

Code: Pascal  [Select][+][-]

1. BasePath := ParamStr(0) + '.app' + PathDelim;
2. SomePath := BasePath + 'sublevel' + PathDelim + 'lastsub' + PathDelim;