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: 104754 # Views: 1 # Ratings: 0
Version: Visual FoxPro 9 Category: Win32API programming
Date: Sunday, August 20, 2006 3:53:04 PM         
   


Boris,
I changed my plan since your code, although it looks very impressive I do admit, needs (for me) a lot of debugging to see which of the presented procedures are needed for my purpose - get the latest visited URL -
at this time, this class gives me the lot of all the functions, I will have to start to find out how to change it so it will accept my initial URL and than I shall have to figure out which of the definitions will give me the answer (what is the last visited URL?). My form is not to be changed and there are no objects in this respect expect the 3 parameters for destination and 3 parameters for starting point. If you would like I could zip you a working extract of myForm.
Right now I believe I am almost done with an alternative inbetween form to save the last page, not exactly the real last page but the last page the user keyes in - any input mistakes: garbadge in = garbagde out.
Koen


> Why? I change your code only becuase I don't have the form and don't have its objects. You can return to your code and intercept all changes of URL in event handler.
>
>
>
> > Boris,
> > Looks impressive but does not serve my purpose on top of that now I cannot easily pass my destination into the URL anymore. I shall have to drop the idea and concentrate on a Nice-easy-to-use-input-box for the starting URL. Thanks for support.
> > Koen
> >
> > > Koen, try this:
> > >
> > > CLEAR
> > > lcStart_ZIP = "1012KK"
> > > lcStart_ADDRESS = "Rokin"
> > > lcStart_CITY = "Amsterdam"
> > > STORE [] TO lcDestination_ADDRESS,;
> > >             lcDestination_ZIP,;
> > >             lcDestination_CITY
> > > 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")
> > > x=NEWOBJECT("myclass")
> > > EVENTHANDLER(obrowser,x)
> > > 
> > > oBrowser.navigate(tcUrl)
> > > oBrowser.visible = .t.
> > > ldDT = DATETIME()
> > > DO WHILE oBrowser.ReadyState < 4 AND DATETIME() - ldDT < 30 && (30 secs timeout)
> > >     DOEVENTS
> > > ENDDO
> > > 
> > > DO WHILE TYPE([oBrowser.Name]) == [C] && Wait untill user close IE
> > >     DOEVENTS
> > > ENDDO
> > > 
> > > 
> > > 
> > > DEFINE CLASS myclass AS session OLEPUBLIC
> > > 
> > >     IMPLEMENTS DWebBrowserEvents2 IN "c:\windows\system32\shdocvw.dll"
> > > 
> > >     PROCEDURE DWebBrowserEvents2_StatusTextChange(Text AS STRING) AS VOID;
> > >                  HELPSTRING "Statusbar text changed."
> > >     * add user code here
> > >     ENDPROC
> > > 
> > >     PROCEDURE DWebBrowserEvents2_ProgressChange(Progress AS Number, ProgressMax AS Number) AS VOID;
> > >                  HELPSTRING "Fired when download progress is updated."
> > >     * add user code here
> > >     ENDPROC
> > > 
> > >     PROCEDURE DWebBrowserEvents2_CommandStateChange(Command AS Number, Enable AS LOGICAL) AS VOID;
> > >                  HELPSTRING "The enabled state of a command changed."
> > >     * add user code here
> > >     ENDPROC
> > > 
> > >     PROCEDURE DWebBrowserEvents2_DownloadBegin() AS VOID;
> > >                  HELPSTRING "Download of a page started."
> > >     * add user code here
> > >     ENDPROC
> > > 
> > >     PROCEDURE DWebBrowserEvents2_DownloadComplete() AS VOID;
> > >                  HELPSTRING "Download of page complete."
> > >     * add user code here
> > >     ENDPROC
> > > 
> > >     PROCEDURE DWebBrowserEvents2_TitleChange(Text AS STRING) AS VOID;
> > >                  HELPSTRING "Document title changed."
> > >     * add user code here
> > >     ENDPROC
> > > 
> > >     PROCEDURE DWebBrowserEvents2_PropertyChange(szProperty AS STRING) AS VOID;
> > >                  HELPSTRING "Fired when the PutProperty method has been called."
> > >     * add user code here
> > >     ENDPROC
> > > 
> > >     PROCEDURE DWebBrowserEvents2_BeforeNavigate2(pDisp AS VARIANT, URL AS VARIANT, Flags AS VARIANT, TargetFrameName AS VARIANT, PostData AS VARIANT, Headers AS VARIANT, Cancel AS LOGICAL @) AS VOID;
> > >                  HELPSTRING "Fired before navigate occurs in the given WebBrowser (window or frameset element). The processing of this navigation may be modified."
> > >     * add user code here
> > >     ? [DWebBrowserEvents2_BeforeNavigate2],url
> > >     ENDPROC
> > > 
> > >     PROCEDURE DWebBrowserEvents2_NewWindow2(ppDisp AS VARIANT @, Cancel AS LOGICAL @) AS VOID;
> > >                  HELPSTRING "A new, hidden, non-navigated WebBrowser window is needed."
> > >     * add user code here
> > >     ENDPROC
> > > 
> > >     PROCEDURE DWebBrowserEvents2_NavigateComplete2(pDisp AS VARIANT, URL AS VARIANT) AS VOID;
> > >                  HELPSTRING "Fired when the document being navigated to becomes visible and enters the navigation stack."
> > >     * add user code here
> > >     ? [DWebBrowserEvents2_NavigateComplete2],url
> > >     ENDPROC
> > > 
> > >     PROCEDURE DWebBrowserEvents2_DocumentComplete(pDisp AS VARIANT, URL AS VARIANT) AS VOID;
> > >                  HELPSTRING "Fired when the document being navigated to reaches ReadyState_Complete."
> > >     * add user code here
> > >     ?[DWebBrowserEvents2_DocumentComplete],url
> > >     ENDPROC
> > > 
> > >     PROCEDURE DWebBrowserEvents2_OnQuit() AS VOID;
> > >                  HELPSTRING "Fired when application is quiting."
> > >     * add user code here
> > >     ENDPROC
> > > 
> > >     PROCEDURE DWebBrowserEvents2_OnVisible(Visible AS LOGICAL) AS VOID;
> > >                  HELPSTRING "Fired when the window should be shown/hidden"
> > >     * add user code here
> > >     ENDPROC
> > > 
> > >     PROCEDURE DWebBrowserEvents2_OnToolBar(ToolBar AS LOGICAL) AS VOID;
> > >                  HELPSTRING "Fired when the toolbar  should be shown/hidden"
> > >     * add user code here
> > >     ENDPROC
> > > 
> > >     PROCEDURE DWebBrowserEvents2_OnMenuBar(MenuBar AS LOGICAL) AS VOID;
> > >                  HELPSTRING "Fired when the menubar should be shown/hidden"
> > >     * add user code here
> > >     ENDPROC
> > > 
> > >     PROCEDURE DWebBrowserEvents2_OnStatusBar(StatusBar AS LOGICAL) AS VOID;
> > >                  HELPSTRING "Fired when the statusbar should be shown/hidden"
> > >     * add user code here
> > >     ENDPROC
> > > 
> > >     PROCEDURE DWebBrowserEvents2_OnFullScreen(FullScreen AS LOGICAL) AS VOID;
> > >                  HELPSTRING "Fired when fullscreen mode should be on/off"
> > >     * add user code here
> > >     ENDPROC
> > > 
> > >     PROCEDURE DWebBrowserEvents2_OnTheaterMode(TheaterMode AS LOGICAL) AS VOID;
> > >                  HELPSTRING "Fired when theater mode should be on/off"
> > >     * add user code here
> > >     ENDPROC
> > > 
> > >     PROCEDURE DWebBrowserEvents2_WindowSetResizable(Resizable AS LOGICAL) AS VOID;
> > >                  HELPSTRING "Fired when the host window should allow/disallow resizing"
> > >     * add user code here
> > >     ENDPROC
> > > 
> > >     PROCEDURE DWebBrowserEvents2_WindowSetLeft(Left AS Number) AS VOID;
> > >                  HELPSTRING "Fired when the host window should change its Left coordinate"
> > >     * add user code here
> > >     ENDPROC
> > > 
> > >     PROCEDURE DWebBrowserEvents2_WindowSetTop(Top AS Number) AS VOID;
> > >                  HELPSTRING "Fired when the host window should change its Top coordinate"
> > >     * add user code here
> > >     ENDPROC
> > > 
> > >     PROCEDURE DWebBrowserEvents2_WindowSetWidth(Width AS Number) AS VOID;
> > >                  HELPSTRING "Fired when the host window should change its width"
> > >     * add user code here
> > >     ENDPROC
> > > 
> > >     PROCEDURE DWebBrowserEvents2_WindowSetHeight(Height AS Number) AS VOID;
> > >                  HELPSTRING "Fired when the host window should change its height"
> > >     * add user code here
> > >     ENDPROC
> > > 
> > >     PROCEDURE DWebBrowserEvents2_WindowClosing(IsChildWindow AS LOGICAL, Cancel AS LOGICAL @) AS VOID;
> > >                  HELPSTRING "Fired when the WebBrowser is about to be closed by script"
> > >     * add user code here
> > >     ENDPROC
> > > 
> > >     PROCEDURE DWebBrowserEvents2_ClientToHostWindow(CX AS Number @, CY AS Number @) AS VOID;
> > >                  HELPSTRING "Fired to request client sizes be converted to host window sizes"
> > >     * add user code here
> > >     ENDPROC
> > > 
> > >     PROCEDURE DWebBrowserEvents2_SetSecureLockIcon(SecureLockIcon AS Number) AS VOID;
> > >                  HELPSTRING "Fired to indicate the security level of the current web page contents"
> > >     * add user code here
> > >     ENDPROC
> > > 
> > >     PROCEDURE DWebBrowserEvents2_FileDownload(Cancel AS LOGICAL @, test) AS VOID;
> > >                  HELPSTRING "Fired to indicate the File Download dialog is opening"
> > >     * add user code here
> > >     ENDPROC
> > > 
> > >     PROCEDURE DWebBrowserEvents2_NavigateError(pDisp AS VARIANT, URL AS VARIANT, Frame AS VARIANT, StatusCode AS VARIANT, Cancel AS LOGICAL @) AS VOID;
> > >                  HELPSTRING "Fired when a binding error occurs (window or frameset element)."
> > >     * add user code here
> > >     ENDPROC
> > > 
> > >     PROCEDURE DWebBrowserEvents2_PrintTemplateInstantiation(pDisp AS VARIANT) AS VOID;
> > >                  HELPSTRING "Fired when a print template is instantiated."
> > >     * add user code here
> > >     ENDPROC
> > > 
> > >     PROCEDURE DWebBrowserEvents2_PrintTemplateTeardown(pDisp AS VARIANT) AS VOID;
> > >                  HELPSTRING "Fired when a print template destroyed."
> > >     * add user code here
> > >     ENDPROC
> > > 
> > >     PROCEDURE DWebBrowserEvents2_UpdatePageStatus(pDisp AS VARIANT, nPage AS VARIANT, fDone AS VARIANT) AS VOID;
> > >                  HELPSTRING "Fired when a page is spooled. When it is fired can be changed by a custom template."
> > >     * add user code here
> > >     ENDPROC
> > > 
> > >     PROCEDURE DWebBrowserEvents2_PrivacyImpactedStateChange(bImpacted AS LOGICAL) AS VOID;
> > >                  HELPSTRING "Fired when the global privacy impacted state changes"
> > >     * add user code here
> > >     ENDPROC
> > > 
> > >     PROCEDURE DWebBrowserEvents2_NewWindow3(ppDisp AS VARIANT @, Cancel AS LOGICAL @, dwFlags AS NUMBER, bstrUrlContext AS STRING, bstrUrl AS STRING) AS VOID;
> > >                  HELPSTRING "A new, hidden, non-navigated WebBrowser window is needed."
> > >     * add user code here
> > >     ENDPROC
> > > 
> > > ENDDEFINE
> > > 

> > > Borislav Borissov
> > >
> > >

>
>
>
> 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