Welcome To The Home Of The Visual FoxPro Experts  
home. signup. forum. archives. search. google. articles. downloads. faq. members. weblogs. file info. rss.
 From: Koen Piller
  Where is Koen Piller?
 Santpoort-Zuid
 Netherlands
 Koen Piller
 To: Borislav Borissov
  Where is Borislav Borissov?
 Sofia
 Bulgaria
 Borislav Borissov
 Tags
Subject: RE: save URL
Thread ID: 104571 Message ID: 104740 # Views: 1 # Ratings: 0
Version: Visual FoxPro 9 Category: Win32API programming
Date: Sunday, August 20, 2006 8:43:32 AM         
   


Hi Boris,

Very good your solution gives me the URL into a variable however still I will only get the intial URL and not the last URL.
Dp you have any idea where/at what moment I should put this 'waiting procedure'?
if lGoOn = .t.
	public lcNewURL
	public oBrowser
	oBrowser = createobject("internetexplorer.application")
	oBrowser.navigate(tcUrl)
	oBrowser.visible = .t.
endif
ldDT = DATETIME()
DO WHILE oBrowser.ReadyState < 4 AND DATETIME() - ldDT < 30 && (30 secs timeout)
	DOEVENTS
ENDDO
lcNewURL=oBrowser.LocationURL
ThisForm.URL = lcNewURL
wait window ThisForm.URL      &&just for debugging purpose



Thanks for replying.

Koen

> You must wait untill oBrowser complete loading the page:
>
> oBrowser.navigate(tcUrl)
> ldDT = DATETIME()
> DO WHILE oBrowser.ReadyState < 4 AND DATETIME() - ldDT < 30 && (30 secs timeout)
>    DOEVENTS
> ENDDO
> ....
> 

>
> > Mike,
> > this was also experimented however the ThisForm.Url property remains `` which can also be observed in the debugger.
> > Koen
> > > Try adding a property in the form and store the value there. Before closing Internet Explorer.
> > >
if lGoOn = .t.
> > >  		public lcNewURL
> > >  		public oBrowser
> > >  		oBrowser = createobject("internetexplorer.application")
> > >  		oBrowser.navigate(tcUrl)
> > >  		oBrowser.visible = .t.
> > >  		thisform.Url=oBrowser.LocationURL
> > > endif
> > > 

> > >
> > > > > Can you explain how you are using this variable? Or how you are using internet explorer? Are you within Foxpro? You are probably better using the web browser activex on a form, and store the LocationURL in a property of the form. Or make internet explore a part of your main screen.
> > > > > Public oform1
> > > > > oform1=Newobject("form1")
> > > > > oform1.Show
> > > > > Return
> > > > > Define Class form1 As Form
> > > > > Top = 0
> > > > > Left = 0
> > > > > Height = 443
> > > > > Width = 624
> > > > > DoCreate = .T.
> > > >
> > > > Mike,
> > > >
> > > > I have a simple address control form, with address, postalcode etc fields and a cmdGoUrl
> > > > the cmdGoURL.click simple coding like
> > > > [vfp]
> > > > with thisform.PageFrame1.Page3
> > > > lcStart_ZIP = "1012KK"
> > > > lcStart_ADDRESS = "Rokin"
> > > > lcStart_CITY = "Amsterdam"
> > > > lcDestination_ADDRESS = alltrim(.cAddress.value)
> > > > lcDestination_ZIP = alltrim(.cPostalCode.value)
> > > > lcDestination_CITY = alltrim(.cCity.value)
> > > > if !empty(lcDestination_ADDRESS) and !empty(lcDestination_ZIP) and !empty(lcDestination_CITY)
> > > > lGoOn = .t.
> > > > endif
> > > >
> > > > cUrl = "http://maps.msn.nl/(fod04h45plkqt1452pedqs45)/DirectionsFind.aspx?"+;
> > > > "strt1=" + lcStart_ADDRESS+;
> > > > "&zipc1=" + lcStart_ZIP+;
> > > > "&city1=" + lcStart_CITY+;
> > > > "&strt2=" + lcDestination_ADDRESS+;
> > > > "&zipc2=" + lcDestination_ZIP+;
> > > > "&city2=" + lcDestination_CITY+;
> > > > "&stnm1=" +;
> > > > "&cnty1=12" +;
> > > > "&stnm2=" +;
> > > > "&cnty2=12" +;
> > > > "&src=GM"
> > > > tcUrl=cUrl
> > > > if lGoOn = .t.
> > > > public lcNewURL
> > > > public oBrowser
> > > > oBrowser = createobject("internetexplorer.application")
> > > > oBrowser.navigate(tcUrl)
> > > > oBrowser.visible = .t.
> > > > lcNewURL=oBrowser.LocationURL
> > > > endif
> > > > wait window lcNewURL &&just for debugging purpose
> > > >
> > > > endwith
> > > > [/vfp]
> > > > as you can see the

>
>
>
> Borislav Borissov
>
>


ENTIRE THREAD

save URL Posted by Koen Piller @ 8/17/2006 6:11:00 PM
RE: save URL Posted by Mike Gagnon @ 8/17/2006 7:36:47 PM
RE: save URL Posted by Koen Piller @ 8/17/2006 10:07:25 PM
RE: save URL Posted by Mike Gagnon @ 8/18/2006 12:00:16 PM
RE: save URL Posted by Koen Piller @ 8/18/2006 2:18:11 PM
RE: save URL Posted by Mike Gagnon @ 8/19/2006 12:55:36 PM
RE: save URL Posted by Koen Piller @ 8/19/2006 6:12:19 PM
RE: save URL Posted by Mike Gagnon @ 8/19/2006 6:33:36 PM
RE: save URL Posted by Koen Piller @ 8/20/2006 1:03:13 AM
RE: save URL Posted by Borislav Borissov @ 8/20/2006 7:56:46 AM
RE: save URL Posted by Koen Piller @ 8/20/2006 8:43:32 AM
RE: save URL Posted by Borislav Borissov @ 8/20/2006 12:18:45 PM
RE: save URL Posted by Koen Piller @ 8/20/2006 1:14:42 PM
RE: save URL Posted by Borislav Borissov @ 8/20/2006 2:50:33 PM
RE: save URL Posted by Koen Piller @ 8/20/2006 3:53:04 PM
RE: save URL Posted by Borislav Borissov @ 8/20/2006 5:40:43 PM
RE: save URL Posted by Koen Piller @ 8/20/2006 5:58:09 PM
RE: save URL Posted by Borislav Borissov @ 8/20/2006 6:07:20 PM
RE: save URL Posted by Koen Piller @ 8/20/2006 6:45:10 PM
RE: save URL Posted by Borislav Borissov @ 8/20/2006 6:53:50 PM