linux에서 프로그램을 하다보니 헤메기 일쑤 이네요 혹시 저처럼 헤메는분이 안생기도록 리눅스에서 간단히 wav파일을 플레이 하는 funtion을 공유 합니다 ^^
자료출처 : http://forum.lazarus.freepascal.org/index.php?topic=5215.0
uses Process 추가하시고
function PlaySoundLnx(fileName: String): Boolean; //wav sound play function const playerCmd = 'paplay'; // pulseaudio client var AProcess: TProcess; begin AProcess := TProcess.Create(nil); with Aprocess do begin CommandLine := FindDefaultExecutablePath(playerCmd) + ' ' + filename; // Options := Options + [poWaitOnExit]; //이 옵션은 ASync , Sync 선택 try try Execute; except on E: Exception do ShowMessage(E.ClassName + ' error raised, with message : ' + E.Message); end; finally Free; end; end; end;
procedure TMain_Form.Button1Click(Sender: TObject); var AppDir: String; begin AppDir := ExtractFilePath(Application.ExeName); PlaySoundLnx(AppDir + 'audio/2.wav'); end;
|