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: Mike Gagnon
  Where is Mike Gagnon?
 Pointe Claire
 Canada
 Mike Gagnon
 Tags
Subject: RE: save URL
Thread ID: 104571 Message ID: 104731 # Views: 1 # Ratings: 0
Version: Visual FoxPro 9 Category: Win32API programming
Date: Sunday, August 20, 2006 1:03:13 AM         
   


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


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