因为用的是DELPHI7.0自带的INTRAWEB做的网页,需要加入视频播放功能,而INTRAWEB又没有自带的IWMEDIAPLAYER网页上有一个IWRECTANGLE,网页运行没有问题,对应文件路径也有视频文件,但是IWRECTANGLE中就是没有视频显示,只在左上角显示个叉叉,大家帮我看看代码有什么问题:非常感谢~!function playavi(ifile:string):string;
begin
result:='<p><object id=mediaplayer1 height=400 width=450 classid=clsid:4803AC82-2C02-4DBB-9364-BEC2BF36E175>'+
'<PARAM NAME=''URL'' value='''+trim(ifile)+'''> '+
'<PARAM NAME=''Audiostream'' value=''-1''> '+
'<PARAM NAME=''autosize'' value=''0''> '+
'<PARAM NAME=''autostart'' value=''-1''> '+
'<PARAM NAME=''animationatstart'' value=''-1''>'+
'<PARAM NAME=''allowscan'' value=''-1''>'+
'<PARAM NAME=''allowchangedisplaysize'' value=''-1''>'+
'<PARAM NAME=''autorewind'' value=''0''> '+
'<PARAM NAME=''balance'' value=''0''> '+
'<PARAM NAME=''baseurl'' value=''''> '+
'<PARAM NAME=''bufferingtime'' value=''5''> '+
'<PARAM NAME=''captioningid'' value=''''> '+
'<PARAM NAME=''clicktoplay'' value=''-1''> '+
'<PARAM NAME=''cursortype'' value=''0''> '+
'<PARAM NAME=''currentposition'' value=''-1''> '+
'<PARAM NAME=''currenter'' value=''0''> '+
'<PARAM NAME=''defaultframe'' value=''''> '+
'<PARAM NAME=''displaybackcolor'' value=''0''> '+
'<PARAM NAME=''displayforecolor'' value=''16777215''> '+
'<PARAM NAME=''displaymode'' value=''0''> '+
'<PARAM NAME=''displaysize'' value=''2''> '+
'<PARAM NAME=''enabled'' value=''-1''> '+
'<PARAM NAME=''enablecontextmenu'' value=''-1''> '+
'<PARAM NAME=''enablepositioncontrols'' value=''-1''> '+
'<PARAM NAME=''enablefullscreencontrols'' value=''0''> '+
'<PARAM NAME=''enabletracker'' value=''-1''> '+
//'<PARAM NAME=''filename'' value='''+midstr(trim(ifile),2,length(trim(ifile)))+'''> '+
//'<PARAM NAME=''filename'' value='''+trim(ifile)+'''> '+
'<PARAM NAME=''invokeurls'' value=''-1''> '+
'<PARAM NAME=''language'' value=''-1''> '+
'<PARAM NAME=''mute'' value=''0''> '+
'<PARAM NAME=''playcount'' value=''1''> '+
'<PARAM NAME=''previewmode'' value=''0''> '+
'<PARAM NAME=''rate'' value=''1''> '+
'<PARAM NAME=''samilang'' value=''''> '+
'<PARAM NAME=''samistyle'' value=''''> '+
'<PARAM NAME=''samifilename'' value=''''> '+
'<PARAM NAME=''selectionstart'' value=''-1''> '+
'<PARAM NAME=''selectionend'' value=''-1''> '+
'<PARAM NAME=''sendopenstatechangeevents'' value=''-1''> '+
'<PARAM NAME=''sendwarningevents'' value=''-1''> '+
'<PARAM NAME=''senderrorevents'' value=''-1''> '+
'<PARAM NAME=''sendkeyboardevents'' value=''0''> '+
'<PARAM NAME=''sendmouseclickevents'' value=''0''> '+
'<PARAM NAME=''sendmousemoveevents'' value=''0''> '+
'<PARAM NAME=''sendplaystatechangeevents'' value=''-1''> '+
'<PARAM NAME=''showcaptioning'' value=''0''> '+
'<PARAM NAME=''showcontrols'' value=''0''> '+
'<PARAM NAME=''showaudiocontrols'' value=''-1''> '+
'<PARAM NAME=''showdisplay'' value=''0''> '+
'<PARAM NAME=''showgotobar'' value=''0''> '+
'<PARAM NAME=''showpositioncontrols'' value=''-1''> '+
'<PARAM NAME=''showstatusbar'' value=''-1''> '+
'<PARAM NAME=''showtracker'' value=''-1''> '+
'<PARAM NAME=''transparentatstart'' value=''0''> '+
'<PARAM NAME=''videoborderwidth'' value=''0''> '+
'<PARAM NAME=''videobordercolor'' value=''0''> '+
'<PARAM NAME=''videoborder3d'' value=''0''> '+
'<PARAM NAME=''volume'' value=''-40''> '+
'<PARAM NAME=''windowless video'' value=''0''></object><p>';
end;procedure Tfrmaboutcorp.IWButton1Click(Sender: TObject);
begin
playfilm.Text := playavi('http://192.168.201.73/d/DSCF8208');
//playfilm.Text := playavi('D:\boatekweb\boatekweb\files\DSCF8208');
end;
点击按钮后没有视频播放。
begin
result:='<p><object id=mediaplayer1 height=400 width=450 classid=clsid:4803AC82-2C02-4DBB-9364-BEC2BF36E175>'+
'<PARAM NAME=''URL'' value='''+trim(ifile)+'''> '+
'<PARAM NAME=''Audiostream'' value=''-1''> '+
'<PARAM NAME=''autosize'' value=''0''> '+
'<PARAM NAME=''autostart'' value=''-1''> '+
'<PARAM NAME=''animationatstart'' value=''-1''>'+
'<PARAM NAME=''allowscan'' value=''-1''>'+
'<PARAM NAME=''allowchangedisplaysize'' value=''-1''>'+
'<PARAM NAME=''autorewind'' value=''0''> '+
'<PARAM NAME=''balance'' value=''0''> '+
'<PARAM NAME=''baseurl'' value=''''> '+
'<PARAM NAME=''bufferingtime'' value=''5''> '+
'<PARAM NAME=''captioningid'' value=''''> '+
'<PARAM NAME=''clicktoplay'' value=''-1''> '+
'<PARAM NAME=''cursortype'' value=''0''> '+
'<PARAM NAME=''currentposition'' value=''-1''> '+
'<PARAM NAME=''currenter'' value=''0''> '+
'<PARAM NAME=''defaultframe'' value=''''> '+
'<PARAM NAME=''displaybackcolor'' value=''0''> '+
'<PARAM NAME=''displayforecolor'' value=''16777215''> '+
'<PARAM NAME=''displaymode'' value=''0''> '+
'<PARAM NAME=''displaysize'' value=''2''> '+
'<PARAM NAME=''enabled'' value=''-1''> '+
'<PARAM NAME=''enablecontextmenu'' value=''-1''> '+
'<PARAM NAME=''enablepositioncontrols'' value=''-1''> '+
'<PARAM NAME=''enablefullscreencontrols'' value=''0''> '+
'<PARAM NAME=''enabletracker'' value=''-1''> '+
//'<PARAM NAME=''filename'' value='''+midstr(trim(ifile),2,length(trim(ifile)))+'''> '+
//'<PARAM NAME=''filename'' value='''+trim(ifile)+'''> '+
'<PARAM NAME=''invokeurls'' value=''-1''> '+
'<PARAM NAME=''language'' value=''-1''> '+
'<PARAM NAME=''mute'' value=''0''> '+
'<PARAM NAME=''playcount'' value=''1''> '+
'<PARAM NAME=''previewmode'' value=''0''> '+
'<PARAM NAME=''rate'' value=''1''> '+
'<PARAM NAME=''samilang'' value=''''> '+
'<PARAM NAME=''samistyle'' value=''''> '+
'<PARAM NAME=''samifilename'' value=''''> '+
'<PARAM NAME=''selectionstart'' value=''-1''> '+
'<PARAM NAME=''selectionend'' value=''-1''> '+
'<PARAM NAME=''sendopenstatechangeevents'' value=''-1''> '+
'<PARAM NAME=''sendwarningevents'' value=''-1''> '+
'<PARAM NAME=''senderrorevents'' value=''-1''> '+
'<PARAM NAME=''sendkeyboardevents'' value=''0''> '+
'<PARAM NAME=''sendmouseclickevents'' value=''0''> '+
'<PARAM NAME=''sendmousemoveevents'' value=''0''> '+
'<PARAM NAME=''sendplaystatechangeevents'' value=''-1''> '+
'<PARAM NAME=''showcaptioning'' value=''0''> '+
'<PARAM NAME=''showcontrols'' value=''0''> '+
'<PARAM NAME=''showaudiocontrols'' value=''-1''> '+
'<PARAM NAME=''showdisplay'' value=''0''> '+
'<PARAM NAME=''showgotobar'' value=''0''> '+
'<PARAM NAME=''showpositioncontrols'' value=''-1''> '+
'<PARAM NAME=''showstatusbar'' value=''-1''> '+
'<PARAM NAME=''showtracker'' value=''-1''> '+
'<PARAM NAME=''transparentatstart'' value=''0''> '+
'<PARAM NAME=''videoborderwidth'' value=''0''> '+
'<PARAM NAME=''videobordercolor'' value=''0''> '+
'<PARAM NAME=''videoborder3d'' value=''0''> '+
'<PARAM NAME=''volume'' value=''-40''> '+
'<PARAM NAME=''windowless video'' value=''0''></object><p>';
end;procedure Tfrmaboutcorp.IWButton1Click(Sender: TObject);
begin
playfilm.Text := playavi('http://192.168.201.73/d/DSCF8208');
//playfilm.Text := playavi('D:\boatekweb\boatekweb\files\DSCF8208');
end;
点击按钮后没有视频播放。
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货