Changeset 45


Ignore:
Timestamp:
Dec 31, 2010, 9:56:34 PM (14 years ago)
Author:
george
Message:
  • Přidáno: Jednotka UWebObjects, která obsahuje specifické grafické komponenty pro danou aplikaci.
  • Upraveno: Konfigurace aplikace předělána z globálních konstant na proměnnou Config strukturovaného typu record.
Location:
trunk
Files:
1 added
3 deleted
5 edited

Legend:

Unmodified
Added
Removed

  • trunk/Application/UCustomApplication.pas

    r42 r45  
    88  Classes, SysUtils, UHTTPServerCGI, USqlDatabase, UConfig, DateUtils,
    99  UXmlClasses, UHtmlClasses, UCore, UHTTPServer, UHTTPServerTCP,
    10   UHTTPSessionMySQL, UHTTPSessionFile, UUser, SpecializedObjectList;
     10  UHTTPSessionMySQL, UHTTPSessionFile, UUser, SpecializedList;
    1111
    1212type
    … …  
    7979begin
    8080  with Database do begin
    81     Hostname := DatabaseHostName;
    82     Database := DatabaseDatabase;
    83     UserName := DatabaseUserName;
    84     Password := DatabasePassword;
     81    Hostname := Config.DatabaseHostName;
     82    Database := Config.DatabaseDatabase;
     83    UserName := Config.DatabaseUserName;
     84    Password := Config.DatabasePassword;
    8585    Connect;
    8686  end;
    … …  
    102102  UserOnline.Update;
    103103  with HandlerData do begin
    104   Style := ConfigStyle;
    105   BaseURL := ConfigBaseURL;
     104  Style := Config.Style;
     105  BaseURL := Config.BaseURL;
    106106
    107107  HtmlDocument.ContentLanguage := 'cs';
    … …  
    110110  HtmlDocument.Scripts.Add(NavigationLink('/Style/' + Style + '/Global.js'));
    111111  HtmlDocument.Scripts.Add(NavigationLink('/Style/' + Style + '/jquery.js'));
     112
     113  Request.QueryParts.Count := 2;
     114  Request.QueryParts[0] := 'uzivatel';
     115  Request.QueryParts[1] := 'prihlaseni';
    112116
    113117  if Request.QueryParts.Count > 0 then PageName := Request.QueryParts[0]
    … …  
    124128    HtmlDocument.Title := GlobalTitle + ' - ' + HtmlDocument.Title;
    125129    with HtmlDocument.AsXmlDocument do try
    126       Formated := ConfigFormatHTML;
     130      Formated := Config.FormatHTML;
    127131      Response.Stream.WriteString(AsString);
    128132    finally
    … …  
    262266begin
    263267  InitDatabase;
     268  HTTPServer.ShowExceptions := Config.ShowException;
    264269  //Database.Query('SELECT * FROM ssss');
    265270  HTTPServer.SessionStorage := THTTPSessionStorageMySQL.Create;

  • trunk/CGI.lpi

    r44 r45  
    4848      </Item3>
    4949    </RequiredPackages>
    50     <Units Count="57">
     50    <Units Count="65">
    5151      <Unit0>
    5252        <Filename Value="CGI.lpr"/>
    5353        <IsPartOfProject Value="True"/>
    5454        <UnitName Value="CGI"/>
    55         <EditorIndex Value="1"/>
    56         <WindowIndex Value="0"/>
    57         <TopLine Value="1"/>
    58         <CursorPos X="39" Y="27"/>
     55        <EditorIndex Value="2"/>
     56        <WindowIndex Value="0"/>
     57        <TopLine Value="1"/>
     58        <CursorPos X="34" Y="30"/>
    5959        <UsageCount Value="203"/>
    6060        <Loaded Value="True"/>
    … …  
    6565        <IsPartOfProject Value="True"/>
    6666        <UnitName Value="UMainPage"/>
    67         <EditorIndex Value="2"/>
    68         <WindowIndex Value="0"/>
    69         <TopLine Value="269"/>
    70         <CursorPos X="22" Y="272"/>
     67        <EditorIndex Value="0"/>
     68        <WindowIndex Value="0"/>
     69        <TopLine Value="349"/>
     70        <CursorPos X="20" Y="366"/>
    7171        <UsageCount Value="200"/>
    7272        <Loaded Value="True"/>
    … …  
    7979        <TopLine Value="291"/>
    8080        <CursorPos X="1" Y="311"/>
    81         <UsageCount Value="93"/>
     81        <UsageCount Value="92"/>
    8282        <DefaultSyntaxHighlighter Value="Delphi"/>
    8383      </Unit2>
    8484      <Unit3>
    8585        <Filename Value="UXmlClasses.pas"/>
    86         <UsageCount Value="93"/>
     86        <UsageCount Value="92"/>
    8787        <DefaultSyntaxHighlighter Value="Delphi"/>
    8888      </Unit3>
    … …  
    9191        <IsPartOfProject Value="True"/>
    9292        <UnitName Value="UCore"/>
    93         <WindowIndex Value="0"/>
    94         <TopLine Value="2"/>
    95         <CursorPos X="1" Y="19"/>
     93        <EditorIndex Value="4"/>
     94        <WindowIndex Value="0"/>
     95        <TopLine Value="82"/>
     96        <CursorPos X="21" Y="99"/>
    9697        <UsageCount Value="203"/>
     98        <Loaded Value="True"/>
    9799        <DefaultSyntaxHighlighter Value="Delphi"/>
    98100      </Unit4>
    … …  
    103105        <TopLine Value="217"/>
    104106        <CursorPos X="5" Y="236"/>
    105         <UsageCount Value="93"/>
     107        <UsageCount Value="92"/>
    106108        <DefaultSyntaxHighlighter Value="Delphi"/>
    107109      </Unit5>
    … …  
    112114        <TopLine Value="10"/>
    113115        <CursorPos X="27" Y="19"/>
    114         <UsageCount Value="93"/>
     116        <UsageCount Value="92"/>
    115117        <DefaultSyntaxHighlighter Value="Delphi"/>
    116118      </Unit6>
    … …  
    120122        <TopLine Value="17"/>
    121123        <CursorPos X="34" Y="30"/>
    122         <UsageCount Value="93"/>
     124        <UsageCount Value="92"/>
    123125        <DefaultSyntaxHighlighter Value="Delphi"/>
    124126      </Unit7>
    … …  
    129131        <TopLine Value="204"/>
    130132        <CursorPos X="25" Y="226"/>
    131         <UsageCount Value="93"/>
     133        <UsageCount Value="92"/>
    132134        <DefaultSyntaxHighlighter Value="Delphi"/>
    133135      </Unit8>
    … …  
    138140        <TopLine Value="102"/>
    139141        <CursorPos X="25" Y="107"/>
    140         <UsageCount Value="93"/>
     142        <UsageCount Value="92"/>
    141143        <DefaultSyntaxHighlighter Value="Delphi"/>
    142144      </Unit9>
    … …  
    147149        <TopLine Value="40"/>
    148150        <CursorPos X="9" Y="59"/>
    149         <UsageCount Value="81"/>
     151        <UsageCount Value="80"/>
    150152        <DefaultSyntaxHighlighter Value="Delphi"/>
    151153      </Unit10>
    … …  
    155157        <TopLine Value="91"/>
    156158        <CursorPos X="10" Y="110"/>
    157         <UsageCount Value="63"/>
    158         <DefaultSyntaxHighlighter Value="Delphi"/>
     159        <UsageCount Value="62"/>
    159160      </Unit11>
    160161      <Unit12>
    … …  
    162163        <IsPartOfProject Value="True"/>
    163164        <UnitName Value="UConfig"/>
    164         <EditorIndex Value="6"/>
    165         <WindowIndex Value="0"/>
    166         <TopLine Value="1"/>
    167         <CursorPos X="1" Y="1"/>
     165        <WindowIndex Value="0"/>
     166        <TopLine Value="7"/>
     167        <CursorPos X="76" Y="8"/>
    168168        <UsageCount Value="294"/>
    169         <Loaded Value="True"/>
    170169        <DefaultSyntaxHighlighter Value="Delphi"/>
    171170      </Unit12>
    … …  
    192191        <TopLine Value="608"/>
    193192        <CursorPos X="44" Y="627"/>
    194         <UsageCount Value="62"/>
     193        <UsageCount Value="61"/>
    195194        <DefaultSyntaxHighlighter Value="Delphi"/>
    196195      </Unit15>
    … …  
    201200        <TopLine Value="39"/>
    202201        <CursorPos X="25" Y="58"/>
    203         <UsageCount Value="62"/>
     202        <UsageCount Value="61"/>
    204203        <DefaultSyntaxHighlighter Value="Delphi"/>
    205204      </Unit16>
    … …  
    210209        <TopLine Value="1"/>
    211210        <CursorPos X="69" Y="19"/>
    212         <UsageCount Value="58"/>
     211        <UsageCount Value="57"/>
    213212        <DefaultSyntaxHighlighter Value="Delphi"/>
    214213      </Unit17>
    … …  
    219218        <TopLine Value="1"/>
    220219        <CursorPos X="52" Y="124"/>
    221         <UsageCount Value="55"/>
     220        <UsageCount Value="54"/>
    222221        <DefaultSyntaxHighlighter Value="Delphi"/>
    223222      </Unit18>
    … …  
    227226        <TopLine Value="539"/>
    228227        <CursorPos X="14" Y="556"/>
    229         <UsageCount Value="64"/>
    230         <DefaultSyntaxHighlighter Value="Delphi"/>
     228        <UsageCount Value="63"/>
    231229      </Unit19>
    232230      <Unit20>
    … …  
    235233        <TopLine Value="10"/>
    236234        <CursorPos X="22" Y="23"/>
    237         <UsageCount Value="64"/>
    238         <DefaultSyntaxHighlighter Value="Delphi"/>
     235        <UsageCount Value="63"/>
    239236      </Unit20>
    240237      <Unit21>
    … …  
    244241        <TopLine Value="1140"/>
    245242        <CursorPos X="26" Y="1143"/>
    246         <UsageCount Value="64"/>
    247         <DefaultSyntaxHighlighter Value="Delphi"/>
     243        <UsageCount Value="63"/>
    248244      </Unit21>
    249245      <Unit22>
    … …  
    252248        <TopLine Value="43"/>
    253249        <CursorPos X="5" Y="61"/>
    254         <UsageCount Value="64"/>
    255         <DefaultSyntaxHighlighter Value="Delphi"/>
     250        <UsageCount Value="63"/>
    256251      </Unit22>
    257252      <Unit23>
    … …  
    260255        <TopLine Value="50"/>
    261256        <CursorPos X="10" Y="63"/>
    262         <UsageCount Value="64"/>
    263         <DefaultSyntaxHighlighter Value="Delphi"/>
     257        <UsageCount Value="63"/>
    264258      </Unit23>
    265259      <Unit24>
    … …  
    269263        <TopLine Value="17"/>
    270264        <CursorPos X="32" Y="36"/>
    271         <UsageCount Value="183"/>
     265        <UsageCount Value="182"/>
    272266        <DefaultSyntaxHighlighter Value="Delphi"/>
    273267      </Unit24>
    … …  
    278272        <TopLine Value="8"/>
    279273        <CursorPos X="17" Y="19"/>
    280         <UsageCount Value="10"/>
     274        <UsageCount Value="9"/>
    281275        <DefaultSyntaxHighlighter Value="Delphi"/>
    282276      </Unit25>
    … …  
    287281        <TopLine Value="25"/>
    288282        <CursorPos X="86" Y="94"/>
    289         <UsageCount Value="183"/>
     283        <UsageCount Value="182"/>
    290284        <DefaultSyntaxHighlighter Value="Delphi"/>
    291285      </Unit26>
    … …  
    296290        <TopLine Value="549"/>
    297291        <CursorPos X="19" Y="569"/>
    298         <UsageCount Value="184"/>
     292        <UsageCount Value="183"/>
    299293        <DefaultSyntaxHighlighter Value="Delphi"/>
    300294      </Unit27>
    … …  
    305299        <TopLine Value="1"/>
    306300        <CursorPos X="64" Y="14"/>
    307         <UsageCount Value="184"/>
     301        <UsageCount Value="183"/>
    308302        <DefaultSyntaxHighlighter Value="Delphi"/>
    309303      </Unit28>
    … …  
    314308        <TopLine Value="6"/>
    315309        <CursorPos X="5" Y="33"/>
    316         <UsageCount Value="184"/>
     310        <UsageCount Value="183"/>
    317311        <DefaultSyntaxHighlighter Value="Delphi"/>
    318312      </Unit29>
    … …  
    323317        <TopLine Value="99"/>
    324318        <CursorPos X="33" Y="117"/>
    325         <UsageCount Value="11"/>
     319        <UsageCount Value="10"/>
    326320        <DefaultSyntaxHighlighter Value="Delphi"/>
    327321      </Unit30>
    … …  
    331325        <TopLine Value="61"/>
    332326        <CursorPos X="14" Y="78"/>
    333         <UsageCount Value="63"/>
    334         <DefaultSyntaxHighlighter Value="Delphi"/>
     327        <UsageCount Value="62"/>
    335328      </Unit31>
    336329      <Unit32>
    … …  
    339332        <TopLine Value="519"/>
    340333        <CursorPos X="23" Y="526"/>
    341         <UsageCount Value="59"/>
    342         <DefaultSyntaxHighlighter Value="Delphi"/>
     334        <UsageCount Value="58"/>
    343335      </Unit32>
    344336      <Unit33>
    … …  
    347339        <UnitName Value="UConfig"/>
    348340        <WindowIndex Value="0"/>
    349         <TopLine Value="1"/>
    350         <CursorPos X="53" Y="18"/>
     341        <TopLine Value="11"/>
     342        <CursorPos X="19" Y="11"/>
    351343        <UsageCount Value="362"/>
    352344        <DefaultSyntaxHighlighter Value="Delphi"/>
    … …  
    358350        <TopLine Value="1"/>
    359351        <CursorPos X="16" Y="164"/>
    360         <UsageCount Value="325"/>
     352        <UsageCount Value="324"/>
    361353        <DefaultSyntaxHighlighter Value="Delphi"/>
    362354      </Unit34>
    … …  
    367359        <TopLine Value="81"/>
    368360        <CursorPos X="1" Y="96"/>
    369         <UsageCount Value="324"/>
     361        <UsageCount Value="323"/>
    370362        <DefaultSyntaxHighlighter Value="Delphi"/>
    371363      </Unit35>
    … …  
    376368        <TopLine Value="1"/>
    377369        <CursorPos X="18" Y="45"/>
    378         <UsageCount Value="324"/>
     370        <UsageCount Value="323"/>
    379371        <DefaultSyntaxHighlighter Value="Delphi"/>
    380372      </Unit36>
    … …  
    385377        <TopLine Value="142"/>
    386378        <CursorPos X="52" Y="165"/>
    387         <UsageCount Value="324"/>
     379        <UsageCount Value="323"/>
    388380        <DefaultSyntaxHighlighter Value="Delphi"/>
    389381      </Unit37>
    … …  
    394386        <TopLine Value="109"/>
    395387        <CursorPos X="36" Y="96"/>
    396         <UsageCount Value="324"/>
     388        <UsageCount Value="323"/>
    397389        <DefaultSyntaxHighlighter Value="Delphi"/>
    398390      </Unit38>
    … …  
    403395        <TopLine Value="44"/>
    404396        <CursorPos X="27" Y="61"/>
    405         <UsageCount Value="324"/>
     397        <UsageCount Value="323"/>
    406398        <DefaultSyntaxHighlighter Value="Delphi"/>
    407399      </Unit39>
    … …  
    412404        <TopLine Value="1"/>
    413405        <CursorPos X="50" Y="8"/>
    414         <UsageCount Value="324"/>
     406        <UsageCount Value="323"/>
    415407        <DefaultSyntaxHighlighter Value="Delphi"/>
    416408      </Unit40>
    … …  
    421413        <TopLine Value="1"/>
    422414        <CursorPos X="21" Y="1"/>
    423         <UsageCount Value="323"/>
     415        <UsageCount Value="322"/>
    424416        <DefaultSyntaxHighlighter Value="Delphi"/>
    425417      </Unit41>
    … …  
    430422        <TopLine Value="1"/>
    431423        <CursorPos X="53" Y="8"/>
    432         <UsageCount Value="323"/>
     424        <UsageCount Value="322"/>
    433425        <DefaultSyntaxHighlighter Value="Delphi"/>
    434426      </Unit42>
    … …  
    439431        <TopLine Value="1"/>
    440432        <CursorPos X="52" Y="92"/>
    441         <UsageCount Value="323"/>
     433        <UsageCount Value="322"/>
    442434        <DefaultSyntaxHighlighter Value="Delphi"/>
    443435      </Unit43>
    … …  
    448440        <TopLine Value="83"/>
    449441        <CursorPos X="47" Y="106"/>
    450         <UsageCount Value="323"/>
     442        <UsageCount Value="322"/>
    451443        <DefaultSyntaxHighlighter Value="Delphi"/>
    452444      </Unit44>
    … …  
    457449        <TopLine Value="1"/>
    458450        <CursorPos X="3" Y="687"/>
    459         <UsageCount Value="323"/>
     451        <UsageCount Value="322"/>
    460452        <DefaultSyntaxHighlighter Value="Delphi"/>
    461453      </Unit45>
    … …  
    466458        <TopLine Value="383"/>
    467459        <CursorPos X="15" Y="397"/>
    468         <UsageCount Value="44"/>
     460        <UsageCount Value="43"/>
    469461      </Unit46>
    470462      <Unit47>
    … …  
    472464        <IsPartOfProject Value="True"/>
    473465        <UnitName Value="UCustomApplication"/>
    474         <EditorIndex Value="0"/>
    475         <WindowIndex Value="0"/>
    476         <TopLine Value="127"/>
    477         <CursorPos X="39" Y="127"/>
     466        <EditorIndex Value="1"/>
     467        <WindowIndex Value="0"/>
     468        <TopLine Value="106"/>
     469        <CursorPos X="1" Y="116"/>
    478470        <UsageCount Value="339"/>
    479471        <Loaded Value="True"/>
    … …  
    485477        <TopLine Value="690"/>
    486478        <CursorPos X="3" Y="695"/>
    487         <UsageCount Value="44"/>
    488         <DefaultSyntaxHighlighter Value="Delphi"/>
     479        <UsageCount Value="43"/>
    489480      </Unit48>
    490481      <Unit49>
    … …  
    494485        <TopLine Value="1"/>
    495486        <CursorPos X="43" Y="79"/>
    496         <UsageCount Value="320"/>
     487        <UsageCount Value="319"/>
    497488        <DefaultSyntaxHighlighter Value="Delphi"/>
    498489      </Unit49>
    499490      <Unit50>
    500491        <Filename Value="../../PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericList.inc"/>
    501         <IsVisibleTab Value="True"/>
    502         <EditorIndex Value="5"/>
    503         <WindowIndex Value="0"/>
    504         <TopLine Value="6"/>
    505         <CursorPos X="22" Y="19"/>
     492        <WindowIndex Value="0"/>
     493        <TopLine Value="373"/>
     494        <CursorPos X="1" Y="398"/>
    506495        <UsageCount Value="179"/>
    507         <Loaded Value="True"/>
    508496      </Unit50>
    509497      <Unit51>
    … …  
    513501        <TopLine Value="1"/>
    514502        <CursorPos X="26" Y="18"/>
    515         <UsageCount Value="84"/>
     503        <UsageCount Value="83"/>
    516504      </Unit51>
    517505      <Unit52>
    518506        <Filename Value="../../PascalClassLibrary/Network/CoolWeb/Modules/UUser.pas"/>
    519507        <UnitName Value="UUser"/>
    520         <EditorIndex Value="8"/>
    521         <WindowIndex Value="0"/>
    522         <TopLine Value="91"/>
    523         <CursorPos X="20" Y="8"/>
    524         <UsageCount Value="93"/>
    525         <Loaded Value="True"/>
     508        <WindowIndex Value="0"/>
     509        <TopLine Value="1"/>
     510        <CursorPos X="15" Y="20"/>
     511        <UsageCount Value="96"/>
    526512      </Unit52>
    527513      <Unit53>
    528514        <Filename Value="../../../lazarus/trunk/ide/lazarus.pp"/>
    529515        <UnitName Value="Lazarus"/>
    530         <EditorIndex Value="7"/>
    531516        <WindowIndex Value="0"/>
    532517        <TopLine Value="1"/>
    533518        <CursorPos X="44" Y="17"/>
    534         <UsageCount Value="92"/>
    535         <Loaded Value="True"/>
     519        <UsageCount Value="95"/>
    536520      </Unit53>
    537521      <Unit54>
    538522        <Filename Value="../../PascalClassLibrary/Network/CoolWeb/CoolWeb.pas"/>
    539523        <UnitName Value="CoolWeb"/>
    540         <EditorIndex Value="3"/>
    541524        <WindowIndex Value="0"/>
    542525        <TopLine Value="1"/>
    543526        <CursorPos X="34" Y="13"/>
    544         <UsageCount Value="10"/>
    545         <Loaded Value="True"/>
     527        <UsageCount Value="13"/>
    546528      </Unit54>
    547529      <Unit55>
    548530        <Filename Value="../../PascalClassLibrary/Generics/TemplateGenerics/TemplateGenerics.pas"/>
    549531        <UnitName Value="TemplateGenerics"/>
    550         <EditorIndex Value="4"/>
    551532        <WindowIndex Value="0"/>
    552533        <TopLine Value="1"/>
    553534        <CursorPos X="60" Y="11"/>
    554         <UsageCount Value="10"/>
    555         <Loaded Value="True"/>
     535        <UsageCount Value="13"/>
    556536      </Unit55>
    557537      <Unit56>
    … …  
    561541        <TopLine Value="92"/>
    562542        <CursorPos X="7" Y="119"/>
     543        <UsageCount Value="9"/>
     544      </Unit56>
     545      <Unit57>
     546        <Filename Value="../../PascalClassLibrary/Network/CoolWeb/Common/UXmlClasses.pas"/>
     547        <UnitName Value="UXmlClasses"/>
     548        <EditorIndex Value="5"/>
     549        <WindowIndex Value="0"/>
     550        <TopLine Value="18"/>
     551        <CursorPos X="1" Y="25"/>
     552        <UsageCount Value="15"/>
     553        <Loaded Value="True"/>
     554      </Unit57>
     555      <Unit58>
     556        <Filename Value="../../PascalClassLibrary/Network/CoolWeb/Common/UHtmlClasses.pas"/>
     557        <UnitName Value="UHtmlClasses"/>
     558        <EditorIndex Value="6"/>
     559        <WindowIndex Value="0"/>
     560        <TopLine Value="133"/>
     561        <CursorPos X="5" Y="150"/>
     562        <UsageCount Value="15"/>
     563        <Loaded Value="True"/>
     564      </Unit58>
     565      <Unit59>
     566        <Filename Value="Application/UWebObjects.pas"/>
     567        <IsPartOfProject Value="True"/>
     568        <UnitName Value="UWebObjects"/>
     569        <IsVisibleTab Value="True"/>
     570        <EditorIndex Value="3"/>
     571        <WindowIndex Value="0"/>
     572        <TopLine Value="98"/>
     573        <CursorPos X="43" Y="115"/>
     574        <UsageCount Value="24"/>
     575        <Loaded Value="True"/>
     576        <DefaultSyntaxHighlighter Value="Delphi"/>
     577      </Unit59>
     578      <Unit60>
     579        <Filename Value="../../PascalClassLibrary/Network/CoolWeb/Common/UCommon.pas"/>
     580        <UnitName Value="UCommon"/>
     581        <WindowIndex Value="0"/>
     582        <TopLine Value="1"/>
     583        <CursorPos X="1" Y="1"/>
    563584        <UsageCount Value="10"/>
    564       </Unit56>
     585      </Unit60>
     586      <Unit61>
     587        <Filename Value="../../PascalClassLibrary/Network/CoolWeb/Network/UTCPServer.pas"/>
     588        <UnitName Value="UTCPServer"/>
     589        <WindowIndex Value="0"/>
     590        <TopLine Value="1"/>
     591        <CursorPos X="1" Y="1"/>
     592        <UsageCount Value="11"/>
     593      </Unit61>
     594      <Unit62>
     595        <Filename Value="../../PascalClassLibrary/Network/CoolWeb/WebServer/UHTTPServer.pas"/>
     596        <UnitName Value="UHTTPServer"/>
     597        <WindowIndex Value="0"/>
     598        <TopLine Value="14"/>
     599        <CursorPos X="5" Y="31"/>
     600        <UsageCount Value="11"/>
     601      </Unit62>
     602      <Unit63>
     603        <Filename Value="../../PascalClassLibrary/Network/CoolWeb/WebServer/UHTTPServerCGI.pas"/>
     604        <UnitName Value="UHTTPServerCGI"/>
     605        <WindowIndex Value="0"/>
     606        <TopLine Value="2"/>
     607        <CursorPos X="37" Y="14"/>
     608        <UsageCount Value="10"/>
     609      </Unit63>
     610      <Unit64>
     611        <Filename Value="/usr/share/fpcsrc/rtl/inc/objpash.inc"/>
     612        <WindowIndex Value="0"/>
     613        <TopLine Value="168"/>
     614        <CursorPos X="23" Y="185"/>
     615        <UsageCount Value="10"/>
     616      </Unit64>
    565617    </Units>
    566     <JumpHistory Count="10" HistoryIndex="9">
     618    <JumpHistory Count="29" HistoryIndex="28">
    567619      <Position1>
    568         <Filename Value="Application/UCustomApplication.pas"/>
    569         <Caret Line="266" Column="44" TopLine="239"/>
     620        <Filename Value="Application/UWebObjects.pas"/>
     621        <Caret Line="81" Column="13" TopLine="51"/>
    570622      </Position1>
    571623      <Position2>
    572         <Filename Value="Application/UCustomApplication.pas"/>
    573         <Caret Line="170" Column="26" TopLine="149"/>
     624        <Filename Value="../../PascalClassLibrary/Network/CoolWeb/Common/UHtmlClasses.pas"/>
     625        <Caret Line="96" Column="1" TopLine="66"/>
    574626      </Position2>
    575627      <Position3>
    576         <Filename Value="CGI.lpr"/>
    577         <Caret Line="27" Column="39" TopLine="1"/>
     628        <Filename Value="../../PascalClassLibrary/Network/CoolWeb/Common/UHtmlClasses.pas"/>
     629        <Caret Line="253" Column="23" TopLine="250"/>
    578630      </Position3>
    579631      <Position4>
    580         <Filename Value="../../PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericList.inc"/>
    581         <Caret Line="47" Column="81" TopLine="23"/>
     632        <Filename Value="../../PascalClassLibrary/Network/CoolWeb/Common/UHtmlClasses.pas"/>
     633        <Caret Line="99" Column="1" TopLine="79"/>
    582634      </Position4>
    583635      <Position5>
    584         <Filename Value="../../../lazarus/trunk/ide/lazarus.pp"/>
    585         <Caret Line="1" Column="1" TopLine="1"/>
     636        <Filename Value="Application/UWebObjects.pas"/>
     637        <Caret Line="83" Column="48" TopLine="60"/>
    586638      </Position5>
    587639      <Position6>
    588         <Filename Value="../../PascalClassLibrary/Network/CoolWeb/CoolWeb.pas"/>
    589         <Caret Line="1" Column="1" TopLine="1"/>
     640        <Filename Value="Application/UWebObjects.pas"/>
     641        <Caret Line="65" Column="23" TopLine="55"/>
    590642      </Position6>
    591643      <Position7>
    592         <Filename Value="../../PascalClassLibrary/Network/CoolWeb/CoolWeb.pas"/>
    593         <Caret Line="10" Column="3" TopLine="1"/>
     644        <Filename Value="Application/UWebObjects.pas"/>
     645        <Caret Line="74" Column="5" TopLine="57"/>
    594646      </Position7>
    595647      <Position8>
    596         <Filename Value="../../PascalClassLibrary/Network/CoolWeb/CoolWeb.pas"/>
    597         <Caret Line="13" Column="14" TopLine="1"/>
     648        <Filename Value="Application/UWebObjects.pas"/>
     649        <Caret Line="79" Column="1" TopLine="65"/>
    598650      </Position8>
    599651      <Position9>
    600         <Filename Value="../../PascalClassLibrary/Network/CoolWeb/CoolWeb.pas"/>
    601         <Caret Line="1" Column="1" TopLine="1"/>
     652        <Filename Value="Application/UWebObjects.pas"/>
     653        <Caret Line="86" Column="1" TopLine="65"/>
    602654      </Position9>
    603655      <Position10>
    604         <Filename Value="../../PascalClassLibrary/Generics/TemplateGenerics/TemplateGenerics.pas"/>
    605         <Caret Line="10" Column="3" TopLine="1"/>
     656        <Filename Value="../../PascalClassLibrary/Network/CoolWeb/Common/UHtmlClasses.pas"/>
     657        <Caret Line="253" Column="1" TopLine="236"/>
    606658      </Position10>
     659      <Position11>
     660        <Filename Value="Application/UWebObjects.pas"/>
     661        <Caret Line="91" Column="11" TopLine="65"/>
     662      </Position11>
     663      <Position12>
     664        <Filename Value="Application/UWebObjects.pas"/>
     665        <Caret Line="90" Column="10" TopLine="74"/>
     666      </Position12>
     667      <Position13>
     668        <Filename Value="Pages/UMainPage.pas"/>
     669        <Caret Line="389" Column="12" TopLine="360"/>
     670      </Position13>
     671      <Position14>
     672        <Filename Value="Pages/UMainPage.pas"/>
     673        <Caret Line="366" Column="20" TopLine="349"/>
     674      </Position14>
     675      <Position15>
     676        <Filename Value="Application/UWebObjects.pas"/>
     677        <Caret Line="29" Column="74" TopLine="11"/>
     678      </Position15>
     679      <Position16>
     680        <Filename Value="Application/UWebObjects.pas"/>
     681        <Caret Line="71" Column="1" TopLine="58"/>
     682      </Position16>
     683      <Position17>
     684        <Filename Value="Application/UWebObjects.pas"/>
     685        <Caret Line="24" Column="10" TopLine="8"/>
     686      </Position17>
     687      <Position18>
     688        <Filename Value="Application/UWebObjects.pas"/>
     689        <Caret Line="20" Column="1" TopLine="10"/>
     690      </Position18>
     691      <Position19>
     692        <Filename Value="../../PascalClassLibrary/Network/CoolWeb/Common/UHtmlClasses.pas"/>
     693        <Caret Line="273" Column="32" TopLine="265"/>
     694      </Position19>
     695      <Position20>
     696        <Filename Value="Application/UWebObjects.pas"/>
     697        <Caret Line="25" Column="45" TopLine="3"/>
     698      </Position20>
     699      <Position21>
     700        <Filename Value="Application/UWebObjects.pas"/>
     701        <Caret Line="24" Column="59" TopLine="2"/>
     702      </Position21>
     703      <Position22>
     704        <Filename Value="Application/UWebObjects.pas"/>
     705        <Caret Line="71" Column="51" TopLine="52"/>
     706      </Position22>
     707      <Position23>
     708        <Filename Value="Application/UWebObjects.pas"/>
     709        <Caret Line="65" Column="11" TopLine="49"/>
     710      </Position23>
     711      <Position24>
     712        <Filename Value="Application/UWebObjects.pas"/>
     713        <Caret Line="16" Column="26" TopLine="1"/>
     714      </Position24>
     715      <Position25>
     716        <Filename Value="Application/UWebObjects.pas"/>
     717        <Caret Line="67" Column="11" TopLine="50"/>
     718      </Position25>
     719      <Position26>
     720        <Filename Value="Application/UWebObjects.pas"/>
     721        <Caret Line="16" Column="52" TopLine="1"/>
     722      </Position26>
     723      <Position27>
     724        <Filename Value="Application/UWebObjects.pas"/>
     725        <Caret Line="67" Column="43" TopLine="50"/>
     726      </Position27>
     727      <Position28>
     728        <Filename Value="Application/UWebObjects.pas"/>
     729        <Caret Line="115" Column="26" TopLine="99"/>
     730      </Position28>
     731      <Position29>
     732        <Filename Value="Application/UWebObjects.pas"/>
     733        <Caret Line="116" Column="36" TopLine="99"/>
     734      </Position29>
    607735    </JumpHistory>
    608736  </ProjectOptions>
    … …  
    640768      <WriteFPCLogo Value="False"/>
    641769      <CompilerMessages>
     770        <IgnoredMessages idx5023="True" idx5024="True" idx5025="True" idx5026="True" idx5027="True" idx5028="True" idx5029="True" idx5030="True" idx5031="True"/>
    642771        <UseMsgFile Value="True"/>
    643772      </CompilerMessages>

  • trunk/Pages/UMainPage.pas

    r41 r45  
    77uses
    88  Classes, SysUtils, USqlDatabase, UCore, UCustomApplication, UHtmlClasses,
    9   UHTTPServer;
     9  UHTTPServer, UWebObjects;
    1010
    1111procedure Links(App: TCustomApplication; HandlerData: THTTPHandlerData);
    … …  
    362362var
    363363  PageName: string;
     364  NewForm: TQueryForm;
     365  NewGroup: TQueryFormGroup;
     366  NewItem: TQueryFormItem;
    364367begin
    365368  App.HtmlDocument.Title := 'Uživatel';
    … …  
    370373    if PageName = 'prihlaseni' then begin
    371374      Text := 'Login';
    372 
     375      NewForm := TQueryForm.Create;
     376      NewForm.Title := 'Přihlášení';
     377//        NewForm.Action := THTMLInput.Create;
     378//        NewForm.Action
     379      NewGroup := TQueryFormGroup.Create;
     380      NewGroup.Title := 'Základní údaje';
     381      NewItem := TQueryFormItem.Create;
     382      NewItem.Caption := 'Jméno';
     383      NewItem.Hint := 'Zadejte vaše přihlašovací jméno';
     384      NewItem.Required := True;
     385      NewGroup.Rows.Add(NewItem);
     386      NewItem := TQueryFormItem.Create;
     387      NewItem.Caption := 'Heslo';
     388      NewItem.Hint := 'Zadejte vaše heslo';
     389      NewItem.Required := True;
     390      NewGroup.Rows.Add(NewItem);
     391      NewForm.Groups.Add(NewGroup);
     392      App.HtmlDocument.Body.SubItems.Add(NewForm);
    373393    end else Text := '';
    374394  end;

  • trunk/UConfigSample.pas

    r27 r45  
    88  Classes, SysUtils;
    99
    10 const
    11   WebServerAddress: string = 'http://localhost/';
    12   DatabaseHostname: string = 'localhost';
    13   DatabaseDatabase: string = 'web';
    14   DatabaseUserName: string = 'user';
    15   DatabasePassword: string = 'password';
    16   ConfigFormatHTML: Boolean = False;
    17   ConfigStyle: string = 'Basic';
    18   ConfigBaseURL: string = 'http://localhost';
     10type
     11  TConfig = record
     12    WebServerAddress: string;
     13    DatabaseHostname: string;
     14    DatabaseDatabase: string;
     15    DatabaseUserName: string;
     16    DatabasePassword: string;
     17    FormatHTML: Boolean;
     18    Style: string;
     19    BaseURL: string;
     20    ShowException: Boolean;
     21  end;
     22
     23var
     24  Config: TConfig;
     25
    1926
    2027implementation
    2128
     29initialization
     30
     31with Config do begin
     32  WebServerAddress := 'http://localhost/';
     33  DatabaseHostname := 'localhost';
     34  DatabaseDatabase := 'web';
     35  DatabaseUserName := 'user';
     36  DatabasePassword := 'password';
     37  FormatHTML := False;
     38  Style := 'Basic';
     39  BaseURL := 'http://localhost';
     40  ShowException := False;
     41end;
     42
    2243end.
    2344

  • trunk/UCore.pas

    r44 r45  
    3232  Navigace: string;
    3333begin
     34  Navigace := '';
    3435  //Navigace := CgiEnvVar.RequestURI;
    3536  Result := '<?xml version="1.0" encoding="utf-8"?>' +
    … …  
    9697begin
    9798  if (Length(URL) > 0) and (URL[1] = '/') then
    98     Result := ConfigBaseURL + URL
     99    Result := Config.BaseURL + URL
    99100    else Result := URL;
    100101end;
Note: See TracChangeset for help on using the changeset viewer.