Changeset 85


Ignore:
Timestamp:
Dec 16, 2009, 1:21:06 PM (15 years ago)
Author:
george
Message:
  • Opraveno: Načítat nastavení databáze z konfiguračního souboru.
Location:
branches/DirectWeb
Files:
5 edited

Legend:

Unmodified
Added
Removed
  • branches/DirectWeb/ConfigSample.xml

    r84 r85  
    1010    <address>0.0.0.0</address>
    1111    <port>80</port>
     12    <thread_pool>10</thread_pool>
    1213  </server>
    1314</configuration>
  • branches/DirectWeb/ReadMe.txt

    r84 r85  
    77
    88
     92) Konfigurační soubor
     10
     11Vytvořte soubor Config.xml jako kopii souboru ConfigSample.xml.
     12Upravte jeho obsah podle potřeb.
     13
     14
  • branches/DirectWeb/UHTTPServer.pas

    r82 r85  
    153153  end else
    154154  with Response.Stream do begin
     155    WriteLn('File ' + Request.Path + ' not found.');
    155156    WriteString('<html><body>File ' + Request.Path + ' not found.</body></html>');
    156157  end;
  • branches/DirectWeb/UWebServer.pas

    r84 r85  
    150150  begin
    151151    WriteHeader(Stream);
    152     HostName := 'localhost';
    153     UserName := 'root';
    154     Password := 'severjih';
    155     Database := 'dispecink';
     152    HostName := Self.HostName;
     153    UserName := Self.UserName;
     154    Password := Self.Password;
     155    Database := Self.Schema;
    156156    Connect;
    157157    WriteString(Request.Query.Values['Table']);
     
    215215  begin
    216216    WriteHeader(Stream);
    217     HostName := 'localhost';
    218     UserName := 'root';
    219     Password := 'severjih';
    220     Database := 'dispecink';
     217    HostName := Self.HostName;
     218    UserName := Self.UserName;
     219    Password := Self.Password;
     220    Database := Self.Schema;
    221221    Connect;
    222222    DbRows := Query('SELECT * FROM ' + Request.Query.Values['Table'] +
     
    288288  HTTPServer := THTTPServer.Create;
    289289  with HTTPServer, Socket do begin
    290     DocumentRoot := './';
     290    DocumentRoot := 'Data';
    291291    with RequestHandlerList do begin
    292292      Add('/', SendIndex);
  • branches/DirectWeb/WoWHostingWebServer.lpi

    r82 r85  
    1313      <Icon Value="0"/>
    1414      <UseXPManifest Value="True"/>
    15       <ActiveEditorIndexAtStart Value="1"/>
     15      <ActiveEditorIndexAtStart Value="4"/>
    1616    </General>
    1717    <VersionInfo>
     
    3737      </Item1>
    3838    </RequiredPackages>
    39     <Units Count="22">
     39    <Units Count="25">
    4040      <Unit0>
    4141        <Filename Value="WoWHostingWebServer.lpr"/>
    4242        <IsPartOfProject Value="True"/>
    4343        <UnitName Value="WoWHostingWebServer"/>
    44         <CursorPos X="40" Y="19"/>
     44        <CursorPos X="1" Y="1"/>
    4545        <TopLine Value="1"/>
    4646        <EditorIndex Value="0"/>
     
    7676        <IsPartOfProject Value="True"/>
    7777        <UnitName Value="UHTTPServer"/>
    78         <CursorPos X="3" Y="56"/>
    79         <TopLine Value="39"/>
     78        <CursorPos X="23" Y="153"/>
     79        <TopLine Value="141"/>
    8080        <EditorIndex Value="4"/>
    8181        <UsageCount Value="200"/>
     
    9191        <Filename Value="..\..\..\..\Knihovny\Free Pascal\synapse\blcksock.pas"/>
    9292        <UnitName Value="blcksock"/>
    93         <CursorPos X="55" Y="1924"/>
    94         <TopLine Value="1922"/>
     93        <CursorPos X="13" Y="1802"/>
     94        <TopLine Value="1797"/>
    9595        <EditorIndex Value="8"/>
    9696        <UsageCount Value="100"/>
     
    101101        <IsPartOfProject Value="True"/>
    102102        <UnitName Value="UTCPServer"/>
    103         <CursorPos X="31" Y="22"/>
    104         <TopLine Value="7"/>
     103        <CursorPos X="1" Y="1"/>
     104        <TopLine Value="1"/>
    105105        <EditorIndex Value="3"/>
    106106        <UsageCount Value="200"/>
     
    120120        <Filename Value="..\..\..\..\Knihovny\Free Pascal\synapse\sswin32.pas"/>
    121121        <UnitName Value="sswin32"/>
    122         <CursorPos X="3" Y="266"/>
    123         <TopLine Value="251"/>
    124         <UsageCount Value="6"/>
     122        <CursorPos X="54" Y="330"/>
     123        <TopLine Value="327"/>
     124        <UsageCount Value="12"/>
    125125      </Unit10>
    126126      <Unit11>
     
    130130        <CursorPos X="24" Y="61"/>
    131131        <TopLine Value="1"/>
    132         <UsageCount Value="69"/>
     132        <UsageCount Value="74"/>
    133133      </Unit11>
    134134      <Unit12>
     
    151151        <TopLine Value="121"/>
    152152        <EditorIndex Value="7"/>
    153         <UsageCount Value="68"/>
     153        <UsageCount Value="73"/>
    154154        <Loaded Value="True"/>
    155155      </Unit14>
    156156      <Unit15>
    157         <Filename Value="UMimeType.pas"/>
     157        <Filename Value="UMIMEType.pas"/>
    158158        <IsPartOfProject Value="True"/>
    159159        <UnitName Value="UMIMEType"/>
     
    161161        <TopLine Value="25"/>
    162162        <EditorIndex Value="6"/>
    163         <UsageCount Value="68"/>
     163        <UsageCount Value="73"/>
    164164        <Loaded Value="True"/>
    165165      </Unit15>
     
    170170        <TopLine Value="330"/>
    171171        <EditorIndex Value="2"/>
    172         <UsageCount Value="33"/>
     172        <UsageCount Value="35"/>
    173173        <Loaded Value="True"/>
    174174      </Unit16>
     
    202202        <IsPartOfProject Value="True"/>
    203203        <UnitName Value="UWebServer"/>
    204         <CursorPos X="23" Y="74"/>
    205         <TopLine Value="60"/>
     204        <CursorPos X="31" Y="295"/>
     205        <TopLine Value="277"/>
    206206        <EditorIndex Value="1"/>
    207         <UsageCount Value="58"/>
     207        <UsageCount Value="63"/>
    208208        <Loaded Value="True"/>
    209209      </Unit21>
     210      <Unit22>
     211        <Filename Value="..\..\..\..\..\Programy\Lazarus_0.9.29\fpc\2.3.1\source\rtl\win\winsock.pp"/>
     212        <UnitName Value="winsock"/>
     213        <CursorPos X="25" Y="58"/>
     214        <TopLine Value="31"/>
     215        <UsageCount Value="10"/>
     216      </Unit22>
     217      <Unit23>
     218        <Filename Value="ConfigSample.xml"/>
     219        <IsPartOfProject Value="True"/>
     220        <CursorPos X="32" Y="11"/>
     221        <TopLine Value="1"/>
     222        <EditorIndex Value="10"/>
     223        <UsageCount Value="21"/>
     224        <Loaded Value="True"/>
     225        <SyntaxHighlighter Value="XML"/>
     226      </Unit23>
     227      <Unit24>
     228        <Filename Value="ReadMe.txt"/>
     229        <IsPartOfProject Value="True"/>
     230        <CursorPos X="1" Y="8"/>
     231        <TopLine Value="1"/>
     232        <EditorIndex Value="9"/>
     233        <UsageCount Value="21"/>
     234        <Loaded Value="True"/>
     235        <SyntaxHighlighter Value="None"/>
     236      </Unit24>
    210237    </Units>
    211238    <JumpHistory Count="30" HistoryIndex="29">
    212239      <Position1>
    213240        <Filename Value="UWebServer.pas"/>
    214         <Caret Line="179" Column="1" TopLine="166"/>
     241        <Caret Line="47" Column="16" TopLine="30"/>
    215242      </Position1>
    216243      <Position2>
    217244        <Filename Value="UWebServer.pas"/>
    218         <Caret Line="13" Column="15" TopLine="1"/>
     245        <Caret Line="48" Column="39" TopLine="31"/>
    219246      </Position2>
    220247      <Position3>
    221248        <Filename Value="UWebServer.pas"/>
    222         <Caret Line="12" Column="24" TopLine="1"/>
     249        <Caret Line="11" Column="9" TopLine="1"/>
    223250      </Position3>
    224251      <Position4>
    225252        <Filename Value="UWebServer.pas"/>
    226         <Caret Line="18" Column="27" TopLine="12"/>
     253        <Caret Line="36" Column="29" TopLine="7"/>
    227254      </Position4>
    228255      <Position5>
    229256        <Filename Value="UWebServer.pas"/>
    230         <Caret Line="47" Column="24" TopLine="18"/>
     257        <Caret Line="35" Column="34" TopLine="19"/>
    231258      </Position5>
    232259      <Position6>
    233260        <Filename Value="UWebServer.pas"/>
    234         <Caret Line="13" Column="29" TopLine="1"/>
     261        <Caret Line="290" Column="22" TopLine="261"/>
    235262      </Position6>
    236263      <Position7>
    237264        <Filename Value="UWebServer.pas"/>
    238         <Caret Line="12" Column="14" TopLine="1"/>
     265        <Caret Line="272" Column="19" TopLine="255"/>
    239266      </Position7>
    240267      <Position8>
    241268        <Filename Value="UWebServer.pas"/>
    242         <Caret Line="45" Column="35" TopLine="28"/>
     269        <Caret Line="275" Column="1" TopLine="259"/>
    243270      </Position8>
    244271      <Position9>
    245272        <Filename Value="UWebServer.pas"/>
    246         <Caret Line="59" Column="19" TopLine="30"/>
     273        <Caret Line="272" Column="20" TopLine="262"/>
    247274      </Position9>
    248275      <Position10>
    249         <Filename Value="UWebServer.pas"/>
    250         <Caret Line="51" Column="13" TopLine="34"/>
     276        <Filename Value="WoWHostingWebServer.lpr"/>
     277        <Caret Line="14" Column="1" TopLine="1"/>
    251278      </Position10>
    252279      <Position11>
    253         <Filename Value="UWebServer.pas"/>
    254         <Caret Line="45" Column="7" TopLine="34"/>
     280        <Filename Value="WoWHostingWebServer.lpr"/>
     281        <Caret Line="18" Column="18" TopLine="1"/>
    255282      </Position11>
    256283      <Position12>
    257         <Filename Value="UWebServer.pas"/>
    258         <Caret Line="12" Column="22" TopLine="1"/>
     284        <Filename Value="WoWHostingWebServer.lpr"/>
     285        <Caret Line="20" Column="11" TopLine="1"/>
    259286      </Position12>
    260287      <Position13>
    261         <Filename Value="UWebServer.pas"/>
    262         <Caret Line="47" Column="16" TopLine="30"/>
     288        <Filename Value="WoWHostingWebServer.lpr"/>
     289        <Caret Line="21" Column="1" TopLine="1"/>
    263290      </Position13>
    264291      <Position14>
    265         <Filename Value="UWebServer.pas"/>
    266         <Caret Line="48" Column="39" TopLine="31"/>
     292        <Filename Value="WoWHostingWebServer.lpr"/>
     293        <Caret Line="16" Column="31" TopLine="1"/>
    267294      </Position14>
    268295      <Position15>
    269         <Filename Value="UWebServer.pas"/>
    270         <Caret Line="11" Column="9" TopLine="1"/>
     296        <Filename Value="WoWHostingWebServer.lpr"/>
     297        <Caret Line="18" Column="31" TopLine="1"/>
    271298      </Position15>
    272299      <Position16>
    273         <Filename Value="UWebServer.pas"/>
    274         <Caret Line="36" Column="29" TopLine="7"/>
     300        <Filename Value="WoWHostingWebServer.lpr"/>
     301        <Caret Line="19" Column="19" TopLine="1"/>
    275302      </Position16>
    276303      <Position17>
    277         <Filename Value="UWebServer.pas"/>
    278         <Caret Line="35" Column="34" TopLine="19"/>
     304        <Filename Value="WoWHostingWebServer.lpr"/>
     305        <Caret Line="23" Column="16" TopLine="1"/>
    279306      </Position17>
    280307      <Position18>
    281         <Filename Value="UWebServer.pas"/>
    282         <Caret Line="290" Column="22" TopLine="261"/>
     308        <Filename Value="WoWHostingWebServer.lpr"/>
     309        <Caret Line="20" Column="1" TopLine="1"/>
    283310      </Position18>
    284311      <Position19>
    285         <Filename Value="UWebServer.pas"/>
    286         <Caret Line="272" Column="19" TopLine="255"/>
     312        <Filename Value="UTCPServer.pas"/>
     313        <Caret Line="42" Column="32" TopLine="25"/>
    287314      </Position19>
    288315      <Position20>
    289         <Filename Value="UWebServer.pas"/>
    290         <Caret Line="275" Column="1" TopLine="259"/>
     316        <Filename Value="UTCPServer.pas"/>
     317        <Caret Line="80" Column="10" TopLine="74"/>
    291318      </Position20>
    292319      <Position21>
    293         <Filename Value="UWebServer.pas"/>
    294         <Caret Line="272" Column="20" TopLine="262"/>
     320        <Filename Value="..\..\..\..\Knihovny\Free Pascal\synapse\blcksock.pas"/>
     321        <Caret Line="1802" Column="13" TopLine="1797"/>
    295322      </Position21>
    296323      <Position22>
    297         <Filename Value="WoWHostingWebServer.lpr"/>
    298         <Caret Line="14" Column="1" TopLine="1"/>
     324        <Filename Value="UWebServer.pas"/>
     325        <Caret Line="152" Column="22" TopLine="139"/>
    299326      </Position22>
    300327      <Position23>
    301         <Filename Value="WoWHostingWebServer.lpr"/>
    302         <Caret Line="18" Column="18" TopLine="1"/>
     328        <Filename Value="UWebServer.pas"/>
     329        <Caret Line="133" Column="83" TopLine="116"/>
    303330      </Position23>
    304331      <Position24>
    305         <Filename Value="WoWHostingWebServer.lpr"/>
    306         <Caret Line="20" Column="11" TopLine="1"/>
     332        <Filename Value="UWebServer.pas"/>
     333        <Caret Line="154" Column="22" TopLine="135"/>
    307334      </Position24>
    308335      <Position25>
    309         <Filename Value="WoWHostingWebServer.lpr"/>
    310         <Caret Line="21" Column="1" TopLine="1"/>
     336        <Filename Value="UWebServer.pas"/>
     337        <Caret Line="133" Column="83" TopLine="116"/>
    311338      </Position25>
    312339      <Position26>
    313         <Filename Value="WoWHostingWebServer.lpr"/>
    314         <Caret Line="16" Column="31" TopLine="1"/>
     340        <Filename Value="UWebServer.pas"/>
     341        <Caret Line="211" Column="58" TopLine="197"/>
    315342      </Position26>
    316343      <Position27>
    317         <Filename Value="WoWHostingWebServer.lpr"/>
    318         <Caret Line="18" Column="31" TopLine="1"/>
     344        <Filename Value="UWebServer.pas"/>
     345        <Caret Line="51" Column="1" TopLine="34"/>
    319346      </Position27>
    320347      <Position28>
    321         <Filename Value="WoWHostingWebServer.lpr"/>
    322         <Caret Line="19" Column="19" TopLine="1"/>
     348        <Filename Value="UWebServer.pas"/>
     349        <Caret Line="68" Column="43" TopLine="132"/>
    323350      </Position28>
    324351      <Position29>
    325         <Filename Value="WoWHostingWebServer.lpr"/>
    326         <Caret Line="23" Column="16" TopLine="1"/>
     352        <Filename Value="UWebServer.pas"/>
     353        <Caret Line="296" Column="34" TopLine="277"/>
    327354      </Position29>
    328355      <Position30>
    329         <Filename Value="WoWHostingWebServer.lpr"/>
    330         <Caret Line="20" Column="1" TopLine="1"/>
     356        <Filename Value="UWebServer.pas"/>
     357        <Caret Line="295" Column="31" TopLine="277"/>
    331358      </Position30>
    332359    </JumpHistory>
     
    347374  </CompilerOptions>
    348375  <Debugging>
    349     <BreakPoints Count="3">
    350       <Item1>
    351         <Source Value="UHTTPServer.pas"/>
    352         <Line Value="219"/>
    353       </Item1>
    354       <Item2>
    355         <Source Value="UWebServer.pas"/>
    356         <Line Value="49"/>
    357       </Item2>
    358       <Item3>
    359         <Source Value="UWebServer.pas"/>
    360         <Line Value="74"/>
    361       </Item3>
    362     </BreakPoints>
    363376    <Exceptions Count="3">
    364377      <Item1>
Note: See TracChangeset for help on using the changeset viewer.