📄 logdatamain.pas
字号:
unit LogDataMain;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics,
Controls, Forms, Dialogs, StdCtrls
type
TFrmLogData=class(TForm)
Label3: TLabel;
Label4: TLabel;
TimerWriteLog: TTimer;
NMUDP: TNMUDP;
procedure FormCreate(Sender : TObject);
procedure FormDestroy(Sender : TObject);
procedure TimerWriteLogTimer(Sender : TObject);
procedure WriteLogFile(Sender : TObject);
procedure IntToString(Sender : TObject);
procedure NMUDPDataReceived(Sender : TObject);
procedure FormCloseQuery(Sender : TObject);
private
{ Private declarations }
public
{ Public declarations }
end ;
var
FrmLogData: TFrmLogData;
{This file is generated by DaRk Ver 3.50.04 Copyright (c) 1999-2002 DaFixer}
implementation
{$R *.DFM}
procedure TFrmLogData.FormCreate(Sender : TObject);
begin
(*
00452D30 55 push ebp
00452D31 8BEC mov ebp, esp
00452D33 33C9 xor ecx, ecx
00452D35 51 push ecx
00452D36 51 push ecx
00452D37 51 push ecx
00452D38 51 push ecx
00452D39 51 push ecx
00452D3A 51 push ecx
00452D3B 51 push ecx
00452D3C 51 push ecx
00452D3D 53 push ebx
00452D3E 56 push esi
00452D3F 57 push edi
00452D40 8BD8 mov ebx, eax
00452D42 33C0 xor eax, eax
00452D44 55 push ebp
00452D45 682C2F4500 push $00452F2C
***** TRY
|
00452D4A 64FF30 push dword ptr fs:[eax]
00452D4D 648920 mov fs:[eax], esp
00452D50 8D55FC lea edx, [ebp-$04]
00452D53 B801000000 mov eax, $00000001
|
00452D58 E83704FBFF call 00403194
00452D5D 8B45FC mov eax, [ebp-$04]
00452D60 33D2 xor edx, edx
|
00452D62 E841FAFFFF call 004527A8
00452D67 8B1570594500 mov edx, [$00455970]
00452D6D 8902 mov [edx], eax
00452D6F 8D55F8 lea edx, [ebp-$08]
00452D72 B802000000 mov eax, $00000002
|
00452D77 E81804FBFF call 00403194
00452D7C 8B45F8 mov eax, [ebp-$08]
00452D7F 83CAFF or edx, -$01
|
00452D82 E821FAFFFF call 004527A8
00452D87 8BF0 mov esi, eax
00452D89 8D55F4 lea edx, [ebp-$0C]
00452D8C B803000000 mov eax, $00000003
|
00452D91 E8FE03FBFF call 00403194
00452D96 8B45F4 mov eax, [ebp-$0C]
00452D99 83CAFF or edx, -$01
|
00452D9C E807FAFFFF call 004527A8
00452DA1 8BF8 mov edi, eax
00452DA3 85F6 test esi, esi
00452DA5 7D04 jnl 00452DAB
00452DA7 85FF test edi, edi
00452DA9 7C12 jl 00452DBD
00452DAB 8BD6 mov edx, esi
00452DAD 8BC3 mov eax, ebx
* Reference to: Controls.TControl.SetLeft(TControl;Integer);
|
00452DAF E8D8D7FDFF call 0043058C
00452DB4 8BD7 mov edx, edi
00452DB6 8BC3 mov eax, ebx
* Reference to: Controls.TControl.SetTop(TControl;Integer);
|
00452DB8 E8F3D7FDFF call 004305B0
00452DBD C6830C03000000 mov byte ptr [ebx+$030C], $00
00452DC4 8BC3 mov eax, ebx
* Reference to: Controls.TWinControl.GetHandle(TWinControl):HWND;
| or: QComCtrls.TTrackBar.GetHandle(TTrackBar):QClxSliderH;
| or: QComCtrls.TCustomViewControl.GetHandle(TCustomViewControl):QListViewH;
| or: QComCtrls.TCustomViewControl.ViewportHandle(TCustomViewControl):QWidgetH;
| or: QComCtrls.TCustomHeaderControl.GetHandle(TCustomHeaderControl):QHeaderH;
| or: QComCtrls.TCustomSpinEdit.GetHandle(TCustomSpinEdit):QClxSpinBoxH;
|
00452DC6 E8B147FEFF call 0043757C
00452DCB 33D2 xor edx, edx
00452DCD 52 push edx
00452DCE 50 push eax
00452DCF 8D45F0 lea eax, [ebp-$10]
|
00452DD2 E8FD77FBFF call 0040A5D4
00452DD7 8B55F0 mov edx, [ebp-$10]
00452DDA 66B8E803 mov ax, $03E8
|
00452DDE E80DFBFFFF call 004528F0
* Possible String Reference to: '正在启动日志服务器...'
|
00452DE3 BA442F4500 mov edx, $00452F44
00452DE8 66B8E903 mov ax, $03E9
|
00452DEC E8FFFAFFFF call 004528F0
00452DF1 B201 mov dl, $01
00452DF3 A15C444100 mov eax, dword ptr [$0041445C]
* Reference to: InStack.TInStack.Create(TInStack;boolean);
| or: System.TObject.Create(TObject;Boolean);
|
00452DF8 E85B10FBFF call 00403E58
00452DFD 898308030000 mov [ebx+$0308], eax
* Possible String Reference to: '.\logdata.ini'
|
00452E03 B9642F4500 mov ecx, $00452F64
00452E08 B201 mov dl, $01
00452E0A A194834200 mov eax, dword ptr [$00428394]
* Reference to: AxCtrls.TOleStream.Create(TOleStream;boolean;IStream);
| or: HelpIntfs.THelpViewerNode.Create(THelpViewerNode;boolean;ICustomHelpViewer);
| or: IniFiles.TCustomIniFile.Create(TCustomIniFile;boolean;AnsiString);
| or: SysUtils.Exception.Create(Exception;boolean;AnsiString);
|
00452E0F E83056FDFF call 00428444
00452E14 8BF0 mov esi, eax
00452E16 85F6 test esi, esi
00452E18 0F84A3000000 jz 00452EC1
00452E1E A1E4564500 mov eax, dword ptr [$004556E4]
00452E23 8B00 mov eax, [eax]
00452E25 50 push eax
00452E26 8D45EC lea eax, [ebp-$14]
00452E29 50 push eax
* Possible String Reference to: 'BaseDir'
|
00452E2A B97C2F4500 mov ecx, $00452F7C
* Possible String Reference to: 'Setup'
|
00452E2F BA8C2F4500 mov edx, $00452F8C
00452E34 8BC6 mov eax, esi
00452E36 8B38 mov edi, [eax]
00452E38 FF17 call dword ptr [edi]
00452E3A 8B55EC mov edx, [ebp-$14]
00452E3D A1E4564500 mov eax, dword ptr [$004556E4]
* Reference to: System.@LStrAsg(void;void;void;void);
|
00452E42 E8091EFBFF call 00404C50
00452E47 A10C564500 mov eax, dword ptr [$0045560C]
00452E4C 8B00 mov eax, [eax]
00452E4E 50 push eax
00452E4F 8D45E8 lea eax, [ebp-$18]
00452E52 50 push eax
* Possible String Reference to: 'Caption'
|
00452E53 B99C2F4500 mov ecx, $00452F9C
* Possible String Reference to: 'Setup'
|
00452E58 BA8C2F4500 mov edx, $00452F8C
00452E5D 8BC6 mov eax, esi
00452E5F 8B38 mov edi, [eax]
00452E61 FF17 call dword ptr [edi]
00452E63 8B55E8 mov edx, [ebp-$18]
00452E66 A10C564500 mov eax, dword ptr [$0045560C]
* Reference to: System.@LStrAsg(void;void;void;void);
|
00452E6B E8E01DFBFF call 00404C50
00452E70 A10C564500 mov eax, dword ptr [$0045560C]
00452E75 8B00 mov eax, [eax]
00452E77 50 push eax
00452E78 8D45E4 lea eax, [ebp-$1C]
00452E7B 50 push eax
* Possible String Reference to: 'ServerName'
|
00452E7C B9AC2F4500 mov ecx, $00452FAC
* Possible String Reference to: 'Setup'
|
00452E81 BA8C2F4500 mov edx, $00452F8C
00452E86 8BC6 mov eax, esi
00452E88 8B38 mov edi, [eax]
00452E8A FF17 call dword ptr [edi]
00452E8C 8B55E4 mov edx, [ebp-$1C]
00452E8F A10C564500 mov eax, dword ptr [$0045560C]
* Reference to: System.@LStrAsg(void;void;void;void);
|
00452E94 E8B71DFBFF call 00404C50
00452E99 A184574500 mov eax, dword ptr [$00455784]
00452E9E 8B00 mov eax, [eax]
00452EA0 50 push eax
* Possible String Reference to: 'Port'
|
00452EA1 B9C02F4500 mov ecx, $00452FC0
* Possible String Reference to: 'Setup'
|
00452EA6 BA8C2F4500 mov edx, $00452F8C
00452EAB 8BC6 mov eax, esi
00452EAD 8B38 mov edi, [eax]
00452EAF FF5708 call dword ptr [edi+$08]
00452EB2 8B1584574500 mov edx, [$00455784]
00452EB8 8902 mov [edx], eax
00452EBA 8BC6 mov eax, esi
* Reference to: System.TObject.Free(TObject);
|
00452EBC E8C70FFBFF call 00403E88
00452EC1 A134564500 mov eax, dword ptr [$00455634]
00452EC6 FF30 push dword ptr [eax]
* Possible String Reference to: ' ('
|
00452EC8 68D02F4500 push $00452FD0
00452ECD A10C564500 mov eax, dword ptr [$0045560C]
00452ED2 FF30 push dword ptr [eax]
00452ED4 68DC2F4500 push $00452FDC
00452ED9 8D45E0 lea eax, [ebp-$20]
00452EDC BA04000000 mov edx, $00000004
* Reference to: System.@LStrCatN;
|
00452EE1 E89620FBFF call 00404F7C
00452EE6 8B55E0 mov edx, [ebp-$20]
00452EE9 8BC3 mov eax, ebx
* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
00452EEB E84CDFFDFF call 00430E3C
00452EF0 8B1584574500 mov edx, [$00455784]
00452EF6 8B12 mov edx, [edx]
00452EF8 8B8304030000 mov eax, [ebx+$0304]
* Reference to : TNMUDP._PROC_004520B0()
|
00452EFE E8ADF1FFFF call 004520B0
* Possible String Reference to: '日志服务器启动完成...'
|
00452F03 BAE82F4500 mov edx, $00452FE8
00452F08 66B8EA03 mov ax, $03EA
|
00452F0C E8DFF9FFFF call 004528F0
00452F11 33C0 xor eax, eax
00452F13 5A pop edx
00452F14 59 pop ecx
00452F15 59 pop ecx
00452F16 648910 mov fs:[eax], edx
****** FINALLY
|
* Possible String Reference to: '_^[嬪]⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -