找回密码
 加入
搜索
查看: 3241|回复: 7

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

[复制链接]
发表于 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
 楼主| 发表于 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
发表于 2008-7-18 18:39:43 | 显示全部楼层
你的代码是调用WMPlayer.OCX来播放音乐的,不知与缩放图像有什么关系?
 楼主| 发表于 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
 楼主| 发表于 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>

网页可以缩放大小
 楼主| 发表于 2008-7-19 22:07:59 | 显示全部楼层
顶下,等待高手解决
发表于 2008-7-19 23:27:53 | 显示全部楼层
缩放保存好说,缩放显示没研究过
 楼主| 发表于 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
您需要登录后才可以回帖 登录 | 加入

本版积分规则

QQ|手机版|小黑屋|AUTOIT CN ( 鲁ICP备19019924号-1 )谷歌 百度

GMT+8, 2024-3-28 21:36 , Processed in 0.076337 second(s), 23 queries .

Powered by Discuz! X3.5 Licensed

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表