procedure TForm1.Button1Click(Sender: TObject);
begin
if opendialog1.Execute then
mediaplayer1.FileName:=opendialog1.FileName;
mediaplayer1.PaintTo(panel1.Handle,0,0);
mediaplayer1.Open;
end;
如上代码运行得到如下提示Project Project1.exe raised exception class EAccessviolation with message'
Access violation at address 00BD3873. Write of address 5C00BD1B'
并且错误指在mediaplayer1.Open;这一行
有时还会提示什么MCI什么什么的,小弟是新手请多关照
begin
if opendialog1.Execute then
mediaplayer1.FileName:=opendialog1.FileName;
mediaplayer1.PaintTo(panel1.Handle,0,0);
mediaplayer1.Open;
end;
如上代码运行得到如下提示Project Project1.exe raised exception class EAccessviolation with message'
Access violation at address 00BD3873. Write of address 5C00BD1B'
并且错误指在mediaplayer1.Open;这一行
有时还会提示什么MCI什么什么的,小弟是新手请多关照
直接设置mediaplayer1的Panel[记不清了]属性为Panel1就可以了。procedure TForm1.Button1Click(Sender: TObject);
begin
mediaplayer1.panel := Panel1;
if opendialog1.Execute then
mediaplayer1.FileName:=opendialog1.FileName;
mediaplayer1.Open;
mediaplayer1.Play;
end;