Q&A

  • TmediaPlayer.create(self)에 관하여..
동영상을 돌리려고 하는데 버튼을 누르면 원하는 동영상이 돌아가도록 만들려고 합니다. 그리고 사용자가 다시 돌리고 싶을때는 버튼을 또 누르도록 하려고 만들려고 합니다. 그래서 run time시에 mediaPlayer가 생겨나서 플레이 하려고 하는데 런타임시에 mediaplayer를 생성시켜 플레이 시키려니 'parent window가 없는 control'이라는 에러 메세지가 뜹니다.

어찌 해야 될지요...



제가 아래와 같이 코딩하였습니다.

폼 생성 이벤트에

mPlayer := TMediaPlayer.create(self); 혹은 (application)



..

버튼 onClick의 이벤트에

MPlayer.DeviceType :=dtAutoSelect;

MPlayer.AutoEnable := true;

MPlayer.fileName := 'e:delphisamplea.mpg';

MPlayer.disPlay := Panel1;

mplayer.AutoOpen:= false;

MPlayer.Open;

Mplayer.Play;



....

를 하였는데 에러가 발생하였습니다. mediaPlayer를 런타임시에 생성시킬수 있는 방법을 갈켜주세요..







2  COMMENTS
  • Profile
    김경식 2000.10.27 23:51
    mPlayer := TMediaPlayer.create(self); 혹은 (application)

    mPlayer.Parent := Panel1;



    성공을 빌며.



    윤미영 wrote:

    > 동영상을 돌리려고 하는데 버튼을 누르면 원하는 동영상이 돌아가도록 만들려고 합니다. 그리고 사용자가 다시 돌리고 싶을때는 버튼을 또 누르도록 하려고 만들려고 합니다. 그래서 run time시에 mediaPlayer가 생겨나서 플레이 하려고 하는데 런타임시에 mediaplayer를 생성시켜 플레이 시키려니 'parent window가 없는 control'이라는 에러 메세지가 뜹니다.

    > 어찌 해야 될지요...

    >

    > 제가 아래와 같이 코딩하였습니다.

    > 폼 생성 이벤트에

    > mPlayer := TMediaPlayer.create(self); 혹은 (application)

    >

    > ..

    > 버튼 onClick의 이벤트에

    > MPlayer.DeviceType :=dtAutoSelect;

    > MPlayer.AutoEnable := true;

    > MPlayer.fileName := 'e:delphisamplea.mpg';

    > MPlayer.disPlay := Panel1;

    > mplayer.AutoOpen:= false;

    > MPlayer.Open;

    > Mplayer.Play;

    >

    > ....

    > 를 하였는데 에러가 발생하였습니다. mediaPlayer를 런타임시에 생성시킬수 있는 방법을 갈켜주세요..

    >

    >

    >

  • Profile
    윤미영 2000.10.28 00:12
    김경식 wrote:

    > mPlayer := TMediaPlayer.create(self); 혹은 (application)

    > mPlayer.Parent := Panel1;

    >

    > 성공을 빌며.

    >

    > 윤미영 wrote:

    > > 동영상을 돌리려고 하는데 버튼을 누르면 원하는 동영상이 돌아가도록 만들려고 합니다. 그리고 사용자가 다시 돌리고 싶을때는 버튼을 또 누르도록 하려고 만들려고 합니다. 그래서 run time시에 mediaPlayer가 생겨나서 플레이 하려고 하는데 런타임시에 mediaplayer를 생성시켜 플레이 시키려니 'parent window가 없는 control'이라는 에러 메세지가 뜹니다.

    > > 어찌 해야 될지요...

    > >

    > > 제가 아래와 같이 코딩하였습니다.

    > > 폼 생성 이벤트에

    > > mPlayer := TMediaPlayer.create(self); 혹은 (application)

    > >

    > > ..

    > > 버튼 onClick의 이벤트에

    > > MPlayer.DeviceType :=dtAutoSelect;

    > > MPlayer.AutoEnable := true;

    > > MPlayer.fileName := 'e:delphisamplea.mpg';

    > > MPlayer.disPlay := Panel1;

    > > mplayer.AutoOpen:= false;

    > > MPlayer.Open;

    > > Mplayer.Play;

    > >

    > > ....

    > > 를 하였는데 에러가 발생하였습니다. mediaPlayer를 런타임시에 생성시킬수 있는 방법을 갈켜주세요..

    > >

    > >

    > >