Foros Club Delphi - punteros en delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Internet (https://www.clubdelphi.com/foros/forumdisplay.php?f=3)

- - punteros en delphi (https://www.clubdelphi.com/foros/showthread.php?t=49483)

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.

sonidos con delphi

hola

Código Delphi [-] 
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\sonidos\';
  MediaPlayer1.Open;
  MediaPlayer1.Play;
end;

case combobox1.ItemIndex of
0: begin
    Label1.Caption := 'ONE';
    MediaPlayer1.FileName := 'D:\bajados\one.mp3';
    end;
1: begin
    Label1.Caption := 'TWO';
    MediaPlayer1.FileName := 'D:\bajados\two.mp3';
    end;
2: begin
    Label1.Caption := 'THREE';
    MediaPlayer1.FileName := 'D:\bajados\three.mp3';
    end;
3: begin
    Label1.Caption := 'FOUR';
    MediaPlayer1.FileName := 'D:\bajados\four.mp3';
    end;
4: begin
    Label1.Caption := 'FIVE';
    MediaPlayer1.FileName := 'D:\bajados\five.mp3';
    end;
5: begin
    Label1.Caption := 'SIX';
    MediaPlayer1.FileName := 'D:\bajados\six.mp3';
    end;
6: begin
    Label1.Caption := 'SEVEN';
    MediaPlayer1.FileName := 'D:\bajados\seven.mp3';
    end;
7: begin
    Label1.Caption := 'EIGHT';
    MediaPlayer1.FileName := 'D:\bajados\eight.mp3';
    end;
8: begin
    Label1.Caption := 'NINE';
    MediaPlayer1.FileName := 'D:\bajados\nine.mp3';
    end;
9: begin
    Label1.Caption := 'TEN';
    MediaPlayer1.FileName := 'D:\bajados\ten.mp3';
    end;
end; // fin case
MediaPlayer1.Open;
MediaPlayer1.Play;
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.

Código Delphi [-]procedure TForm1.ComboBox1Change(Sender: TObject);
begin
  MediaPlayer1.FileName := 'D:\bajados\sonidos\----------.mp3';
  MediaPlayer1.Open;
  MediaPlayer1.Play;
end;

como hago para que los sonidos salgan automaticos solamente al escoger la opcion en el combobox y ademas que archivo colocaria en el procedimiento anterior si ya he asignado cada archivo de sonido en el case de cada uno.

sonidos con delphi

hola

Código Delphi [-]

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\sonidos\';
MediaPlayer1.Open;
MediaPlayer1.Play;
end;

case combobox1.ItemIndex of
0: begin
Label1.Caption := 'ONE';
MediaPlayer1.FileName := 'D:\bajados\one.mp3';
end;
1: begin
Label1.Caption := 'TWO';
MediaPlayer1.FileName := 'D:\bajados\two.mp3';
end;
2: begin
Label1.Caption := 'THREE';
MediaPlayer1.FileName := 'D:\bajados\three.mp3';
end;
3: begin
Label1.Caption := 'FOUR';
MediaPlayer1.FileName := 'D:\bajados\four.mp3';
end;
4: begin
Label1.Caption := 'FIVE';
MediaPlayer1.FileName := 'D:\bajados\five.mp3';
end;
5: begin
Label1.Caption := 'SIX';
MediaPlayer1.FileName := 'D:\bajados\six.mp3';
end;
6: begin
Label1.Caption := 'SEVEN';
MediaPlayer1.FileName := 'D:\bajados\seven.mp3';
end;
7: begin
Label1.Caption := 'EIGHT';
MediaPlayer1.FileName := 'D:\bajados\eight.mp3';
end;
8: begin
Label1.Caption := 'NINE';
MediaPlayer1.FileName := 'D:\bajados\nine.mp3';
end;
9: begin
Label1.Caption := 'TEN';
MediaPlayer1.FileName := 'D:\bajados\ten.mp3';
end;
end; // fin case
MediaPlayer1.Open;
MediaPlayer1.Play;
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.

Código Delphi [-]
procedure TForm1.ComboBox1Change(Sender: TObject);
begin
MediaPlayer1.FileName := 'D:\bajados\sonidos\----------.mp3';
MediaPlayer1.Open;
MediaPlayer1.Play;
end;

como hago para que los sonidos salgan automaticos solamente al escoger la opcion en el combobox y ademas que archivo colocaria en el procedimiento anterior si ya he asignado cada archivo de sonido en el case de cada uno.:)

Cita:

Empezado por karen08 (Mensaje 245576)

hola

como hago para que los sonidos salgan automaticos solamente al escoger la opcion en el combobox y ademas que archivo colocaria en el procedimiento anterior si ya he asignado cada archivo de sonido en el case de cada uno.:)

El case tiene que ir en el evento OnChange del listbox en lugar de la línea

Código Delphi [-]   MediaPlayer1.FileName := 'D:\bajados\sonidos\';

Un saúdo

Karen08,
¿Eso te compila?:confused:
Yo le veo un par de errores. Lo que tu deseas realizar debe ir todo en el evento onChange. Así:

Código Delphi [-]unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, MPlayer, StdCtrls;

type
  TForm1 = class(TForm)
    ComboBox1: TComboBox;
    Label1: TLabel;
    MediaPlayer1: TMediaPlayer;
    Button1: TButton;
    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
  { Lo siguiente está de más!
  MediaPlayer1.FileName := 'D:\bajados\sonidos\';
  MediaPlayer1.Open;
  MediaPlayer1.Play; }

{end; ¡Este en está de más! }

  // ´Paso 1: Elegimos un archivo
  case combobox1.ItemIndex of
  0: begin
       Label1.Caption := 'ONE';
       MediaPlayer1.FileName := 'D:\bajados\one.mp3';
     end;
  1: begin
       Label1.Caption := 'TWO';
       MediaPlayer1.FileName := 'D:\bajados\two.mp3';
     end;
  2: begin
       Label1.Caption := 'THREE';
       MediaPlayer1.FileName := 'D:\bajados\three.mp3';
     end;
  3: begin
       Label1.Caption := 'FOUR';
       MediaPlayer1.FileName := 'D:\bajados\four.mp3';
     end;
  4: begin
       Label1.Caption := 'FIVE';
       MediaPlayer1.FileName := 'D:\bajados\five.mp3';
     end;
  5: begin
       Label1.Caption := 'SIX';
       MediaPlayer1.FileName := 'D:\bajados\six.mp3';
     end;
  6: begin
       Label1.Caption := 'SEVEN';
       MediaPlayer1.FileName := 'D:\bajados\seven.mp3';
     end;
  7: begin
       Label1.Caption := 'EIGHT';
       MediaPlayer1.FileName := 'D:\bajados\eight.mp3';
     end;
  8: begin
       Label1.Caption := 'NINE';
       MediaPlayer1.FileName := 'D:\bajados\nine.mp3';
     end;
  9: begin
       Label1.Caption := 'TEN';
       MediaPlayer1.FileName := 'D:\bajados\ten.mp3';
     end;
  end; // fin case

  // Paso 2: Una vez elegida la música, abrimos y reproducidos
  // el archivo
  MediaPlayer1.Open;
  MediaPlayer1.Play;
{ LO que sigue está de más!
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;   {Fin evento onChange}

procedure TForm1.Button1Click(Sender: TObject);
begin
  close;
end;

end.

No es por malo, pero deberías prestar mayor atención a la lógica de tu aplicativo. Compara tu código con este. Lo que está en comentarios o es porque está de más o es para hacer algunas notas aclaratorias.
Los códigos que te vinimos proporcionando debías ajustarlo a tus necesidades, tal parece que el error se debió a que viniste copiando y pegado y haciendo pruebas... No está mal, asi se aprende. Así aprendí yo.

Recuerda que preferimos dar TIPs antes de ofrecer una solución, al menos yo, considero que de esta manera se invita al que inició el hilo a pensar y fomentar el arte de la lógica, y por consiguiente comprende por si mismo donde está su error.

Espero que no te moleste.
Saludos,