FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexActive topicsAll discussionsLogin (GitHub)
Board index FiveWin for Harbour/xHarbour delivered directly a HTML-code at the Shell.explorer ?
NK
Posts: 97
Joined: Sun Nov 20, 2005 04:32 PM
delivered directly a HTML-code at the Shell.explorer ?
Posted: Tue Nov 21, 2006 11:31 AM
Hello

Is it possible, to delivered directly a HTML-code at the Shell.explorer ?

Code: Select all Collapse
         oActiveX = TActiveX():New( oDlg, "Shell.Explorer" )
         oActiveX:SetProp( "ToolBar", .T. )
         oActiveX:SetProp( "StatusBar", .T. )
         oActiveX:SetProp( "MenuBar", .T. )
         oActiveX:SetProp( "Visible", .T. )
         cHtmlCode := '<a href="http://www.wetter.com/home/extern/ex_search.php?ms=1&ss=1&sss=2&search=90562" target="_blank"><img src="http://www.wetter.com/home/woys/woys.php?,F,1,DEPLZ,90562" border="0" alt=""></a>'
 ?????????
         oDlg:oClient = oActiveX

Best Regards, Norbert
Rochinha
Posts: 310
Joined: Sun Jan 08, 2006 10:09 PM
delivered directly a HTML-code at the Shell.explorer ?
Posted: Tue Nov 21, 2006 03:39 PM
Amiguinho

É possivel sim:

Code: Select all Collapse
cURLHtml := [http://www.wetter.com/home/extern/ex_search.php?ms=1&ss=1&sss=2&search=90562" target="_blank"><img src="http://www.wetter.com/home/woys/woys.php?,F,1,DEPLZ,90562" border="0" alt=""></a>]
DEFINE WINDOW oWnd TITLE "FiveWin ActiveX Support" 
           oActiveX = TActiveX():New( oWnd, "Shell.Explorer.2" )
           oWnd:oClient = oActiveX
           oActiveX:Do("Navigate2",cURLHtml)
   ACTIVATE WINDOW oWnd
@braços :?)
fivolution@hotmail.com
http://www.5VOLUTION.com.br
NK
Posts: 97
Joined: Sun Nov 20, 2005 04:32 PM
delivered directly a HTML-code at the Shell.explorer ?
Posted: Tue Nov 21, 2006 05:41 PM
Rochinha wrote:Amiguinho

É possivel sim:

Code: Select all Collapse
cURLHtml := [http://www.wetter.com/home/extern/ex_search.php?ms=1&ss=1&sss=2&search=90562" target="_blank"><img src="http://www.wetter.com/home/woys/woys.php?,F,1,DEPLZ,90562" border="0" alt=""></a>]
DEFINE WINDOW oWnd TITLE "FiveWin ActiveX Support" 
           oActiveX = TActiveX():New( oWnd, "Shell.Explorer.2" )
           oWnd:oClient = oActiveX
           oActiveX:Do("Navigate2",cURLHtml)
   ACTIVATE WINDOW oWnd


Example 1 does not function
IExporer Message "Action interrupted was able to produce Internet Explorer no connection to the requested web page. Possibly it is temporarily not available."
e )

Code: Select all Collapse
        cLink := [<a href="http://www.wetter.com/home/extern/ex_search.php?ms=1&ss=1&sss=2&search=90562" target="_blank"><img src="http://www.wetter.com/home/woys/woys.php?,F,1,DEPLZ,90562" border="0" alt=""></a>]
        oActiveX = TActiveX():New( oDlg, "Shell.Explorer.2" )
        oDlg:oClient = oActiveX
        oActiveX:Do("Navigate2",cLink)


Example 2 works, but I would like to generate not each time a file.
e )

Code: Select all Collapse
        cLink := [<a href="http://www.wetter.com/home/extern/ex_search.php?ms=1&ss=1&sss=2&search=90562" target="_blank"><img src="http://www.wetter.com/home/woys/woys.php?,F,1,DEPLZ,90562" border="0" alt=""></a>]
        memowrite("C:\alpha-VIS\TEMP\x.html",cLink)

        oActiveX = TActiveX():New( oDlg, "Shell.Explorer" )
        oDlg:oClient = oActiveX
        cLinkFile := "file:///C:/alpha-vis/temp/x.html"
        oActiveX:DO( "Navigate", cLinkFile)


any other ideas ?

Regards, Norbert
Rochinha
Posts: 310
Joined: Sun Jan 08, 2006 10:09 PM
delivered directly a HTML-code at the Shell.explorer ?
Posted: Wed Nov 22, 2006 01:22 AM
Amiguinho

Look this

This works fine

Code: Select all Collapse
#include "fivewin.ch"

function main
cURLHtml := [http://www.wetter.com/home/extern/ex_search.php?ms=1&ss=1&sss=2&search=90562]
//" target="_blank"><img src="http://www.wetter.com/home/woys/woys.php?,F,1,DEPLZ,90562" border="0" alt=""></a>] 
DEFINE WINDOW oWnd TITLE "FiveWin ActiveX Support" 
       oActiveX = TActiveX():New( oWnd, "Shell.Explorer.2" ) 
       oWnd:oClient = oActiveX 
       oActiveX:Do("Navigate2",cURLHtml) 
ACTIVATE WINDOW oWnd
@braços :?)
fivolution@hotmail.com
http://www.5VOLUTION.com.br
NK
Posts: 97
Joined: Sun Nov 20, 2005 04:32 PM
delivered directly a HTML-code at the Shell.explorer ?
Posted: Wed Nov 22, 2006 01:45 PM
Rochinha wrote:Amiguinho

Look this

This works fine

Code: Select all Collapse
#include "fivewin.ch"

function main
cURLHtml := [http://www.wetter.com/home/extern/ex_search.php?ms=1&ss=1&sss=2&search=90562]
//" target="_blank"><img src="http://www.wetter.com/home/woys/woys.php?,F,1,DEPLZ,90562" border="0" alt=""></a>] 
DEFINE WINDOW oWnd TITLE "FiveWin ActiveX Support" 
       oActiveX = TActiveX():New( oWnd, "Shell.Explorer.2" ) 
       oWnd:oClient = oActiveX 
       oActiveX:Do("Navigate2",cURLHtml) 
ACTIVATE WINDOW oWnd


With the url alone it does go agrees naturally, the representation then simply.

Only with the URL:
http://www.alphasoft.de/test/bad.bmp

with full html-Code:


There is codes of different bidders for the own homepages. I would like to use that. Then I must would go simply the way over the external File.

Thank you very much for your aid.

Norbert
Rochinha
Posts: 310
Joined: Sun Jan 08, 2006 10:09 PM
delivered directly a HTML-code at the Shell.explorer ?
Posted: Thu Nov 23, 2006 03:24 AM

Amiguinho

I understand now. External file is your best way.

Bye

@braços :?)
fivolution@hotmail.com
http://www.5VOLUTION.com.br

Continue the discussion

Static archive · New replies & topics via GitHub Discussions