- くだすれDelphi(超初心者用)その56
347 ：43 ◆HdTBZ7DE26 [sage]：2015/03/21(土) 17:22:51.14 ID:nRQhEukI - こんにちは
mciSendStringの利用に取り組んでいます。
再生スピードを変えようとsetコマンドを使うと
エラーが出てコンパイルできません。
良い知恵があったら教えていただけないでしょうか。
procedure TForm1.Button3Click(Sender: TObject);
var
Speed : intger;
FMCISpeed : string;
begin
Speed := 500;
FMCISpeed := IntToStr(speed);
mciSendString(PChar(('set '+MusicFile+' speed + FMCISpeed'), '', 0, 0)) ;
よろしくお願いいたします。
end;
| - くだすれDelphi(超初心者用)その56
348 ：43 ◆HdTBZ7DE26 [sage]：2015/03/21(土) 17:27:32.30 ID:nRQhEukI - 該当箇所を書き出します。
procedure TForm1.Button2Click(Sender: TObject);
begin
mciSendString(PChar('stop MusicFile'), nil, 0, 0);
mciSendString('close MusicFile', 0,0,0);
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
FMCISpeed:= IntToStr(speed+500);
mciSendString('set '+MusicFile+' speed '+ FMCISpeed);
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
FMCISpeed:= IntToStr(speed-500);
mciSendString('set '+MusicFile+' speed '+ FMCISpeed);
end;
| - くだすれDelphi(超初心者用)その56
349 ：43 ◆HdTBZ7DE26 [sage]：2015/03/21(土) 17:28:01.97 ID:nRQhEukI - 続き
procedure TForm1.FileListBox1Change(Sender: TObject);
begin
if FileExists(FileListBox1.FileName) then
begin
end;
end;
procedure TForm1.PlayBtnClick(Sender: TObject);
begin
if FileExists(FileListBox1.FileName) then begin // Edit1.Textにmp3のファイル名
mciSendString(PChar('open "' + FileListBox1.FileName + '"type MpegVideo'+ 'alias MusicFile'), nil, 0, 0);
mciSendString(PChar('play MusicFile'), nil, 0, 0);
end;
end;
|
|