귀하는 손님 이십니다
로그인
회원가입
  
  델마당 공식 은행계좌
  하나은행 227-910235-83607
  예금주 이상국(운영진)
프로젝트 게시판
투표게시판
델마당소개
기초부터 활용까지! 델파이 교육 - 데브기어
 광고문의 :
lazarus lazarus 입니다.
글내용 - lazarus
 lazarus linux뿉꽌 wav뙆씪 뵆젅씠븯湲
긽뼱諛
(씠젙븳)
2015-12-26 삤썑 6:11:04
1433회 조회


등록된 파일이 없습니다.
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;