FWH Class TWebServer example

[Antonio Linares]

In this example you can see how easily you can serve web pages from your own FWH app!

webserv1.prg

Code: Select all  Expand view

#include "FiveWin.ch"

function Main()

   local oWnd
   
   DEFINE WINDOW oWnd TITLE "FWH Class TWebServer example"

   ACTIVATE WINDOW oWnd ICONIZED ;
      ON INIT BuildServer()
   
return nil  

function BuildServer()

   local oWebServer := TWebServer():New()

   oWebServer:lDebug = .T.
   oWebServer:cLogFile = "weblog.txt"

   oWebServer:Activate()

   oWebServer:Explore()  // launches your internet navigator

return nil

When you run it, your internet navigator will be automatically shown:

[Enrico Maria Giordano]

Wonderful! But... it doesn't work here.

It only creates an iconized windows and then nothing else. I try to manually launch IE and go to locahost but it only opens two Microsoft pages containing some information about IIS.

What am I missing?

EMG

[Antonio Linares]

Enrico,

This change is required in FWH Class TWebServer:

Code: Select all  Expand view

  METHOD Explore( cHtmlFile ) INLINE cHtmlFile := If( cHtmlFile == nil,;
             ::cDefPage, cHtmlFile ),;
             ShellExecute( 0, 'Open', "http://localhost/" + cHtmlFile )

I forgot to say it, sorry

[Antonio Linares]

Serving a pulldown menu:

(EXE and full source code included):
http://code.google.com/p/fivewin-contributions/downloads/detail?name=webserv1.zop&can=2&q=

[Antonio Linares]

Executing an action:



In default.htm change:

Code: Select all  Expand view

  <ul>
      <li>
         Edit
         <ul>
              <li>Cut</li>
              <a href="#" onclick="alert('Copy')"><li>Copy</li></a>
              <li>Paste</li>
         </ul>
      </li> 
   </ul>   
 

In styles.css add:

Code: Select all  Expand view

#menu ul ul a
{
   text-decoration: none;
}

Next: Routing the event to our EXE...