search

HemulGM / ChatGPT

ChatGPT Native Application (Windows, Mac, Android, iOS, and Linux)
https://hemulgm.github.io/ChatGPT/
MIT License
378 stars 47 forks source link

TPath.GetHomePath and IOS #66

Closed Fab8573 closed 2 weeks ago

Fab8573 commented 2 weeks ago

TPath.GetHomePath seems to be readonly on IOS ?

So this raise a write error when saving configuration file :

constructor TManager.Create(AOwner: TComponent); begin inherited; FCanShare := GetCanShare; FAppFolder := TPath.Combine( TPath.GetHomePath , 'ChatGPT');

This could work better :

constructor TManager.Create(AOwner: TComponent); begin inherited; FCanShare := GetCanShare; FAppFolder := TPath.Combine( {$IFDEF IOS} TPath.GetDocumentsPath {$ELSE} TPath.GetHomePath {$ENDIF} , 'ChatGPT');

HemulGM commented 2 weeks ago

Thanks, fixed