punteros en delphi

[[Ivanzinho]]

Hola, karen08, te recomiendo que leas la guía de estilo. Para una nueva duda debes crear un nuevo hilo en el lugar adecuado.

Para hacer lo que necesitas puedes usar el componente TMediaPlayer de la pestaña 'System'.

Un saúdo.

[karen08]

hola

disculpa pero mi interogante es como se programa ese componente porque para mi es desconocido, nunca lo habia usado que pena solo necesito una pequeña esxplicacion y yo estoy segura que lo hago.

saludos

[[Delphius]]

Karen08,
Arrastra el componente,
y el evento onChange del Combo, debes hacer algo como esto:

Código Delphi [-]
procedure TForm1.ComboBox1Change(Sender: TObject);
begin
  MediaPlayer1.FileName := 'El Path completo donde está el archivo';
  MediaPlayer1.Open;
  MediaPlayer1.Play;
end;

Obviamente no debes sustituir tu código anterior. Sino que debes adapta al código que te muestro de la forma que mantenga la coherencia con el tuyo. Por ejemplo, dentro del case:

Código Delphi [-]
case ... of
0: begin
    Label1.Caption := ....
    MediaPlayer1.FileName ....
    end;

No tiene demasiada ciencia el TMediaPlayer. Si tienes más dudas, haz una búsqueda que en reiteradas ocasiones se ha preguntado sobre el componente.

Saludos,

[karen08]

hola

tambien me digeron que utizara el procedimiento beep que sabe usten de eso, como lo utilizaria para poner el sonido a cada numero cuando sea seleccionado.

ahh la ubicacion de de la cancion que voy mostrar con media player es por ejemplo SI LA TENGO EN DISCO D o en mis documentos.

saludos.

[[Delphius]]

Empezado por karen08

hola

tambien me digeron que utizara el procedimiento beep que sabe usten de eso, como lo utilizaria para poner el sonido a cada numero cuando sea seleccionado.

ahh la ubicacion de de la cancion que voy mostrar con media player es por ejemplo SI LA TENGO EN DISCO D o en mis documentos.

saludos.

Karen08, Kareon08, Karen08... no seas tan impulsiva ¿Consideraste primero realizar la búsqueda que te aconsejo? ¿Analizaste el código que te expuse?

Beep no se ajusta a lo que buscas. Este procedimento se limita a emitir un sonido como los de advertencia.

Por otro lado, ¿que has querido decir con el hecho de que si tienes el archivo de audio en Disco D, o en mis documentos?
La Path completa está constituída por el directorio donde está el archivo más el nombre y la extensión de dicho archivo. Por ejemplo:

C:\BLA\BLA\unarchivo.mp3

No interesa donde se encuentre el archivo siempre y cuando sepas el directorio va a andar. No se a que te refieres con dicha pregunta, por favor toma tu tiempo para formular las preguntas, analiza objetivamente las propuestas y consejos que te damos...

Saludos,

[karen08]

hola

tengo lo siguiente pero,


unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, jpeg, ExtCtrls, MPlayer;
type
TForm1 = class(TForm)
Label1: TLabel;
ComboBox1: TComboBox;
Button1: TButton;
MediaPlayer1: TMediaPlayer;
procedure ComboBox1Change(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.ComboBox1Change(Sender: TObject);
begin
MediaPlayer1.FileName := 'D:\bajados\date la vuelta.mp3';
MediaPlayer1.Open;
MediaPlayer1.Play;
end;

case combobox1.ItemIndex of
0: begin
Label1.Caption := ' ';
MediaPlayer1.FileName := 'D:\bajados\one.mp3';
end;
0:label1.Caption:= 'ONE';
1:label1.Caption:= 'TWO';
2:label1.Caption:= 'THREE';
3:label1.Caption:= 'FOUR';
4:label1.Caption:= 'FIVE';
5:label1.Caption:= 'SEX';
6:label1.Caption:= 'SEVEN';
7:label1.Caption:= 'EIGHT';
8:label1.Caption:= 'NINE';
9:label1.Caption:= 'TEN';
END;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
CLOSE;
end;
end.


lo deseado es que para cada numero me salga una musica si me entiendes, yasi saldra un solo sonido para todos. la idea es que cuando yo seleccione del combobox el numero el muestre el nombre en el label1 que esta en blanco y salga el sonido one, cuando coja el 1, two cuando coja el 2 y asi..............................

que me sugieres


saludos

[[Delphius]]

Karen08,
Por favor emplea las etiquetas [delphi] y [/delphi]
Para que el código delphi quede resaltado y se entienda mejor.

Con respecto al problema se soluciona dentro del mismo case. La estructura debe repetirse para cada valor, tu sólo lo haz hecho para el UNO.

Código Delphi [-]
case combobox1.ItemIndex of
0: begin
    Label1.Caption := ...
    MediaPlayer1.FileName := ....
    end;
1: begin
    Label1.Caption := ...
    MediaPlayer1.FileName := ....
    end;
...
10: begin
      Label1.Caption := ...
      MediaPlayer1.FileName := ....
     end;
end; // fin case
MediaPlayer1.Open;
MediaPlayer1.Play;

Saludos,

[[Ivanzinho]]

Eso que preguntas te lo respondió Delphius en uno de los post anteriores. Te recomiendo el uso de las etiquetas para hacer el código más entendible.

Un saúdo.