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

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

Postby NK » Tue Nov 21, 2006 11:31 am

Hello

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

Code: Select all  Expand view  RUN
         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
User avatar
NK
 
Posts: 97
Joined: Sun Nov 20, 2005 4:32 pm
Location: Germany

Postby Rochinha » Tue Nov 21, 2006 3:39 pm

Amiguinho

É possivel sim:

Code: Select all  Expand view  RUN
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
Rochinha
 
Posts: 310
Joined: Sun Jan 08, 2006 10:09 pm
Location: Brasil - Sao Paulo

Postby NK » Tue Nov 21, 2006 5:41 pm

Rochinha wrote:Amiguinho

É possivel sim:

Code: Select all  Expand view  RUN
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  RUN
        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  RUN
        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
User avatar
NK
 
Posts: 97
Joined: Sun Nov 20, 2005 4:32 pm
Location: Germany

Postby Rochinha » Wed Nov 22, 2006 1:22 am

Amiguinho

Look this

This works fine

Code: Select all  Expand view  RUN
#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
Rochinha
 
Posts: 310
Joined: Sun Jan 08, 2006 10:09 pm
Location: Brasil - Sao Paulo

Postby NK » Wed Nov 22, 2006 1:45 pm

Rochinha wrote:Amiguinho

Look this

This works fine

Code: Select all  Expand view  RUN
#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:
Image

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
User avatar
NK
 
Posts: 97
Joined: Sun Nov 20, 2005 4:32 pm
Location: Germany

Postby Rochinha » Thu Nov 23, 2006 3:24 am

Amiguinho

I understand now. External file is your best way.

Bye
Rochinha
 
Posts: 310
Joined: Sun Jan 08, 2006 10:09 pm
Location: Brasil - Sao Paulo


Return to FiveWin for Harbour/xHarbour

Who is online

Users browsing this forum: Google [Bot] and 53 guests