Board logo

标题: 请问DELPHI中,用MciSendString函数播放视频文件,如何得到视频窗体指定在OLE控件上? ... [打印本页]

作者: xiangxyx    时间: 2006-5-20 10:44     标题: 请问DELPHI中,用MciSendString函数播放视频文件,如何得到视频窗体指定在OLE控件上? ...

请问DELPHI中,用MciSendString函数播放视频文件,如何得到视频窗体指定在OLE控件上?这代码错在哪?
      cmd := 'window ' + myMusic + ' handle ' + pchar(OLE);
    fplay := mcisendstring(pchar(cmd), nil, 0, 0);

      cmd := 'put ' + Mymusic + ' destination at ' + Trim(IntToStr(0)) + ' ' + Trim(IntToStr(0)) + ' ' + Trim(IntToStr(OLE.Width)) + ' ' + Trim(IntToStr(OLE.Height));
    fplay := mcisendstring(pchar(cmd), nil, 0, 0);
作者: Nothing    时间: 2006-5-20 11:54

播放的时候指定窗口或OLE控件的hWnd
使用如用下面的MCI命令
open  文件名  type MPEGVideo alias 播放名字 parent  指定的hWnd  style child
作者: Nothing    时间: 2006-5-21 11:57

你用的Windows命令是没有任何作用的。
你先用我上面的命令打开,打能使用PUT命令指定窗口的大小。
作者: xiangxyx    时间: 2006-5-22 21:59

procedure TForm1.Button1Click(Sender: TObject);
var
  typeDevice : String;
  Hwnds : String;
Const
  WS_CHILD = '1073741824';
begin
  typeDevice := 'MPEGVideo';
  if opendlg.Execute then
  begin
    myMusic := 'myMusic';
    lbox.Items := opendlg.Files;
    lbox.ItemIndex := 0;
    pfile := lbox.Items[lbox.itemindex];
    Str(OleWnd.Handle,Hwnds);
      cmd := 'close ' + myMusic;
    fplay := mcisendstring(pchar(cmd), '', 0, 0);

      cmd := 'open ' + pfile + ' type ' + typeDevice + ' Alias ' + myMusic + ' parent ' + hwnds + ' Style ' + WS_CHILD + ' shareable';
    fplay := mciSendString(pchar(cmd), '', 0, 0);

      cmd := 'put ' + Mymusic + ' destination at ' + Trim(IntToStr(0)) + ' ' + Trim(IntToStr(0)) + ' ' + Trim(IntToStr(Olewnd.ClientWidth)) + ' ' + Trim(IntToStr(OleWnd.ClientHeight));
    fplay := mcisendstring(pchar(cmd), nil, 0, 0);

      cmd := 'play ' + myMusic;
    fplay := mcisendstring(pchar(cmd), '', 0, 0);
    if fplay <> 0 then
      showmessage('error');
  end;
end;

呵,行了。。。




欢迎光临 编程开发论坛 (http://bbs.lihuasoft.net/) Powered by Discuz! 6.0.0