Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Showing info from Internet
Message
Information générale
Forum:
Visual FoxPro
Catégorie:
Autre
Versions des environnements
Visual FoxPro:
VFP 9 SP2
Divers
Thread ID:
01497611
Message ID:
01497613
Vues:
102
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
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform