source:
client/Delphi/LogMangosRestart.dpr
Last change on this file was 41, checked in by , 15 years ago | |
---|---|
File size: 482 bytes |
Line | |
---|---|
1 | program LogMangosRestart; |
2 | |
3 | {$APPTYPE CONSOLE} |
4 | |
5 | uses |
6 | SysUtils, USqlDatabase; |
7 | |
8 | var |
9 | Database: TSqlDatabase; |
10 | Data: TAssocArray; |
11 | begin |
12 | Database := TSqlDatabase.Create; |
13 | with Database do begin |
14 | Hostname := 'localhost'; |
15 | Database := 'wow'; |
16 | UserName := 'root'; |
17 | Password := ''; |
18 | Connect; |
19 | end; |
20 | Data := TAssocArray.Create; |
21 | Data.AddKeyValue('time', 'NOW()'); |
22 | Database.Insert('mangos_restart', Data); |
23 | Data.Free; |
24 | Database.Free; |
25 | end. |
Note:
See TracBrowser
for help on using the repository browser.