Ver Mensaje Individual
  #3  
Antiguo 24-01-2025
aconso aconso is offline
Registrado
 
Registrado: nov 2022
Posts: 5
Reputación: 0
aconso Va por buen camino
corrijo codigo fuente Fe de erratas

corrijo codigo fuente Fe de erratas

Código Delphi [-]
//Este es el codigo fuente
//Programa que reproduce un mp3 con un boton , el mp3 debe estar empaquetado en la misma APK
//se coloca el archivo mi_gato.mp3 en el subiderectorio del codigo fuente : /assets/mi_gato.mp3
//se tiene instalado el API 35
//Se tiene instalado el SDK
//Se tiene instalado el java
//Se tiene instalado el JDK
//Se tiene instalado el NDK

unit Unit1;

interface

uses
  Androidapi.JNIBridge, Androidapi.JNI.JavaTypes, FMX.Forms, FMX.Controls,
  FMX.Types, FMX.StdCtrls, System.Classes, System.SysUtils, FMX.Media,
  FMX.Controls.Presentation;

type
  TForm1 = class(TForm)
    procedure PlayButtonClick(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
    FMediaPlayer: TMediaPlayer;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.fmx}

procedure TForm1.Button1Click(Sender: TObject);
begin
  // Inicializar el reproductor de medios
  if FMediaPlayer = nil then
    FMediaPlayer := TMediaPlayer.Create(Self);

  // Establecer la fuente del audio desde los assets del APK
FMediaPlayer.FileName := TPath.Combine(TPath.GetDocumentsPath, 'assets/mi_gato.mp3');

  // Reproducir el sonido
  FMediaPlayer.Play;
end;
end.

Última edición por Neftali [Germán.Estévez] fecha: 27-01-2025 a las 08:40:38. Razón: Utilizar TAGs en el código
Responder Con Cita