Changeset 85
- Timestamp:
- Dec 16, 2009, 1:21:06 PM (15 years ago)
- Location:
- branches/DirectWeb
- Files:
-
- 5 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/DirectWeb/ConfigSample.xml
r84 r85 10 10 <address>0.0.0.0</address> 11 11 <port>80</port> 12 <thread_pool>10</thread_pool> 12 13 </server> 13 14 </configuration> -
branches/DirectWeb/ReadMe.txt
r84 r85 7 7 8 8 9 2) Konfigurační soubor 10 11 Vytvořte soubor Config.xml jako kopii souboru ConfigSample.xml. 12 Upravte jeho obsah podle potřeb. 13 14 -
branches/DirectWeb/UHTTPServer.pas
r82 r85 153 153 end else 154 154 with Response.Stream do begin 155 WriteLn('File ' + Request.Path + ' not found.'); 155 156 WriteString('<html><body>File ' + Request.Path + ' not found.</body></html>'); 156 157 end; -
branches/DirectWeb/UWebServer.pas
r84 r85 150 150 begin 151 151 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; 156 156 Connect; 157 157 WriteString(Request.Query.Values['Table']); … … 215 215 begin 216 216 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; 221 221 Connect; 222 222 DbRows := Query('SELECT * FROM ' + Request.Query.Values['Table'] + … … 288 288 HTTPServer := THTTPServer.Create; 289 289 with HTTPServer, Socket do begin 290 DocumentRoot := ' ./';290 DocumentRoot := 'Data'; 291 291 with RequestHandlerList do begin 292 292 Add('/', SendIndex); -
branches/DirectWeb/WoWHostingWebServer.lpi
r82 r85 13 13 <Icon Value="0"/> 14 14 <UseXPManifest Value="True"/> 15 <ActiveEditorIndexAtStart Value=" 1"/>15 <ActiveEditorIndexAtStart Value="4"/> 16 16 </General> 17 17 <VersionInfo> … … 37 37 </Item1> 38 38 </RequiredPackages> 39 <Units Count="2 2">39 <Units Count="25"> 40 40 <Unit0> 41 41 <Filename Value="WoWHostingWebServer.lpr"/> 42 42 <IsPartOfProject Value="True"/> 43 43 <UnitName Value="WoWHostingWebServer"/> 44 <CursorPos X=" 40" Y="19"/>44 <CursorPos X="1" Y="1"/> 45 45 <TopLine Value="1"/> 46 46 <EditorIndex Value="0"/> … … 76 76 <IsPartOfProject Value="True"/> 77 77 <UnitName Value="UHTTPServer"/> 78 <CursorPos X=" 3" Y="56"/>79 <TopLine Value=" 39"/>78 <CursorPos X="23" Y="153"/> 79 <TopLine Value="141"/> 80 80 <EditorIndex Value="4"/> 81 81 <UsageCount Value="200"/> … … 91 91 <Filename Value="..\..\..\..\Knihovny\Free Pascal\synapse\blcksock.pas"/> 92 92 <UnitName Value="blcksock"/> 93 <CursorPos X=" 55" Y="1924"/>94 <TopLine Value="1 922"/>93 <CursorPos X="13" Y="1802"/> 94 <TopLine Value="1797"/> 95 95 <EditorIndex Value="8"/> 96 96 <UsageCount Value="100"/> … … 101 101 <IsPartOfProject Value="True"/> 102 102 <UnitName Value="UTCPServer"/> 103 <CursorPos X=" 31" Y="22"/>104 <TopLine Value=" 7"/>103 <CursorPos X="1" Y="1"/> 104 <TopLine Value="1"/> 105 105 <EditorIndex Value="3"/> 106 106 <UsageCount Value="200"/> … … 120 120 <Filename Value="..\..\..\..\Knihovny\Free Pascal\synapse\sswin32.pas"/> 121 121 <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"/> 125 125 </Unit10> 126 126 <Unit11> … … 130 130 <CursorPos X="24" Y="61"/> 131 131 <TopLine Value="1"/> 132 <UsageCount Value=" 69"/>132 <UsageCount Value="74"/> 133 133 </Unit11> 134 134 <Unit12> … … 151 151 <TopLine Value="121"/> 152 152 <EditorIndex Value="7"/> 153 <UsageCount Value=" 68"/>153 <UsageCount Value="73"/> 154 154 <Loaded Value="True"/> 155 155 </Unit14> 156 156 <Unit15> 157 <Filename Value="UM imeType.pas"/>157 <Filename Value="UMIMEType.pas"/> 158 158 <IsPartOfProject Value="True"/> 159 159 <UnitName Value="UMIMEType"/> … … 161 161 <TopLine Value="25"/> 162 162 <EditorIndex Value="6"/> 163 <UsageCount Value=" 68"/>163 <UsageCount Value="73"/> 164 164 <Loaded Value="True"/> 165 165 </Unit15> … … 170 170 <TopLine Value="330"/> 171 171 <EditorIndex Value="2"/> 172 <UsageCount Value="3 3"/>172 <UsageCount Value="35"/> 173 173 <Loaded Value="True"/> 174 174 </Unit16> … … 202 202 <IsPartOfProject Value="True"/> 203 203 <UnitName Value="UWebServer"/> 204 <CursorPos X=" 23" Y="74"/>205 <TopLine Value=" 60"/>204 <CursorPos X="31" Y="295"/> 205 <TopLine Value="277"/> 206 206 <EditorIndex Value="1"/> 207 <UsageCount Value=" 58"/>207 <UsageCount Value="63"/> 208 208 <Loaded Value="True"/> 209 209 </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> 210 237 </Units> 211 238 <JumpHistory Count="30" HistoryIndex="29"> 212 239 <Position1> 213 240 <Filename Value="UWebServer.pas"/> 214 <Caret Line=" 179" Column="1" TopLine="166"/>241 <Caret Line="47" Column="16" TopLine="30"/> 215 242 </Position1> 216 243 <Position2> 217 244 <Filename Value="UWebServer.pas"/> 218 <Caret Line=" 13" Column="15" TopLine="1"/>245 <Caret Line="48" Column="39" TopLine="31"/> 219 246 </Position2> 220 247 <Position3> 221 248 <Filename Value="UWebServer.pas"/> 222 <Caret Line="1 2" Column="24" TopLine="1"/>249 <Caret Line="11" Column="9" TopLine="1"/> 223 250 </Position3> 224 251 <Position4> 225 252 <Filename Value="UWebServer.pas"/> 226 <Caret Line=" 18" Column="27" TopLine="12"/>253 <Caret Line="36" Column="29" TopLine="7"/> 227 254 </Position4> 228 255 <Position5> 229 256 <Filename Value="UWebServer.pas"/> 230 <Caret Line=" 47" Column="24" TopLine="18"/>257 <Caret Line="35" Column="34" TopLine="19"/> 231 258 </Position5> 232 259 <Position6> 233 260 <Filename Value="UWebServer.pas"/> 234 <Caret Line=" 13" Column="29" TopLine="1"/>261 <Caret Line="290" Column="22" TopLine="261"/> 235 262 </Position6> 236 263 <Position7> 237 264 <Filename Value="UWebServer.pas"/> 238 <Caret Line=" 12" Column="14" TopLine="1"/>265 <Caret Line="272" Column="19" TopLine="255"/> 239 266 </Position7> 240 267 <Position8> 241 268 <Filename Value="UWebServer.pas"/> 242 <Caret Line=" 45" Column="35" TopLine="28"/>269 <Caret Line="275" Column="1" TopLine="259"/> 243 270 </Position8> 244 271 <Position9> 245 272 <Filename Value="UWebServer.pas"/> 246 <Caret Line=" 59" Column="19" TopLine="30"/>273 <Caret Line="272" Column="20" TopLine="262"/> 247 274 </Position9> 248 275 <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"/> 251 278 </Position10> 252 279 <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"/> 255 282 </Position11> 256 283 <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"/> 259 286 </Position12> 260 287 <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"/> 263 290 </Position13> 264 291 <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"/> 267 294 </Position14> 268 295 <Position15> 269 <Filename Value=" UWebServer.pas"/>270 <Caret Line="1 1" Column="9" TopLine="1"/>296 <Filename Value="WoWHostingWebServer.lpr"/> 297 <Caret Line="18" Column="31" TopLine="1"/> 271 298 </Position15> 272 299 <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"/> 275 302 </Position16> 276 303 <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"/> 279 306 </Position17> 280 307 <Position18> 281 <Filename Value=" UWebServer.pas"/>282 <Caret Line="2 90" Column="22" TopLine="261"/>308 <Filename Value="WoWHostingWebServer.lpr"/> 309 <Caret Line="20" Column="1" TopLine="1"/> 283 310 </Position18> 284 311 <Position19> 285 <Filename Value="U WebServer.pas"/>286 <Caret Line=" 272" Column="19" TopLine="255"/>312 <Filename Value="UTCPServer.pas"/> 313 <Caret Line="42" Column="32" TopLine="25"/> 287 314 </Position19> 288 315 <Position20> 289 <Filename Value="U WebServer.pas"/>290 <Caret Line=" 275" Column="1" TopLine="259"/>316 <Filename Value="UTCPServer.pas"/> 317 <Caret Line="80" Column="10" TopLine="74"/> 291 318 </Position20> 292 319 <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"/> 295 322 </Position21> 296 323 <Position22> 297 <Filename Value=" WoWHostingWebServer.lpr"/>298 <Caret Line="1 4" Column="1" TopLine="1"/>324 <Filename Value="UWebServer.pas"/> 325 <Caret Line="152" Column="22" TopLine="139"/> 299 326 </Position22> 300 327 <Position23> 301 <Filename Value=" WoWHostingWebServer.lpr"/>302 <Caret Line="1 8" Column="18" TopLine="1"/>328 <Filename Value="UWebServer.pas"/> 329 <Caret Line="133" Column="83" TopLine="116"/> 303 330 </Position23> 304 331 <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"/> 307 334 </Position24> 308 335 <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"/> 311 338 </Position25> 312 339 <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"/> 315 342 </Position26> 316 343 <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"/> 319 346 </Position27> 320 347 <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"/> 323 350 </Position28> 324 351 <Position29> 325 <Filename Value=" WoWHostingWebServer.lpr"/>326 <Caret Line="2 3" Column="16" TopLine="1"/>352 <Filename Value="UWebServer.pas"/> 353 <Caret Line="296" Column="34" TopLine="277"/> 327 354 </Position29> 328 355 <Position30> 329 <Filename Value=" WoWHostingWebServer.lpr"/>330 <Caret Line="2 0" Column="1" TopLine="1"/>356 <Filename Value="UWebServer.pas"/> 357 <Caret Line="295" Column="31" TopLine="277"/> 331 358 </Position30> 332 359 </JumpHistory> … … 347 374 </CompilerOptions> 348 375 <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>363 376 <Exceptions Count="3"> 364 377 <Item1>
Note:
See TracChangeset
for help on using the changeset viewer.