Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Desarrollo en Delphi para Android
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos


Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 24-01-2025
Avatar de Casimiro Notevi
Casimiro Notevi Casimiro Notevi is offline
Moderador
 
Registrado: sep 2004
Ubicación: En algún lugar.
Posts: 32.405
Poder: 10
Casimiro Notevi Tiene un aura espectacularCasimiro Notevi Tiene un aura espectacular
Por favor, recuerda usar las etiquetas para código:


Responder Con Cita
  #2  
Antiguo 24-01-2025
aconso aconso is offline
Registrado
 
Registrado: nov 2022
Posts: 5
Poder: 0
aconso Va por buen camino
codigo fuente

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.
Responder Con Cita
  #3  
Antiguo 27-01-2025
Avatar de Neftali [Germán.Estévez]
Neftali [Germán.Estévez] Neftali [Germán.Estévez] is offline
[becario]
 
Registrado: jul 2004
Ubicación: Barcelona - España
Posts: 18.874
Poder: 10
Neftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en bruto
Bienvenido a los foros del Clubdelphi.
Te recomiendo también que revises la Guía de estilo de los foros.
__________________
Germán Estévez => Web/Blog
Guía de estilo, Guía alternativa
Utiliza TAG's en tus mensajes.
Contactar con el Clubdelphi

P.D: Más tiempo dedicado a la pregunta=Mejores respuestas.
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Problemas para configurar DX10.3 con Android 9 darkbits Desarrollo en Delphi para Android 3 20-10-2019 16:53:26
Delphi XE8 no agrega correctamente mi base de datos a la aplicación android MartinHV Desarrollo en Delphi para Android 1 27-10-2016 23:49:54
Configurar correctamente ApdDataPacket El_Raso Varios 0 13-09-2016 06:37:01
Otro tutorial de como configurar Lazarus para Android. pacopenin Lazarus, FreePascal, Kylix, etc. 1 18-09-2013 14:15:13
search cloud in delphi JXJ Varios 2 07-06-2010 10:37:35


La franja horaria es GMT +2. Ahora son las 19:40:08.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi