Q&A

  • 순차/무작위 미디파일 연주루틴좀....
안녕하세요~

죄송하게두 전 델파이 사용자가 아닌 씨++빌더 사용자입니다...

제가 프로그램을 만들다가 막히는 부분이 있어서 이렇게 델파이게시판을 이용하게 되는군요

다름이 아니구

제목에서처럼 미디파일을 순차/무작위로 반복적으로 그러니까 프로그램이 끝날때까지

연주루틴을 추가하고 싶은데 싶게 되질 않고있습니다...

부디 델파이 루틴도 좋으니

아시는분 소스좀 부탁드립니다...



그럼...열심히들 하세요!

1  COMMENTS
  • Profile
    이정욱 1999.05.24 18:57
    TMediaPlayer를 보면 OnNotify 이벤트가 있습니다.

    이곳에서 코딩을 해주시면 되는데...

    예를들면..

    procedure TForm1.MediaPlayer1Notify(Sender: TObject);



    begin

    with Sender as TMediaPlayer do

    begin

    If Mode = mpStopped then 다음을 파일을 열어라;

    Notify := True;

    end;

    end;



    여기서 다음파일을 열때는 순차적이라면 현재파일의 다음을 열면 되는것이고 랜덤이라면 랜덤한 숫자 하나는 얻어내서 그것만큼 파일들을 지나쳐서 열어버리면 되는것이죠.

    사실 조금 더 정형화된 랜덤한 파일의 선택법은 한번 연주된것은 안나와야 하겠죠? 그러려면 배열이나 리스트를 사용하셔야 합니다. 개인적으로는 TStringList를 사용하여 만드는것이 가장 편하죠. 그래서 그 파일을 여는순간 StringList에서 제거하고 Random한 숫자를 뽑을때는 StringList의 Count안에서 뽑아내게 하는것이죠.

    맨 처음 StringList에 FileList를 넣는 방법에는 FindNext와 같은 파일을 찾아서 넣는 방법이 있고, 편법으로는 FileListBox하나를 감춰놓고 그 박스의 내용을 StringList에 넣어 사용하는 방법이 있습니다.





    최장민 wrote:

    > 안녕하세요~

    > 죄송하게두 전 델파이 사용자가 아닌 씨++빌더 사용자입니다...

    > 제가 프로그램을 만들다가 막히는 부분이 있어서 이렇게 델파이게시판을 이용하게 되는군요

    > 다름이 아니구

    > 제목에서처럼 미디파일을 순차/무작위로 반복적으로 그러니까 프로그램이 끝날때까지

    > 연주루틴을 추가하고 싶은데 싶게 되질 않고있습니다...

    > 부디 델파이 루틴도 좋으니

    > 아시는분 소스좀 부탁드립니다...

    >

    > 그럼...열심히들 하세요!





    • 이상석
    • 1999.05.24 19:17
    • 2 COMMENTS
    • /
    • 0 LIKES
    • 모승열
      1999.05.24 20:11
      메인윈도우의 name이 FrmMain, 자식윈도우 name이 FrmChild라면 . . . implementation uses uChild;//...
    • 이상석
      1999.05.24 22:04
      모승열 wrote: > 메인윈도우의 name이 FrmMain, 자식윈도우 name이 FrmChild라면 > . > . > . > imple...
    • 조용덕
    • 1999.05.24 19:15
    • 1 COMMENTS
    • /
    • 0 LIKES
    • 이정욱
      1999.05.24 22:04
      아래를 참고하세요. 알맞게 고쳐서 사용하세요. procedure DrawIcon(Fs: String); var Icon ...
    • 이미영
    • 1999.05.24 18:07
    • 3 COMMENTS
    • /
    • 0 LIKES
    • 이정욱
      1999.05.24 18:40
      GetFocus를 사용해 보세요. GetFocus를 하면 현재 키보드입력상태에 있는 콘트롤의 핸들값을 반환합니다. ...
    • 이미영
      1999.05.24 22:08
      Procedure MessageHandler(mm: Tmessage); var CHandle: HWND; Begin CHandle := GetFocus(); ...
    • 이정욱
      1999.05.24 22:22
      아래를 참고하세요. 쩝.. 근데 저 안 멋져요.. ^^; procedure SendData(TargetWnd : HWnd; StrMsg: str...
    • 최장민
    • 1999.05.24 17:03
    • 1 COMMENTS
    • /
    • 0 LIKES
    • 이정욱
      1999.05.24 18:57
      TMediaPlayer를 보면 OnNotify 이벤트가 있습니다. 이곳에서 코딩을 해주시면 되는데... 예를들면.. pro...
    • 하명훈
    • 1999.05.24 15:29
    • 1 COMMENTS
    • /
    • 0 LIKES
    • 이정욱
      1999.05.24 18:43
      데이타베이스는 어떤것을 사용하셨나요? 혹시 ODBC로 연결을 하셨는지요? 짐작이 가는것이라면 맨 처음 ...
    • 이정현
    • 1999.05.24 11:27
    • 1 COMMENTS
    • /
    • 0 LIKES
    • 이정욱
      1999.05.24 18:45
      AsMemo말고 AsString으로 해보세요. Query1.ParamByName('N3').AsString := Memo1.Text; //메모... 그리...
    • VMNT
    • 1999.05.24 08:56
    • 1 COMMENTS
    • /
    • 0 LIKES
    • 이정욱
      1999.05.24 19:05
      아마도 생성은 하셨지만 어느순간에 지워야 하는지를 여쭙는것 같습니다. 그렇다면 이렇게 해보세요. Chi...
    • 영인
    • 1999.05.24 06:10
    • 1 COMMENTS
    • /
    • 0 LIKES
    • 신인재
      1999.05.24 08:42
      영인 wrote: > 집합형 변수중에서 궁금한게 있는데요...빨리 답을 좀 알아야 하는 상황이라서......어느 ...
    • 박용근
    • 1999.05.24 02:37
    • 2 COMMENTS
    • /
    • 0 LIKES
    • 모승열
      1999.05.24 19:56
      박용근 wrote: > 안녕하세요. > 스트링그리드에서 정렬을 할려고 하는데 잘 되지 않아요. > 정렬하는 ...
    • 김우철
      1999.05.24 11:21
      정확히 어떤 내용인지 모르겠지만, 혹시 도움이 될까 해서 적습니다. db에 있는 데이터라면 SQL의 Order B...
    • 이호선
    • 1999.05.23 23:32
    • 2 COMMENTS
    • /
    • 0 LIKES
    • 이정욱
      1999.05.24 01:08
      이호선 wrote: > 안녕하세요.. > 시스템 디렉토리(예 : C:Windows 또는 C:WINDOWSSYTEM )을 얻어올수 있...
    • 초심
      1999.05.24 00:15
      이호선 wrote: > 안녕하세요.. > 시스템 디렉토리(예 : C:Windows 또는 C:WINDOWSSYTEM )을 얻어올수 있...
    • 조진희
    • 1999.05.23 21:02
    • 2 COMMENTS
    • /
    • 0 LIKES
    • 구창민
      1999.05.24 01:16
      조진희 wrote: > 제가 델파이 헬펑에서 음력양력 로직을 받아서 작업을 하고 있어요.. > 근데 아무리 봐...
    • 초보
      1999.05.25 10:18
      정말 감사합니다.. 훨씬 이해가 가는군요.. 근데 저희 초보들은 파라미터는 쿼리 할때 변수사용하려고 사...
    • 초보
    • 1999.05.23 08:32
    • 2 COMMENTS
    • /
    • 0 LIKES
    • 초심
      1999.05.24 00:40
      초보 wrote: > 저희가 개발중인 프로그램의 프로젝트 이름을 바꾸려고 해요... > 어디를 바꾸면 되는지요...
    • 초보
      1999.05.24 08:05
      고맙습니다.. 근데요... 한글은 안되나요.. 그래도...정말 정말 고마와요...
    • 박성식
    • 1999.05.23 07:01
    • 3 COMMENTS
    • /
    • 0 LIKES
    • 이정욱
      1999.05.24 01:10
      아스키 문자라는것이.. 아스키 코드를 말씀하시나요? 그렇다면... ord 를 사용하시면 됩니다. 단, Ord...
    • 박성식
      1999.05.27 23:09
      이정욱 께서 말씀하시기를... > 아스키 문자라는것이.. 아스키 코드를 말씀하시나요? > 그렇다면... > ...
    • 이정욱
      1999.05.27 23:28
      온라인 상에서 직접 작성하는것이라서 수정이 필요할 수 있습니다. function StrToAsc(Str : String) : ...
    • 안명호
    • 1999.05.23 06:03
    • 1 COMMENTS
    • /
    • 0 LIKES
    • 이정욱
      1999.05.24 01:12
      SetForegroundWindow 를 사용하세요. 메세지 박스가 뜨기직전에 해주세요. SetForgroundWindow(Handle); ...
    • 안명호
    • 1999.05.23 00:13
    • 1 COMMENTS
    • /
    • 0 LIKES
    • 구창민
      1999.05.24 01:14
      안명호 wrote: > 컨트롤 내에서가 아니라... > 프로그램 외부에서 예를 들어 탐색기에서 > 파일을 드래...