Send sqlite database file with share sheet on IOS and Android

[grantful 3]

I have a sqlite database file( app.s3db)  in my app i wold like to send with share sheet to back up to email ,etc .

 

I am working on a class to do this but have an error.

 

unit ShareDatabaseFile;

interface

uses
  System.SysUtils, System.Classes, FMX.Types, FMX.Controls,
  FMX.MediaLibrary.Actions, FMX.Dialogs, FMX.ActnList;

type
  TDatabaseFileSharer = class(TComponent)
  private
    FShareSheet: TShowShareSheetAction;
    FActionList: TActionList;
    procedure DoBeforeExecute(Sender: TObject); // Declaration
  public
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
    procedure ShareDatabaseFile;
  end;

implementation

uses
  System.IOUtils;

{ TDatabaseFileSharer }

constructor TDatabaseFileSharer.Create(AOwner: TComponent);
begin
  inherited;
  FActionList := TActionList.Create(Self);

  FShareSheet := TShowShareSheetAction.Create(Self);
  FShareSheet.ActionList := FActionList;
  FShareSheet.OnBeforeExecute := DoBeforeExecute;  // Assignment
end;

destructor TDatabaseFileSharer.Destroy;
begin
  FShareSheet.Free;
  FActionList.Free;
  inherited;
end;

procedure TDatabaseFileSharer.DoBeforeExecute(Sender: TObject);  // Implementation
var
  DatabaseFilePath: string;
begin
  DatabaseFilePath := TPath.Combine(TPath.GetDocumentsPath, 'mydatabase.db');
  if TFile.Exists(DatabaseFilePath) then
  begin
    FShareSheet.SharedFileName := DatabaseFilePath;

  end
  else
  begin
    ShowMessage('Database file not found.');
    Abort;
  end;
end;

procedure TDatabaseFileSharer.ShareDatabaseFile;
begin
  FShareSheet.ExecuteTarget(nil);
end;

end.

 I am getting undeclared identifier

 

procedure TDatabaseFileSharer.DoBeforeExecute(Sender: TObject);  // Implementation
var
  DatabaseFilePath: string;
begin
  DatabaseFilePath := TPath.Combine(TPath.GetDocumentsPath, 'mydatabase.db');
  if TFile.Exists(DatabaseFilePath) then
  begin
    FShareSheet.SharedFileName := DatabaseFilePath;

  end
  else
  begin
    ShowMessage('Database file not found.');
    Abort;
  end;
end;

here is the error  FShareSheet.SharedFileName is the undeclared identifier. 

 

so the .sharedFileName is the issue.

 

i am looking in the FMX.MediaLibrary.Actions and can not see anything about the shared file name.

 

 

 

Thanks for any help.

[Dave Nottage 557]

6 minutes ago, grantful said:

here is the error  FShareSheet.SharedFileName is the undeclared identifier. 

 

so the .sharedFileName is the issue.

 

i am looking in the FMX.MediaLibrary.Actions and can not see anything about the shared file name.

Where did you have the idea that SharedFileName was a property of TShowShareSheetAction? This class supports sharing only images and text.

 

If you want to share a file, you may be interested in this: https://github.com/DelphiWorlds/Kastri/tree/master/Demos/ShareItems

[grantful 3]

Thanks Dave. I thought  i could send a file with the share sheet . I am trying to learn 😉

[grantful 3]

Dave that works great.

I am wondering about using a 3rd party method(component, pas, class, etc) in the app. I worried about in the future if the Kastri project will be updated to work with newer versions of Delphi .

Thanks for your help

[Dave Nottage 557]

40 minutes ago, grantful said:

I worried about in the future if the Kastri project will be updated to work with newer versions of Delphi .

I have kept Kastri very much up to date, and I "officially" support the last 2 major updates, i.e. presently 10.4.x and 11.x.  Rest assured that the same will apply to Delphi 12.

[grantful 3]

Ok thank you for your hard work with that.

[grantful 3]

Hey Dave I compiled the demo and it works great .

 

I am trying to implement the share into my project and i am getting

[DCC Error] Macapi.ObjectiveC.pas(3145): E2003 Undeclared identifier: 'SObjCClassRegistrationFailed'

I have looked at the uses clause in the demo and I have the same  thing in mine.  I am sure i am not including something.

 

Thanks for your help.

[Dave Nottage 557]

29 minutes ago, grantful said:

I have looked at the uses clause in the demo and I have the same  thing in mine.  I am sure i am not including something.

Your project appears to include a folder in its search path that contains the file Macapi.ObjectiveC.pas, which by default is in the source\rtl\osx folder in the Delphi install, but perhaps you have a copy of the file elsewhere. The fact that it reports: Undeclared identifier: 'SObjCClassRegistrationFailed' means that there's a mismatch between the Macapi.ObjectiveC.pas it finds, and the System.RTL.Consts unit, which contains the missing identifier.

[grantful 3]

Well Dave sorry to ask that question .

I reboot my computer and start over again and it compiles.