Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Webbrowser control and Document HTML
Message
 
To
12/07/2006 08:26:12
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Environment versions
Visual FoxPro:
VFP 8 SP1
OS:
Windows XP SP2
Network:
Windows XP
Database:
Visual FoxPro
Miscellaneous
Thread ID:
01135641
Message ID:
01135647
Views:
11
Denis,

Probably you are talking about HTML Source. Then see if something like this will help (key combinations may vary across webbrowser versions, so check it manually first) :
DECLARE INTEGER FindWindow IN WIN32API ; 
	STRING lpclassname, STRING lpCaption 

lchtml=""
if oShell.AppActivate(oIE.Document.title)
	oShell.SendKeys("%Vc")	&&get source html to notepad
	WAIT WINDOW TIMEOUT 2.0 ""
	lhWnd = FindWindow("Notepad", 0)
	?lhWnd
	if lhWnd#0 AND SetActiveWindow(lhWnd)=0
		??"Activated"
		oShell.SendKeys("^+{END}^C")	&© to clipboard from notepad
		lchtml=_cliptext
		WAIT WINDOW TIMEOUT 2.0 ""
		oShell.SendKeys("%Fx")		&&close notepad
	endif
else
* .....
ENDIF
Other than that, there was a solution like:
*Anatoliy Mogylevets 
cRequest = "http://www.microsoft.com"
cTargetFile = 'c:\txt.txt'

IF DownloadRemote(cRequest, cTargetFile)
	MODI FILE (cTargetFile) NOWAIT
ENDIF

FUNCTION DownloadRemote(cRequest, cTargetFile)
	LOCAL lResult
	DECLARE INTEGER URLDownloadToFile IN urlmon;
		INTEGER, STRING, STRING, INTEGER, INTEGER
	WAIT WINDOW NOWAIT "Downloading remote file..."
	lResult = (URLDownloadToFile (0, cRequest, cTargetFile, 0,0) = 0)
	WAIT CLEAR

RETURN lResult
>Hello,
>Can you help me find the property for Webbrowser control which return complete html text?
>I looking for webbrowser.document.body.innerHTML - but its returns me only html after body tag.. but I need completed text.. header, scripts before body.. and so on
>
>Thanks
Previous
Reply
Map
View

Click here to load this message in the networking platform