jSaveDialog
lazarus / 43-Android

----------------------------------------------------------------------
biologic · 2025-02-08 16:01

Is there something like a jSaveDialog available ?

To select a filename to save a file.

Like jOpenDialog.

----------------------------------------------------------------------
Joris · 2025-02-23 20:05

Normally on Android you would use the ACTION_CREATE_DOCUMENT intent to
save a file. I have no idea how to do this from Pascal however,
Copilot gave me this example:

Code: [Select]uses
  AndroidWidget, actionbardetails, dialogdetails, ..., // import
necessary LAMW units
  AndroidWidget.LamwConsts; // import LamwConsts for
ACTION_CREATE_DOCUMENT

procedure TAndroidModule1.StartCreateDocument;
var
  intent: JIntent;
begin
  intent :=
TJIntent.JavaClass.init(TJIntent.JavaClass.ACTION_CREATE_DOCUMENT);
  intent.setType(StringToJString('text/plain')); // You can set other
MIME types as needed
  intent.putExtra(TJIntent.JavaClass.EXTRA_TITLE,
StringToJString('example.txt'));
  jActivity.startActivityForResult(intent,
CREATE_DOCUMENT_REQUEST_CODE); // Use your request code
end;

procedure TAndroidModule1.jActivityActivityResultRequestCodeResultCode
Data(requestCode: integer; resultCode: integer; intentData: jObject);
var
  outputStream: JFileOutputStream;
  uri: Jnet_Uri;
begin
  if requestCode = CREATE_DOCUMENT_REQUEST_CODE then
  begin
    if resultCode = TJActivity.JavaClass.RESULT_OK then
    begin
      uri := TJnet_Uri.Wrap((intentData as JIntent).getData);
      outputStream := jContentResolver.openOutputStream(uri);
      try
        outputStream.write(StringToJString('Hello World').getBytes);
        outputStream.flush;
      finally
        outputStream.close;
      end;
    end;
  end;
end;

procedure TAndroidModule1.ButtonCreateDocumentClick(Sender: TObject);
begin
  StartCreateDocument;
end;

----------------------------------------------------------------------
jmpessoa · 2025-02-23 21:08

QuoteIs there something like a jSaveDialog available ?

You can try LAMW demo "AppPublicFoldersAccessDemo1"