この発言は
#00066　青木　栄        さんの音楽ＣＤの指定された番号の曲だけ演奏
に対するコメントです



自己添削です。

|    for I := 2 to Index do
|    begin
|      Next;
|      j := TrackPosition[I];
|      while I <> Position do Application.ProcessMessages;
|    end;

これは、前のコード While j <> となるべき所が i になっている
のでおかしいのですがなぜか動いた・・。気持ち悪いので書き直し
ます。なお、このコード無くすと後ろの曲までスキップしません
でした。でも、前のコードでもまともに動いた・・？？？

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 j <> 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蔵」に投稿されたサンプルです。これらのサンプルはボーランド株式会社がサポートする公式のものではありません。また、必ずしも動作が検証されているものではありません。これらのサンプルを使用したことに起因するいかなる損害も投稿者、およびフォーラムスタッフはその責めを負いません。使用者のリスクの範疇でご使用下さい。