お知らせ

電子会議

ライブラリ

パレット

Delphi FAQ検索

Delphi FAQ一覧

サンプル蔵





FDelphi FAQ
16番会議室「玉石混淆みんなで作るSample蔵」に寄せられたサンプル

"音楽CDの指定された番号の曲だけ演奏"

この発言に対し以下のコメントが寄せられています
#00072 青木 栄 さん RE:音楽CDの指定された番号の曲だけ演奏
#00101 酔伯 さん RE:音楽CDの指定された番号の曲だけ演奏

// まだ、完全なコードではありませんが。Win95,WinNT4.0 // で動作確認済みの物です。 // // プロパティーの設定 // DeviceType = dtCDAudio // // 指定されたインデクス番号の曲だけを演奏 procedure TForm1.PlayAudio(Index : Integer); var I, J: Integer; begin with MediaPlayer1 do begin Wait := True; Close; Wait := True; Open; for I := 2 to Index do begin Next; j := TrackPosition[I]; while I <> Position do Application.ProcessMessages; end; Play; I := TrackPosition[Index + 1]; while I <> Position do Application.ProcessMessages; Wait := True; Stop; end; end; Original document by 青木 栄 氏 ID:(CXC05164)



ここにあるドキュメントは NIFTY SERVEの Delphi Users' Forum の16番会議室「玉石混淆みんなで作るSample蔵」に投稿されたサンプルです。これらのサンプルはボーランド株式会社がサポートする公式のものではありません。また、必ずしも動作が検証されているものではありません。これらのサンプルを使用したことに起因するいかなる損害も投稿者、およびフォーラムスタッフはその責めを負いません。使用者のリスクの範疇でご使用下さい。

Copyright 1996-2002 Delphi Users' Forum