Welcome To The Home Of The Visual FoxPro Experts  
home. signup. forum. archives. search. google. articles. downloads. faq. members. weblogs. file info. rss.
 From: Mike Gagnon
  Where is Mike Gagnon?
 Pointe Claire
 Canada
 Mike Gagnon
 To: Koen Piller
  Where is Koen Piller?
 Santpoort-Zuid
 Netherlands
 Koen Piller
 Tags
Subject: RE: save URL
Thread ID: 104571 Message ID: 104716 # Views: 2 # Ratings: 0
Version: Visual FoxPro 9 Category: Win32API programming
Date: Saturday, August 19, 2006 6:33:36 PM         
   


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