Media player 를 이용해서 mpg 화일 여러개를 연속해서 재생하려고

합니다.



Win98에서는 반복 재생이 가능한데 2000 Pro에서는 첫 번째 동영상 실행 후

두번째 동영상을 시작하려는 부분에서 Invalid Thread ID :$0000000011 이라는

에러 메세지가 발생하고 프로그램이 응답하지 않습니다.



동영상을 돌리는 소스는 아래와 같습니다.

배열에 재생할 파일명을 바꾸면서 입력하고 있습니다.



procedure TfrmMenu.FormCreate(Sender: TObject);

var

i : integer;

AviFileName : String;

begin

for i := 1 to 20 do begin

AviFileName :=

ExtractFilePath(Application.ExeName) + 'Imagemovie'

+ IntToStr(i)+'.mpg';

if FileExists(AviFileName) then

AviName[i-1]:= AviFileName

else

AviName[i-1]:= '';

end;

end;



procedure TfrmMenu.MediaPlayer1Notify(Sender: TObject);

begin



MediaPlayer1.Close;

MediaPlayer1.rePaint;



with MediaPlayer1 do begin

FileName := AviName[AviCnt];

Open;

Display := pnlAd; //Set display device to a TPanel

Notify := True;



Mediaplayer1.DisplayRect := pnlAd.ClientRect;

MediaRun:= True;

Play;

end;



end;





꼭 좀 도와주세요