Delphi - Prima visualizzare i suoni di MediaPlayer

Forum - Delphi - Prima visualizzare i suoni di MediaPlayer

awall (Normal User)
Newbie

Messaggi: 19
Iscritto: 20/09/2006

Postato alle 15:28
Martedì, 19/12/2006

Salve
Sto programmando per Audio tre files insieme ogni il pulsante (button) come un esempio:

procedure TForm1.Button1Click(Sender: TObject);
begin
    label1.caption:='Australia';

     MediaPlayer1.FileName:='c:\benvenuto.wav';
     MediaPlayer1.DeviceType := dtAutoSelect;
     MediaPlayer1.Open;
     mediaplayer1.Wait:=true;
     MediaPlayer1.Play;

     MediaPlayer1.FileName:='c:\benvenuto1.wav';
     MediaPlayer1.DeviceType := dtAutoSelect;
     MediaPlayer1.Open;
     mediaplayer1.Wait:=true;
     MediaPlayer1.Play;

     MediaPlayer1.FileName:='c:\canto.wav';
     MediaPlayer1.DeviceType := dtAutoSelect;
     MediaPlayer1.Open;
     mediaplayer1.Wait:=true;
     MediaPlayer1.Play;
end;

Il problema che label1.caption:='Australia' viene visualizzata sempre dopo la fine dei suoni, invece dev'essere prima di suonare, perchè questi tre suoni duranno circa 2 minuti.
Come posso fare?

Spero di aver capito.
A presto.

Saluti da Walter.

awall (Normal User)
Newbie

Messaggi: 19
Iscritto: 20/09/2006

Postato alle 16:43
Martedì, 19/12/2006

Scusate!! Sono riuscito a funzionare prima di suonare con button1.onEnter prima di .onclick

procedure TForm1.Button6Enter(Sender: TObject);
begin
label1.caption:='Australia';
end;

Tutto a posto!!!!

Grazie

Saluti da Walter.

delphiruby (Ex-Member)
Newbie

Messaggi: 7
Iscritto: 09/10/2006

Postato alle 18:27
Martedì, 19/12/2006

Potresti anche provare con il comando refresh a voltre si tratta solo di costringere il programma a dare una rifrescata al video.

procedure TForm1.Button1Click(Sender: TObject);
begin
label1.caption:='Australia';

REFRESH; // potrebbe bastare

MediaPlayer1.FileName:='c:\benvenuto.wav';
MediaPlayer1.DeviceType := dtAutoSelect;
MediaPlayer1.Open;
mediaplayer1.Wait:=true;
MediaPlayer1.Play;
.........
......

awall (Normal User)
Newbie

Messaggi: 19
Iscritto: 20/09/2006

Postato alle 14:50
Mercoledì, 20/12/2006

Grazie Mille!! :k:

da Walter.