让视频自动适配窗口宽高 [复制链接]

如图怎么解决上面黑框，让视频自动适配窗口宽高

视频自动适配和宽高之后，视频可能会被拉伸，影响观感；要消除黑边，应该改变你窗口的客户区，符合视频的自然纵横比（通过参数GetConfig(203)获取）。

aplayer:视频自动适配和宽高之后，视频可能会被拉伸，影响观感；要消除黑边，应该改变你窗口的客户区，符合视频的自然纵横比（通过参数GetConfig(203)获取）。 (2018-08-23 15:47) 

7633868   返回这串数字是这么意思？

返回的是字符串，不是整数。

.版本 2

.子程序 窗口适应视频尺寸

.如果 (获取当前文件宽度 (aplayer) ＞ 取屏幕宽度 ())
    启动窗口.移动 (, , 取屏幕宽度 (), 获取当前文件高度 (aplayer) ÷ (获取当前文件宽度 (aplayer) ÷ 启动窗口.宽度))
.否则
    启动窗口.移动 (, , 获取当前文件宽度 (aplayer), 获取当前文件高度 (aplayer))
.如果结束
.如果 (获取当前文件高度 (aplayer) ＋ 60 ＞ 取屏幕高度 ())
    启动窗口.高度 ＝ 取屏幕高度 () － 60
    启动窗口.宽度 ＝ 获取当前文件宽度 (aplayer) ÷ (获取当前文件高度 (aplayer) ÷ 启动窗口.高度)
    ' _启动窗口.移动 (, , 获取当前文件宽度 (aplayer) ÷ (获取当前文件高度 (aplayer) ÷ _启动窗口.高度), 取屏幕高度 () － 60)
.否则
    启动窗口.移动 (, , 获取当前文件宽度 (aplayer), 获取当前文件高度 (aplayer))
.如果结束
.如果真 (获取当前文件宽度 (aplayer) ＜ 500)
    启动窗口.移动 (, , 750, )
.如果真结束
.如果真 (获取当前文件高度 (aplayer) ＜ 400)
    启动窗口.移动 (, , , 500)
.如果真结束

启动窗口.移动 (取屏幕宽度 () ÷ 2 － 启动窗口.宽度 ÷ 2, 取屏幕高度 () ÷ 2 － 启动窗口.高度 ÷ 2 － 60, , )
控制条窗口.移动 (启动窗口.左边, 启动窗口.顶边 ＋ 启动窗口.高度, 启动窗口.宽度, )
_______________________________________________________________________________________

.版本 2

.DLL命令 获取当前文件宽度, 整数型, "APlayerCaller.dll", "APlayer_GetVideoWidth"
    .参数 播放器, 整数型

.DLL命令 获取当前文件高度, 整数型, "APlayerCaller.dll", "APlayer_GetVideoHeight"
    .参数 播放器, 整数型

图片:QQ图片20180915191719.png

图片:QQ图片20180915191826.png