Changeset 57 for trunk


Ignore:
Timestamp:
Jul 23, 2011, 11:34:22 PM (13 years ago)
Author:
george
Message:
 
Location:
trunk
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • trunk/CGI.lpi

    r55 r57  
    5555        <IsPartOfProject Value="True"/>
    5656        <UnitName Value="CGI"/>
    57         <EditorIndex Value="0"/>
    5857        <WindowIndex Value="0"/>
    5958        <TopLine Value="5"/>
    6059        <CursorPos X="36" Y="8"/>
    6160        <UsageCount Value="203"/>
    62         <Loaded Value="True"/>
    6361        <DefaultSyntaxHighlighter Value="Delphi"/>
    6462      </Unit0>
     
    9088        <IsPartOfProject Value="True"/>
    9189        <UnitName Value="UCore"/>
    92         <EditorIndex Value="5"/>
    93         <WindowIndex Value="0"/>
    94         <TopLine Value="16"/>
    95         <CursorPos X="39" Y="41"/>
     90        <IsVisibleTab Value="True"/>
     91        <EditorIndex Value="4"/>
     92        <WindowIndex Value="0"/>
     93        <TopLine Value="1"/>
     94        <CursorPos X="15" Y="23"/>
    9695        <UsageCount Value="203"/>
    9796        <Loaded Value="True"/>
     
    591590        <Filename Value="../../PascalClassLibrary/Network/CoolWeb/WebServer/UHTTPServer.pas"/>
    592591        <UnitName Value="UHTTPServer"/>
    593         <EditorIndex Value="4"/>
     592        <EditorIndex Value="3"/>
    594593        <WindowIndex Value="0"/>
    595594        <TopLine Value="379"/>
     
    601600        <Filename Value="../../PascalClassLibrary/Network/CoolWeb/WebServer/UHTTPServerCGI.pas"/>
    602601        <UnitName Value="UHTTPServerCGI"/>
    603         <EditorIndex Value="6"/>
     602        <EditorIndex Value="5"/>
    604603        <WindowIndex Value="0"/>
    605604        <TopLine Value="1"/>
     
    709708        <ResourceBaseClass Value="DataModule"/>
    710709        <UnitName Value="UMainModule"/>
    711         <EditorIndex Value="2"/>
    712         <WindowIndex Value="0"/>
    713         <TopLine Value="233"/>
     710        <EditorIndex Value="1"/>
     711        <WindowIndex Value="0"/>
     712        <TopLine Value="45"/>
    714713        <CursorPos X="1" Y="261"/>
    715714        <UsageCount Value="50"/>
     
    771770        <ResourceBaseClass Value="DataModule"/>
    772771        <UnitName Value="UWebPage"/>
    773         <EditorIndex Value="8"/>
     772        <EditorIndex Value="7"/>
    774773        <WindowIndex Value="0"/>
    775774        <TopLine Value="1"/>
     
    863862        <Filename Value="../../PascalClassLibrary/Network/CoolWeb/WebServer/UWebApp.pas"/>
    864863        <UnitName Value="UWebApp"/>
    865         <EditorIndex Value="7"/>
     864        <EditorIndex Value="6"/>
    866865        <WindowIndex Value="0"/>
    867866        <TopLine Value="101"/>
     
    873872        <Filename Value="/usr/share/fpcsrc/2.4.2/packages/fcl-base/src/custapp.pp"/>
    874873        <UnitName Value="CustApp"/>
    875         <EditorIndex Value="1"/>
     874        <EditorIndex Value="0"/>
    876875        <WindowIndex Value="0"/>
    877876        <TopLine Value="49"/>
     
    10161015        <ResourceBaseClass Value="DataModule"/>
    10171016        <UnitName Value="UWebCamPage"/>
    1018         <IsVisibleTab Value="True"/>
    1019         <EditorIndex Value="3"/>
     1017        <EditorIndex Value="2"/>
    10201018        <WindowIndex Value="0"/>
    10211019        <TopLine Value="26"/>
     
    11481146      </Unit121>
    11491147    </Units>
    1150     <JumpHistory Count="30" HistoryIndex="29">
     1148    <JumpHistory Count="21" HistoryIndex="20">
    11511149      <Position1>
    1152         <Filename Value="CGI.lpr"/>
    1153         <Caret Line="20" Column="1" TopLine="3"/>
     1150        <Filename Value="Pages/UWebCamPage.pas"/>
     1151        <Caret Line="59" Column="1" TopLine="26"/>
    11541152      </Position1>
    11551153      <Position2>
    1156         <Filename Value="CGI.lpr"/>
    1157         <Caret Line="21" Column="1" TopLine="3"/>
     1154        <Filename Value="../../PascalClassLibrary/Network/CoolWeb/WebServer/UHTTPServer.pas"/>
     1155        <Caret Line="175" Column="1" TopLine="158"/>
    11581156      </Position2>
    11591157      <Position3>
    1160         <Filename Value="CGI.lpr"/>
    1161         <Caret Line="22" Column="1" TopLine="3"/>
     1158        <Filename Value="Pages/UWebCamPage.pas"/>
     1159        <Caret Line="43" Column="1" TopLine="26"/>
    11621160      </Position3>
    11631161      <Position4>
    1164         <Filename Value="CGI.lpr"/>
    1165         <Caret Line="23" Column="1" TopLine="3"/>
     1162        <Filename Value="../../PascalClassLibrary/Network/CoolWeb/WebServer/UWebApp.pas"/>
     1163        <Caret Line="109" Column="1" TopLine="83"/>
    11661164      </Position4>
    11671165      <Position5>
    1168         <Filename Value="CGI.lpr"/>
    1169         <Caret Line="24" Column="1" TopLine="3"/>
     1166        <Filename Value="../../PascalClassLibrary/Network/CoolWeb/WebServer/UHTTPServerCGI.pas"/>
     1167        <Caret Line="14" Column="31" TopLine="1"/>
    11701168      </Position5>
    11711169      <Position6>
    1172         <Filename Value="CGI.lpr"/>
    1173         <Caret Line="25" Column="1" TopLine="3"/>
     1170        <Filename Value="../../PascalClassLibrary/Network/CoolWeb/WebServer/UWebApp.pas"/>
     1171        <Caret Line="114" Column="18" TopLine="107"/>
    11741172      </Position6>
    11751173      <Position7>
    1176         <Filename Value="CGI.lpr"/>
    1177         <Caret Line="26" Column="1" TopLine="3"/>
     1174        <Filename Value="../../PascalClassLibrary/Network/CoolWeb/WebServer/UWebApp.pas"/>
     1175        <Caret Line="25" Column="25" TopLine="8"/>
    11781176      </Position7>
    11791177      <Position8>
    1180         <Filename Value="CGI.lpr"/>
    1181         <Caret Line="27" Column="1" TopLine="3"/>
     1178        <Filename Value="../../PascalClassLibrary/Network/CoolWeb/WebServer/UWebApp.pas"/>
     1179        <Caret Line="34" Column="15" TopLine="8"/>
    11821180      </Position8>
    11831181      <Position9>
    1184         <Filename Value="CGI.lpr"/>
    1185         <Caret Line="28" Column="1" TopLine="3"/>
     1182        <Filename Value="../../PascalClassLibrary/Network/CoolWeb/WebServer/UWebApp.pas"/>
     1183        <Caret Line="119" Column="32" TopLine="113"/>
    11861184      </Position9>
    11871185      <Position10>
    1188         <Filename Value="CGI.lpr"/>
    1189         <Caret Line="29" Column="1" TopLine="3"/>
     1186        <Filename Value="../../PascalClassLibrary/Network/CoolWeb/WebServer/UHTTPServerCGI.pas"/>
     1187        <Caret Line="14" Column="31" TopLine="1"/>
    11901188      </Position10>
    11911189      <Position11>
    1192         <Filename Value="CGI.lpr"/>
    1193         <Caret Line="30" Column="1" TopLine="3"/>
     1190        <Filename Value="../../PascalClassLibrary/Network/CoolWeb/WebServer/UHTTPServerCGI.pas"/>
     1191        <Caret Line="17" Column="16" TopLine="1"/>
    11941192      </Position11>
    11951193      <Position12>
    1196         <Filename Value="CGI.lpr"/>
    1197         <Caret Line="31" Column="1" TopLine="3"/>
     1194        <Filename Value="../../PascalClassLibrary/Network/CoolWeb/WebServer/UWebApp.pas"/>
     1195        <Caret Line="25" Column="27" TopLine="9"/>
    11981196      </Position12>
    11991197      <Position13>
    1200         <Filename Value="CGI.lpr"/>
    1201         <Caret Line="33" Column="1" TopLine="5"/>
     1198        <Filename Value="../../PascalClassLibrary/Network/CoolWeb/WebServer/UWebApp.pas"/>
     1199        <Caret Line="34" Column="53" TopLine="9"/>
    12021200      </Position13>
    12031201      <Position14>
    1204         <Filename Value="Pages/UWebCamPage.pas"/>
    1205         <Caret Line="59" Column="1" TopLine="26"/>
     1202        <Filename Value="../../PascalClassLibrary/Network/CoolWeb/WebServer/UHTTPServerCGI.pas"/>
     1203        <Caret Line="14" Column="34" TopLine="1"/>
    12061204      </Position14>
    12071205      <Position15>
    1208         <Filename Value="../../PascalClassLibrary/Network/CoolWeb/WebServer/UHTTPServer.pas"/>
    1209         <Caret Line="175" Column="1" TopLine="158"/>
     1206        <Filename Value="../../PascalClassLibrary/Network/CoolWeb/WebServer/UWebApp.pas"/>
     1207        <Caret Line="118" Column="17" TopLine="113"/>
    12101208      </Position15>
    12111209      <Position16>
    1212         <Filename Value="Pages/UWebCamPage.pas"/>
    1213         <Caret Line="43" Column="1" TopLine="26"/>
     1210        <Filename Value="../../PascalClassLibrary/Network/CoolWeb/WebServer/UWebApp.pas"/>
     1211        <Caret Line="115" Column="38" TopLine="113"/>
    12141212      </Position16>
    12151213      <Position17>
    12161214        <Filename Value="../../PascalClassLibrary/Network/CoolWeb/WebServer/UWebApp.pas"/>
    1217         <Caret Line="109" Column="1" TopLine="83"/>
     1215        <Caret Line="120" Column="70" TopLine="103"/>
    12181216      </Position17>
    12191217      <Position18>
    1220         <Filename Value="../../PascalClassLibrary/Network/CoolWeb/WebServer/UHTTPServerCGI.pas"/>
    1221         <Caret Line="14" Column="31" TopLine="1"/>
     1218        <Filename Value="UCore.pas"/>
     1219        <Caret Line="41" Column="39" TopLine="16"/>
    12221220      </Position18>
    12231221      <Position19>
    1224         <Filename Value="../../PascalClassLibrary/Network/CoolWeb/WebServer/UWebApp.pas"/>
    1225         <Caret Line="114" Column="18" TopLine="107"/>
     1222        <Filename Value="UCore.pas"/>
     1223        <Caret Line="22" Column="1" TopLine="6"/>
    12261224      </Position19>
    12271225      <Position20>
    1228         <Filename Value="../../PascalClassLibrary/Network/CoolWeb/WebServer/UWebApp.pas"/>
    1229         <Caret Line="25" Column="25" TopLine="8"/>
     1226        <Filename Value="UCore.pas"/>
     1227        <Caret Line="96" Column="25" TopLine="79"/>
    12301228      </Position20>
    12311229      <Position21>
    1232         <Filename Value="../../PascalClassLibrary/Network/CoolWeb/WebServer/UWebApp.pas"/>
    1233         <Caret Line="34" Column="15" TopLine="8"/>
     1230        <Filename Value="UCore.pas"/>
     1231        <Caret Line="11" Column="24" TopLine="1"/>
    12341232      </Position21>
    1235       <Position22>
    1236         <Filename Value="../../PascalClassLibrary/Network/CoolWeb/WebServer/UWebApp.pas"/>
    1237         <Caret Line="119" Column="32" TopLine="113"/>
    1238       </Position22>
    1239       <Position23>
    1240         <Filename Value="../../PascalClassLibrary/Network/CoolWeb/WebServer/UHTTPServerCGI.pas"/>
    1241         <Caret Line="14" Column="31" TopLine="1"/>
    1242       </Position23>
    1243       <Position24>
    1244         <Filename Value="../../PascalClassLibrary/Network/CoolWeb/WebServer/UHTTPServerCGI.pas"/>
    1245         <Caret Line="17" Column="16" TopLine="1"/>
    1246       </Position24>
    1247       <Position25>
    1248         <Filename Value="../../PascalClassLibrary/Network/CoolWeb/WebServer/UWebApp.pas"/>
    1249         <Caret Line="25" Column="27" TopLine="9"/>
    1250       </Position25>
    1251       <Position26>
    1252         <Filename Value="../../PascalClassLibrary/Network/CoolWeb/WebServer/UWebApp.pas"/>
    1253         <Caret Line="34" Column="53" TopLine="9"/>
    1254       </Position26>
    1255       <Position27>
    1256         <Filename Value="../../PascalClassLibrary/Network/CoolWeb/WebServer/UHTTPServerCGI.pas"/>
    1257         <Caret Line="14" Column="34" TopLine="1"/>
    1258       </Position27>
    1259       <Position28>
    1260         <Filename Value="../../PascalClassLibrary/Network/CoolWeb/WebServer/UWebApp.pas"/>
    1261         <Caret Line="118" Column="17" TopLine="113"/>
    1262       </Position28>
    1263       <Position29>
    1264         <Filename Value="../../PascalClassLibrary/Network/CoolWeb/WebServer/UWebApp.pas"/>
    1265         <Caret Line="115" Column="38" TopLine="113"/>
    1266       </Position29>
    1267       <Position30>
    1268         <Filename Value="../../PascalClassLibrary/Network/CoolWeb/WebServer/UWebApp.pas"/>
    1269         <Caret Line="120" Column="70" TopLine="103"/>
    1270       </Position30>
    12711233    </JumpHistory>
    12721234  </ProjectOptions>
     
    13101272  </CompilerOptions>
    13111273  <Debugging>
    1312     <BreakPoints Count="2">
     1274    <BreakPoints Count="1">
    13131275      <Item1>
    13141276        <Kind Value="bpkSource"/>
     
    13161278        <Line Value="91"/>
    13171279      </Item1>
    1318       <Item2>
    1319         <Kind Value="bpkSource"/>
    1320         <Source Value="Pages/UWebCamPage.pas"/>
    1321         <Line Value="43"/>
    1322       </Item2>
    13231280    </BreakPoints>
    13241281  </Debugging>
  • trunk/UCore.pas

    r45 r57  
    2020implementation
    2121
    22 uses 
    23   UConfig;
     22uses
     23  UMainModule;
    2424
    2525function HtmlLink(Text, Target: string): string;
     
    9797begin
    9898  if (Length(URL) > 0) and (URL[1] = '/') then
    99     Result := Config.BaseURL + URL
     99    Result := MainModule.BaseURL + URL
    100100    else Result := URL;
    101101end;
Note: See TracChangeset for help on using the changeset viewer.