- くだすれDelphi(超初心者用)その56
377 ：43 ◆HdTBZ7DE26 [sage]：2015/03/31(火) 05:53:57.63 ID:W8QOWemd - procedure TForm1.PlayBtnClick(Sender: TObject);
begin
begin
if FileExists(FileListBox1.FileName) then begin // Edit1.Textにmp3のファイル名
mciSendString(PChar('open "' + FileListBox1.FileName + '" type MPEGVideo'+' alias MyMusic'), nil, 0, 0);
Timer2.Enabled := True;
LengthBtnClick(Sender);
mciSendString(PChar('play MyMusic from 0 ' ), nil, 0, 0);
FileListBox1.FileName:='';
end;
end;
end;
| - くだすれDelphi(超初心者用)その56
378 ：43 ◆HdTBZ7DE26 [sage]：2015/03/31(火) 05:57:44.46 ID:W8QOWemd - procedure TForm1.StopBtnClick(Sender: TObject);
begin
mciSendString(PChar('stop MyMusic'), nil, 0, 0);
mciSendString(PChar('close MusicFile'), 0,0,0);
end;
procedure TForm1.CurrentBtnClick(Sender: TObject);
const
Pos: Cardinal = 260; //元は'MAX_PATH';
var
Bufpos_widechar : array[0..260] of WideChar;//mciSendString1から文字を受けるバッファー
position_time :String;//曲の長さの整数型時間
begin
Bufpos_widechar := '';//初期化
//SetLength(Bufpos_widechar, Pos);
mciSendString(PChar('status MyMusic position'),Bufpos_widechar, Pos, 0) ;
position_time := WideCharToString(Bufpos_widechar);
pos_times_int := StrToInt(position_time);
ProgressBar1.Position := round(((pos_times_int/length_times)*100));
Label2.Caption := FormatDatetime('nn:ss', pos_times_int / 1000 / (24*60*60));
end;
| - くだすれDelphi(超初心者用)その56
379 ：43 ◆HdTBZ7DE26 [sage]：2015/03/31(火) 06:15:24.44 ID:W8QOWemd - 上の書き込みですが、FileListBox内のアイテムを適当に再生させても
一番前のファイルの曲を再生して、カーソルが動いても次の曲になっても最初の曲が再生しています。
良い方法はあるのでしょうか？よろしお願いいたします。
|
|