Making-an-active-webpage-part-1


            This code example demonstrates how to make an active webpage using
Delphis Web-dispatcher. To run this example you'll need a Web-server. I recommend
Apache (Win 95, 98, ME, 2000, NT), OmniHttpD (Win 95, 98) or MicroSoft Personal WebServer. 
They are all freeware servers that seems to work fine. I'm using an Apache-server running on 
a 2000-machine. The important thing is that the server can handle CGI-scripts (most servers can). 
 
Well lets get into the subject. We're gonna make a simple name-input page. First we start with the
HTML-code for our inputform. It should look something like this:


CGITest


CGITest


;;;

































Name:  

Gender:  

Adress:  

ZIP:  

Town:  

Country:  






In a WebBrowser this code will look like this: 
The most important tags for this example to function is the FORM tags: 
 and 

All inputs made between these two tags, will be sent to the server and handled by the test.cgi code.Test.cgi is the response-code we're going to make with Delphi. 
Start Delphi and select File / New / Web Server Application. 
Select :CGI stand-alone executable and Delphi presents a WebModule for us to work with. 
Select: Project / Options / Application and write "cgi" into Target file extension. 
Select: Project / Options / Application / Directories/Conditionals and write your servers cgi-bin library into Output Directory 
Save the project as "test.dpr" 
First we're going to produce the input form: 
Put a Pageproducer from the palettegroup Internet on the WebModule, and paste the HTML-code above into the PageProducers HTMLDoc-property. 
 
The WebModule is a dispather, which can have several actions. Lets make the first action called: input .
Right-click on the WebModule and select: Action Editor 
Select: Add New 
Write: "/input" into the Action:s PathInfo - property 
Select: Events and double-click in the OnAction - Event 
This will put us in the code, and now we'll have to write something. In this event we just want to show the inputform to user. We'll use the PageProducer:s Content-property for this. The code would be:
Response.Content:= PageProducer1.Content;
Compile the code and test if it works. Put: "http:///cgi-bin/test.cgi/input" into your browser. 
Did it work ? At least it did for me. Well, lets continue with the other action named: "nametest".
Right-click on the WebModule and select: Action Editor 
Select: Add New 
Write: "/nametest" into the Action:s PathInfo - property 
Select: Events and double-click in the OnAction - Events 
Back in the actioncode again. Lets say we want the response to look like this: 
Your name is .
You are a .
Your address is:< address>
Time is: 
Who asked about time? - I just put it in to show you that this page is living. 
As you can see in the actions procedure declaration, there is an object called: Request. That's where the inputforms parameters could be found. Looking at: Request.ContentFields.Values['Text1'] for example, would return the users name. Well lets make the code:
Put another PageProducer on the WebModule 
Put this code into the action procedure: 
procedure TWebModule1.WebModule1WebActionItem2Action(Sender: TObject;
 Request: TWebRequest; Response: TWebResponse; var Handled: boolean);
var
 Name, Gender, Time: string;
 Address: TStringList;
begin
 Address:= TStringList.Create;
 try
 try
 // Extract the input-parameters from Request
 with Request.ContentFields do
 begin
 Name:= Values['Text1'];
 Gender:= Values['Select1'];
 Address.Add(Values['Text2'] + '
');
 Address.Add(Values['Text3'] + '
');
 Address.Add(Values['Text4'] + '
');
 Address.Add(Values['Text5'] + '

');
 Time:= DateTimeToStr(Now);
 end;
 // Make the header
 PageProducer2.HTMLDoc.Clear;
 PageProducer2.HTMLDoc.Add('CGITest' +
 'CGITest
' +
 '');
 // Make the response HTML
 PageProducer2.HTMLDoc.Add('

Your name is ' + Name +
 '
You are a ' + Gender + '
Your address is:
' + Address.Text +
 'Time is: ' + Time);
 // Make the footer
 PageProducer2.HTMLDoc.Add('');
 //Respond
 Response.Content:= PageProducer2.Content;
 except
 // If something went wrong, take care of it
 on E: Exception do
 Response.Content:= 'Error Message: ' + E.Message;
 end;
 finally
 Address.Free;
 end;
end;
Compile the code and test if it works. Put: "http:///cgi-bin/test.cgi/input" into your browser.
Examples Delphi
