Changeset 254


Ignore:
Timestamp:
Jul 20, 2011, 10:25:27 PM (13 years ago)
Author:
george
Message:
Location:
Network/CoolWeb
Files:
4 added
3 edited

Legend:

Unmodified
Added
Removed

  • Network/CoolWeb/CoolWeb.lpk

    r250 r254  
    11<?xml version="1.0"?>
    22<CONFIG>
    3   <Package Version="3">
     3  <Package Version="4">
    44    <Name Value="CoolWeb"/>
     5    <AddToProjectUsesSection Value="True"/>
    56    <Author Value="Chronos (robie@centrum.cz)"/>
    67    <CompilerOptions>
    … …  
    2021    <License Value="GNU/GPL"/>
    2122    <Version Minor="2"/>
    22     <Files Count="16">
     23    <Files Count="18">
    2324      <Item1>
    2425        <Filename Value="WebServer/UHTTPServer.pas"/>
    … …  
    8889      <Item16>
    8990        <Filename Value="WebServer/UWebPage.pas"/>
     91        <HasRegisterProc Value="True"/>
    9092        <UnitName Value="UWebPage"/>
    9193      </Item16>
     94      <Item17>
     95        <Filename Value="WebServer/UWebApp.pas"/>
     96        <HasRegisterProc Value="True"/>
     97        <UnitName Value="UWebApp"/>
     98      </Item17>
     99      <Item18>
     100        <Filename Value="LazIDEReg.pas"/>
     101        <HasRegisterProc Value="True"/>
     102        <UnitName Value="LazIDEReg"/>
     103      </Item18>
    92104    </Files>
    93105    <Type Value="RunAndDesignTime"/>
    94     <RequiredPkgs Count="4">
     106    <RequiredPkgs Count="7">
    95107      <Item1>
    96         <PackageName Value="Common"/>
     108        <PackageName Value="LCL"/>
    97109      </Item1>
    98110      <Item2>
     111        <PackageName Value="IDEIntf"/>
     112      </Item2>
     113      <Item3>
     114        <PackageName Value="LCL"/>
     115      </Item3>
     116      <Item4>
     117        <PackageName Value="Common"/>
     118      </Item4>
     119      <Item5>
    99120        <PackageName Value="TemplateGenerics"/>
    100121        <MaxVersion Minor="3" Valid="True"/>
    101122        <MinVersion Minor="3" Valid="True"/>
    102       </Item2>
    103       <Item3>
     123      </Item5>
     124      <Item6>
    104125        <PackageName Value="synapse"/>
    105       </Item3>
    106       <Item4>
     126      </Item6>
     127      <Item7>
    107128        <PackageName Value="FCL"/>
    108129        <MinVersion Major="1" Valid="True"/>
    109       </Item4>
     130      </Item7>
    110131    </RequiredPkgs>
    111132    <UsageOptions>

  • Network/CoolWeb/CoolWeb.pas

    r250 r254  
    1111  UHTTPSessionMySQL, USqlDatabase, UTCPServer, UPageList, UUser, UHtmlClasses,
    1212  UMemoryStreamEx, UMIMEType, UPool, UResetableThread, UXmlClasses, UWebPage,
    13   LazarusPackageIntf;
     13  UWebApp, LazIDEReg, LazarusPackageIntf;
    1414
    1515implementation
    … …  
    2222  RegisterUnit('UHTTPSessionMySQL', @UHTTPSessionMySQL.Register);
    2323  RegisterUnit('USqlDatabase', @USqlDatabase.Register);
     24  RegisterUnit('UWebPage', @UWebPage.Register);
     25  RegisterUnit('UWebApp', @UWebApp.Register);
     26  RegisterUnit('LazIDEReg', @LazIDEReg.Register);
    2427end;
    2528

  • Network/CoolWeb/WebServer/UWebPage.pas

    r237 r254  
    66
    77uses
    8   Classes, SysUtils;
     8  Classes, SysUtils, UHTTPServer, Controls;
    99
    1010type
    11   TOnProduceEvent = procedure of object;
     11  TOnProduceEvent = procedure(HandlerData: THTTPHandlerData) of object;
    1212
    1313  { TWebPage }
    1414
    15   TWebPage = class(TComponent)
     15  TWebPage = class(TDataModule)
    1616  private
     17    FCaption: string;
    1718    FOnProduce: TOnProduceEvent;
    1819  published
     20    property Caption: string read FCaption write FCaption;
    1921    property OnProduce: TOnProduceEvent read FOnProduce write FOnProduce;
    2022  end;
    2123
     24
     25  TWebPageClass = class of TWebPage;
     26
     27procedure Register;
     28
     29
    2230implementation
     31
     32procedure Register;
     33begin
     34  RegisterNoIcon([TWebPage]);
     35end;
    2336
    2437end.
Note: See TracChangeset for help on using the changeset viewer.