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


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