hidrau
asked on
Run video youtube webbrowse
Hello guys
I tried this in my delphi X7, but it didn't work
I want to know if it works in your delphi, maybe I am having some troble with my delphi and TwebBrowse
http://stackoverflow.com/questions/3931487/is-there-any-other-way-to-view-youtube-video-on-delphi
thanks
Alex
I tried this in my delphi X7, but it didn't work
I want to know if it works in your delphi, maybe I am having some troble with my delphi and TwebBrowse
http://stackoverflow.com/questions/3931487/is-there-any-other-way-to-view-youtube-video-on-delphi
thanks
Alex
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
ASKER
it is strange because I can run youtube site and run some video from it when I load the youtube site, but I can load the video through that code.
If I load the youtube site this way: WebBrowser1.Navigate('www.youtube.com.br') it works :(
I am trying to understand what it could be
If I load the youtube site this way: WebBrowser1.Navigate('www.youtube.com.br') it works :(
I am trying to understand what it could be
Try to navigate the same code from a local html page.
Give a try to this just to see if it works this way (this example doesn't need activex)
Give a try to this just to see if it works this way (this example doesn't need activex)
procedure TForm1.Button2Click(Sender: TObject);
var
ls: TSTrings;
begin
WebBrowser1.Navigate('about:blank'); // reset the webbrowser
while WebBrowser1.ReadyState < READYSTATE_INTERACTIVE do // wait to load the empty page
Application.ProcessMessages;
if Assigned(WebBrowser1.Document) then
begin
ls := tstringlist.create;
try
ls.text := '<html> '+ '<head> '+ '</style> '+
' <style type="text/css">.recentcomments a{display:inline !important;padding:0 !important;margin:0 !important;}</style>'+ '</head> '+
'<body> '+ ' <object width="640" height="390"> '+
' <param name="movie" value="http://www.youtube.com/v/L7NWdxFAHdY&hl=en_US&feature=player_embedded&version=3"> '+
' </param><param name="allowFullScreen" value="true"> '+ ' </param><param name="allowScriptAccess" value="always"> '+
' </param><embed src="http://www.youtube.com/v/L7NWdxFAHdY&hl=en_US&feature=player_embedded&version=3" type="application/x-shockwave-flash" allowfullscreen="true" allowScriptAccess="always" width="640" height="390"> '+ ' </embed></object> '+ '</body> '+ '</html> ';
ls.savetofile('c:\loadwb.htm');
finally
ls.free;
end;
WebBrowser1.Navigate('file://c:\loadwb.htm');
end;
end;
ASKER
I noticed that the problem must be in IE, because I ran the code in IE and it didn't work but in Chrome, it worked fine.
As webbrowse works with IE, something wrong in my IE.
at the first time, the IE asks to allow the activex and even I allow it, the page doesn't open in my IE.
The version of my IE is 11
Just to finish the issue, could you send me the exe file so that I can test it here?
thanks again
As webbrowse works with IE, something wrong in my IE.
at the first time, the IE asks to allow the activex and even I allow it, the page doesn't open in my IE.
The version of my IE is 11
Just to finish the issue, could you send me the exe file so that I can test it here?
thanks again
Cannot upload an exe file here, but you could compile my test project attached hereWB.zip
ASKER
The problem is my computer, it works with yours and mine exe in other machine.
ASKER
thanks a lot for your help
Glad to have helped you
ASKER
thanks a lot for your reply and help.
I used your code but nothing was load in my webbrowse.
did you also use the html code that comes with that example?