Q&A

  • 델파이 자체에서 웨이브 파일을 출력할 수 있는 함수는?
3번째 올립니다 ㅠ_ㅠ

다이랙트사운드를 사용하지 않고, 델파이 자체에서 웨이브 파일을 출력할 수 없나요? 함수가 있다면 함수명과 그 인수에 대해 설명 좀 부탁합니다.
1  COMMENTS
  • Profile
    조규춘 2003.07.07 21:17


    uses 절에 MMSystem 을 추가하구요..

    sndPlaySound 를 이용하시면 될듯하군요...

    sndPlaySound 에 사용법에 대해서 검색을 해보니

    김영대님이 남긴글이 었더군요..

    // 안녕하세요  김영대(http://www.howto.pe.kr) 입니다  
    // 그냥 예제를 찾아 실행해 보신 후 도움말을 열심히 읽으세요

    // WAVE 파일을 연주하는 예제

    uses
      MMSystem;
    // WAVE 파일을 연주하는 루틴
    procedure TForm1.Button1Click(Sender: TObject);
    var
      f: file;
      p: pointer;
      fs: integer;
    begin
      AssignFile(f, 'test.wav');
      Reset(f,1); // open()
      fs := FileSize(f);
      GetMem(p, fs);
      try
        BlockRead(f, p^, fs); // read()
        CloseFile(f); // close()
        sndPlaySound(p, SND_MEMORY or SND_SYNC);
      finally
        FreeMem(p, fs);
      end;
    end;