Changeset 34


Ignore:
Timestamp:
Sep 13, 2010, 11:45:27 AM (14 years ago)
Author:
george
Message:
  • Opraveno: Načítání session.
  • Opraveno: Úniky paměti.
Location:
trunk
Files:
6 edited

Legend:

Unmodified
Added
Removed

  • trunk/Application/UCustomApplication.pas

    r33 r34  
    7676  DbRows: TDbRows;
    7777begin
    78   Database := TSqlDatabase.Create;
    7978  with Database do begin
    8079    Hostname := DatabaseHostName;
    … …  
    8483    Connect;
    8584  end;
    86   DbRows := Database.Query('SET NAMES utf8');
    87   DbRows.Free;
     85  try
     86    DbRows := Database.Query('SET NAMES utf8');
     87  finally
     88    DbRows.Free;
     89  end;
    8890end;
    8991
    … …  
    9395  TitleTag: THtmlString;
    9496begin
    95   HTTPServer.ShowExceptions := False;
    9697  with HandlerData do begin
    9798  Style := ConfigStyle;
    … …  
    130131  inherited;
    131132  Database := TSqlDatabase.Create;
    132   InitDatabase;
    133133  Pages := TObjectList.Create;
    134134  HtmlDocument := THtmlDocument.Create;
    … …  
    250250procedure TCustomApplication.Run;
    251251begin
     252  InitDatabase;
     253  //Database.Query('SELECT * FROM ssss');
    252254  HTTPServer.SessionStorage := THTTPSessionStorageMySQL.Create;
    253255  THTTPSessionStorageMySQL(HTTPServer.SessionStorage).SqlDatabase := Database;

  • trunk/CGI.lpi

    r33 r34  
    4848        <TopLine Value="3"/>
    4949        <CursorPos X="29" Y="25"/>
    50         <UsageCount Value="185"/>
     50        <UsageCount Value="187"/>
    5151        <Loaded Value="True"/>
    5252        <LoadedDesigner Value="True"/>
    … …  
    6161        <TopLine Value="259"/>
    6262        <CursorPos X="47" Y="281"/>
    63         <UsageCount Value="181"/>
     63        <UsageCount Value="183"/>
    6464        <Loaded Value="True"/>
    6565        <DefaultSyntaxHighlighter Value="Delphi"/>
    … …  
    8787        <TopLine Value="37"/>
    8888        <CursorPos X="69" Y="51"/>
    89         <UsageCount Value="185"/>
     89        <UsageCount Value="187"/>
    9090        <Loaded Value="True"/>
    9191        <DefaultSyntaxHighlighter Value="Delphi"/>
    … …  
    158158        <TopLine Value="91"/>
    159159        <CursorPos X="10" Y="110"/>
    160         <UsageCount Value="29"/>
     160        <UsageCount Value="30"/>
    161161        <Loaded Value="True"/>
    162162        <DefaultSyntaxHighlighter Value="Delphi"/>
    … …  
    168168        <TopLine Value="283"/>
    169169        <CursorPos X="10" Y="302"/>
    170         <UsageCount Value="22"/>
     170        <UsageCount Value="23"/>
    171171        <Loaded Value="True"/>
    172172        <DefaultSyntaxHighlighter Value="Delphi"/>
    … …  
    180180        <TopLine Value="1"/>
    181181        <CursorPos X="92" Y="11"/>
    182         <UsageCount Value="160"/>
     182        <UsageCount Value="162"/>
    183183        <Loaded Value="True"/>
    184184        <DefaultSyntaxHighlighter Value="Delphi"/>
    … …  
    189189        <TopLine Value="108"/>
    190190        <CursorPos X="1" Y="134"/>
    191         <UsageCount Value="160"/>
     191        <UsageCount Value="162"/>
    192192        <DefaultSyntaxHighlighter Value="None"/>
    193193      </Unit15>
    … …  
    197197        <TopLine Value="1"/>
    198198        <CursorPos X="1" Y="1"/>
    199         <UsageCount Value="160"/>
     199        <UsageCount Value="162"/>
    200200        <DefaultSyntaxHighlighter Value="JScript"/>
    201201      </Unit16>
    … …  
    367367        <TopLine Value="543"/>
    368368        <CursorPos X="14" Y="556"/>
    369         <UsageCount Value="30"/>
     369        <UsageCount Value="31"/>
    370370        <Loaded Value="True"/>
    371371        <DefaultSyntaxHighlighter Value="Delphi"/>
    … …  
    377377        <TopLine Value="10"/>
    378378        <CursorPos X="22" Y="23"/>
    379         <UsageCount Value="30"/>
     379        <UsageCount Value="31"/>
    380380        <Loaded Value="True"/>
    381381        <DefaultSyntaxHighlighter Value="Delphi"/>
    … …  
    388388        <TopLine Value="1140"/>
    389389        <CursorPos X="26" Y="1143"/>
    390         <UsageCount Value="30"/>
     390        <UsageCount Value="31"/>
    391391        <Loaded Value="True"/>
    392392        <DefaultSyntaxHighlighter Value="Delphi"/>
    … …  
    398398        <TopLine Value="43"/>
    399399        <CursorPos X="5" Y="61"/>
    400         <UsageCount Value="30"/>
     400        <UsageCount Value="31"/>
    401401        <Loaded Value="True"/>
    402402        <DefaultSyntaxHighlighter Value="Delphi"/>
    … …  
    408408        <TopLine Value="50"/>
    409409        <CursorPos X="10" Y="63"/>
    410         <UsageCount Value="30"/>
     410        <UsageCount Value="31"/>
    411411        <Loaded Value="True"/>
    412412        <DefaultSyntaxHighlighter Value="Delphi"/>
    … …  
    416416        <IsPartOfProject Value="True"/>
    417417        <UnitName Value="UStringListEx"/>
    418         <IsVisibleTab Value="True"/>
    419418        <EditorIndex Value="2"/>
    420419        <WindowIndex Value="0"/>
    421420        <TopLine Value="1"/>
    422         <CursorPos X="34" Y="14"/>
    423         <UsageCount Value="60"/>
     421        <CursorPos X="46" Y="11"/>
     422        <UsageCount Value="62"/>
    424423        <Loaded Value="True"/>
    425424        <DefaultSyntaxHighlighter Value="Delphi"/>
    … …  
    437436        <Filename Value="Common/UDatabase.pas"/>
    438437        <IsPartOfProject Value="True"/>
    439         <UsageCount Value="60"/>
     438        <UsageCount Value="62"/>
    440439        <DefaultSyntaxHighlighter Value="Delphi"/>
    441440      </Unit42>
    … …  
    448447        <TopLine Value="218"/>
    449448        <CursorPos X="1" Y="231"/>
    450         <UsageCount Value="60"/>
     449        <UsageCount Value="62"/>
    451450        <Loaded Value="True"/>
    452451        <DefaultSyntaxHighlighter Value="Delphi"/>
    … …  
    458457        <EditorIndex Value="25"/>
    459458        <WindowIndex Value="0"/>
    460         <TopLine Value="247"/>
    461         <CursorPos X="61" Y="236"/>
    462         <UsageCount Value="60"/>
     459        <TopLine Value="215"/>
     460        <CursorPos X="49" Y="233"/>
     461        <UsageCount Value="62"/>
    463462        <Loaded Value="True"/>
    464463        <DefaultSyntaxHighlighter Value="Delphi"/>
    … …  
    472471        <TopLine Value="13"/>
    473472        <CursorPos X="5" Y="32"/>
    474         <UsageCount Value="60"/>
     473        <UsageCount Value="62"/>
    475474        <Loaded Value="True"/>
    476475        <DefaultSyntaxHighlighter Value="Delphi"/>
    … …  
    499498        <TopLine Value="64"/>
    500499        <CursorPos X="14" Y="78"/>
    501         <UsageCount Value="29"/>
     500        <UsageCount Value="30"/>
    502501        <Loaded Value="True"/>
    503502        <DefaultSyntaxHighlighter Value="Delphi"/>
    … …  
    507506        <EditorIndex Value="27"/>
    508507        <WindowIndex Value="0"/>
    509         <TopLine Value="377"/>
    510         <CursorPos X="3" Y="300"/>
    511         <UsageCount Value="25"/>
     508        <TopLine Value="476"/>
     509        <CursorPos X="3" Y="489"/>
     510        <UsageCount Value="26"/>
    512511        <Loaded Value="True"/>
    513512        <DefaultSyntaxHighlighter Value="Delphi"/>
    … …  
    519518        <TopLine Value="519"/>
    520519        <CursorPos X="23" Y="526"/>
    521         <UsageCount Value="25"/>
     520        <UsageCount Value="26"/>
    522521        <Loaded Value="True"/>
    523522        <DefaultSyntaxHighlighter Value="Delphi"/>
    … …  
    531530        <TopLine Value="1"/>
    532531        <CursorPos X="53" Y="18"/>
    533         <UsageCount Value="43"/>
     532        <UsageCount Value="45"/>
    534533        <Loaded Value="True"/>
    535534        <DefaultSyntaxHighlighter Value="Delphi"/>
    … …  
    543542        <TopLine Value="1"/>
    544543        <CursorPos X="56" Y="10"/>
    545         <UsageCount Value="22"/>
     544        <UsageCount Value="24"/>
    546545        <Loaded Value="True"/>
    547546        <DefaultSyntaxHighlighter Value="Delphi"/>
    … …  
    553552        <EditorIndex Value="12"/>
    554553        <WindowIndex Value="0"/>
    555         <TopLine Value="67"/>
    556         <CursorPos X="7" Y="74"/>
    557         <UsageCount Value="21"/>
     554        <TopLine Value="76"/>
     555        <CursorPos X="29" Y="94"/>
     556        <UsageCount Value="23"/>
    558557        <Loaded Value="True"/>
    559558        <DefaultSyntaxHighlighter Value="Delphi"/>
    … …  
    567566        <TopLine Value="28"/>
    568567        <CursorPos X="18" Y="45"/>
    569         <UsageCount Value="21"/>
     568        <UsageCount Value="23"/>
    570569        <Loaded Value="True"/>
    571570        <DefaultSyntaxHighlighter Value="Delphi"/>
    … …  
    579578        <TopLine Value="148"/>
    580579        <CursorPos X="52" Y="165"/>
    581         <UsageCount Value="21"/>
     580        <UsageCount Value="23"/>
    582581        <Loaded Value="True"/>
    583582        <DefaultSyntaxHighlighter Value="Delphi"/>
    … …  
    587586        <IsPartOfProject Value="True"/>
    588587        <UnitName Value="UHTTPServer"/>
     588        <IsVisibleTab Value="True"/>
    589589        <EditorIndex Value="13"/>
    590590        <WindowIndex Value="0"/>
    591         <TopLine Value="44"/>
    592         <CursorPos X="33" Y="59"/>
    593         <UsageCount Value="21"/>
     591        <TopLine Value="126"/>
     592        <CursorPos X="7" Y="143"/>
     593        <UsageCount Value="23"/>
    594594        <Loaded Value="True"/>
    595595        <DefaultSyntaxHighlighter Value="Delphi"/>
    … …  
    603603        <TopLine Value="82"/>
    604604        <CursorPos X="65" Y="100"/>
    605         <UsageCount Value="21"/>
     605        <UsageCount Value="23"/>
    606606        <Loaded Value="True"/>
    607607        <DefaultSyntaxHighlighter Value="Delphi"/>
    … …  
    613613        <EditorIndex Value="21"/>
    614614        <WindowIndex Value="0"/>
    615         <TopLine Value="121"/>
    616         <CursorPos X="50" Y="139"/>
    617         <UsageCount Value="21"/>
     615        <TopLine Value="27"/>
     616        <CursorPos X="3" Y="29"/>
     617        <UsageCount Value="23"/>
    618618        <Loaded Value="True"/>
    619619        <DefaultSyntaxHighlighter Value="Delphi"/>
    … …  
    627627        <TopLine Value="1"/>
    628628        <CursorPos X="6" Y="15"/>
    629         <UsageCount Value="20"/>
     629        <UsageCount Value="22"/>
    630630        <Loaded Value="True"/>
    631631        <DefaultSyntaxHighlighter Value="Delphi"/>
    … …  
    639639        <TopLine Value="119"/>
    640640        <CursorPos X="66" Y="143"/>
    641         <UsageCount Value="20"/>
     641        <UsageCount Value="22"/>
    642642        <Loaded Value="True"/>
    643643        <DefaultSyntaxHighlighter Value="Delphi"/>
    … …  
    651651        <TopLine Value="74"/>
    652652        <CursorPos X="52" Y="92"/>
    653         <UsageCount Value="20"/>
     653        <UsageCount Value="22"/>
    654654        <Loaded Value="True"/>
    655655        <DefaultSyntaxHighlighter Value="Delphi"/>
    … …  
    663663        <TopLine Value="12"/>
    664664        <CursorPos X="15" Y="25"/>
    665         <UsageCount Value="20"/>
     665        <UsageCount Value="22"/>
    666666        <Loaded Value="True"/>
    667667        <DefaultSyntaxHighlighter Value="Delphi"/>
    … …  
    675675        <TopLine Value="660"/>
    676676        <CursorPos X="3" Y="687"/>
    677         <UsageCount Value="20"/>
     677        <UsageCount Value="22"/>
    678678        <Loaded Value="True"/>
    679679        <DefaultSyntaxHighlighter Value="Delphi"/>
    … …  
    686686        <TopLine Value="383"/>
    687687        <CursorPos X="15" Y="397"/>
    688         <UsageCount Value="10"/>
     688        <UsageCount Value="11"/>
    689689        <Loaded Value="True"/>
    690690      </Unit64>
    … …  
    695695        <EditorIndex Value="1"/>
    696696        <WindowIndex Value="0"/>
    697         <TopLine Value="19"/>
    698         <CursorPos X="64" Y="112"/>
    699         <UsageCount Value="20"/>
     697        <TopLine Value="74"/>
     698        <CursorPos X="44" Y="86"/>
     699        <UsageCount Value="22"/>
    700700        <Loaded Value="True"/>
    701701        <DefaultSyntaxHighlighter Value="Delphi"/>
    … …  
    707707        <TopLine Value="690"/>
    708708        <CursorPos X="3" Y="695"/>
    709         <UsageCount Value="10"/>
     709        <UsageCount Value="11"/>
    710710        <Loaded Value="True"/>
    711711        <DefaultSyntaxHighlighter Value="Delphi"/>
    … …  
    715715      <Position1>
    716716        <Filename Value="WebServer/UHTTPSessionMySQL.pas"/>
    717         <Caret Line="54" Column="22" TopLine="51"/>
     717        <Caret Line="38" Column="1" TopLine="25"/>
    718718      </Position1>
    719719      <Position2>
    720         <Filename Value="WebServer/UHTTPServer.pas"/>
    721         <Caret Line="135" Column="41" TopLine="118"/>
     720        <Filename Value="WebServer/UHTTPSessionMySQL.pas"/>
     721        <Caret Line="40" Column="1" TopLine="25"/>
    722722      </Position2>
    723723      <Position3>
    724         <Filename Value="WebServer/UHTTPServer.pas"/>
    725         <Caret Line="55" Column="25" TopLine="44"/>
     724        <Filename Value="WebServer/UHTTPSessionMySQL.pas"/>
     725        <Caret Line="41" Column="1" TopLine="25"/>
    726726      </Position3>
    727727      <Position4>
    728         <Filename Value="WebServer/UHTTPServer.pas"/>
    729         <Caret Line="56" Column="23" TopLine="44"/>
     728        <Filename Value="WebServer/UHTTPSessionMySQL.pas"/>
     729        <Caret Line="42" Column="1" TopLine="25"/>
    730730      </Position4>
    731731      <Position5>
    732         <Filename Value="WebServer/UHTTPSessionFile.pas"/>
    733         <Caret Line="45" Column="12" TopLine="28"/>
     732        <Filename Value="WebServer/UHTTPSessionMySQL.pas"/>
     733        <Caret Line="43" Column="1" TopLine="25"/>
    734734      </Position5>
    735735      <Position6>
    736736        <Filename Value="WebServer/UHTTPSessionMySQL.pas"/>
    737         <Caret Line="59" Column="27" TopLine="51"/>
     737        <Caret Line="44" Column="1" TopLine="25"/>
    738738      </Position6>
    739739      <Position7>
    740740        <Filename Value="WebServer/UHTTPSessionMySQL.pas"/>
    741         <Caret Line="57" Column="1" TopLine="51"/>
     741        <Caret Line="46" Column="1" TopLine="25"/>
    742742      </Position7>
    743743      <Position8>
    744744        <Filename Value="WebServer/UHTTPSessionMySQL.pas"/>
    745         <Caret Line="60" Column="1" TopLine="51"/>
     745        <Caret Line="48" Column="1" TopLine="26"/>
    746746      </Position8>
    747747      <Position9>
    748748        <Filename Value="WebServer/UHTTPSessionMySQL.pas"/>
    749         <Caret Line="67" Column="1" TopLine="51"/>
     749        <Caret Line="49" Column="1" TopLine="27"/>
    750750      </Position9>
    751751      <Position10>
    752752        <Filename Value="WebServer/UHTTPSessionMySQL.pas"/>
    753         <Caret Line="68" Column="1" TopLine="51"/>
     753        <Caret Line="74" Column="9" TopLine="64"/>
    754754      </Position10>
    755755      <Position11>
    756         <Filename Value="WebServer/UHTTPSessionMySQL.pas"/>
    757         <Caret Line="69" Column="1" TopLine="51"/>
     756        <Filename Value="WebServer/UHTTPServerCGI.pas"/>
     757        <Caret Line="31" Column="16" TopLine="16"/>
    758758      </Position11>
    759759      <Position12>
    760         <Filename Value="WebServer/UHTTPSessionMySQL.pas"/>
    761         <Caret Line="70" Column="1" TopLine="51"/>
     760        <Filename Value="WebServer/UHTTPServerCGI.pas"/>
     761        <Caret Line="23" Column="1" TopLine="1"/>
    762762      </Position12>
    763763      <Position13>
    764         <Filename Value="WebServer/UHTTPSessionMySQL.pas"/>
    765         <Caret Line="71" Column="1" TopLine="51"/>
     764        <Filename Value="WebServer/UHTTPServerCGI.pas"/>
     765        <Caret Line="143" Column="47" TopLine="123"/>
    766766      </Position13>
    767767      <Position14>
    768         <Filename Value="WebServer/UHTTPSessionMySQL.pas"/>
    769         <Caret Line="74" Column="1" TopLine="52"/>
     768        <Filename Value="WebServer/UHTTPServerCGI.pas"/>
     769        <Caret Line="122" Column="88" TopLine="109"/>
    770770      </Position14>
    771771      <Position15>
    772         <Filename Value="WebServer/UHTTPSessionMySQL.pas"/>
    773         <Caret Line="38" Column="1" TopLine="25"/>
     772        <Filename Value="WebServer/UHTTPServerCGI.pas"/>
     773        <Caret Line="144" Column="58" TopLine="114"/>
    774774      </Position15>
    775775      <Position16>
    776         <Filename Value="WebServer/UHTTPSessionMySQL.pas"/>
    777         <Caret Line="40" Column="1" TopLine="25"/>
     776        <Filename Value="Common/UStringListEx.pas"/>
     777        <Caret Line="32" Column="1" TopLine="18"/>
    778778      </Position16>
    779779      <Position17>
    780         <Filename Value="WebServer/UHTTPSessionMySQL.pas"/>
    781         <Caret Line="41" Column="1" TopLine="25"/>
     780        <Filename Value="WebServer/UHTTPServerCGI.pas"/>
     781        <Caret Line="139" Column="50" TopLine="121"/>
    782782      </Position17>
    783783      <Position18>
    784         <Filename Value="WebServer/UHTTPSessionMySQL.pas"/>
    785         <Caret Line="42" Column="1" TopLine="25"/>
     784        <Filename Value="WebServer/UHTTPServerCGI.pas"/>
     785        <Caret Line="145" Column="32" TopLine="121"/>
    786786      </Position18>
    787787      <Position19>
    788         <Filename Value="WebServer/UHTTPSessionMySQL.pas"/>
    789         <Caret Line="43" Column="1" TopLine="25"/>
     788        <Filename Value="WebServer/UHTTPServerCGI.pas"/>
     789        <Caret Line="122" Column="102" TopLine="121"/>
    790790      </Position19>
    791791      <Position20>
    792         <Filename Value="WebServer/UHTTPSessionMySQL.pas"/>
    793         <Caret Line="44" Column="1" TopLine="25"/>
     792        <Filename Value="WebServer/UHTTPServer.pas"/>
     793        <Caret Line="399" Column="18" TopLine="392"/>
    794794      </Position20>
    795795      <Position21>
    796         <Filename Value="WebServer/UHTTPSessionMySQL.pas"/>
    797         <Caret Line="46" Column="1" TopLine="25"/>
     796        <Filename Value="WebServer/UHTTPServer.pas"/>
     797        <Caret Line="394" Column="37" TopLine="378"/>
    798798      </Position21>
    799799      <Position22>
    800         <Filename Value="WebServer/UHTTPSessionMySQL.pas"/>
    801         <Caret Line="48" Column="1" TopLine="26"/>
     800        <Filename Value="WebServer/UHTTPServer.pas"/>
     801        <Caret Line="105" Column="83" TopLine="87"/>
    802802      </Position22>
    803803      <Position23>
    804         <Filename Value="WebServer/UHTTPSessionMySQL.pas"/>
    805         <Caret Line="49" Column="1" TopLine="27"/>
     804        <Filename Value="WebServer/UHTTPServer.pas"/>
     805        <Caret Line="173" Column="41" TopLine="168"/>
    806806      </Position23>
    807807      <Position24>
    808         <Filename Value="WebServer/UHTTPSessionMySQL.pas"/>
    809         <Caret Line="74" Column="9" TopLine="64"/>
     808        <Filename Value="Application/UCustomApplication.pas"/>
     809        <Caret Line="95" Column="25" TopLine="83"/>
    810810      </Position24>
    811811      <Position25>
    812         <Filename Value="WebServer/UHTTPServerCGI.pas"/>
    813         <Caret Line="31" Column="16" TopLine="16"/>
     812        <Filename Value="WebServer/UHTTPServer.pas"/>
     813        <Caret Line="105" Column="72" TopLine="92"/>
    814814      </Position25>
    815815      <Position26>
    816816        <Filename Value="WebServer/UHTTPServerCGI.pas"/>
    817         <Caret Line="23" Column="1" TopLine="1"/>
     817        <Caret Line="44" Column="38" TopLine="39"/>
    818818      </Position26>
    819819      <Position27>
    820         <Filename Value="WebServer/UHTTPServerCGI.pas"/>
    821         <Caret Line="143" Column="47" TopLine="123"/>
     820        <Filename Value="Application/UCustomApplication.pas"/>
     821        <Caret Line="252" Column="6" TopLine="232"/>
    822822      </Position27>
    823823      <Position28>
    824         <Filename Value="WebServer/UHTTPServerCGI.pas"/>
    825         <Caret Line="122" Column="88" TopLine="109"/>
     824        <Filename Value="Application/UCustomApplication.pas"/>
     825        <Caret Line="31" Column="25" TopLine="18"/>
    826826      </Position28>
    827827      <Position29>
    828         <Filename Value="WebServer/UHTTPServerCGI.pas"/>
    829         <Caret Line="144" Column="58" TopLine="114"/>
     828        <Filename Value="WebServer/UHTTPSessionMySQL.pas"/>
     829        <Caret Line="97" Column="21" TopLine="85"/>
    830830      </Position29>
    831831      <Position30>
    832         <Filename Value="Common/UStringListEx.pas"/>
    833         <Caret Line="32" Column="1" TopLine="18"/>
     832        <Filename Value="WebServer/UHTTPServer.pas"/>
     833        <Caret Line="56" Column="27" TopLine="43"/>
    834834      </Position30>
    835835    </JumpHistory>
    … …  
    851851        <AllowLabel Value="False"/>
    852852        <CPPInline Value="False"/>
    853         <UseAnsiStrings Value="False"/>
    854853      </SyntaxOptions>
    855854    </Parsing>

  • trunk/Common/USqlDatabase.pas

    r33 r34  
    225225  mysql_query(FSession, PChar(Data));
    226226  if LastErrorNumber <> 0 then begin
    227     raise EQueryError.Create(Format(SDatabaseQueryError, [Data]));
     227    raise EQueryError.Create(Format(SDatabaseQueryError, [LastErrorMessage]));
    228228  end;
    229229

  • trunk/WebServer/UHTTPServer.pas

    r33 r34  
    141141    end;
    142142
    143     WriteString('Session id: ' + SessionId);
     143    //WriteString('Session id: ' + SessionId);
    144144    WriteString('<h5>Session variables</h5>');
    145145    for I := 0 to Session.Count - 1 do begin;
    … …  
    201201constructor THTTPServer.Create;
    202202begin
     203  ShowExceptions := False;
    203204  DocumentRoot := './';
    204205  Name := 'THTTPServer';
    … …  
    207208destructor THTTPServer.Destroy;
    208209begin
     210  SessionStorage.Free;
    209211  inherited Destroy;
    210212end;
    … …  
    223225  Stream.Free;
    224226  Headers.Free;
     227  Cookies.Free;
    225228  inherited Destroy;
    226229end;
    … …  
    395398    begin
    396399      for i := 0 to FrameCount - 1 do
    397         Writeln(hstdout^, BackTraceStrFunc(TArrayOfPointer(Frames)[i]));
     400        if I < Length(TArrayOfPointer(Frames)) then
     401          Writeln(hstdout^, BackTraceStrFunc(TArrayOfPointer(Frames)[i]));
    398402    end;
    399403  Writeln(hstdout^,'');
    … …  
    426430    begin
    427431      for i := 0 to FrameCount - 1 do
    428         Writeln(hstderr^, BackTraceStrFunc(TArrayOfPointer(Frames)[i]));
     432        if I < Length(TArrayOfPointer(Frames)) then
     433          Writeln(hstderr^, BackTraceStrFunc(TArrayOfPointer(Frames)[i]));
    429434    end;
    430435  Writeln(hstderr^,'');

  • trunk/WebServer/UHTTPServerCGI.pas

    r33 r34  
    11unit UHTTPServerCGI;
    22
    3 {$mode delphi}
     3{$mode delphi}{$H+}
    44
    55interface

  • trunk/WebServer/UHTTPSessionMySQL.pas

    r33 r34  
    9292    if DbRows.Count > 0 then
    9393      DbRows2 := SqlDatabase.Query('UPDATE `HTTPSession` SET `Variables`="' + HandlerData.Session.Text
    94         + '" WHERE `Identification`="' + HandlerData.SessionId + '", `Time` = NOW()')
     94        + '", `Time` = NOW() WHERE `Identification`="' + HandlerData.SessionId + '"')
    9595    else DbRows2 := SqlDatabase.Query('INSERT INTO `HTTPSession` (`Time`,  `Variables`, `Identification`) VALUES (' +
    9696    'NOW(), "' + HandlerData.Session.Text + '", "' + HandlerData.SessionId + '")');
Note: See TracChangeset for help on using the changeset viewer.