有什么办法能缩放图象吗？

yl2yj · 发表于 2008-7-18 12:27:32

找到个AU3调用 WMPlayer.OCX 的例子，想了好久也没办法缩放图象大小，找了很多资料，无解...

#include <GUIConstants.au3>
$x=ObjCreate("WMPlayer.OCX")

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("AForm1", 633, 454, 193, 115)
$sky=GUICtrlCreateObj($x, 100, 100,250,200)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

$x.uimode="none"
$x.url="1.wmv"
$x.Controls.play

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

EndSwitch
WEnd

yl2yj · 发表于 2008-7-18 18:36:54

找到的部分资料

URL: String; 指定媒体位置，本机或网络地址
uiMode:String; 播放器界面模式，可为Full, Mini, None, Invisible
playState:integer; 播放状态，1=停止，2=暂停，3=播放，6=正在缓冲，9=正在连接，10=准备就绪
enableContextMenu:Boolean; 启用/禁用右键菜单
fullScreen:boolean; 是否全屏显示
[controls] wmp.controls //播放器基本控制
controls.play; 播放
controls.pause; 暂停
controls.stop; 停止
controls.currentPosition:double; 当前进度
controls.currentPositionString:string; 当前进度，字符串格式。如“00:23”
controls.fastForward; 快进
controls.fastReverse; 快退
controls.next; 下一曲
controls.previous; 上一曲
[settings] wmp.settings //播放器基本设置
settings.volume:integer; 音量，0-100
settings.autoStart:Boolean; 是否自动播放
settings.mute:Boolean; 是否静音
settings.playCount:integer; 播放次数
[currentMedia] wmp.currentMedia //当前媒体属性
currentMedia.duration:double; 媒体总长度
currentMedia.durationString:string; 媒体总长度，字符串格式。如“03:24”
currentMedia.getItemInfo(const string); 获取当前媒体信息"Title"=媒体标题，"Author"=艺术家，"Copyright"=版权信息，"Description"=媒体内容描述，"Duration"=持续时间（秒），"FileSize"=文件大小，"FileType"=文件类型，"sourceURL"=原始地址
currentMedia.setItemInfo(const string); 通过属性名设置媒体信息
currentMedia.name:string; 同 currentMedia.getItemInfo("Title")
[currentPlaylist] wmp.currentPlaylist //当前播放列表属性
currentPlaylist.count:integer; 当前播放列表所包含媒体数
currentPlaylist.Item[integer]; 获取或设置指定项目媒体信息，其子属性同wmp.currentMedia

sanhen · 发表于 2008-7-18 18:39:43

你的代码是调用WMPlayer.OCX来播放音乐的，不知与缩放图像有什么关系？

yl2yj · 发表于 2008-7-19 09:32:14

可以用来播放流媒体，难到这个调用只能放音乐？

这个是找的其他相关参数
就是不知道怎么用。。。。。。。

MediaPlayer1.Play　　　　　　　　　　播放
MediaPlayer1.Stop　　　　　　　　　　停止
MediaPlayer1.Pause　　　　　　　　　暂停
MediaPlayer1.PlayCount　　　　　　　　文件播放次数
MediaPlayer1.AutoRewind　　　　　　　是否循环播放
MediaPlayer1.Balance　　　　　　　　　声道
MediaPlayer1.Volume　　　　　　　　　音量
MediaPlayer1.Mute　　　　　　　　　　静音
MediaPlayer1.EnableContextMenu　　　　是否允许在控件上点击鼠标右键时弹出快捷菜单
MediaPlayer1.AnimationAtStart　　　　是否在播放前先播放动画
MediaPlayer1.ShowControls　　　　　　是否显示控件工具栏
MediaPlayer1.ShowAudioControls　　　　是否显示声音控制按钮
MediaPlayer1.ShowDisplay　　　　　　　是否显示数据文件的相关信息
MediaPlayer1.ShowGotoBar　　　　　　　是否显示Goto栏
MediaPlayer1.ShowPositionControls　　是否显示位置调节按钮
MediaPlayer1.ShowStatusBar　　　　　　是否显示状态栏
MediaPlayer1.ShowTracker　　　　　　　是否显示进度条
MediaPlayer1.FastForward　　　　　　　快进
MediaPlayer1.FastReverse　　　　　　　快退
MediaPlayer1.Rate　　　　　　　　　　快进／快退速率
MediaPlayer1.AllowChangeDisplaySize　是否允许自由设置播放图象大小
MediaPlayer1.DisplaySize　　　　　　　设置播放图象大小
　　　　1-MpDefaultSize　　　　　　　　　原始大小
　　　　2-MpHalfSize　　　　　　　　　　原始大小的一半
　　　　3-MpDoubleSize　　　　　　　　　原始大小的两倍
　　　　4-MpFullScreen　　　　　　　　　全屏
　　　　5-MpOneSixteenthScreen　　　　　屏幕大小的1/16
　　　　6-MpOneFourthScreen　　　　　　　屏幕大小的1/4

yl2yj · 发表于 2008-7-19 15:47:47

网页引用方式

<HTML><HEAD></HEAD>
  <script src="script/cookie.js"></script>
  <SCRIPT LANGUAGE="JavaScript">
  var WMP7;
  try
  {          WMP7 = new ActiveXObject('WMPlayer.OCX');
  }catch(e)
  { alert('请安装微软媒体播放器9.0版本(Windows Media Player 9)!');
  self.location="download_wmp.php";
  window.resizeTo(500,200);
  }
  var player_width = 320; //宽度
  var player_height = 240; //高度
  var player_scale = player_height/player_width; //宽高比
  window.resizeTo(530,530*player_scale+105);
  var movie_id = '683';
  var movie_index = '0';
  var movie_title = '楚汉骄雄（国语30集完）第1集';
  var cookie_name = 'player_cookie';
  var movie_state = new Array();
  var movie_state_str;
  var cookie_array_length =3;
  var expiryDate = new Date();
  expiryDate.setTime(expiryDate.getTime() + 604800000);
  </script>

网页可以缩放大小

yl2yj · 发表于 2008-7-19 22:07:59

顶下，等待高手解决

kakinkgb · 发表于 2008-7-19 23:27:53

缩放保存好说,缩放显示没研究过

yl2yj · 发表于 2008-7-20 00:02:54

用VFP9  调用

Procedure MyPlayer(tcURL, tnDrive)
Local loError, loCD
If Vartype(tcURL)#"C" Or Empty(tcURL)
      * Sample URL
      tcURL = "http://radio.livephish.com:8000"
Endif
If Type("_SCREEN.oWMP")#"O"
      _Screen.AddObject("oWMP","WMPContainer")
      With _Screen.oWMP
         .Height = _Screen.Height
         .Width = _Screen.Width
         .Visible=.T.
      Endwith
Endif
If Upper(tcURL)=="CD"
      If tnDrive = -1
         Return
      Endif
      loCD = _Screen.oWMP.oleWMP.cdromCollection.Item(tnDrive)
      _Screen.oWMP.oleWMP.currentPlaylist = loCD.Playlist
Else
      _Screen.oWMP.oleWMP.url = tcURL
Endif
Endproc

		自动登录	找回密码
密码			加入

有什么办法能缩放图象吗？

相关帖子