delivered directly a HTML-code at the Shell.explorer ?

[NK]

Hello

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

Code: Select all  Expand view

         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]

Amiguinho

É possivel sim:

Code: Select all  Expand view

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


[NK]

Amiguinho

É possivel sim:

Code: Select all  Expand view

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

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

        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]

Amiguinho

Look this

This works fine

Code: Select all  Expand view

#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


[NK]

Amiguinho

Look this

This works fine

Code: Select all  Expand view

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

Amiguinho

I understand now. External file is your best way.

Bye