ϴ մ ̽ʴϴ
α
ȸ
  
 
  ϳ 227-910235-83607
  ̻()
Ʈ Խ
ǥԽ
Ұ
ʺ Ȱ!   -
  :
lazarus lazarus Դϴ.
۳ - lazarus
 lazarus linux에서 wav파일 플레이하기
상어밥
(이정한)
2015-12-26 오후 6:11:04
1493ȸ ȸ


ϵ ϴ.
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;