如何实现realaudio播放ftp:sizhuo.net/1.rm
解决方案 »
- 求fastreport 打印曲线的问题,试验好几天了,没成功,在线等,头疼啊
- 指针类型转换问题
- 自动打开菜单项
- Delphi中如何将数据库Sql server中的数据库备份、如何恢复出来?
- 怎样随机从数据库中读取一定数目的纪录?
- 如何可以检测到程序已经连到某个IP的数据库呢?
- 请教!表格字段排序的问题!!
- 如何实现16进制到10进制的转化,在线等待
- 用delphi编程与短信模块收发信息接收到的信息没有了,只收到发送方号码,怎么回事?
- 小妹?^_^?:捉虫::窗体只能show一次?
- 一个刚开的好论坛,希望大家去灌水呀!
- 请教在输入用户名及密码进行登录过程SQL服务器的时候,如何出现提示"正在登录"?
如果你的文件能打开那播放的方法有多种
Com能实现,DDE也能实现
最简单的方法就是
WinExec(pchar('C:\Program Files\Real\RealOne Player\realplay.exe C:\Program Files\Real\RealOne Player\videotest.rm'),sw_hide)把后面要播放的文件名换成你的URL就可以了To:IORILI(眼镜@_@)
怎么和AD一个样子了???@_@
密码的后台校验如何实现呢?
如果要播放,你只有先下载下来
比如用flashget
uses ddeman;
var
dde: TDdeClientConv;
begin
dde := TDdeClientConv.Create(nil);
with dde do
begin
ServiceApplication := 'C:\Program Files\FlashGet\flashget';
SetLink('flashget','WWW_ACTIVATE');
RequestData('0xFFFFFFFF');
SetLink('flashget','WWW_OPENURL');
RequestData('ftp://user:[email protected]/videoname.rm,,0xFFFFFFFF,0x3,,,');
CloseLink;
end;
dde.Free;
end;
然后去调用realplay去播放