여기서 다음파일을 열때는 순차적이라면 현재파일의 다음을 열면 되는것이고 랜덤이라면 랜덤한 숫자 하나는 얻어내서 그것만큼 파일들을 지나쳐서 열어버리면 되는것이죠.
사실 조금 더 정형화된 랜덤한 파일의 선택법은 한번 연주된것은 안나와야 하겠죠? 그러려면 배열이나 리스트를 사용하셔야 합니다. 개인적으로는 TStringList를 사용하여 만드는것이 가장 편하죠. 그래서 그 파일을 여는순간 StringList에서 제거하고 Random한 숫자를 뽑을때는 StringList의 Count안에서 뽑아내게 하는것이죠.
맨 처음 StringList에 FileList를 넣는 방법에는 FindNext와 같은 파일을 찾아서 넣는 방법이 있고, 편법으로는 FileListBox하나를 감춰놓고 그 박스의 내용을 StringList에 넣어 사용하는 방법이 있습니다.
이곳에서 코딩을 해주시면 되는데...
예를들면..
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:
> 안녕하세요~
> 죄송하게두 전 델파이 사용자가 아닌 씨++빌더 사용자입니다...
> 제가 프로그램을 만들다가 막히는 부분이 있어서 이렇게 델파이게시판을 이용하게 되는군요
> 다름이 아니구
> 제목에서처럼 미디파일을 순차/무작위로 반복적으로 그러니까 프로그램이 끝날때까지
> 연주루틴을 추가하고 싶은데 싶게 되질 않고있습니다...
> 부디 델파이 루틴도 좋으니
> 아시는분 소스좀 부탁드립니다...
>
> 그럼...열심히들 하세요!