Changeset 32 for trunk


Ignore:
Timestamp:
Sep 13, 2010, 8:35:39 AM (14 years ago)
Author:
george
Message:
  • Upraveno: Třída pro obsluhu CGI aplikace přepracována na obecný HTTP server s podporou pro CGI HTTP server a přímý TCP HTTP server dle výběru zděděných tříd.
  • Přidáno: Podpůrné obecné třídy ve složce Common.
  • Přidáno: Komponenta Synapse pro obsluhu TCP spojení.
Location:
trunk
Files:
17 added
1 deleted
5 edited

Legend:

Unmodified
Added
Removed

  • trunk/Application/UCustomCGIApplication.pas

    r29 r32  
    66
    77uses
    8   Classes, SysUtils, UCGIApplication, Contnrs, USqlDatabase, UConfig, DateUtils,
    9   UXmlClasses, UHtmlClasses, UCore, UStringListEx;
     8  Classes, SysUtils, UHTTPServerCGI, Contnrs, USqlDatabase, UConfig, DateUtils,
     9  UXmlClasses, UHtmlClasses, UCore, UStringListEx, UHTTPServer;
    1010
    1111type
    … …  
    2121  { TCustomCGIApplication }
    2222
    23   TCustomCGIApplication = class(TCGIApplication)
     23  TCustomCGIApplication = class(THTTPServerCGI)
    2424  private
    2525    procedure Footer;
    … …  
    4343    PageName: string;
    4444    ModuleName: string;
    45     procedure Execute; override;
     45    BaseURL: string;
     46    procedure Execute(HandlerData: THTTPHandlerData);
    4647    constructor Create;
    4748    destructor Destroy; override;
    … …  
    8485end;
    8586
    86 procedure TCustomCGIApplication.Execute;
     87procedure TCustomCGIApplication.Execute(HandlerData: THTTPHandlerData);
    8788var
    8889  I: Integer;
    8990  TitleTag: THtmlString;
    9091begin
     92  with HandlerData do begin
    9193  Style := ConfigStyle;
    9294  BaseURL := ConfigBaseURL;
    … …  
    98100  HtmlDocument.Scripts.Add(NavigationLink('/Style/' + Style + '/jquery.js'));
    99101
    100   if QueryParts.Count > 0 then PageName := QueryParts[0]
     102  if Request.QueryParts.Count > 0 then PageName := Request.QueryParts[0]
    101103    else PageName := '';
    102104  I := 0;
    … …  
    112114    with HtmlDocument.AsXmlDocument do try
    113115      Formated := ConfigFormatHTML;
    114       Output.Add(AsString);
     116      Response.Stream.WriteString(AsString);
    115117    finally
    116118      Free;
    117119    end;
    118   end else Output.Add(SPageNotFound);
     120  end else Response.Stream.WriteString(SPageNotFound);
     121  end;
    119122end;
    120123
    … …  
    126129  Pages := TObjectList.Create;
    127130  HtmlDocument := THtmlDocument.Create;
     131  OnRequest := Execute;
    128132end;
    129133

  • trunk/index.lpi

    r27 r32  
    1010        <LRSInOutputDirectory Value="False"/>
    1111      </Flags>
     12      <MainUnit Value="0"/>
    1213      <Title Value="index"/>
    1314      <ActiveWindowIndexAtStart Value="0"/>
    … …  
    3233      </local>
    3334    </RunParams>
    34     <Units Count="52">
     35    <RequiredPackages Count="1">
     36      <Item1>
     37        <PackageName Value="synapse"/>
     38        <MinVersion Valid="True"/>
     39      </Item1>
     40    </RequiredPackages>
     41    <Units Count="65">
    3542      <Unit0>
    3643        <Filename Value="index.pas"/>
    … …  
    3946        <EditorIndex Value="0"/>
    4047        <WindowIndex Value="0"/>
    41         <TopLine Value="1"/>
    42         <CursorPos X="1" Y="12"/>
    43         <UsageCount Value="183"/>
     48        <TopLine Value="3"/>
     49        <CursorPos X="4" Y="26"/>
     50        <UsageCount Value="185"/>
    4451        <Loaded Value="True"/>
    4552        <LoadedDesigner Value="True"/>
    … …  
    5057        <IsPartOfProject Value="True"/>
    5158        <UnitName Value="UMainPage"/>
    52         <EditorIndex Value="11"/>
     59        <EditorIndex Value="22"/>
    5360        <WindowIndex Value="0"/>
    5461        <TopLine Value="179"/>
    5562        <CursorPos X="29" Y="252"/>
    56         <UsageCount Value="179"/>
     63        <UsageCount Value="181"/>
    5764        <Loaded Value="True"/>
    5865        <DefaultSyntaxHighlighter Value="Delphi"/>
    … …  
    7683        <IsPartOfProject Value="True"/>
    7784        <UnitName Value="UCore"/>
    78         <EditorIndex Value="20"/>
    79         <WindowIndex Value="0"/>
    80         <TopLine Value="87"/>
    81         <CursorPos X="44" Y="102"/>
    82         <UsageCount Value="183"/>
     85        <EditorIndex Value="32"/>
     86        <WindowIndex Value="0"/>
     87        <TopLine Value="37"/>
     88        <CursorPos X="69" Y="51"/>
     89        <UsageCount Value="185"/>
    8390        <Loaded Value="True"/>
    8491        <DefaultSyntaxHighlighter Value="Delphi"/>
    … …  
    147154      <Unit12>
    148155        <Filename Value="/usr/share/fpcsrc/rtl/objpas/sysutils/datih.inc"/>
    149         <EditorIndex Value="18"/>
     156        <EditorIndex Value="30"/>
    150157        <WindowIndex Value="0"/>
    151158        <TopLine Value="91"/>
    152159        <CursorPos X="10" Y="110"/>
    153         <UsageCount Value="28"/>
     160        <UsageCount Value="29"/>
    154161        <Loaded Value="True"/>
    155162        <DefaultSyntaxHighlighter Value="Delphi"/>
    … …  
    157164      <Unit13>
    158165        <Filename Value="/usr/share/fpcsrc/rtl/objpas/dateutil.inc"/>
    159         <EditorIndex Value="13"/>
     166        <EditorIndex Value="24"/>
    160167        <WindowIndex Value="0"/>
    161168        <TopLine Value="283"/>
    162169        <CursorPos X="10" Y="302"/>
    163         <UsageCount Value="21"/>
     170        <UsageCount Value="22"/>
    164171        <Loaded Value="True"/>
    165172        <DefaultSyntaxHighlighter Value="Delphi"/>
    … …  
    173180        <TopLine Value="1"/>
    174181        <CursorPos X="92" Y="11"/>
    175         <UsageCount Value="158"/>
     182        <UsageCount Value="160"/>
    176183        <Loaded Value="True"/>
    177184        <DefaultSyntaxHighlighter Value="Delphi"/>
    … …  
    182189        <TopLine Value="108"/>
    183190        <CursorPos X="1" Y="134"/>
    184         <UsageCount Value="158"/>
     191        <UsageCount Value="160"/>
    185192        <DefaultSyntaxHighlighter Value="None"/>
    186193      </Unit15>
    … …  
    190197        <TopLine Value="1"/>
    191198        <CursorPos X="1" Y="1"/>
    192         <UsageCount Value="158"/>
     199        <UsageCount Value="160"/>
    193200        <DefaultSyntaxHighlighter Value="JScript"/>
    194201      </Unit16>
    … …  
    360367        <TopLine Value="254"/>
    361368        <CursorPos X="15" Y="268"/>
    362         <UsageCount Value="29"/>
     369        <UsageCount Value="30"/>
    363370        <Loaded Value="True"/>
    364371        <DefaultSyntaxHighlighter Value="Delphi"/>
    … …  
    370377        <TopLine Value="10"/>
    371378        <CursorPos X="22" Y="23"/>
    372         <UsageCount Value="29"/>
     379        <UsageCount Value="30"/>
    373380        <Loaded Value="True"/>
    374381        <DefaultSyntaxHighlighter Value="Delphi"/>
    … …  
    381388        <TopLine Value="1140"/>
    382389        <CursorPos X="26" Y="1143"/>
    383         <UsageCount Value="29"/>
     390        <UsageCount Value="30"/>
    384391        <Loaded Value="True"/>
    385392        <DefaultSyntaxHighlighter Value="Delphi"/>
    … …  
    391398        <TopLine Value="43"/>
    392399        <CursorPos X="5" Y="61"/>
    393         <UsageCount Value="29"/>
     400        <UsageCount Value="30"/>
    394401        <Loaded Value="True"/>
    395402        <DefaultSyntaxHighlighter Value="Delphi"/>
    … …  
    401408        <TopLine Value="50"/>
    402409        <CursorPos X="10" Y="63"/>
    403         <UsageCount Value="29"/>
     410        <UsageCount Value="30"/>
    404411        <Loaded Value="True"/>
    405412        <DefaultSyntaxHighlighter Value="Delphi"/>
    … …  
    413420        <TopLine Value="18"/>
    414421        <CursorPos X="1" Y="32"/>
    415         <UsageCount Value="58"/>
     422        <UsageCount Value="60"/>
    416423        <Loaded Value="True"/>
    417424        <DefaultSyntaxHighlighter Value="Delphi"/>
    418425      </Unit40>
    419426      <Unit41>
    420         <Filename Value="Common/UCGIApplication.pas"/>
    421         <IsPartOfProject Value="True"/>
     427        <Filename Value="WebServer/UCGIApplication.pas"/>
    422428        <UnitName Value="UCGIApplication"/>
    423         <EditorIndex Value="10"/>
    424         <WindowIndex Value="0"/>
    425         <TopLine Value="75"/>
    426         <CursorPos X="44" Y="89"/>
    427         <UsageCount Value="58"/>
    428         <Loaded Value="True"/>
     429        <WindowIndex Value="0"/>
     430        <TopLine Value="8"/>
     431        <CursorPos X="17" Y="19"/>
     432        <UsageCount Value="59"/>
    429433        <DefaultSyntaxHighlighter Value="Delphi"/>
    430434      </Unit41>
    … …  
    432436        <Filename Value="Common/UDatabase.pas"/>
    433437        <IsPartOfProject Value="True"/>
    434         <UsageCount Value="58"/>
     438        <UsageCount Value="60"/>
    435439        <DefaultSyntaxHighlighter Value="Delphi"/>
    436440      </Unit42>
    … …  
    439443        <IsPartOfProject Value="True"/>
    440444        <UnitName Value="UHtmlClasses"/>
    441         <EditorIndex Value="16"/>
     445        <EditorIndex Value="28"/>
    442446        <WindowIndex Value="0"/>
    443447        <TopLine Value="218"/>
    444448        <CursorPos X="1" Y="231"/>
    445         <UsageCount Value="58"/>
     449        <UsageCount Value="60"/>
    446450        <Loaded Value="True"/>
    447451        <DefaultSyntaxHighlighter Value="Delphi"/>
    … …  
    451455        <IsPartOfProject Value="True"/>
    452456        <UnitName Value="USqlDatabase"/>
    453         <EditorIndex Value="12"/>
    454         <WindowIndex Value="0"/>
    455         <TopLine Value="1"/>
    456         <CursorPos X="74" Y="179"/>
    457         <UsageCount Value="58"/>
     457        <EditorIndex Value="23"/>
     458        <WindowIndex Value="0"/>
     459        <TopLine Value="58"/>
     460        <CursorPos X="15" Y="72"/>
     461        <UsageCount Value="60"/>
    458462        <Loaded Value="True"/>
    459463        <DefaultSyntaxHighlighter Value="Delphi"/>
    … …  
    467471        <TopLine Value="13"/>
    468472        <CursorPos X="5" Y="32"/>
    469         <UsageCount Value="58"/>
     473        <UsageCount Value="60"/>
    470474        <Loaded Value="True"/>
    471475        <DefaultSyntaxHighlighter Value="Delphi"/>
    … …  
    475479        <IsPartOfProject Value="True"/>
    476480        <UnitName Value="UCustomCGIApplication"/>
    477         <IsVisibleTab Value="True"/>
    478         <EditorIndex Value="15"/>
    479         <WindowIndex Value="0"/>
    480         <TopLine Value="92"/>
    481         <CursorPos X="1" Y="102"/>
    482         <UsageCount Value="58"/>
     481        <EditorIndex Value="26"/>
     482        <WindowIndex Value="0"/>
     483        <TopLine Value="99"/>
     484        <CursorPos X="33" Y="117"/>
     485        <UsageCount Value="60"/>
    483486        <Loaded Value="True"/>
    484487        <DefaultSyntaxHighlighter Value="Delphi"/>
    … …  
    494497      <Unit48>
    495498        <Filename Value="/usr/share/fpcsrc/rtl/inc/mathh.inc"/>
    496         <EditorIndex Value="17"/>
     499        <EditorIndex Value="29"/>
    497500        <WindowIndex Value="0"/>
    498501        <TopLine Value="64"/>
    499502        <CursorPos X="14" Y="78"/>
    500         <UsageCount Value="28"/>
     503        <UsageCount Value="29"/>
    501504        <Loaded Value="True"/>
    502505        <DefaultSyntaxHighlighter Value="Delphi"/>
    … …  
    504507      <Unit49>
    505508        <Filename Value="/usr/share/fpcsrc/rtl/inc/systemh.inc"/>
    506         <EditorIndex Value="14"/>
     509        <EditorIndex Value="25"/>
    507510        <WindowIndex Value="0"/>
    508511        <TopLine Value="377"/>
    509512        <CursorPos X="3" Y="300"/>
    510         <UsageCount Value="24"/>
     513        <UsageCount Value="25"/>
    511514        <Loaded Value="True"/>
    512515        <DefaultSyntaxHighlighter Value="Delphi"/>
    … …  
    514517      <Unit50>
    515518        <Filename Value="/usr/share/fpcsrc/rtl/objpas/sysutils/dati.inc"/>
    516         <EditorIndex Value="19"/>
     519        <EditorIndex Value="31"/>
    517520        <WindowIndex Value="0"/>
    518521        <TopLine Value="519"/>
    519522        <CursorPos X="23" Y="526"/>
    520         <UsageCount Value="24"/>
     523        <UsageCount Value="25"/>
    521524        <Loaded Value="True"/>
    522525        <DefaultSyntaxHighlighter Value="Delphi"/>
    … …  
    530533        <TopLine Value="1"/>
    531534        <CursorPos X="53" Y="18"/>
    532         <UsageCount Value="41"/>
     535        <UsageCount Value="43"/>
    533536        <Loaded Value="True"/>
    534537        <DefaultSyntaxHighlighter Value="Delphi"/>
    535538      </Unit51>
     539      <Unit52>
     540        <Filename Value="Application/UUser.pas"/>
     541        <IsPartOfProject Value="True"/>
     542        <UnitName Value="UUser"/>
     543        <EditorIndex Value="27"/>
     544        <WindowIndex Value="0"/>
     545        <TopLine Value="44"/>
     546        <CursorPos X="18" Y="59"/>
     547        <UsageCount Value="22"/>
     548        <Loaded Value="True"/>
     549        <DefaultSyntaxHighlighter Value="Delphi"/>
     550      </Unit52>
     551      <Unit53>
     552        <Filename Value="WebServer/UHTTPSessionMySQL.pas"/>
     553        <IsPartOfProject Value="True"/>
     554        <UnitName Value="UHTTPSessionMySQL"/>
     555        <EditorIndex Value="10"/>
     556        <WindowIndex Value="0"/>
     557        <TopLine Value="1"/>
     558        <CursorPos X="69" Y="16"/>
     559        <UsageCount Value="21"/>
     560        <Loaded Value="True"/>
     561        <DefaultSyntaxHighlighter Value="Delphi"/>
     562      </Unit53>
     563      <Unit54>
     564        <Filename Value="WebServer/UHTTPSessionFile.pas"/>
     565        <IsPartOfProject Value="True"/>
     566        <UnitName Value="UHTTPSessionFile"/>
     567        <EditorIndex Value="21"/>
     568        <WindowIndex Value="0"/>
     569        <TopLine Value="1"/>
     570        <CursorPos X="31" Y="4"/>
     571        <UsageCount Value="21"/>
     572        <Loaded Value="True"/>
     573        <DefaultSyntaxHighlighter Value="Delphi"/>
     574      </Unit54>
     575      <Unit55>
     576        <Filename Value="Common/UCommon.pas"/>
     577        <IsPartOfProject Value="True"/>
     578        <UnitName Value="UCommon"/>
     579        <EditorIndex Value="20"/>
     580        <WindowIndex Value="0"/>
     581        <TopLine Value="148"/>
     582        <CursorPos X="52" Y="165"/>
     583        <UsageCount Value="21"/>
     584        <Loaded Value="True"/>
     585        <DefaultSyntaxHighlighter Value="Delphi"/>
     586      </Unit55>
     587      <Unit56>
     588        <Filename Value="WebServer/UHTTPServer.pas"/>
     589        <IsPartOfProject Value="True"/>
     590        <UnitName Value="UHTTPServer"/>
     591        <EditorIndex Value="11"/>
     592        <WindowIndex Value="0"/>
     593        <TopLine Value="91"/>
     594        <CursorPos X="1" Y="106"/>
     595        <UsageCount Value="21"/>
     596        <Loaded Value="True"/>
     597        <DefaultSyntaxHighlighter Value="Delphi"/>
     598      </Unit56>
     599      <Unit57>
     600        <Filename Value="WebServer/UHTTPServerTCP.pas"/>
     601        <IsPartOfProject Value="True"/>
     602        <UnitName Value="UHTTPServerTCP"/>
     603        <EditorIndex Value="17"/>
     604        <WindowIndex Value="0"/>
     605        <TopLine Value="82"/>
     606        <CursorPos X="26" Y="108"/>
     607        <UsageCount Value="21"/>
     608        <Loaded Value="True"/>
     609        <DefaultSyntaxHighlighter Value="Delphi"/>
     610      </Unit57>
     611      <Unit58>
     612        <Filename Value="WebServer/UHTTPServerCGI.pas"/>
     613        <IsPartOfProject Value="True"/>
     614        <UnitName Value="UHTTPServerCGI"/>
     615        <IsVisibleTab Value="True"/>
     616        <EditorIndex Value="19"/>
     617        <WindowIndex Value="0"/>
     618        <TopLine Value="2"/>
     619        <CursorPos X="1" Y="15"/>
     620        <UsageCount Value="21"/>
     621        <Loaded Value="True"/>
     622        <DefaultSyntaxHighlighter Value="Delphi"/>
     623      </Unit58>
     624      <Unit59>
     625        <Filename Value="Network/UTCPServer.pas"/>
     626        <IsPartOfProject Value="True"/>
     627        <UnitName Value="UTCPServer"/>
     628        <EditorIndex Value="14"/>
     629        <WindowIndex Value="0"/>
     630        <TopLine Value="1"/>
     631        <CursorPos X="6" Y="15"/>
     632        <UsageCount Value="20"/>
     633        <Loaded Value="True"/>
     634        <DefaultSyntaxHighlighter Value="Delphi"/>
     635      </Unit59>
     636      <Unit60>
     637        <Filename Value="Common/UPool.pas"/>
     638        <IsPartOfProject Value="True"/>
     639        <UnitName Value="UPool"/>
     640        <EditorIndex Value="16"/>
     641        <WindowIndex Value="0"/>
     642        <TopLine Value="119"/>
     643        <CursorPos X="66" Y="143"/>
     644        <UsageCount Value="20"/>
     645        <Loaded Value="True"/>
     646        <DefaultSyntaxHighlighter Value="Delphi"/>
     647      </Unit60>
     648      <Unit61>
     649        <Filename Value="Common/UResetableThread.pas"/>
     650        <IsPartOfProject Value="True"/>
     651        <UnitName Value="UResetableThread"/>
     652        <EditorIndex Value="15"/>
     653        <WindowIndex Value="0"/>
     654        <TopLine Value="75"/>
     655        <CursorPos X="52" Y="92"/>
     656        <UsageCount Value="20"/>
     657        <Loaded Value="True"/>
     658        <DefaultSyntaxHighlighter Value="Delphi"/>
     659      </Unit61>
     660      <Unit62>
     661        <Filename Value="Common/UMemoryStreamEx.pas"/>
     662        <IsPartOfProject Value="True"/>
     663        <UnitName Value="UMemoryStreamEx"/>
     664        <EditorIndex Value="12"/>
     665        <WindowIndex Value="0"/>
     666        <TopLine Value="9"/>
     667        <CursorPos X="15" Y="23"/>
     668        <UsageCount Value="20"/>
     669        <Loaded Value="True"/>
     670        <DefaultSyntaxHighlighter Value="Delphi"/>
     671      </Unit62>
     672      <Unit63>
     673        <Filename Value="Common/UMIMEType.pas"/>
     674        <IsPartOfProject Value="True"/>
     675        <UnitName Value="UMIMEType"/>
     676        <EditorIndex Value="13"/>
     677        <WindowIndex Value="0"/>
     678        <TopLine Value="660"/>
     679        <CursorPos X="3" Y="687"/>
     680        <UsageCount Value="20"/>
     681        <Loaded Value="True"/>
     682        <DefaultSyntaxHighlighter Value="Delphi"/>
     683      </Unit63>
     684      <Unit64>
     685        <Filename Value="../../../lazarus/library/synapse/source/lib/blcksock.pas"/>
     686        <UnitName Value="blcksock"/>
     687        <EditorIndex Value="18"/>
     688        <WindowIndex Value="0"/>
     689        <TopLine Value="383"/>
     690        <CursorPos X="15" Y="397"/>
     691        <UsageCount Value="10"/>
     692        <Loaded Value="True"/>
     693      </Unit64>
    536694    </Units>
    537     <JumpHistory Count="30" HistoryIndex="28">
     695    <JumpHistory Count="29" HistoryIndex="28">
    538696      <Position1>
    539         <Filename Value="Common/UStringListEx.pas"/>
    540         <Caret Line="32" Column="1" TopLine="18"/>
     697        <Filename Value="Application/UCustomCGIApplication.pas"/>
     698        <Caret Line="98" Column="1" TopLine="86"/>
    541699      </Position1>
    542700      <Position2>
    543         <Filename Value="Common/UCGIApplication.pas"/>
    544         <Caret Line="86" Column="1" TopLine="74"/>
     701        <Filename Value="Application/UCustomCGIApplication.pas"/>
     702        <Caret Line="99" Column="1" TopLine="86"/>
    545703      </Position2>
    546704      <Position3>
    547         <Filename Value="Common/UCGIApplication.pas"/>
    548         <Caret Line="91" Column="1" TopLine="74"/>
     705        <Filename Value="Application/UCustomCGIApplication.pas"/>
     706        <Caret Line="100" Column="1" TopLine="95"/>
    549707      </Position3>
    550708      <Position4>
    551709        <Filename Value="Application/UCustomCGIApplication.pas"/>
    552         <Caret Line="91" Column="1" TopLine="76"/>
     710        <Caret Line="102" Column="25" TopLine="95"/>
    553711      </Position4>
    554712      <Position5>
    555         <Filename Value="Common/UCGIApplication.pas"/>
    556         <Caret Line="86" Column="45" TopLine="71"/>
     713        <Filename Value="Application/UCustomCGIApplication.pas"/>
     714        <Caret Line="105" Column="1" TopLine="95"/>
    557715      </Position5>
    558716      <Position6>
    559         <Filename Value="Common/UCGIApplication.pas"/>
    560         <Caret Line="231" Column="1" TopLine="201"/>
     717        <Filename Value="Application/UCustomCGIApplication.pas"/>
     718        <Caret Line="106" Column="1" TopLine="95"/>
    561719      </Position6>
    562720      <Position7>
    563         <Filename Value="Pages/UMainPage.pas"/>
    564         <Caret Line="266" Column="1" TopLine="237"/>
     721        <Filename Value="Application/UCustomCGIApplication.pas"/>
     722        <Caret Line="107" Column="1" TopLine="95"/>
    565723      </Position7>
    566724      <Position8>
    567         <Filename Value="UCore.pas"/>
    568         <Caret Line="112" Column="1" TopLine="89"/>
     725        <Filename Value="Application/UCustomCGIApplication.pas"/>
     726        <Caret Line="108" Column="1" TopLine="95"/>
    569727      </Position8>
    570728      <Position9>
    571729        <Filename Value="Application/UCustomCGIApplication.pas"/>
    572         <Caret Line="100" Column="23" TopLine="86"/>
     730        <Caret Line="109" Column="1" TopLine="95"/>
    573731      </Position9>
    574732      <Position10>
    575733        <Filename Value="Application/UCustomCGIApplication.pas"/>
    576         <Caret Line="218" Column="45" TopLine="195"/>
     734        <Caret Line="110" Column="1" TopLine="95"/>
    577735      </Position10>
    578736      <Position11>
    579737        <Filename Value="Application/UCustomCGIApplication.pas"/>
    580         <Caret Line="216" Column="21" TopLine="202"/>
     738        <Caret Line="111" Column="1" TopLine="95"/>
    581739      </Position11>
    582740      <Position12>
    583         <Filename Value="Common/UCGIApplication.pas"/>
    584         <Caret Line="128" Column="1" TopLine="49"/>
     741        <Filename Value="Application/UCustomCGIApplication.pas"/>
     742        <Caret Line="112" Column="1" TopLine="95"/>
    585743      </Position12>
    586744      <Position13>
    587745        <Filename Value="Application/UCustomCGIApplication.pas"/>
    588         <Caret Line="219" Column="64" TopLine="201"/>
     746        <Caret Line="113" Column="1" TopLine="95"/>
    589747      </Position13>
    590748      <Position14>
    591         <Filename Value="Pages/UMainPage.pas"/>
    592         <Caret Line="217" Column="1" TopLine="233"/>
     749        <Filename Value="Application/UCustomCGIApplication.pas"/>
     750        <Caret Line="114" Column="1" TopLine="95"/>
    593751      </Position14>
    594752      <Position15>
    595         <Filename Value="Pages/UMainPage.pas"/>
    596         <Caret Line="192" Column="27" TopLine="177"/>
     753        <Filename Value="Application/UCustomCGIApplication.pas"/>
     754        <Caret Line="115" Column="1" TopLine="95"/>
    597755      </Position15>
    598756      <Position16>
    599         <Filename Value="Pages/UMainPage.pas"/>
    600         <Caret Line="193" Column="8" TopLine="177"/>
     757        <Filename Value="Application/UCustomCGIApplication.pas"/>
     758        <Caret Line="116" Column="1" TopLine="95"/>
    601759      </Position16>
    602760      <Position17>
    603761        <Filename Value="Application/UCustomCGIApplication.pas"/>
    604         <Caret Line="211" Column="22" TopLine="201"/>
     762        <Caret Line="118" Column="1" TopLine="95"/>
    605763      </Position17>
    606764      <Position18>
    607         <Filename Value="Pages/UMainPage.pas"/>
    608         <Caret Line="243" Column="14" TopLine="225"/>
     765        <Filename Value="Application/UCustomCGIApplication.pas"/>
     766        <Caret Line="122" Column="1" TopLine="99"/>
    609767      </Position18>
    610768      <Position19>
    611         <Filename Value="Pages/UMainPage.pas"/>
    612         <Caret Line="251" Column="13" TopLine="225"/>
     769        <Filename Value="WebServer/UHTTPServerCGI.pas"/>
     770        <Caret Line="75" Column="1" TopLine="61"/>
    613771      </Position19>
    614772      <Position20>
    615         <Filename Value="UCore.pas"/>
    616         <Caret Line="102" Column="32" TopLine="97"/>
     773        <Filename Value="WebServer/UHTTPServerTCP.pas"/>
     774        <Caret Line="89" Column="18" TopLine="75"/>
    617775      </Position20>
    618776      <Position21>
    619         <Filename Value="Pages/UMainPage.pas"/>
    620         <Caret Line="243" Column="16" TopLine="225"/>
     777        <Filename Value="WebServer/UHTTPServerCGI.pas"/>
     778        <Caret Line="23" Column="1" TopLine="6"/>
    621779      </Position21>
    622780      <Position22>
    623         <Filename Value="Application/UCustomCGIApplication.pas"/>
    624         <Caret Line="107" Column="22" TopLine="92"/>
     781        <Filename Value="WebServer/UHTTPServerCGI.pas"/>
     782        <Caret Line="73" Column="27" TopLine="59"/>
    625783      </Position22>
    626784      <Position23>
    627         <Filename Value="Application/UCustomCGIApplication.pas"/>
    628         <Caret Line="100" Column="1" TopLine="92"/>
     785        <Filename Value="WebServer/UHTTPServerCGI.pas"/>
     786        <Caret Line="74" Column="52" TopLine="60"/>
    629787      </Position23>
    630788      <Position24>
    631         <Filename Value="Common/UCGIApplication.pas"/>
    632         <Caret Line="29" Column="27" TopLine="75"/>
     789        <Filename Value="WebServer/UHTTPServerCGI.pas"/>
     790        <Caret Line="73" Column="33" TopLine="59"/>
    633791      </Position24>
    634792      <Position25>
    635         <Filename Value="Common/UCGIApplication.pas"/>
    636         <Caret Line="85" Column="1" TopLine="75"/>
     793        <Filename Value="WebServer/UHTTPServerCGI.pas"/>
     794        <Caret Line="28" Column="61" TopLine="5"/>
    637795      </Position25>
    638796      <Position26>
    639         <Filename Value="Application/UCustomCGIApplication.pas"/>
    640         <Caret Line="101" Column="25" TopLine="92"/>
     797        <Filename Value="WebServer/UHTTPServerTCP.pas"/>
     798        <Caret Line="89" Column="18" TopLine="75"/>
    641799      </Position26>
    642800      <Position27>
    643         <Filename Value="index.pas"/>
    644         <Caret Line="12" Column="1" TopLine="1"/>
     801        <Filename Value="WebServer/UHTTPServerTCP.pas"/>
     802        <Caret Line="86" Column="33" TopLine="72"/>
    645803      </Position27>
    646804      <Position28>
    647         <Filename Value="UCore.pas"/>
    648         <Caret Line="101" Column="1" TopLine="87"/>
     805        <Filename Value="WebServer/UHTTPServerTCP.pas"/>
     806        <Caret Line="108" Column="14" TopLine="100"/>
    649807      </Position28>
    650808      <Position29>
    651         <Filename Value="UCore.pas"/>
    652         <Caret Line="102" Column="1" TopLine="87"/>
     809        <Filename Value="WebServer/UHTTPServerCGI.pas"/>
     810        <Caret Line="91" Column="20" TopLine="68"/>
    653811      </Position29>
    654       <Position30>
    655         <Filename Value="UCore.pas"/>
    656         <Caret Line="90" Column="1" TopLine="84"/>
    657       </Position30>
    658812    </JumpHistory>
    659813  </ProjectOptions>
    … …  
    664818    </Target>
    665819    <SearchPaths>
    666       <OtherUnitFiles Value="/usr/lib/mysql/;/usr/lib64/mysql/;Pages/;Common/;Application/"/>
     820      <OtherUnitFiles Value="/usr/lib/mysql/;/usr/lib64/mysql/;Pages/;Common/;Application/;WebServer/;Network/"/>
    667821      <UnitOutputDirectory Value="bin"/>
    668822      <LCLWidgetType Value="gtk2"/>
    … …  
    698852    </Other>
    699853  </CompilerOptions>
     854  <Debugging>
     855    <BreakPoints Count="1">
     856      <Item1>
     857        <Source Value="Application/UCustomCGIApplication.pas"/>
     858        <Line Value="91"/>
     859      </Item1>
     860    </BreakPoints>
     861  </Debugging>
    700862</CONFIG>

  • trunk/index.pas

    r27 r32  
    44
    55uses
    6   UCore, USqlDatabase, SysUtils, Contnrs,
    7   UCGIApplication, UStringListEx, UMainPage, UCustomCGIApplication;
     6  UCore, USqlDatabase, SysUtils, Contnrs, UCGIApplication, UStringListEx,
     7  UMainPage, UCustomCGIApplication, UUser, UHTTPSessionMySQL, UHTTPSessionFile,
     8  UCommon, UHTTPServer, UHTTPServerTCP, UHTTPServerCGI, UTCPServer, UPool,
     9  UMemoryStreamEx, UMIMEType;
    810
    911var

  • trunk/languages/index.cs.po

    r25 r32  
    1818msgstr "Chyba převodu řetězce na IP adresu"
    1919
     20#: uhttpserver.semptyhttphandler
     21msgctxt "uhttpserver.semptyhttphandler"
     22msgid "No handler defined for HTTP server."
     23msgstr ""
     24
     25#: uhttpserver.sfilenotfound
     26msgid "File %s not found."
     27msgstr ""
     28
     29#: uhttpservercgi.semptyhttphandler
     30msgctxt "uhttpservercgi.semptyhttphandler"
     31msgid "No handler defined for HTTP server"
     32msgstr ""
     33

  • trunk/languages/index.po

    r25 r32  
    1010msgstr ""
    1111
     12#: uhttpserver.semptyhttphandler
     13msgctxt "uhttpserver.semptyhttphandler"
     14msgid "No handler defined for HTTP server."
     15msgstr ""
     16
     17#: uhttpserver.sfilenotfound
     18msgid "File %s not found."
     19msgstr ""
     20
     21#: uhttpservercgi.semptyhttphandler
     22msgctxt "uhttpservercgi.semptyhttphandler"
     23msgid "No handler defined for HTTP server"
     24msgstr ""
     25
Note: See TracChangeset for help on using the changeset viewer.