- くだすれDelphi(超初心者用)その56
313 ：43 ◆HdTBZ7DE26 [sage]：2015/02/13(金) 21:16:46.14 ID:oat0xplW - ずっと色々試行錯誤していましたが、さっぱり解らず質問いたします。
上の方で出ていたmciSendStringはUnicode環境下では正常に動作しないと言う
書き込みがありました。
ならば、UnicodeからShift-JISかなんかにキャストすれば上手くいくのでは？
と思い色々試しましたが、全然動きません。
ただ、再生するだけならば、TMediaPlayerで構わないのですが、
PS3のBDリモコンを使った10ftGUIを実現したメディアプレイヤーを作りたいのと
再生速度を変更したいからです。
たとえば
uses
…,MMSystem;
procedure TForm1.Button1Click(Sender: TObject);
var
mciError: LongInt; //MCIの返り値
MusicName: String; //演奏ファイル名 openの前に名前を入れておきます。
begin
//演奏方法
//open命令でファイルを開いて、play命令で演奏を開始します。
mciError = mciSendString(PChar('open ' + MusicName + ' type sequencer alias midifile'), nil, 0, 0);
mciError = mciSendString(PChar('play midifile'), nil, 0, 0);
end;
海外のフォーラムでは、PansiCharが動とか、DSPackを使えとか書いてありましたが、
XE5でインストールできるのか？とか純粋に使い方が解らず前に進めていません。
ヒントなどありましたら、レスいただけないでしょうか。よろしくお願いいたします。
|