home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue65 / construc / WebMod.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  2000-12-05  |  2.6 KB  |  82 lines
  1. unit WebMod;
  2. interface
  3. uses
  4.   Windows, Messages, SysUtils, Classes, HTTPApp, Db, DBTables, DBWeb,
  5.   twmlprod;
  6.  
  7. type
  8.   TWebModule1 = class(TWebModule)
  9.     WMLDataSetTableProducer1: TWMLDataSetTableProducer;
  10.     Table1: TTable;
  11.     procedure WebModule1WebActionItem1Action(Sender: TObject;
  12.       Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
  13.     procedure WebModule1WebActionItem2Action(Sender: TObject;
  14.       Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
  15.     procedure WebModule1WebActionItem3Action(Sender: TObject;
  16.       Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
  17.   private
  18.     { Private declarations }
  19.   public
  20.     { Public declarations }
  21.   end;
  22.  
  23. var
  24.   WebModule1: TWebModule1;
  25.  
  26. implementation
  27.  
  28. {$R *.DFM}
  29.  
  30. procedure TWebModule1.WebModule1WebActionItem1Action(Sender: TObject;
  31.   Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
  32. begin
  33.   Response.ContentType := 'text/vnd.wap.wml';
  34.   Response.Content := '<?xml version="1.0"?>'#13#10 +
  35.     '<!DOCTYPE wml PUBLIC ' +
  36.     '"-//WAPFORUM//DTD WML 1.1//EN" '+
  37.     '"http:///www.wapforum.org/DTD/wml_1.1.xml">'#13#10#13#10 +
  38.     '<wml>'#13#10 +
  39.     '<card id="Balance" title="Account Balance">'#13#10 +
  40.     '<p>'#13#10 +
  41.     '<table columns="2"><tr>' +
  42.     '<td><em>Account:<br/>Balance:</em></td><td>' +
  43.      Request.ContentFields.Values['Account'] + '<br/>' + 'xxxxx'#13#10 +
  44.     '</td></tr></table></p>'#13#10 +
  45.     '</card>'#13#10 +
  46.     '</wml>';
  47. end;
  48.  
  49. procedure TWebModule1.WebModule1WebActionItem2Action(Sender: TObject;
  50.   Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
  51. begin
  52.   Response.ContentType := 'text/vnd.wap.wml';
  53.   Response.Content := '<?xml version="1.0"?>'#13#10 +
  54.     '<!DOCTYPE wml PUBLIC ' +
  55.     '"-//WAPFORUM//DTD WML 1.1//EN" '+
  56.     '"http:///www.wapforum.org/DTD/wml_1.1.xml">'#13#10#13#10 +
  57.     '<wml>'#13#10 +
  58.     '<card id="DrBob42" title="DrBob42">'#13#10 +
  59.     '<p>'#13#10 +
  60.     '<img src="http://192.168.92.201/cgi-bin/tdm65.exe/image" alt="logo"/>' +
  61.     '</p>'#13#10'<p>' +
  62.      WMLDataSetTableProducer1.Content + #13#10 +
  63.     '</p>'#13#10 +
  64.     '</card>'#13#10 +
  65.     '</wml>';
  66. end;
  67.  
  68. procedure TWebModule1.WebModule1WebActionItem3Action(Sender: TObject;
  69.   Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
  70. var
  71.   ImageStream: TFileStream;
  72. begin
  73.   ImageStream := TFileStream.Create('d:\www\logo.wbmp', fmOpenRead);
  74.   ImageStream.Position := 0; // reset ImageStream
  75.   Response.ContentType := 'image/vnd.wap.wbmp';
  76.   Response.ContentStream := ImageStream;
  77.   Response.SendResponse;
  78. //ImageStream.Free
  79. end;
  80.  
  81. end.
  82.