Windowsの付属のＭＳWindowsMediaPlayerにプレイリストを渡すには？ (ID：30931)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

真琴：「久しぶりの梅雨の晴れ間だネ、ハルコさん、チョットだけ夏ってカンジ」
春子：「じゃぁ日曜日の今日は皆で浜辺の清掃しよっ、あと、ドラム缶風呂の掃除も」
広海：「それって、少し早いんじゃないの〜？ ハルコちゃん」
春子：「ナニ言ってンの、ホカにもまだまだイッパイやっとくコトあるんだから…」
真琴：「ドラム缶風呂はココの名物っていうか"売り"なんだから、キレイにしておかなくちゃネ」
広海：「確かに…、最初ココ来た時も、"おッ珍しい、けどイイじゃん"とは思った…」
海都：「あの、オレは…ちょっと、コレを先に済ませてしまいたいンで…」
春子：「わかった、イイよ、カイトさん、でもなるべく速くしてネ」
海都：「うん、直ぐ終わるから…」

procedure TForm1.Button1Click(Sender: TObject);
const
  WPLPATH= 'C:\Windows\Temp\_Temp.wpl';
  HEADER = '<?wpl version="1.0"?>'#13#10'<smil><body><seq>'#13#10;
  PR_SRC = '<media src="';
  EP_SRC = '"/>'#13#10;
  FOOTER = '</seq></body></smil>'#13#10;
var
  sPath: string;
  i: Integer;
begin
 with ListBox1.Items do begin
  Clear;
  Add('http://editor.dip.jp/sample/sea/sea_005.wmv');
  Add('http://editor.dip.jp/sample/sea/sea_006.wmv');
  Add('http://editor.dip.jp/sample/sea/cloud.wmv');
  Add('http://editor.dip.jp/sample/sea/kamome_001.wmv');
  Add('http://editor.dip.jp/sample/sea/sea_004.wmv');
  Add('http://editor.dip.jp/sample/sun/sunset_001.wmv');
  Add('http://editor.dip.jp/sample/sun/sunset_002.wmv');
  with TFileStream.Create(WPLPATH, fmCreate) do try
   Write(HEADER, Length(HEADER));
   for i:=0 to Count-1 do begin
    sPath := Strings[i];
    Write(PR_SRC, Length(PR_SRC));
    Write(sPath[1], Length(sPath));
    Write(EP_SRC, Length(EP_SRC));
   end;
   Write(FOOTER, Length(FOOTER));
  finally
   Free;
  end;
 end;
 ShellExecute(Handle, 'Open', PChar(WPLPATH), nil, nil, SW_SHOW);
end;

真琴：「ふ〜ん、こうするとWindowsMediaPlayerに再生リスト渡せるのネ」
海都：「そう、再生リストは、wplファイルなんだよ、この場合はURLのリスト」
真琴：「カイトさん、じゃ、パソコンにあるファイルなら、パス書けばいいのよネ？」
海都：「うん、でもそれには注意するコトが一つあるんだ、マコっちゃん」
真琴：「一つだけ？ なら楽勝じゃん、ネェ、カイトさん？」
海都：「そぅ？」
真琴：「注意するコトってナンなの？ カイトさん」
海都：「それはね、もしパスの中に漢字なんかがあったら、UTF8形式にするコト」
真琴：「え？ UTF8？ あの、それ…」
春子：「カイトさ〜ん、サクラさんから電話、…だけどチョット元気ないみたいよ」
海都：「エッ、元気ない？ ナンだろ…、わかった、直ぐ出る」
広海：「あれ？ "携帯"持ってないのぉ？」
海都：「サイフと一緒に"携帯"も行方不明のままだよ」
真琴：「そういえば、クラスの中で"携帯"持ってないの、アタシとユウコくらいかなぁ」
広海：「イマドキ珍しいよねぇ〜、ま、オレもだけど…」

←解決時は質問者本人がここをチェックしてください。

戻る