Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Showing info from Internet
Message
General information
Forum:
Visual FoxPro
Category:
Other
Environment versions
Visual FoxPro:
VFP 9 SP2
Miscellaneous
Thread ID:
01497611
Message ID:
01497613
Views:
100
This message has been marked as a message which has helped to the initial question of the thread.
>Hi all
>I'd like to show inside my applications info from the Internet. For example Meteo or the news.
>How can I do ?
>
>Thanks
>Alessio
Use a web browser activex.
PUBLIC oform1

oform1=NEWOBJECT("form1")
oform1.Show
RETURN


DEFINE CLASS form1 AS form


	Top = 0
	Left = 0
	Height = 366
	Width = 664
	DoCreate = .T.
	Caption = "Form1"
	Name = "Form1"


	ADD OBJECT olecontrol1 AS olecontrol WITH ;
		Top = 24, ;
		Left = 48, ;
		Height = 324, ;
		Width = 564, ;
		Name = "Olecontrol1" ,;
		OleClass ="Shell.Explorer.2"
		


	PROCEDURE Load
		TEXT TO lcHTM noshow
		<html>
		<script src='http://voap.weather.com/weather/oap/USCO0038?
		template=LAWNH&par=null&unit=0&key=23b21baeda744bc2b22d51bf2ed5b2bd'>
		</script>
		</html>
		ENDTEXT
		STRTOFILE(lcHtm,"c:\temp\test.htm")
	ENDPROC


	PROCEDURE olecontrol1.Init
		this.navigate("c:\temp\test.htm")
	ENDPROC


ENDDEFINE
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform