-
-
[旧帖] 请帮忙看看IP地址的加密方法 0.00雪花
-
发表于: 2007-3-3 22:47 5704
-
该程序的clientsocket的IP地址由监控得到是:218.83.161.25我想修改地址确不知如何下手,请高手指教
delphi反编译源码如下:
unit MainP;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics,
Controls, Forms, Dialogs, StdCtrls
type
TMainForm=class(TForm)
ToolBar1: TToolBar;
ImageList1: TImageList;
ImageList2: TImageList;
PopupMenu1: TPopupMenu;
N4: TMenuItem;
N5: TMenuItem;
N7: TMenuItem;
PopupMenu2: TPopupMenu;
N8: TMenuItem;
VPop: TMenuItem;
VPop2: TMenuItem;
N11: TMenuItem;
N14: TMenuItem;
N15: TMenuItem;
N16: TMenuItem;
N17: TMenuItem;
SBar: TStatusBar;
ServerSocket: TServerSocket;
Timer1: TTimer;
ImageList3: TImageList;
ToolButton2: TToolButton;
ToolButton3: TToolButton;
ToolButton4: TToolButton;
ToolButton5: TToolButton;
ToolButton6: TToolButton;
ToolButton8: TToolButton;
ToolButton9: TToolButton;
ToolButton10: TToolButton;
ToolButton11: TToolButton;
ToolButton12: TToolButton;
ToolButton13: TToolButton;
AutoCheck: TToolButton;
N26: TMenuItem;
N27: TMenuItem;
N28: TMenuItem;
N29: TMenuItem;
N30: TMenuItem;
N31: TMenuItem;
ClientSocket: TClientSocket;
LinkSvrBtn: TToolButton;
LinkSpr: TToolButton;
ImageList4: TImageList;
MemTable: TkbmMemTable;
MemTableSock: TIntegerField;
MemTableSvrID: TSmallintField;
MemTableGameID: TStringField;
MemTableGold: TIntegerField;
MemTableMapID: TSmallintField;
MainPanel: TPanel;
Splitter1: TSplitter;
Panel2: TPanel;
Panel3: TPanel;
Label1: TLabel;
SpeedButton1: TSpeedButton;
LocaIDEdit: TEdit;
N2: TMenuItem;
N6: TMenuItem;
ScrPanel: TPanel;
Image1: TImage;
ToolBar3: TToolBar;
ToolButton15: TToolButton;
ScroolBox: TScrollBox;
Panel1: TPanel;
ServerInfoList: TListView;
Panel4: TPanel;
Splitter2: TSplitter;
Panel5: TPanel;
GMOLCheck: TCheckBox;
GMRoomCheck: TCheckBox;
SeeGMCheck: TCheckBox;
FHCheck: TCheckBox;
ISeeBtn: TButton;
MList: TListBox;
GameMessList: TListBox;
Splitter3: TSplitter;
MapInfo: TPanel;
ToolButton1: TToolButton;
Page: TPageControl;
TabSheet1: TTabSheet;
ToolBar2: TToolBar;
VBtn: TToolButton;
VBtn2: TToolButton;
ToolButton18: TToolButton;
IDList: TListView;
TabSheet2: TTabSheet;
GameSocket: TClientSocket;
Panel6: TPanel;
GroupBox1: TGroupBox;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Edit1: TEdit;
FloatEdit1: TFloatEdit;
Edit2: TEdit;
Edit3: TEdit;
GroupBox2: TGroupBox;
Label6: TLabel;
Label7: TLabel;
Edit4: TEdit;
Edit5: TEdit;
GroupBox3: TGroupBox;
Panel7: TPanel;
GroupBox4: TGroupBox;
Label8: TLabel;
FloatEdit2: TFloatEdit;
CheckBox1: TCheckBox;
Panel8: TPanel;
StartBtn: TButton;
StopBtn: TButton;
GroupBox5: TGroupBox;
Label10: TLabel;
Label11: TLabel;
Label12: TLabel;
Label13: TLabel;
Label9: TLabel;
N1: TMenuItem;
N3: TMenuItem;
N9: TMenuItem;
N10: TMenuItem;
MemTableErrCount: TSmallintField;
UnGMCheck: TCheckBox;
procedure FormCreate(Sender : TObject);
procedure FormClose(Sender : TObject);
procedure ServerSocketAccept(Sender : TObject);
procedure Timer1Timer(Sender : TObject);
procedure ServerSocketClientDisconnect(Sender : TObject);
procedure ServerSocketClientRead(Sender : TObject);
procedure ServerSocketClientError(Sender : TObject);
procedure ToolButton9Click(Sender : TObject);
procedure FormCloseQuery(Sender : TObject);
procedure ToolButton6Click(Sender : TObject);
procedure ToolButton11Click(Sender : TObject);
procedure ToolButton5Click(Sender : TObject);
procedure ToolButton12Click(Sender : TObject);
procedure ToolButton3Click(Sender : TObject);
procedure ToolButton4Click(Sender : TObject);
procedure N27Click(Sender : TObject);
procedure N29Click(Sender : TObject);
procedure N14Click(Sender : TObject);
procedure N15Click(Sender : TObject);
procedure N31Click(Sender : TObject);
procedure ClientSocketConnect(Sender : TObject);
procedure ClientSocketConnecting(Sender : TObject);
procedure ClientSocketDisconnect(Sender : TObject);
procedure ClientSocketError(Sender : TObject);
procedure ToolButton10Click(Sender : TObject);
procedure LinkSvrBtnClick(Sender : TObject);
procedure FormActivate(Sender : TObject);
procedure ClientSocketRead(Sender : TObject);
procedure PopupMenu1Popup(Sender : TObject);
procedure VBtnClick(Sender : TObject);
procedure IDListDblClick(Sender : TObject);
procedure SpeedButton1Click(Sender : TObject);
procedure ToolButton15Click(Sender : TObject);
procedure N28Click(Sender : TObject);
procedure PopupMenu2Popup(Sender : TObject);
procedure AutoCheckClick(Sender : TObject);
procedure ServerInfoListCustomDrawItem(Sender : TObject);
procedure IDListCustomDrawItem(Sender : TObject);
procedure N17Click(Sender : TObject);
procedure N4Click(Sender : TObject);
procedure N5Click(Sender : TObject);
procedure N7Click(Sender : TObject);
procedure N6Click(Sender : TObject);
procedure ISeeBtnClick(Sender : TObject);
procedure ServerInfoListCustomDrawSubItem(Sender : TObject);
procedure MemTableBeforeInsert(Sender : TObject);
procedure MemTableBeforeDelete(Sender : TObject);
procedure MemTableAfterPost(Sender : TObject);
procedure ServerInfoListSelectItem(Sender : TObject);
procedure ToolButton1Click(Sender : TObject);
procedure FormShow(Sender : TObject);
procedure N1Click(Sender : TObject);
procedure N3Click(Sender : TObject);
procedure N10Click(Sender : TObject);
procedure GameSocketRead(Sender : TObject);
procedure GameSocketError(Sender : TObject);
procedure StartBtnClick(Sender : TObject);
procedure GameSocketDisconnect(Sender : TObject);
procedure GameSocketConnect(Sender : TObject);
procedure _PROC_004D53D1(Sender : TObject);
procedure _PROC_004D54AD(Sender : TObject);
procedure _PROC_004D5588(Sender : TObject);
procedure _PROC_004D55EC(Sender : TObject);
procedure _PROC_004D5B29(Sender : TObject);
procedure _PROC_004D5B5D(Sender : TObject);
procedure _PROC_004D5EC1(Sender : TObject);
procedure _PROC_004D5ED7(Sender : TObject);
procedure _PROC_004D5EF4(Sender : TObject);
procedure _PROC_004D67C7(Sender : TObject);
procedure _PROC_004D6971(Sender : TObject);
procedure _PROC_004D6AB1(Sender : TObject);
procedure _PROC_004D6DC5(Sender : TObject);
procedure _PROC_004D7214(Sender : TObject);
procedure _PROC_004D7389(Sender : TObject);
procedure _PROC_004D74FD(Sender : TObject);
procedure _PROC_004D77C4(Sender : TObject);
procedure _PROC_004D7D91(Sender : TObject);
procedure _PROC_004D842C(Sender : TObject);
procedure _PROC_004D860D(Sender : TObject);
private
{ Private declarations }
public
{ Public declarations }
end ;
var
MainForm: TMainForm;
{This file is generated by DeDe Ver 3.50.02 Copyright (c) 1999-2002 DaFixer}
implementation
{$R *.DFM}
procedure TMainForm.FormCreate(Sender : TObject);
begin
(*
004D5664 55 push ebp
004D5665 8BEC mov ebp, esp
004D5667 81C448FDFFFF add esp, $FFFFFD48
004D566D 53 push ebx
004D566E 56 push esi
004D566F 57 push edi
004D5670 33C9 xor ecx, ecx
004D5672 898D48FDFFFF mov [ebp+$FFFFFD48], ecx
004D5678 898D4CFEFFFF mov [ebp+$FFFFFE4C], ecx
004D567E 898D50FEFFFF mov [ebp+$FFFFFE50], ecx
004D5684 898D5CFEFFFF mov [ebp+$FFFFFE5C], ecx
004D568A 898D64FEFFFF mov [ebp+$FFFFFE64], ecx
004D5690 898D60FEFFFF mov [ebp+$FFFFFE60], ecx
004D5696 8BD8 mov ebx, eax
004D5698 33C0 xor eax, eax
004D569A 55 push ebp
* Possible String Reference to: '殛狎?沁^[?]?
|
004D569B 68A15A4D00 push $004D5AA1
***** TRY
|
004D56A0 64FF30 push dword ptr fs:[eax]
004D56A3 648920 mov fs:[eax], esp
004D56A6 8D9560FEFFFF lea edx, [ebp+$FFFFFE60]
* Reference to TApplication instance
|
004D56AC A1DCBB4D00 mov eax, dword ptr [$004DBBDC]
004D56B1 8B00 mov eax, [eax]
* Reference to: Forms.TApplication.GetExeName(TApplication):AnsiString;
|
004D56B3 E80434FBFF call 00488ABC
004D56B8 8B8560FEFFFF mov eax, [ebp+$FFFFFE60]
004D56BE 8D9564FEFFFF lea edx, [ebp+$FFFFFE64]
* Reference to: SysUtils.ExtractFilePath(AnsiString):AnsiString;
|
004D56C4 E8BF3DF3FF call 00409488
004D56C9 8D8564FEFFFF lea eax, [ebp+$FFFFFE64]
* Possible String Reference to: 'Setup.ini'
|
004D56CF BAB85A4D00 mov edx, $004D5AB8
* Reference to: System.@LStrCat;
|
004D56D4 E87FEEF2FF call 00404558
004D56D9 8B8D64FEFFFF mov ecx, [ebp+$FFFFFE64]
004D56DF B201 mov dl, $01
* Reference to class TIniFile
|
004D56E1 A18CDF4300 mov eax, dword ptr [$0043DF8C]
* Reference to: IniFiles.TCustomIniFile.Create(TCustomIniFile;boolean;AnsiString);
|
004D56E6 E85189F6FF call 0043E03C
* Reference to GlobalVar_004DD4B8
|
004D56EB A3B8D44D00 mov dword ptr [$004DD4B8], eax
* Reference to control TMainForm.GMOLCheck : TCheckBox
|
004D56F0 8BB304040000 mov esi, [ebx+$0404]
004D56F6 8BC6 mov eax, esi
004D56F8 8B10 mov edx, [eax]
* Reference to method TCheckBox.GetChecked()
|
004D56FA FF92C8000000 call dword ptr [edx+$00C8]
004D5700 50 push eax
* Possible String Reference to: 'GMOLCheck'
|
004D5701 B9CC5A4D00 mov ecx, $004D5ACC
* Possible String Reference to: 'Setup'
|
004D5706 BAE05A4D00 mov edx, $004D5AE0
004D570B A1B8D44D00 mov eax, dword ptr [$004DD4B8]
004D5710 8B38 mov edi, [eax]
004D5712 FF5710 call dword ptr [edi+$10]
004D5715 8BD0 mov edx, eax
004D5717 8BC6 mov eax, esi
004D5719 8B08 mov ecx, [eax]
* Reference to method TCheckBox.SetChecked(Boolean)
|
004D571B FF91CC000000 call dword ptr [ecx+$00CC]
* Reference to control TMainForm.GMRoomCheck : TCheckBox
|
004D5721 8BB308040000 mov esi, [ebx+$0408]
004D5727 8BC6 mov eax, esi
004D5729 8B10 mov edx, [eax]
* Reference to method TCheckBox.GetChecked()
|
004D572B FF92C8000000 call dword ptr [edx+$00C8]
004D5731 50 push eax
* Possible String Reference to: 'GMRoomCheck'
|
004D5732 B9F05A4D00 mov ecx, $004D5AF0
* Possible String Reference to: 'Setup'
|
004D5737 BAE05A4D00 mov edx, $004D5AE0
004D573C A1B8D44D00 mov eax, dword ptr [$004DD4B8]
004D5741 8B38 mov edi, [eax]
004D5743 FF5710 call dword ptr [edi+$10]
004D5746 8BD0 mov edx, eax
004D5748 8BC6 mov eax, esi
004D574A 8B08 mov ecx, [eax]
* Reference to method TCheckBox.SetChecked(Boolean)
|
004D574C FF91CC000000 call dword ptr [ecx+$00CC]
* Reference to control TMainForm.SeeGMCheck : TCheckBox
|
004D5752 8BB30C040000 mov esi, [ebx+$040C]
004D5758 8BC6 mov eax, esi
004D575A 8B10 mov edx, [eax]
* Reference to method TCheckBox.GetChecked()
|
004D575C FF92C8000000 call dword ptr [edx+$00C8]
004D5762 50 push eax
* Possible String Reference to: 'SeeGMCheck'
|
004D5763 B9045B4D00 mov ecx, $004D5B04
* Possible String Reference to: 'Setup'
|
004D5768 BAE05A4D00 mov edx, $004D5AE0
004D576D A1B8D44D00 mov eax, dword ptr [$004DD4B8]
004D5772 8B38 mov edi, [eax]
004D5774 FF5710 call dword ptr [edi+$10]
004D5777 8BD0 mov edx, eax
004D5779 8BC6 mov eax, esi
004D577B 8B08 mov ecx, [eax]
* Reference to method TCheckBox.SetChecked(Boolean)
|
004D577D FF91CC000000 call dword ptr [ecx+$00CC]
* Reference to control TMainForm.FHCheck : TCheckBox
|
004D5783 8BB310040000 mov esi, [ebx+$0410]
004D5789 8BC6 mov eax, esi
004D578B 8B10 mov edx, [eax]
* Reference to method TCheckBox.GetChecked()
|
004D578D FF92C8000000 call dword ptr [edx+$00C8]
004D5793 50 push eax
* Possible String Reference to: 'FHCheck'
|
004D5794 B9185B4D00 mov ecx, $004D5B18
* Possible String Reference to: 'Setup'
|
004D5799 BAE05A4D00 mov edx, $004D5AE0
004D579E A1B8D44D00 mov eax, dword ptr [$004DD4B8]
004D57A3 8B38 mov edi, [eax]
004D57A5 FF5710 call dword ptr [edi+$10]
004D57A8 8BD0 mov edx, eax
004D57AA 8BC6 mov eax, esi
004D57AC 8B08 mov ecx, [eax]
* Reference to method TCheckBox.SetChecked(Boolean)
|
004D57AE FF91CC000000 call dword ptr [ecx+$00CC]
* Reference to control TMainForm.UnGMCheck : TCheckBox
|
004D57B4 8BB3DC040000 mov esi, [ebx+$04DC]
004D57BA 8BC6 mov eax, esi
004D57BC 8B10 mov edx, [eax]
* Reference to method TCheckBox.GetChecked()
|
004D57BE FF92C8000000 call dword ptr [edx+$00C8]
004D57C4 50 push eax
* Possible String Reference to: 'UnGMCheck'
|
004D57C5 B9285B4D00 mov ecx, $004D5B28
* Possible String Reference to: 'Setup'
|
004D57CA BAE05A4D00 mov edx, $004D5AE0
004D57CF A1B8D44D00 mov eax, dword ptr [$004DD4B8]
004D57D4 8B38 mov edi, [eax]
004D57D6 FF5710 call dword ptr [edi+$10]
004D57D9 8BD0 mov edx, eax
004D57DB 8BC6 mov eax, esi
004D57DD 8B08 mov ecx, [eax]
* Reference to method TCheckBox.SetChecked(Boolean)
|
004D57DF FF91CC000000 call dword ptr [ecx+$00CC]
* Reference to control TMainForm.ServerInfoList : TListView
|
004D57E5 8B83F4030000 mov eax, [ebx+$03F4]
* Reference to field TListView.DoubleBuffered : Boolean
|
004D57EB C680F801000001 mov byte ptr [eax+$01F8], $01
004D57F2 C745FC01000000 mov dword ptr [ebp-$04], $00000001
* Reference to control TMainForm.ServerInfoList : TListView
|
004D57F9 8B83F4030000 mov eax, [ebx+$03F4]
* Reference to field TListView.Items : TListItems
|
004D57FF 8B802C020000 mov eax, [eax+$022C]
* Reference to: ComCtrls.TListItems.Add(TListItems):TListItem;
|
004D5805 E8A661F7FF call 0044B9B0
004D580A 8BF0 mov esi, eax
004D580C 8D855CFEFFFF lea eax, [ebp+$FFFFFE5C]
004D5812 50 push eax
004D5813 8B45FC mov eax, [ebp-$04]
004D5816 898554FEFFFF mov [ebp+$FFFFFE54], eax
004D581C C68558FEFFFF00 mov byte ptr [ebp+$FFFFFE58], $00
004D5823 8D9554FEFFFF lea edx, [ebp+$FFFFFE54]
004D5829 33C9 xor ecx, ecx
* Possible String Reference to: '韩 %02.d 服务器'
|
004D582B B83C5B4D00 mov eax, $004D5B3C
|
004D5830 E89344F3FF call 00409CC8
004D5835 8B955CFEFFFF mov edx, [ebp+$FFFFFE5C]
004D583B 8BC6 mov eax, esi
* Reference to: ComCtrls.TListItem.SetCaption(TListItem;AnsiString);
|
004D583D E80E5CF7FF call 0044B450
004D5842 6A01 push $01
* Reference to field TListItems.OFFS_0024
|
004D5844 8B4E24 mov ecx, [esi+$24]
* Possible String Reference to: 'Select'
|
004D5847 BA545B4D00 mov edx, $004D5B54
004D584C A1B8D44D00 mov eax, dword ptr [$004DD4B8]
004D5851 8B38 mov edi, [eax]
004D5853 FF5710 call dword ptr [edi+$10]
004D5856 8BD0 mov edx, eax
004D5858 8BC6 mov eax, esi
* Reference to: ComCtrls.TListItem.SetChecked(TListItem;Boolean);
|
004D585A E8895BF7FF call 0044B3E8
004D585F FF45FC inc dword ptr [ebp-$04]
004D5862 837DFC2E cmp dword ptr [ebp-$04], +$2E
004D5866 7591 jnz 004D57F9
004D5868 B201 mov dl, $01
* Reference to class TMemoryStream
|
004D586A A1B0BE4100 mov eax, dword ptr [$0041BEB0]
* Reference to: System.TObject.Create(TObject;Boolean);
|
004D586F E8D8DBF2FF call 0040344C
* Reference to GlobalVar_004DD4A4
|
004D5874 A3A4D44D00 mov dword ptr [$004DD4A4], eax
004D5879 B201 mov dl, $01
* Reference to class TGIFImage
|
004D587B A1FCD94B00 mov eax, dword ptr [$004BD9FC]
|
004D5880 E88340FFFF call 004C9908
* Possible reference to GlobalVar_004DD4B0
|
004D5885 A3B0D44D00 mov dword ptr [$004DD4B0], eax
004D588A B201 mov dl, $01
* Reference to class TBitmap
|
004D588C A1408E4200 mov eax, dword ptr [$00428E40]
* Reference to: Graphics.TBitmap.Create(TBitmap;boolean);
|
004D5891 E86A95F5FF call 0042EE00
* Possible reference to GlobalVar_004DD4AC
|
004D5896 A3ACD44D00 mov dword ptr [$004DD4AC], eax
004D589B BA00040000 mov edx, $00000400
* Reference to GlobalVar_004DD4AC
|
004D58A0 A1ACD44D00 mov eax, dword ptr [$004DD4AC]
004D58A5 8B08 mov ecx, [eax]
* Possible reference to virtual method TGlobalVar_004DD4AC.OFFS_40
|
004D58A7 FF5140 call dword ptr [ecx+$40]
004D58AA BA00030000 mov edx, $00000300
* Reference to GlobalVar_004DD4AC
|
004D58AF A1ACD44D00 mov eax, dword ptr [$004DD4AC]
004D58B4 8B08 mov ecx, [eax]
* Possible reference to virtual method TGlobalVar_004DD4AC.OFFS_34
|
004D58B6 FF5134 call dword ptr [ecx+$34]
* Reference to field TMainForm.DoubleBuffered : Boolean
|
004D58B9 C683F801000001 mov byte ptr [ebx+$01F8], $01
004D58C0 B205 mov dl, $05
* Reference to control TMainForm.ScrPanel : TPanel
|
004D58C2 8B83DC030000 mov eax, [ebx+$03DC]
* Reference to: Controls.TControl.SetAlign(TControl;TAlign);
|
004D58C8 E82317F9FF call 00466FF0
* Reference to control TMainForm.MemTable : TkbmMemTable
|
004D58CD 8B83A0030000 mov eax, [ebx+$03A0]
* Reference to: DB.TDataSet.Open(TDataSet);
|
004D58D3 E898E7FCFF call 004A4070
004D58D8 8D9550FEFFFF lea edx, [ebp+$FFFFFE50]
004D58DE 8BC3 mov eax, ebx
* Reference to: Controls.TControl.GetText(TControl):TCaption;
|
004D58E0 E81F22F9FF call 00467B04
004D58E5 8B9550FEFFFF mov edx, [ebp+$FFFFFE50]
* Reference to TApplication instance
|
004D58EB A1DCBB4D00 mov eax, dword ptr [$004DBBDC]
004D58F0 8B00 mov eax, [eax]
* Reference to: Forms.TApplication.SetTitle(TApplication;AnsiString);
|
004D58F2 E81527FBFF call 0048800C
004D58F7 8D8568FEFFFF lea eax, [ebp+$FFFFFE68]
004D58FD 50 push eax
004D58FE 6801010000 push $00000101
|
004D5903 E8E841FBFF call 00489AF0
004D5908 6A00 push $00
004D590A 6A02 push $02
004D590C 6A02 push $02
|
004D590E E89541FBFF call 00489AA8
004D5913 8BF0 mov esi, eax
* Reference to field TMainForm.OFFS_04E4
|
004D5915 89B3E4040000 mov [ebx+$04E4], esi
004D591B 83FEFF cmp esi, -$01
004D591E 7506 jnz 004D5926
004D5920 56 push esi
|
004D5921 E80A41FBFF call 00489A30
* Reference to field TMainForm.OFFS_04E8
|
004D5926 66C783E80400000200 mov word ptr [ebx+$04E8], $0002
004D592F 33C0 xor eax, eax
* Reference to field TMainForm.OFFS_04EC
|
004D5931 8983EC040000 mov [ebx+$04EC], eax
004D5937 6862040000 push $00000462
|
004D593C E80741FBFF call 00489A48
* Reference to field TMainForm.OFFS_04EA
|
004D5941 668983EA040000 mov [ebx+$04EA], ax
004D5948 6A10 push $10
* Reference to field TMainForm.OFFS_04E8
|
004D594A 8D83E8040000 lea eax, [ebx+$04E8]
004D5950 50 push eax
* Reference to field TMainForm.OFFS_04E4
|
004D5951 8B83E4040000 mov eax, [ebx+$04E4]
004D5957 50 push eax
|
004D5958 E8CB40FBFF call 00489A28
004D595D C745FC01000000 mov dword ptr [ebp-$04], $00000001
004D5964 6A04 push $04
004D5966 8D45FC lea eax, [ebp-$04]
004D5969 50 push eax
004D596A 6A20 push $20
004D596C 68FFFF0000 push $0000FFFF
* Reference to field TMainForm.OFFS_04E4
|
004D5971 8B83E4040000 mov eax, [ebx+$04E4]
004D5977 50 push eax
|
004D5978 E82341FBFF call 00489AA0
004D597D 40 inc eax
004D597E 6A01 push $01
004D5980 6801040000 push $00000401
004D5985 8BC3 mov eax, ebx
* Reference to: QForms.TCustomForm.GetClientHandle(TCustomForm):QWorkspaceH;
|
004D5987 E8AC8AF9FF call 0046E438
004D598C 50 push eax
* Reference to field TMainForm.OFFS_04E4
|
004D598D 8B83E4040000 mov eax, [ebx+$04E4]
004D5993 50 push eax
|
004D5994 E82F41FBFF call 00489AC8
* Reference to field TMainForm.OFFS_04F8
|
004D5999 66C783F80400000200 mov word ptr [ebx+$04F8], $0002
004D59A2 68B9080000 push $000008B9
|
004D59A7 E89C40FBFF call 00489A48
* Reference to field TMainForm.OFFS_04FA
|
004D59AC 668983FA040000 mov [ebx+$04FA], ax
004D59B3 B828CF4D00 mov eax, $004DCF28
004D59B8 BA67040000 mov edx, $00000467
* Reference to: Classes.TStream.WriteComponent(TStream;TComponent);
| or: Classes.TWriter.WriteRootComponent(TWriter;TComponent);
| or: DB.TWideStringField.GetAsWideString(TWideStringField):WideString;
| or: DB.TDateTimeField.GetValue(TDateTimeField;TDateTime;TDateTime):Boolean;
| or: DB.TSQLTimeStampField.GetValue(TSQLTimeStampField;TSQLTimeStamp;TSQLTimeStamp):Boolean;
| or: DB.TSQLTimeStampField.SetAsSQLTimeStamp(TSQLTimeStampField;TSQLTimeStamp;TSQLTimeStamp);
|
004D59BD E8161AF3FF call 004073D8
004D59C2 B894D34D00 mov eax, $004DD394
004D59C7 BA0E010000 mov edx, $0000010E
* Reference to: Classes.TStream.WriteComponent(TStream;TComponent);
| or: Classes.TWriter.WriteRootComponent(TWriter;TComponent);
| or: DB.TWideStringField.GetAsWideString(TWideStringField):WideString;
| or: DB.TDateTimeField.GetValue(TDateTimeField;TDateTime;TDateTime):Boolean;
| or: DB.TSQLTimeStampField.GetValue(TSQLTimeStampField;TSQLTimeStamp;TSQLTimeStamp):Boolean;
| or: DB.TSQLTimeStampField.SetAsSQLTimeStamp(TSQLTimeStampField;TSQLTimeStamp;TSQLTimeStamp);
|
004D59CC E8071AF3FF call 004073D8
004D59D1 B813000000 mov eax, $00000013
* Reference to: SysUtils.AllocMem(Cardinal):Pointer;
|
004D59D6 E8B52CF3FF call 00408690
* Reference to GlobalVar_004DD390
|
004D59DB A390D34D00 mov dword ptr [$004DD390], eax
004D59E0 C745F8DA53A119 mov dword ptr [ebp-$08], $19A153DA
004D59E7 FF75F8 push dword ptr [ebp-$08]
|
004D59EA E86940FBFF call 00489A58
004D59EF 8BD0 mov edx, eax
004D59F1 8D854CFEFFFF lea eax, [ebp+$FFFFFE4C]
* Reference to: System.@LStrFromPChar(String;String;PAnsiChar);
| or: System.@WStrFromPChar(WideString;WideString;PAnsiChar);
|
004D59F7 E88CEAF2FF call 00404488
004D59FC 8B954CFEFFFF mov edx, [ebp+$FFFFFE4C]
* Reference to control TMainForm.ClientSocket : TClientSocket
|
004D5A02 8B8390030000 mov eax, [ebx+$0390]
* Reference to: ScktComp.TAbstractSocket.SetHost(TAbstractSocket;AnsiString);
|
004D5A08 E8DF72FBFF call 0048CCEC
004D5A0D 8B3590D34D00 mov esi, [$004DD390]
004D5A13 66C7061300 mov word ptr [esi], $0013
004D5A18 C6460201 mov byte ptr [esi+$02], $01
004D5A1C 8D8548FDFFFF lea eax, [ebp+$FFFFFD48]
|
004D5A22 E85DFBFFFF call 004D5584
004D5A27 8B9548FDFFFF mov edx, [ebp+$FFFFFD48]
004D5A2D 8D854CFDFFFF lea eax, [ebp+$FFFFFD4C]
004D5A33 B9FF000000 mov ecx, $000000FF
* Reference to: System.@LStrToString;
|
004D5A38 E8EFEAF2FF call 0040452C
004D5A3D 8D954CFDFFFF lea edx, [ebp+$FFFFFD4C]
004D5A43 8D4603 lea eax, [esi+$03]
004D5A46 B10F mov cl, $0F
* Reference to: System.@PStrNCpy(PShortString;PShortString;Byte);
|
004D5A48 E843D2F2FF call 00402C90
* Reference to control TMainForm.Timer1 : TTimer
|
004D5A4D 8BB340030000 mov esi, [ebx+$0340]
004D5A53 33D2 xor edx, edx
* Reference to field TTimer.OFFS_003C
|
004D5A55 8B463C mov eax, [esi+$3C]
* Possible reference to virtual method TTimer.OFFS_38
|
004D5A58 FF5638 call dword ptr [esi+$38]
* Reference to field TMainForm.DoubleBuffered : Boolean
|
004D5A5B C683F801000001 mov byte ptr [ebx+$01F8], $01
004D5A62 33C0 xor eax, eax
004D5A64 5A pop edx
004D5A65 59 pop ecx
004D5A66 59 pop ecx
004D5A67 648910 mov fs:[eax], edx
****** FINALLY
|
* Possible String Reference to: '_^[?]?
|
004D5A6A 68A85A4D00 push $004D5AA8
004D5A6F 8D8548FDFFFF lea eax, [ebp+$FFFFFD48]
* Reference to: System.@LStrClr(void;void);
|
004D5A75 E816E8F2FF call 00404290
004D5A7A 8D854CFEFFFF lea eax, [ebp+$FFFFFE4C]
* Reference to: System.@LStrClr(void;void);
|
004D5A80 E80BE8F2FF call 00404290
004D5A85 8D8550FEFFFF lea eax, [ebp+$FFFFFE50]
* Reference to: System.@LStrClr(void;void);
|
004D5A8B E800E8F2FF call 00404290
004D5A90 8D855CFEFFFF lea eax, [ebp+$FFFFFE5C]
004D5A96 BA03000000 mov edx, $00000003
* Reference to: System.@LStrArrayClr(void;void;Integer);
|
004D5A9B E814E8F2FF call 004042B4
004D5AA0 C3 ret
* Reference to: System.@HandleFinally;
|
004D5AA1 E96AE1F2FF jmp 00403C10
004D5AA6 EBC7 jmp 004D5A6F
****** END
|
004D5AA8 5F pop edi
004D5AA9 5E pop esi
004D5AAA 5B pop ebx
004D5AAB 8BE5 mov esp, ebp
004D5AAD 5D pop ebp
004D5AAE C3 ret
*)
end;
procedure TMainForm.FormClose(Sender : TObject);
begin
(*
004D5CF4 53 push ebx
004D5CF5 56 push esi
004D5CF6 57 push edi
004D5CF7 55 push ebp
004D5CF8 8BD8 mov ebx, eax
* Reference to control TMainForm.ServerInfoList : TListView
|
004D5CFA 8B83F4030000 mov eax, [ebx+$03F4]
* Reference to field TListView.Items : TListItems
|
004D5D00 8B802C020000 mov eax, [eax+$022C]
* Reference to: ComCtrls.TListItems.GetCount(TListItems):Integer;
|
004D5D06 E8015DF7FF call 0044BA0C
004D5D0B 8BF8 mov edi, eax
004D5D0D 4F dec edi
004D5D0E 85FF test edi, edi
004D5D10 7C45 jl 004D5D57
004D5D12 47 inc edi
004D5D13 33F6 xor esi, esi
* Reference to control TMainForm.ServerInfoList : TListView
|
004D5D15 8B83F4030000 mov eax, [ebx+$03F4]
* Reference to field TListView.Items : TListItems
|
004D5D1B 8B802C020000 mov eax, [eax+$022C]
004D5D21 8BD6 mov edx, esi
* Reference to: ComCtrls.TListItems.GetItem(TListItems;Integer):TListItem;
|
004D5D23 E8145DF7FF call 0044BA3C
* Reference to: ComCtrls.TListItem.GetChecked(TListItem):Boolean;
|
004D5D28 E87756F7FF call 0044B3A4
004D5D2D 50 push eax
* Reference to control TMainForm.ServerInfoList : TListView
|
004D5D2E 8B83F4030000 mov eax, [ebx+$03F4]
* Reference to field TListView.Items : TListItems
|
004D5D34 8B802C020000 mov eax, [eax+$022C]
004D5D3A 8BD6 mov edx, esi
* Reference to: ComCtrls.TListItems.GetItem(TListItems;Integer):TListItem;
|
004D5D3C E8FB5CF7FF call 0044BA3C
* Reference to field TListItems.OFFS_0024
|
004D5D41 8B4824 mov ecx, [eax+$24]
* Possible String Reference to: 'Select'
|
004D5D44 BA545E4D00 mov edx, $004D5E54
004D5D49 A1B8D44D00 mov eax, dword ptr [$004DD4B8]
004D5D4E 8B28 mov ebp, [eax]
004D5D50 FF5514 call dword ptr [ebp+$14]
004D5D53 46 inc esi
004D5D54 4F dec edi
004D5D55 75BE jnz 004D5D15
* Reference to control TMainForm.GMOLCheck : TCheckBox
|
004D5D57 8B8304040000 mov eax, [ebx+$0404]
004D5D5D 8B10 mov edx, [eax]
* Reference to method TCheckBox.GetChecked()
|
004D5D5F FF92C8000000 call dword ptr [edx+$00C8]
004D5D65 50 push eax
* Possible String Reference to: 'GMOLCheck'
|
004D5D66 B9645E4D00 mov ecx, $004D5E64
* Possible String Reference to: 'Setup'
|
004D5D6B BA785E4D00 mov edx, $004D5E78
004D5D70 A1B8D44D00 mov eax, dword ptr [$004DD4B8]
004D5D75 8B30 mov esi, [eax]
004D5D77 FF5614 call dword ptr [esi+$14]
* Reference to control TMainForm.GMRoomCheck : TCheckBox
|
004D5D7A 8B8308040000 mov eax, [ebx+$0408]
004D5D80 8B10 mov edx, [eax]
* Reference to method TCheckBox.GetChecked()
|
004D5D82 FF92C8000000 call dword ptr [edx+$00C8]
004D5D88 50 push eax
* Possible String Reference to: 'GMRoomCheck'
|
004D5D89 B9885E4D00 mov ecx, $004D5E88
* Possible String Reference to: 'Setup'
|
004D5D8E BA785E4D00 mov edx, $004D5E78
004D5D93 A1B8D44D00 mov eax, dword ptr [$004DD4B8]
004D5D98 8B30 mov esi, [eax]
004D5D9A FF5614 call dword ptr [esi+$14]
* Reference to control TMainForm.SeeGMCheck : TCheckBox
|
004D5D9D 8B830C040000 mov eax, [ebx+$040C]
004D5DA3 8B10 mov edx, [eax]
* Reference to method TCheckBox.GetChecked()
|
004D5DA5 FF92C8000000 call dword ptr [edx+$00C8]
004D5DAB 50 push eax
* Possible String Reference to: 'SeeGMCheck'
|
004D5DAC B99C5E4D00 mov ecx, $004D5E9C
* Possible String Reference to: 'Setup'
|
004D5DB1 BA785E4D00 mov edx, $004D5E78
004D5DB6 A1B8D44D00 mov eax, dword ptr [$004DD4B8]
004D5DBB 8B30 mov esi, [eax]
004D5DBD FF5614 call dword ptr [esi+$14]
* Reference to control TMainForm.FHCheck : TCheckBox
|
004D5DC0 8B8310040000 mov eax, [ebx+$0410]
004D5DC6 8B10 mov edx, [eax]
* Reference to method TCheckBox.GetChecked()
|
004D5DC8 FF92C8000000 call dword ptr [edx+$00C8]
004D5DCE 50 push eax
* Possible String Reference to: 'FHCheck'
|
004D5DCF B9B05E4D00 mov ecx, $004D5EB0
* Possible String Reference to: 'Setup'
|
004D5DD4 BA785E4D00 mov edx, $004D5E78
004D5DD9 A1B8D44D00 mov eax, dword ptr [$004DD4B8]
004D5DDE 8B30 mov esi, [eax]
004D5DE0 FF5614 call dword ptr [esi+$14]
* Reference to control TMainForm.UnGMCheck : TCheckBox
|
004D5DE3 8B83DC040000 mov eax, [ebx+$04DC]
004D5DE9 8B10 mov edx, [eax]
* Reference to method TCheckBox.GetChecked()
|
004D5DEB FF92C8000000 call dword ptr [edx+$00C8]
004D5DF1 50 push eax
* Possible String Reference to: 'UnGMCheck'
|
004D5DF2 B9C05E4D00 mov ecx, $004D5EC0
* Possible String Reference to: 'Setup'
|
004D5DF7 BA785E4D00 mov edx, $004D5E78
004D5DFC A1B8D44D00 mov eax, dword ptr [$004DD4B8]
004D5E01 8B30 mov esi, [eax]
004D5E03 FF5614 call dword ptr [esi+$14]
004D5E06 A1B8D44D00 mov eax, dword ptr [$004DD4B8]
* Reference to: System.TObject.Free(TObject);
|
004D5E0B E86CD6F2FF call 0040347C
004D5E10 A1A4D44D00 mov eax, dword ptr [$004DD4A4]
* Reference to: System.TObject.Free(TObject);
|
004D5E15 E862D6F2FF call 0040347C
* Reference to GlobalVar_004DD4B0
|
004D5E1A A1B0D44D00 mov eax, dword ptr [$004DD4B0]
* Reference to: System.TObject.Free(TObject);
|
004D5E1F E858D6F2FF call 0040347C
* Reference to GlobalVar_004DD4AC
|
004D5E24 A1ACD44D00 mov eax, dword ptr [$004DD4AC]
* Reference to: System.TObject.Free(TObject);
|
004D5E29 E84ED6F2FF call 0040347C
* Reference to field TMainForm.OFFS_04E4
|
004D5E2E 8B83E4040000 mov eax, [ebx+$04E4]
004D5E34 50 push eax
|
004D5E35 E8F63BFBFF call 00489A30
004D5E3A A1C0D44D00 mov eax, dword ptr [$004DD4C0]
004D5E3F 50 push eax
|
004D5E40 E8930BF3FF call 004069D8
004D5E45 5D pop ebp
004D5E46 5F pop edi
004D5E47 5E pop esi
004D5E48 5B pop ebx
004D5E49 C3 ret
*)
end;
procedure TMainForm.ServerSocketAccept(Sender : TObject);
begin
(*
004D5F10 53 push ebx
004D5F11 56 push esi
004D5F12 83C4D8 add esp, -$28
004D5F15 8BF1 mov esi, ecx
004D5F17 8BD8 mov ebx, eax
004D5F19 8B4604 mov eax, [esi+$04]
004D5F1C 890424 mov [esp], eax
004D5F1F C644240400 mov byte ptr [esp+$04], $00
004D5F24 C7442408FFFFFFFF mov dword ptr [esp+$08], $FFFFFFFF
004D5F2C C644240C00 mov byte ptr [esp+$0C], $00
004D5F31 33C0 xor eax, eax
004D5F33 89442410 mov [esp+$10], eax
004D5F37 C64424140B mov byte ptr [esp+$14], $0B
004D5F3C C7442418FFFFFFFF mov dword ptr [esp+$18], $FFFFFFFF
004D5F44 C644241C00 mov byte ptr [esp+$1C], $00
004D5F49 33C0 xor eax, eax
004D5F4B 89442420 mov [esp+$20], eax
004D5F4F C644242400 mov byte ptr [esp+$24], $00
004D5F54 8BD4 mov edx, esp
004D5F56 B904000000 mov ecx, $00000004
* Reference to control TMainForm.MemTable : TkbmMemTable
|
004D5F5B 8B83A0030000 mov eax, [ebx+$03A0]
* Reference to: DB.TDataSet.AppendRecord(TDataSet;arrayofTVarRec;arrayofTVarRec;0..-1);
|
004D5F61 E8AA0EFDFF call 004A6E10
004D5F66 83C428 add esp, +$28
004D5F69 5E pop esi
004D5F6A 5B pop ebx
004D5F6B C3 ret
*)
end;
procedure TMainForm.Timer1Timer(Sender : TObject);
begin
(*
004D5F6C 55 push ebp
004D5F6D 8BEC mov ebp, esp
004D5F6F 83C4F0 add esp, -$10
004D5F72 53 push ebx
004D5F73 56 push esi
004D5F74 33C9 xor ecx, ecx
004D5F76 894DF0 mov [ebp-$10], ecx
004D5F79 894DFC mov [ebp-$04], ecx
004D5F7C 8BD8 mov ebx, eax
004D5F7E 33C0 xor eax, eax
004D5F80 55 push ebp
004D5F81 68B7604D00 push $004D60B7
***** TRY
|
004D5F86 64FF30 push dword ptr fs:[eax]
004D5F89 648920 mov fs:[eax], esp
004D5F8C 803DBCD44D0000 cmp byte ptr [$004DD4BC], $00
004D5F93 7419 jz 004D5FAE
004D5F95 B201 mov dl, $01
* Reference to control TMainForm.ISeeBtn : TButton
|
004D5F97 8B8314040000 mov eax, [ebx+$0414]
004D5F9D 8B08 mov ecx, [eax]
* Reference to method TButton.SetEnabled(Boolean)
|
004D5F9F FF5164 call dword ptr [ecx+$64]
004D5FA2 6A50 push $50
004D5FA4 68C4090000 push $000009C4
|
004D5FA9 E87209F3FF call 00406920
|
004D5FAE E8E50AF3FF call 00406A98
004D5FB3 8BF0 mov esi, eax
004D5FB5 8BC6 mov eax, esi
004D5FB7 2B05B4D44D00 sub eax, dword ptr [$004DD4B4]
004D5FBD 3D88130000 cmp eax, $00001388
004D5FC2 761B jbe 004D5FDF
004D5FC4 A190D34D00 mov eax, dword ptr [$004DD390]
004D5FC9 0FB708 movzx ecx, word ptr [eax]
004D5FCC 8B1590D34D00 mov edx, [$004DD390]
004D5FD2 8BC3 mov eax, ebx
|
004D5FD4 E8F3FEFFFF call 004D5ECC
004D5FD9 8935B4D44D00 mov [$004DD4B4], esi
* Reference to control TMainForm.ServerSocket : TServerSocket
|
004D5FDF 8B833C030000 mov eax, [ebx+$033C]
* Reference to field TServerSocket.Socket : TServerWinSocket
|
004D5FE5 8B8090000000 mov eax, [eax+$0090]
* Reference to: ScktComp.TServerWinSocket.GetActiveConnections(TServerWinSocket):Integer;
|
004D5FEB E85862FBFF call 0048C248
004D5FF0 3B0550B74D00 cmp eax, [$004DB750]
004D5FF6 7455 jz 004D604D
* Reference to control TMainForm.ServerSocket : TServerSocket
|
004D5FF8 8B833C030000 mov eax, [ebx+$033C]
* Reference to field TServerSocket.Socket : TServerWinSocket
|
004D5FFE 8B8090000000 mov eax, [eax+$0090]
* Reference to: ScktComp.TServerWinSocket.GetActiveConnections(TServerWinSocket):Integer;
|
004D6004 E83F62FBFF call 0048C248
004D6009 A350B74D00 mov dword ptr [$004DB750], eax
004D600E 8D45FC lea eax, [ebp-$04]
004D6011 50 push eax
004D6012 A150B74D00 mov eax, dword ptr [$004DB750]
004D6017 8945F4 mov [ebp-$0C], eax
004D601A C645F800 mov byte ptr [ebp-$08], $00
004D601E 8D55F4 lea edx, [ebp-$0C]
004D6021 33C9 xor ecx, ecx
* Possible String Reference to: '共 %D 台机器'
|
004D6023 B8CC604D00 mov eax, $004D60CC
|
004D6028 E89B3CF3FF call 00409CC8
004D602D 8B45FC mov eax, [ebp-$04]
004D6030 50 push eax
* Reference to control TMainForm.SBar : TStatusBar
|
004D6031 8B8338030000 mov eax, [ebx+$0338]
* Reference to field TStatusBar.Panels : TStatusPanels
|
004D6037 8B8008020000 mov eax, [eax+$0208]
004D603D BA06000000 mov edx, $00000006
* Reference to: ComCtrls.TStatusPanels.GetItem(TStatusPanels;Integer):TStatusPanel;
| or: QComCtrls.TStatusPanels.GetItem(TStatusPanels;Integer):TStatusPanel;
|
004D6042 E83939F7FF call 00449980
004D6047 5A pop edx
* Reference to: ComCtrls.TStatusPanel.SetText(TStatusPanel;AnsiString);
| or: ComCtrls.THeaderSection.SetText(THeaderSection;AnsiString);
|
004D6048 E88F38F7FF call 004498DC
* Reference to control TMainForm.Timer1 : TTimer
|
004D604D 8B8340030000 mov eax, [ebx+$0340]
004D6053 FF400C inc dword ptr [eax+$0C]
* Reference to control TMainForm.Timer1 : TTimer
|
004D6056 8B8340030000 mov eax, [ebx+$0340]
* Reference to field TTimer.Tag : Longint
|
004D605C 83780C0F cmp dword ptr [eax+$0C], +$0F
004D6060 7E37 jle 004D6099
* Reference to control TMainForm.ClientSocket : TClientSocket
|
004D6062 8BB390030000 mov esi, [ebx+$0390]
* Reference to field TClientSocket.Active : Boolean
|
004D6068 807E3000 cmp byte ptr [esi+$30], $00
004D606C 7420 jz 004D608E
004D606E B864000000 mov eax, $00000064
|
004D6073 E848CDF2FF call 00402DC0
004D6078 8D55F0 lea edx, [ebp-$10]
* Reference to: SysUtils.IntToStr(Integer):AnsiString;overload;
|
004D607B E8BC2CF3FF call 00408D3C
004D6080 8B55F0 mov edx, [ebp-$10]
* Reference to field TClientSocket.Socket : TClientWinSocket
|
004D6083 8B8690000000 mov eax, [esi+$0090]
* Reference to: ScktComp.TCustomWinSocket.SendText(TCustomWinSocket;AnsiString):Integer;
|
004D6089 E8FE56FBFF call 0048B78C
* Reference to control TMainForm.Timer1 : TTimer
|
004D608E 8B8340030000 mov eax, [ebx+$0340]
004D6094 33D2 xor edx, edx
* Reference to field TTimer.Tag : Longint
|
004D6096 89500C mov [eax+$0C], edx
004D6099 33C0 xor eax, eax
004D609B 5A pop edx
004D609C 59 pop ecx
004D609D 59 pop ecx
004D609E 648910 mov fs:[eax], edx
****** FINALLY
|
004D60A1 68BE604D00 push $004D60BE
004D60A6 8D45F0 lea eax, [ebp-$10]
* Reference to: System.@LStrClr(void;void);
|
004D60A9 E8E2E1F2FF call 00404290
004D60AE 8D45FC lea eax, [ebp-$04]
* Reference to: System.@LStrClr(void;void);
|
004D60B1 E8DAE1F2FF call 00404290
004D60B6 C3 ret
* Reference to: System.@HandleFinally;
|
004D60B7 E954DBF2FF jmp 00403C10
004D60BC EBE8 jmp 004D60A6
****** END
|
004D60BE 5E pop esi
004D60BF 5B pop ebx
004D60C0 8BE5 mov esp, ebp
004D60C2 5D pop ebp
004D60C3 C3 ret
*)
end;
procedure TMainForm.ServerSocketClientDisconnect(Sender : TObject);
begin
(*
004D60DC 55 push ebp
004D60DD 8BEC mov ebp, esp
004D60DF 6A00 push $00
004D60E1 6A00 push $00
004D60E3 6A00 push $00
004D60E5 6A00 push $00
004D60E7 53 push ebx
004D60E8 56 push esi
004D60E9 8BF1 mov esi, ecx
004D60EB 8BD8 mov ebx, eax
004D60ED 33C0 xor eax, eax
004D60EF 55 push ebp
* Possible String Reference to: '轷隍?疝[?]?
|
004D60F0 6896614D00 push $004D6196
***** TRY
|
004D60F5 64FF30 push dword ptr fs:[eax]
004D60F8 648920 mov fs:[eax], esp
004D60FB A0A4614D00 mov al, byte ptr [$004D61A4]
004D6100 50 push eax
004D6101 8D45F0 lea eax, [ebp-$10]
004D6104 8B5604 mov edx, [esi+$04]
004D6107 B1FC mov cl, $FC
|
004D6109 E82EEAF3FF call 00414B3C
004D610E 8D4DF0 lea ecx, [ebp-$10]
* Possible String Reference to: 'Sock'
|
004D6111 BAB0614D00 mov edx, $004D61B0
* Reference to control TMainForm.MemTable : TkbmMemTable
|
004D6116 8B83A0030000 mov eax, [ebx+$03A0]
004D611C 8B30 mov esi, [eax]
* Possible reference to virtual method TkbmMemTable.OFFS_0244
|
004D611E FF9644020000 call dword ptr [esi+$0244]
004D6124 84C0 test al, al
004D6126 7458 jz 004D6180
* Possible String Reference to: 'SvrID'
|
004D6128 BAC0614D00 mov edx, $004D61C0
* Reference to control TMainForm.MemTable : TkbmMemTable
|
004D612D 8B83A0030000 mov eax, [ebx+$03A0]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
004D6133 E8D4EEFCFF call 004A500C
004D6138 8B10 mov edx, [eax]
* Possible reference to virtual method TkbmMemTable.OFFS_58
|
004D613A FF5258 call dword ptr [edx+$58]
004D613D 85C0 test eax, eax
004D613F 7E34 jle 004D6175
004D6141 8D0440 lea eax, [eax+eax*2]
004D6144 8D34458ED34D00 lea esi, [$4DD38E+eax*2]
004D614B 66FF0E dec word ptr [esi]
* Possible String Reference to: 'Gold'
|
004D614E BAD0614D00 mov edx, $004D61D0
* Reference to control TMainForm.MemTable : TkbmMemTable
|
004D6153 8B83A0030000 mov eax, [ebx+$03A0]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
004D6159 E8AEEEFCFF call 004A500C
004D615E 8B10 mov edx, [eax]
* Possible reference to virtual method TkbmMemTable.OFFS_58
|
004D6160 FF5258 call dword ptr [edx+$58]
004D6163 294602 sub dword ptr [esi+$02], eax
* Reference to field TMainForm.OFFS_04E0
|
004D6166 8B93E0040000 mov edx, [ebx+$04E0]
004D616C 2BD0 sub edx, eax
004D616E 8BC3 mov eax, ebx
|
004D6170 E813120000 call 004D7388
* Reference to control TMainForm.MemTable : TkbmMemTable
|
004D6175 8B83A0030000 mov eax, [ebx+$03A0]
* Reference to: DB.TDataSet.Delete(TDataSet);
|
004D617B E84409FDFF call 004A6AC4
004D6180 33C0 xor eax, eax
004D6182 5A pop edx
004D6183 59 pop ecx
004D6184 59 pop ecx
004D6185 648910 mov fs:[eax], edx
****** FINALLY
|
* Possible String Reference to: '^[?]?
|
004D6188 689D614D00 push $004D619D
004D618D 8D45F0 lea eax, [ebp-$10]
* Reference to: Variants.@VarClr(TVarData;TVarData);
|
004D6190 E8B3A5F3FF call 00410748
004D6195 C3 ret
* Reference to: System.@HandleFinally;
|
004D6196 E975DAF2FF jmp 00403C10
004D619B EBF0 jmp 004D618D
****** END
|
004D619D 5E pop esi
004D619E 5B pop ebx
004D619F 8BE5 mov esp, ebp
004D61A1 5D pop ebp
004D61A2 C3 ret
*)
end;
procedure TMainForm.ServerSocketClientRead(Sender : TObject);
begin
(*
004D61D8 55 push ebp
004D61D9 8BEC mov ebp, esp
004D61DB 51 push ecx
004D61DC B907000000 mov ecx, $00000007
004D61E1 6A00 push $00
004D61E3 6A00 push $00
004D61E5 49 dec ecx
004D61E6 75F9 jnz 004D61E1
004D61E8 51 push ecx
004D61E9 874DFC xchg [ebp-$04], ecx
004D61EC 53 push ebx
004D61ED 56 push esi
004D61EE 57 push edi
004D61EF 894DF8 mov [ebp-$08], ecx
004D61F2 8945FC mov [ebp-$04], eax
004D61F5 33C0 xor eax, eax
004D61F7 55 push ebp
* Possible String Reference to: '槟则?剡^[?]?
|
004D61F8 68C7674D00 push $004D67C7
***** TRY
|
004D61FD 64FF30 push dword ptr fs:[eax]
004D6200 648920 mov fs:[eax], esp
004D6203 8B45F8 mov eax, [ebp-$08]
* Reference to: ComCtrls.THeaderSections.Add(THeaderSections):THeaderSection;
| or: ComCtrls.TListItems.Add(TListItems):TListItem;
| or: ScktComp.TCustomWinSocket.ReceiveLength(TCustomWinSocket):Integer;
|
004D6206 E8615AFBFF call 0048BC6C
004D620B 8BD8 mov ebx, eax
004D620D 85DB test ebx, ebx
004D620F 0F8484050000 jz 004D6799
004D6215 8BC3 mov eax, ebx
* Reference to: SysUtils.AllocMem(Cardinal):Pointer;
|
004D6217 E87424F3FF call 00408690
004D621C 8945EC mov [ebp-$14], eax
004D621F 8B45EC mov eax, [ebp-$14]
004D6222 8945E8 mov [ebp-$18], eax
004D6225 8B55EC mov edx, [ebp-$14]
004D6228 8BCB mov ecx, ebx
004D622A 8B45F8 mov eax, [ebp-$08]
* Reference to: ScktComp.TCustomWinSocket.ReceiveBuf(TCustomWinSocket;void;void;Integer):Integer;
|
004D622D E8CE58FBFF call 0048BB00
004D6232 895DF0 mov [ebp-$10], ebx
004D6235 8B7DEC mov edi, [ebp-$14]
004D6238 0FB71F movzx ebx, word ptr [edi]
004D623B 33C0 xor eax, eax
004D623D 8A4702 mov al, byte ptr [edi+$02]
004D6240 83C0FA add eax, -$06
004D6243 83F80C cmp eax, +$0C
004D6246 0F8743050000 jnbe 004D678F
004D624C 8A8059624D00 mov al, byte ptr [eax+$4D6259]
004D6252 FF248566624D00 jmp dword ptr [$4D6266+eax*4]
004D6259 0102 add [edx], eax
004D625B 0000 add [eax], al
004D625D 0000 add [eax], al
004D625F 0000 add [eax], al
004D6261 0003 add [ebx], al
004D6263 0500048F67 add eax, +$678F0400
004D6268 4D dec ebp
004D6269 007E62 add [esi+$62], bh
004D626C 4D dec ebp
004D626D 007F64 add [edi+$64], bh
004D6270 4D dec ebp
004D6271 00B5654D000B add [ebp+$B004D65], dh
004D6277 664D dec bp
004D6279 005566 add [ebp+$66], dl
004D627C 4D dec ebp
004D627D 0083FB1B0F85 add [ebx+$850F1BFB], al
004D6283 120500008BDF adc al, byte ptr [$DF8B0000]
004D6289 836B0364 sub dword ptr [ebx+$03], +$64
004D628D 817B0300100000 cmp dword ptr [ebx+$03], $00001000
004D6294 0F9545E7 setnz byte ptr [ebp-$19]
004D6298 A0D8674D00 mov al, byte ptr [$004D67D8]
004D629D 50 push eax
004D629E 8D45D4 lea eax, [ebp-$2C]
004D62A1 8B55F8 mov edx, [ebp-$08]
004D62A4 8B5204 mov edx, [edx+$04]
004D62A7 B1FC mov cl, $FC
|
004D62A9 E88EE8F3FF call 00414B3C
004D62AE 8D4DD4 lea ecx, [ebp-$2C]
* Reference to MainForm
|
004D62B1 8B45FC mov eax, [ebp-$04]
* Reference to control TMainForm.MemTable : TkbmMemTable
|
004D62B4 8B80A0030000 mov eax, [eax+$03A0]
* Possible String Reference to: 'Sock'
|
004D62BA BAE4674D00 mov edx, $004D67E4
004D62BF 8B30 mov esi, [eax]
* Possible reference to virtual method TkbmMemTable.OFFS_0244
|
004D62C1 FF9644020000 call dword ptr [esi+$0244]
004D62C7 84C0 test al, al
004D62C9 7479 jz 004D6344
004D62CB 33C0 xor eax, eax
004D62CD 8A4314 mov al, byte ptr [ebx+$14]
004D62D0 8D0440 lea eax, [eax+eax*2]
004D62D3 8D34458ED34D00 lea esi, [$4DD38E+eax*2]
* Reference to MainForm
|
004D62DA 8B45FC mov eax, [ebp-$04]
* Reference to control TMainForm.MemTable : TkbmMemTable
|
004D62DD 8B80A0030000 mov eax, [eax+$03A0]
* Possible String Reference to: 'SvrID'
|
004D62E3 BAF4674D00 mov edx, $004D67F4
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
004D62E8 E81FEDFCFF call 004A500C
004D62ED 8B10 mov edx, [eax]
* Possible reference to virtual method TkbmMemTable.OFFS_58
|
004D62EF FF5258 call dword ptr [edx+$58]
004D62F2 85C0 test eax, eax
004D62F4 7D03 jnl 004D62F9
004D62F6 66FF06 inc word ptr [esi]
* Reference to MainForm
|
004D62F9 8B45FC mov eax, [ebp-$04]
* Reference to control TMainForm.MemTable : TkbmMemTable
|
004D62FC 8B80A0030000 mov eax, [eax+$03A0]
* Possible String Reference to: 'Gold'
|
004D6302 BA04684D00 mov edx, $004D6804
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
004D6307 E800EDFCFF call 004A500C
004D630C 8B10 mov edx, [eax]
* Possible reference to virtual method TkbmMemTable.OFFS_58
|
004D630E FF5258 call dword ptr [edx+$58]
004D6311 8BF8 mov edi, eax
004D6313 8B4602 mov eax, [esi+$02]
004D6316 2BC7 sub eax, edi
004D6318 034317 add eax, [ebx+$17]
004D631B 894602 mov [esi+$02], eax
* Reference to MainForm
|
004D631E 8B45FC mov eax, [ebp-$04]
* Reference to field TMainForm.OFFS_04E0
|
004D6321 8B90E0040000 mov edx, [eax+$04E0]
004D6327 2BD7 sub edx, edi
004D6329 035317 add edx, [ebx+$17]
* Reference to MainForm
|
004D632C 8B45FC mov eax, [ebp-$04]
|
004D632F E854100000 call 004D7388
* Reference to MainForm
|
004D6334 8B45FC mov eax, [ebp-$04]
* Reference to control TMainForm.MemTable : TkbmMemTable
|
004D6337 8B80A0030000 mov eax, [eax+$03A0]
* Reference to: DB.TDataSet.Edit(TDataSet);
|
004D633D E84A04FDFF call 004A678C
004D6342 EB3A jmp 004D637E
004D6344 33C0 xor eax, eax
004D6346 8A4314 mov al, byte ptr [ebx+$14]
004D6349 8D0440 lea eax, [eax+eax*2]
004D634C 8D04458ED34D00 lea eax, [$4DD38E+eax*2]
004D6353 66FF00 inc word ptr [eax]
004D6356 8B5317 mov edx, [ebx+$17]
004D6359 015002 add [eax+$02], edx
* Reference to MainForm
|
004D635C 8B45FC mov eax, [ebp-$04]
* Reference to field TMainForm.OFFS_04E0
|
004D635F 8B90E0040000 mov edx, [eax+$04E0]
004D6365 035317 add edx, [ebx+$17]
* Reference to MainForm
|
004D6368 8B45FC mov eax, [ebp-$04]
|
004D636B E818100000 call 004D7388
* Reference to MainForm
|
004D6370 8B45FC mov eax, [ebp-$04]
* Reference to control TMainForm.MemTable : TkbmMemTable
|
004D6373 8B80A0030000 mov eax, [eax+$03A0]
* Reference to: DB.TDataSet.Append(TDataSet);
|
004D6379 E85205FDFF call 004A68D0
* Reference to MainForm
|
004D637E 8B45FC mov eax, [ebp-$04]
* Reference to control TMainForm.MemTable : TkbmMemTable
|
004D6381 8BB0A0030000 mov esi, [eax+$03A0]
* Possible String Reference to: 'Sock'
|
004D6387 BAE4674D00 mov edx, $004D67E4
004D638C 8BC6 mov eax, esi
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
004D638E E879ECFCFF call 004A500C
004D6393 8B55F8 mov edx, [ebp-$08]
004D6396 8B5204 mov edx, [edx+$04]
004D6399 8B08 mov ecx, [eax]
* Possible reference to virtual method TkbmMemTable.OFFS_00A8
|
004D639B FF91A8000000 call dword ptr [ecx+$00A8]
* Possible String Reference to: 'SvrID'
|
004D63A1 BAF4674D00 mov edx, $004D67F4
004D63A6 8BC6 mov eax, esi
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
004D63A8 E85FECFCFF call 004A500C
004D63AD 33D2 xor edx, edx
004D63AF 8A5314 mov dl, byte ptr [ebx+$14]
004D63B2 8B08 mov ecx, [eax]
* Possible reference to virtual method TkbmMemTable.OFFS_00A8
|
004D63B4 FF91A8000000 call dword ptr [ecx+$00A8]
* Possible String Reference to: 'GameID'
|
004D63BA BA14684D00 mov edx, $004D6814
004D63BF 8BC6 mov eax, esi
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
004D63C1 E846ECFCFF call 004A500C
004D63C6 50 push eax
004D63C7 8D45D0 lea eax, [ebp-$30]
004D63CA 8D5307 lea edx, [ebx+$07]
* Reference to: System.@LStrFromString(String;String;ShortString;ShortString);
| or: System.@WStrFromString(WideString;WideString;ShortString;ShortString);
|
004D63CD E822E1F2FF call 004044F4
004D63D2 8B55D0 mov edx, [ebp-$30]
004D63D5 58 pop eax
004D63D6 8B08 mov ecx, [eax]
004D63D8 FF91B0000000 call dword ptr [ecx+$00B0]
* Possible String Reference to: 'Gold'
|
004D63DE BA04684D00 mov edx, $004D6804
004D63E3 8BC6 mov eax, esi
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
004D63E5 E822ECFCFF call 004A500C
004D63EA 8B5317 mov edx, [ebx+$17]
004D63ED 8B08 mov ecx, [eax]
* Possible reference to virtual method TkbmMemTable.OFFS_00A8
|
004D63EF FF91A8000000 call dword ptr [ecx+$00A8]
* Possible String Reference to: 'MapID'
|
004D63F5 BA24684D00 mov edx, $004D6824
004D63FA 8BC6 mov eax, esi
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
004D63FC E80BECFCFF call 004A500C
004D6401 0FB75315 movzx edx, word ptr [ebx+$15]
004D6405 8B08 mov ecx, [eax]
* Possible reference to virtual method TkbmMemTable.OFFS_00A8
|
004D6407 FF91A8000000 call dword ptr [ecx+$00A8]
004D640D 807DE700 cmp byte ptr [ebp-$19], $00
004D6411 7428 jz 004D643B
* Possible String Reference to: 'ErrCount'
|
004D6413 BA34684D00 mov edx, $004D6834
004D6418 8BC6 mov eax, esi
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
004D641A E8EDEBFCFF call 004A500C
004D641F 8B10 mov edx, [eax]
* Possible reference to virtual method TkbmMemTable.OFFS_58
|
004D6421 FF5258 call dword ptr [edx+$58]
004D6424 40 inc eax
004D6425 50 push eax
* Possible String Reference to: 'ErrCount'
|
004D6426 BA34684D00 mov edx, $004D6834
004D642B 8BC6 mov eax, esi
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
004D642D E8DAEBFCFF call 004A500C
004D6432 5A pop edx
004D6433 8B08 mov ecx, [eax]
* Possible reference to virtual method TkbmMemTable.OFFS_00A8
|
004D6435 FF91A8000000 call dword ptr [ecx+$00A8]
004D643B 8BC6 mov eax, esi
004D643D 8B10 mov edx, [eax]
* Possible reference to virtual method TkbmMemTable.OFFS_024C
|
004D643F FF924C020000 call dword ptr [edx+$024C]
* Possible String Reference to: 'ErrCount'
|
004D6445 BA34684D00 mov edx, $004D6834
004D644A 8BC6 mov eax, esi
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
004D644C E8BBEBFCFF call 004A500C
004D6451 8B10 mov edx, [eax]
* Possible reference to virtual method TkbmMemTable.OFFS_58
|
004D6453 FF5258 call dword ptr [edx+$58]
004D6456 83F864 cmp eax, +$64
004D6459 7E12 jle 004D646D
004D645B 6AFF push $FF
004D645D 8B45F8 mov eax, [ebp-$08]
004D6460 8B4804 mov ecx, [eax+$04]
004D6463 B20B mov dl, $0B
* Reference to MainForm
|
004D6465 8B45FC mov eax, [ebp-$04]
|
004D6468 E803050000 call 004D6970
004D646D 33D2 xor edx, edx
004D646F 8A5314 mov dl, byte ptr [ebx+$14]
* Reference to MainForm
|
004D6472 8B45FC mov eax, [ebp-$04]
* Reference to : TMainForm._PROC_004D77C4()
|
004D6475 E84A130000 call 004D77C4
004D647A E910030000 jmp 004D678F
004D647F 83FB07 cmp ebx, +$07
004D6482 0F8511030000 jnz 004D6799
004D6488 A0D8674D00 mov al, byte ptr [$004D67D8]
004D648D 50 push eax
004D648E 8D45C0 lea eax, [ebp-$40]
004D6491 8B55F8 mov edx, [ebp-$08]
004D6494 8B5204 mov edx, [edx+$04]
004D6497 B1FC mov cl, $FC
|
004D6499 E89EE6F3FF call 00414B3C
004D649E 8D4DC0 lea ecx, [ebp-$40]
* Reference to MainForm
|
004D64A1 8B45FC mov eax, [ebp-$04]
* Reference to control TMainForm.MemTable : TkbmMemTable
|
004D64A4 8B80A0030000 mov eax, [eax+$03A0]
* Possible String Reference to: 'Sock'
|
004D64AA BAE4674D00 mov edx, $004D67E4
004D64AF 8B18 mov ebx, [eax]
* Possible reference to virtual method TkbmMemTable.OFFS_0244
|
004D64B1 FF9344020000 call dword ptr [ebx+$0244]
004D64B7 84C0 test al, al
004D64B9 0F84D0020000 jz 004D678F
* Reference to MainForm
|
004D64BF 8B45FC mov eax, [ebp-$04]
* Reference to control TMainForm.MemTable : TkbmMemTable
|
004D64C2 8B80A0030000 mov eax, [eax+$03A0]
* Possible String Reference to: 'SvrId'
|
004D64C8 BA48684D00 mov edx, $004D6848
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
004D64CD E83AEBFCFF call 004A500C
004D64D2 8B10 mov edx, [eax]
* Possible reference to virtual method TkbmMemTable.OFFS_58
|
004D64D4 FF5258 call dword ptr [edx+$58]
004D64D7 8BF8 mov edi, eax
004D64D9 8D047F lea eax, [edi+edi*2]
004D64DC 8D1C458ED34D00 lea ebx, [$4DD38E+eax*2]
004D64E3 66FF0B dec word ptr [ebx]
* Reference to MainForm
|
004D64E6 8B45FC mov eax, [ebp-$04]
* Reference to control TMainForm.MemTable : TkbmMemTable
|
004D64E9 8B80A0030000 mov eax, [eax+$03A0]
* Possible String Reference to: 'Gold'
|
004D64EF BA04684D00 mov edx, $004D6804
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
004D64F4 E813EBFCFF call 004A500C
004D64F9 8B10 mov edx, [eax]
* Possible reference to virtual method TkbmMemTable.OFFS_58
|
004D64FB FF5258 call dword ptr [edx+$58]
004D64FE 8BF8 mov edi, eax
004D6500 297B02 sub dword ptr [ebx+$02], edi
* Reference to MainForm
|
004D6503 8B45FC mov eax, [ebp-$04]
* Reference to field TMainForm.OFFS_04E0
|
004D6506 8B90E0040000 mov edx, [eax+$04E0]
004D650C 2BD7 sub edx, edi
* Reference to MainForm
|
004D650E 8B45FC mov eax, [ebp-$04]
|
004D6511 E8720E0000 call 004D7388
* Reference to MainForm
|
004D6516 8B45FC mov eax, [ebp-$04]
* Reference to control TMainForm.MemTable : TkbmMemTable
|
004D6519 8B80A0030000 mov eax, [eax+$03A0]
* Possible String Reference to: 'SvrId'
|
004D651F BA48684D00 mov edx, $004D6848
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
004D6524 E8E3EAFCFF call 004A500C
004D6529 8B10 mov edx, [eax]
* Possible reference to virtual method TkbmMemTable.OFFS_58
|
004D652B FF5258 call dword ptr [edx+$58]
004D652E 8BD0 mov edx, eax
* Reference to MainForm
|
004D6530 8B45FC mov eax, [ebp-$04]
* Reference to : TMainForm._PROC_004D77C4()
|
004D6533 E88C120000 call 004D77C4
* Reference to MainForm
|
004D6538 8B45FC mov eax, [ebp-$04]
* Reference to control TMainForm.MemTable : TkbmMemTable
|
004D653B 8B80A0030000 mov eax, [eax+$03A0]
* Reference to: DB.TDataSet.Edit(TDataSet);
|
004D6541 E84602FDFF call 004A678C
* Reference to MainForm
|
004D6546 8B45FC mov eax, [ebp-$04]
* Reference to control TMainForm.MemTable : TkbmMemTable
|
004D6549 8B80A0030000 mov eax, [eax+$03A0]
* Possible String Reference to: 'SvrID'
|
004D654F BAF4674D00 mov edx, $004D67F4
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
004D6554 E8B3EAFCFF call 004A500C
004D6559 83CAFF or edx, -$01
004D655C 8B08 mov ecx, [eax]
* Possible reference to virtual method TkbmMemTable.OFFS_00A8
|
004D655E FF91A8000000 call dword ptr [ecx+$00A8]
* Reference to MainForm
|
004D6564 8B45FC mov eax, [ebp-$04]
* Reference to control TMainForm.MemTable : TkbmMemTable
|
004D6567 8B80A0030000 mov eax, [eax+$03A0]
* Possible String Reference to: 'Gold'
|
004D656D BA04684D00 mov edx, $004D6804
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
004D6572 E895EAFCFF call 004A500C
004D6577 33D2 xor edx, edx
004D6579 8B08 mov ecx, [eax]
* Possible reference to virtual method TkbmMemTable.OFFS_00A8
|
004D657B FF91A8000000 call dword ptr [ecx+$00A8]
* Reference to MainForm
|
004D6581 8B45FC mov eax, [ebp-$04]
* Reference to control TMainForm.MemTable : TkbmMemTable
|
004D6584 8B80A0030000 mov eax, [eax+$03A0]
* Possible String Reference to: 'MapID'
|
004D658A BA24684D00 mov edx, $004D6824
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
004D658F E878EAFCFF call 004A500C
004D6594 83CAFF or edx, -$01
004D6597 8B08 mov ecx, [eax]
* Possible reference to virtual method TkbmMemTable.OFFS_00A8
|
004D6599 FF91A8000000 call dword ptr [ecx+$00A8]
* Reference to MainForm
|
004D659F 8B45FC mov eax, [ebp-$04]
* Reference to control TMainForm.MemTable : TkbmMemTable
|
004D65A2 8B80A0030000 mov eax, [eax+$03A0]
004D65A8 8B10 mov edx, [eax]
* Possible reference to virtual method TkbmMemTable.OFFS_024C
|
004D65AA FF924C020000 call dword ptr [edx+$024C]
004D65B0 E9DA010000 jmp 004D678F
004D65B5 83FB19 cmp ebx, +$19
004D65B8 0F85DB010000 jnz 004D6799
* Reference to pointer to GlobalVar_004DCE60
|
004D65BE A164B94D00 mov eax, dword ptr [$004DB964]
004D65C3 833800 cmp dword ptr [eax], +$00
004D65C6 0F84C3010000 jz 004D678F
004D65CC 8D45F4 lea eax, [ebp-$0C]
004D65CF 8D5707 lea edx, [edi+$07]
* Reference to: System.@LStrFromString(String;String;ShortString;ShortString);
| or: System.@WStrFromString(WideString;WideString;ShortString;ShortString);
|
004D65D2 E81DDFF2FF call 004044F4
* Reference to pointer to GlobalVar_004DCE60
|
004D65D7 A164B94D00 mov eax, dword ptr [$004DB964]
004D65DC 8B00 mov eax, [eax]
* Reference to control GMROOMRadio : N.A.
|
004D65DE 8B80F8020000 mov eax, [eax+$02F8]
* Reference to field N.A..OFFS_0218
|
004D65E4 8B9818020000 mov ebx, [eax+$0218]
004D65EA 8B55F4 mov edx, [ebp-$0C]
004D65ED 8BC3 mov eax, ebx
004D65EF 8B08 mov ecx, [eax]
004D65F1 FF5154 call dword ptr [ecx+$54]
004D65F4 85C0 test eax, eax
004D65F6 0F8D93010000 jnl 004D678F
004D65FC 8B55F4 mov edx, [ebp-$0C]
004D65FF 8BC3 mov eax, ebx
* Reference to: Classes.TStrings.Append(TStrings;AnsiString);
| or: TeEngine.TChartSeries.AssignValues(TChartSeries;TChartSeries);
|
004D6601 E88689F4FF call 0041EF8C
004D6606 E984010000 jmp 004D678F
004D660B 8D55F4 lea edx, [ebp-$0C]
004D660E 8B45E8 mov eax, [ebp-$18]
004D6611 83C007 add eax, +$07
* Reference to: Dialogs.FixFileName(AnsiString):AnsiString;
| or: SysUtils.StrPas(PChar):AnsiString;
|
004D6614 E8BF31F3FF call 004097D8
* Reference to MainForm
|
004D6619 8B45FC mov eax, [ebp-$04]
* Reference to control TMainForm.GameMessList : TListBox
|
004D661C 8B801C040000 mov eax, [eax+$041C]
* Reference to field TListBox.Items : TStrings
|
004D6622 8B8018020000 mov eax, [eax+$0218]
004D6628 8B55F4 mov edx, [ebp-$0C]
* Reference to: Classes.TStrings.Append(TStrings;AnsiString);
|
004D662B E85C89F4FF call 0041EF8C
* Reference to MainForm
|
004D6630 8B45FC mov eax, [ebp-$04]
* Reference to control TMainForm.GameMessList : TListBox
|
004D6633 8B981C040000 mov ebx, [eax+$041C]
004D6639 8BC3 mov eax, ebx
004D663B 8B10 mov edx, [eax]
* Possible reference to virtual method TListBox.OFFS_00C8
|
004D663D FF92C8000000 call dword ptr [edx+$00C8]
004D6643 8BD0 mov edx, eax
004D6645 4A dec edx
004D6646 8BC3 mov eax, ebx
004D6648 8B08 mov ecx, [eax]
* Reference to method TListBox.ItemIndex()
|
004D664A FF91D0000000 call dword ptr [ecx+$00D0]
004D6650 E93A010000 jmp 004D678F
004D6655 8D45EC lea eax, [ebp-$14]
004D6658 8BD3 mov edx, ebx
* Reference to: System.@ReallocMem(Pointer;Pointer;Integer):Pointer;
|
004D665A E869C1F2FF call 004027C8
004D665F 8B45EC mov eax, [ebp-$14]
004D6662 8945E8 mov [ebp-$18], eax
004D6665 33C0 xor eax, eax
004D6667 55 push ebp
004D6668 6868674D00 push $004D6768
***** TRY
|
004D666D 64FF30 push dword ptr fs:[eax]
004D6670 648920 mov fs:[eax], esp
004D6673 8BFB mov edi, ebx
004D6675 2B7DF0 sub edi, dword ptr [ebp-$10]
004D6678 8B75F0 mov esi, [ebp-$10]
004D667B 85FF test edi, edi
004D667D 7E38 jle 004D66B7
004D667F 6A00 push $00
004D6681 57 push edi
004D6682 8B45E8 mov eax, [ebp-$18]
004D6685 33D2 xor edx, edx
004D6687 52 push edx
004D6688 50 push eax
004D6689 8BC6 mov eax, esi
004D668B 99 cdq
004D668C 030424 add eax, [esp]
004D668F 13542404 adc edx, [esp+$04]
004D6693 83C408 add esp, +$08
004D6696 50 push eax
004D6697 8B45F8 mov eax, [ebp-$08]
004D669A 8B4004 mov eax, [eax+$04]
004D669D 50 push eax
|
004D669E E8D533FBFF call 00489A78
004D66A3 8BD8 mov ebx, eax
004D66A5 85DB test ebx, ebx
004D66A7 7F06 jnle 004D66AF
004D66A9 85F6 test esi, esi
004D66AB 7F0A jnle 004D66B7
004D66AD EBD0 jmp 004D667F
004D66AF 03F3 add esi, ebx
004D66B1 2BFB sub edi, ebx
004D66B3 85FF test edi, edi
004D66B5 7FC8 jnle 004D667F
004D66B7 85F6 test esi, esi
004D66B9 750D jnz 004D66C8
004D66BB 33C0 xor eax, eax
004D66BD 5A pop edx
004D66BE 59 pop ecx
004D66BF 59 pop ecx
004D66C0 648910 mov fs:[eax], edx
004D66C3 E9D1000000 jmp 004D6799
004D66C8 A1A4D44D00 mov eax, dword ptr [$004DD4A4]
* Reference to: Classes.TMemoryStream.Clear(TMemoryStream);
|
004D66CD E862A5F4FF call 00420C34
004D66D2 8B55E8 mov edx, [ebp-$18]
004D66D5 83C207 add edx, +$07
004D66D8 8BCE mov ecx, esi
004D66DA A1A4D44D00 mov eax, dword ptr [$004DD4A4]
* Reference to: Classes.TStream.WriteBuffer(TStream;void;void;Longint);
|
004D66DF E840A0F4FF call 00420724
004D66E4 6A00 push $00
004D66E6 6A00 push $00
004D66E8 A1A4D44D00 mov eax, dword ptr [$004DD4A4]
|
004D66ED E8EE9DF4FF call 004204E0
* Reference to GlobalVar_004DD4B0
|
004D66F2 A1B0D44D00 mov eax, dword ptr [$004DD4B0]
|
004D66F7 E88833FFFF call 004C9A84
004D66FC 8B15A4D44D00 mov edx, [$004DD4A4]
* Reference to GlobalVar_004DD4B0
|
004D6702 A1B0D44D00 mov eax, dword ptr [$004DD4B0]
004D6707 8B08 mov ecx, [eax]
* Possible reference to virtual method TGlobalVar_004DD4B0.OFFS_54
|
004D6709 FF5154 call dword ptr [ecx+$54]
* Reference to GlobalVar_004DD4B0
|
004D670C A1B0D44D00 mov eax, dword ptr [$004DD4B0]
004D6711 50 push eax
* Reference to GlobalVar_004DD4AC
|
004D6712 A1ACD44D00 mov eax, dword ptr [$004DD4AC]
* Reference to: Graphics.TBitmap.GetCanvas(TBitmap):TCanvas;
|
004D6717 E8AC8CF5FF call 0042F3C8
004D671C 33D2 xor edx, edx
004D671E 8A15A8D44D00 mov dl, byte ptr [$004DD4A8]
004D6724 C1E206 shl edx, $06
004D6727 33C9 xor ecx, ecx
* Reference to: Graphics.TCanvas.Draw(TCanvas;Integer;Integer;TGraphic);
|
004D6729 E88241F5FF call 0042A8B0
004D672E FE05A8D44D00 inc byte ptr [$004DD4A8]
004D6734 803DA8D44D000F cmp byte ptr [$004DD4A8], $0F
004D673B 7621 jbe 004D675E
004D673D C605A8D44D0000 mov byte ptr [$004DD4A8], $00
* Reference to MainForm
|
004D6744 8B45FC mov eax, [ebp-$04]
* Reference to control TMainForm.Image1 : TImage
|
004D6747 8B80E0030000 mov eax, [eax+$03E0]
* Reference to field TImage.Picture : TPicture
|
004D674D 8B8068010000 mov eax, [eax+$0168]
* Reference to GlobalVar_004DD4AC
|
004D6753 8B15ACD44D00 mov edx, [$004DD4AC]
004D6759 8B08 mov ecx, [eax]
* Reference to method TPicture.Assign(TPersistent)
|
004D675B FF5108 call dword ptr [ecx+$08]
004D675E 33C0 xor eax, eax
004D6760 5A pop edx
004D6761 59 pop ecx
004D6762 59 pop ecx
004D6763 648910 mov fs:[eax], edx
004D6766 EB0A jmp 004D6772
* Reference to: System.@HandleAnyException;
|
004D6768 E9EFD1F2FF jmp 0040395C
* Reference to: System.@DoneExcept;
|
004D676D E852D5F2FF call 00403CC4
****** END
|
* Reference to MainForm
|
004D6772 8B45FC mov eax, [ebp-$04]
* Reference to control TMainForm.ScrPanel : TPanel
|
004D6775 8B80DC030000 mov eax, [eax+$03DC]
* Reference to field TPanel.Visible : Boolean
|
004D677B 80785700 cmp byte ptr [eax+$57], $00
004D677F 740E jz 004D678F
004D6781 8B45F8 mov eax, [ebp-$08]
004D6784 8B5004 mov edx, [eax+$04]
* Reference to MainForm
|
004D6787 8B45FC mov eax, [ebp-$04]
|
004D678A E86D0D0000 call 004D74FC
004D678F 8D45EC lea eax, [ebp-$14]
004D6792 33D2 xor edx, edx
* Reference to: System.@ReallocMem(Pointer;Pointer;Integer):Pointer;
|
004D6794 E82FC0F2FF call 004027C8
004D6799 33C0 xor eax, eax
004D679B 5A pop edx
004D679C 59 pop ecx
004D679D 59 pop ecx
004D679E 648910 mov fs:[eax], edx
****** FINALLY
|
* Possible String Reference to: '_^[?]?
|
004D67A1 68CE674D00 push $004D67CE
004D67A6 8D45C0 lea eax, [ebp-$40]
* Reference to: Variants.@VarClr(TVarData;TVarData);
|
004D67A9 E89A9FF3FF call 00410748
004D67AE 8D45D0 lea eax, [ebp-$30]
* Reference to: System.@LStrClr(void;void);
|
004D67B1 E8DADAF2FF call 00404290
004D67B6 8D45D4 lea eax, [ebp-$2C]
* Reference to: Variants.@VarClr(TVarData;TVarData);
|
004D67B9 E88A9FF3FF call 00410748
004D67BE 8D45F4 lea eax, [ebp-$0C]
* Reference to: System.@LStrClr(void;void);
|
004D67C1 E8CADAF2FF call 00404290
004D67C6 C3 ret
* Reference to: System.@HandleFinally;
|
004D67C7 E944D4F2FF jmp 00403C10
004D67CC EBD8 jmp 004D67A6
****** END
|
004D67CE 5F pop edi
004D67CF 5E pop esi
004D67D0 5B pop ebx
004D67D1 8BE5 mov esp, ebp
004D67D3 5D pop ebp
004D67D4 C3 ret
*)
end;
procedure TMainForm.ServerSocketClientError(Sender : TObject);
begin
(*
004D6850 55 push ebp
004D6851 8BEC mov ebp, esp
004D6853 8B4508 mov eax, [ebp+$08]
004D6856 33D2 xor edx, edx
004D6858 8910 mov [eax], edx
004D685A 8BC1 mov eax, ecx
* Reference to: ScktComp.TCustomWinSocket.Close(TCustomWinSocket);
|
004D685C E89747FBFF call 0048AFF8
004D6861 5D pop ebp
004D6862 C20800 ret $0008
*)
end;
procedure TMainForm.ToolButton9Click(Sender : TObject);
begin
(*
* Reference to: Forms.TCustomForm.Close(TCustomForm);
|
004D6868 E887E4FAFF call 00484CF4
004D686D C3 ret
*)
end;
procedure TMainForm.FormCloseQuery(Sender : TObject);
begin
(*
004D6870 55 push ebp
004D6871 8BEC mov ebp, esp
004D6873 6A00 push $00
004D6875 53 push ebx
004D6876 56 push esi
004D6877 8BF1 mov esi, ecx
004D6879 8BD8 mov ebx, eax
004D687B 33C0 xor eax, eax
004D687D 55 push ebp
004D687E 68F6684D00 push $004D68F6
***** TRY
|
004D6883 64FF30 push dword ptr fs:[eax]
004D6886 648920 mov fs:[eax], esp
* Reference to control TMainForm.AutoCheck : TToolButton
|
004D6889 8B8374030000 mov eax, [ebx+$0374]
* Reference to field TToolButton.Down : Boolean
|
004D688F 80B86A01000000 cmp byte ptr [eax+$016A], $00
004D6896 7445 jz 004D68DD
* Reference to control TMainForm.ServerSocket : TServerSocket
|
004D6898 8B833C030000 mov eax, [ebx+$033C]
* Reference to field TServerSocket.Socket : TServerWinSocket
|
004D689E 8B8090000000 mov eax, [eax+$0090]
* Reference to: ScktComp.TServerWinSocket.GetActiveConnections(TServerWinSocket):Integer;
|
004D68A4 E89F59FBFF call 0048C248
004D68A9 85C0 test eax, eax
004D68AB 7E30 jle 004D68DD
004D68AD 6821010000 push $00000121
004D68B2 8D55FC lea edx, [ebp-$04]
004D68B5 8BC3 mov eax, ebx
* Reference to: Controls.TControl.GetText(TControl):TCaption;
|
004D68B7 E84812F9FF call 00467B04
004D68BC 8B45FC mov eax, [ebp-$04]
* Reference to: System.@LStrToPChar(String):PAnsiChar;
|
004D68BF E88CDEF2FF call 00404750
004D68C4 50 push eax
* Possible String Reference to: '主控机正在监控,退出主控机所有子机?
| ??ケ;ぃ?啡贤顺雎穑?
|
004D68C5 6804694D00 push $004D6904
004D68CA 8BC3 mov eax, ebx
* Reference to: QForms.TCustomForm.GetClientHandle(TCustomForm):QWorkspaceH;
|
004D68CC E8677BF9FF call 0046E438
004D68D1 50 push eax
|
004D68D2 E82109F3FF call 004071F8
004D68D7 48 dec eax
004D68D8 0F9406 setz byte ptr [esi]
004D68DB EB03 jmp 004D68E0
004D68DD C60601 mov byte ptr [esi], $01
004D68E0 33C0 xor eax, eax
004D68E2 5A pop edx
004D68E3 59 pop ecx
004D68E4 59 pop ecx
004D68E5 648910 mov fs:[eax], edx
****** FINALLY
|
* Possible String Reference to: '^[Y]?
|
004D68E8 68FD684D00 push $004D68FD
004D68ED 8D45FC lea eax, [ebp-$04]
* Reference to: System.@LStrClr(void;void);
|
004D68F0 E89BD9F2FF call 00404290
004D68F5 C3 ret
* Reference to: System.@HandleFinally;
|
004D68F6 E915D3F2FF jmp 00403C10
004D68FB EBF0 jmp 004D68ED
****** END
|
004D68FD 5E pop esi
004D68FE 5B pop ebx
004D68FF 59 pop ecx
004D6900 5D pop ebp
004D6901 C3 ret
*)
end;
procedure TMainForm.ToolButton6Click(Sender : TObject);
begin
(*
004D6940 53 push ebx
004D6941 8BD8 mov ebx, eax
* Possible String Reference to: '上线'
|
004D6943 B868694D00 mov eax, $004D6968
|
004D6948 E85FEBFFFF call 004D54AC
004D694D 84C0 test al, al
004D694F 740D jz 004D695E
004D6951 6AFF push $FF
004D6953 33C9 xor ecx, ecx
004D6955 B208 mov dl, $08
004D6957 8BC3 mov eax, ebx
|
004D6959 E812000000 call 004D6970
004D695E 5B pop ebx
004D695F C3 ret
*)
end;
procedure TMainForm.ToolButton11Click(Sender : TObject);
begin
(*
004D69B0 53 push ebx
004D69B1 8BD8 mov ebx, eax
* Possible String Reference to: '更新挑战天堂'
|
004D69B3 B8D8694D00 mov eax, $004D69D8
|
004D69B8 E8EFEAFFFF call 004D54AC
004D69BD 84C0 test al, al
004D69BF 740D jz 004D69CE
004D69C1 6AFF push $FF
004D69C3 33C9 xor ecx, ecx
004D69C5 B20C mov dl, $0C
004D69C7 8BC3 mov eax, ebx
|
004D69C9 E8A2FFFFFF call 004D6970
004D69CE 5B pop ebx
004D69CF C3 ret
*)
end;
procedure TMainForm.ToolButton5Click(Sender : TObject);
begin
(*
004D69E8 53 push ebx
004D69E9 8BD8 mov ebx, eax
* Possible String Reference to: '关闭计算机'
|
004D69EB B8106A4D00 mov eax, $004D6A10
|
004D69F0 E8B7EAFFFF call 004D54AC
004D69F5 84C0 test al, al
004D69F7 740D jz 004D6A06
004D69F9 6AFF push $FF
004D69FB 33C9 xor ecx, ecx
004D69FD B20B mov dl, $0B
004D69FF 8BC3 mov eax, ebx
|
004D6A01 E86AFFFFFF call 004D6970
004D6A06 5B pop ebx
004D6A07 C3 ret
*)
end;
procedure TMainForm.ToolButton12Click(Sender : TObject);
begin
(*
* Reference to pointer to GlobalVar_004DCE60
|
004D6A1C 8B0D64B94D00 mov ecx, [$004DB964]
* Reference to TApplication instance
|
004D6A22 A1DCBB4D00 mov eax, dword ptr [$004DBBDC]
004D6A27 8B00 mov eax, [eax]
* Reference to class TLanOpen
|
004D6A29 8B1518144D00 mov edx, [$004D1418]
* Reference to: Forms.TApplication.CreateForm(TApplication;TComponentClass;void;void);
| or: QForms.TApplication.CreateForm(TApplication;TComponentClass;void;void);
|
004D6A2F E8F819FBFF call 0048842C
* Reference to pointer to GlobalVar_004DCE60
|
004D6A34 A164B94D00 mov eax, dword ptr [$004DB964]
004D6A39 8B00 mov eax, [eax]
004D6A3B 8B10 mov edx, [eax]
* Possible reference to virtual method TGlobalVar_004DCE60.OFFS_00EC
|
004D6A3D FF92EC000000 call dword ptr [edx+$00EC]
* Reference to pointer to GlobalVar_004DCE60
|
004D6A43 A164B94D00 mov eax, dword ptr [$004DB964]
004D6A48 8B00 mov eax, [eax]
* Reference to: System.TObject.Free(TObject);
|
004D6A4A E82DCAF2FF call 0040347C
004D6A4F C3 ret
*)
end;
procedure TMainForm.ToolButton3Click(Sender : TObject);
begin
(*
004D6A50 53 push ebx
004D6A51 8BD8 mov ebx, eax
* Possible String Reference to: '回城'
|
004D6A53 B8786A4D00 mov eax, $004D6A78
|
004D6A58 E84FEAFFFF call 004D54AC
004D6A5D 84C0 test al, al
004D6A5F 740D jz 004D6A6E
004D6A61 6AFF push $FF
004D6A63 33C9 xor ecx, ecx
004D6A65 B20A mov dl, $0A
004D6A67 8BC3 mov eax, ebx
|
004D6A69 E802FFFFFF call 004D6970
004D6A6E 5B pop ebx
004D6A6F C3 ret
*)
end;
procedure TMainForm.ToolButton4Click(Sender : TObject);
begin
(*
004D6A80 53 push ebx
004D6A81 8BD8 mov ebx, eax
* Possible String Reference to: '强退'
|
004D6A83 B8A86A4D00 mov eax, $004D6AA8
|
004D6A88 E81FEAFFFF call 004D54AC
004D6A8D 84C0 test al, al
004D6A8F 740D jz 004D6A9E
004D6A91 6AFF push $FF
004D6A93 33C9 xor ecx, ecx
004D6A95 B209 mov dl, $09
004D6A97 8BC3 mov eax, ebx
|
004D6A99 E8D2FEFFFF call 004D6970
004D6A9E 5B pop ebx
004D6A9F C3 ret
*)
end;
procedure TMainForm.N27Click(Sender : TObject);
begin
(*
004D6B0C 53 push ebx
004D6B0D 8BD8 mov ebx, eax
004D6B0F 6AFF push $FF
* Reference to control TMainForm.IDList : TListView
|
004D6B11 8B8344040000 mov eax, [ebx+$0444]
* Reference to: ComCtrls.TCustomListView.GetSelected(TCustomListView):TListItem;
| or: ComCtrls.TCustomListView.GetFocused(TCustomListView):TListItem;
|
004D6B17 E8C885F7FF call 0044F0E4
* Reference to: ComCtrls.TListItem.GetIndex(TListItem):Integer;
|
004D6B1C E8634DF7FF call 0044B884
004D6B21 8BC8 mov ecx, eax
004D6B23 B208 mov dl, $08
004D6B25 8BC3 mov eax, ebx
|
004D6B27 E884FFFFFF call 004D6AB0
004D6B2C 5B pop ebx
004D6B2D C3 ret
*)
end;
procedure TMainForm.N29Click(Sender : TObject);
begin
(*
004D6B30 53 push ebx
004D6B31 8BD8 mov ebx, eax
004D6B33 6AFF push $FF
* Reference to control TMainForm.IDList : TListView
|
004D6B35 8B8344040000 mov eax, [ebx+$0444]
* Reference to: ComCtrls.TCustomListView.GetSelected(TCustomListView):TListItem;
| or: ComCtrls.TCustomListView.GetFocused(TCustomListView):TListItem;
|
004D6B3B E8A485F7FF call 0044F0E4
* Reference to: ComCtrls.TListItem.GetIndex(TListItem):Integer;
|
004D6B40 E83F4DF7FF call 0044B884
004D6B45 8BC8 mov ecx, eax
004D6B47 B20C mov dl, $0C
004D6B49 8BC3 mov eax, ebx
|
004D6B4B E860FFFFFF call 004D6AB0
004D6B50 5B pop ebx
004D6B51 C3 ret
*)
end;
procedure TMainForm.N14Click(Sender : TObject);
begin
(*
004D6B54 53 push ebx
004D6B55 8BD8 mov ebx, eax
004D6B57 6AFF push $FF
* Reference to control TMainForm.IDList : TListView
|
004D6B59 8B8344040000 mov eax, [ebx+$0444]
* Reference to: ComCtrls.TCustomListView.GetSelected(TCustomListView):TListItem;
| or: ComCtrls.TCustomListView.GetFocused(TCustomListView):TListItem;
|
004D6B5F E88085F7FF call 0044F0E4
* Reference to: ComCtrls.TListItem.GetIndex(TListItem):Integer;
|
004D6B64 E81B4DF7FF call 0044B884
004D6B69 8BC8 mov ecx, eax
004D6B6B B20A mov dl, $0A
004D6B6D 8BC3 mov eax, ebx
|
004D6B6F E83CFFFFFF call 004D6AB0
004D6B74 5B pop ebx
004D6B75 C3 ret
*)
end;
procedure TMainForm.N15Click(Sender : TObject);
begin
(*
004D6B78 53 push ebx
004D6B79 8BD8 mov ebx, eax
004D6B7B 6AFF push $FF
* Reference to control TMainForm.IDList : TListView
|
004D6B7D 8B8344040000 mov eax, [ebx+$0444]
* Reference to: ComCtrls.TCustomListView.GetSelected(TCustomListView):TListItem;
| or: ComCtrls.TCustomListView.GetFocused(TCustomListView):TListItem;
|
004D6B83 E85C85F7FF call 0044F0E4
* Reference to: ComCtrls.TListItem.GetIndex(TListItem):Integer;
|
004D6B88 E8F74CF7FF call 0044B884
004D6B8D 8BC8 mov ecx, eax
004D6B8F B209 mov dl, $09
004D6B91 8BC3 mov eax, ebx
|
004D6B93 E818FFFFFF call 004D6AB0
004D6B98 5B pop ebx
004D6B99 C3 ret
*)
end;
procedure TMainForm.N31Click(Sender : TObject);
begin
(*
004D6B9C 53 push ebx
004D6B9D 8BD8 mov ebx, eax
004D6B9F 6AFF push $FF
* Reference to control TMainForm.IDList : TListView
|
004D6BA1 8B8344040000 mov eax, [ebx+$0444]
* Reference to: ComCtrls.TCustomListView.GetSelected(TCustomListView):TListItem;
| or: ComCtrls.TCustomListView.GetFocused(TCustomListView):TListItem;
|
004D6BA7 E83885F7FF call 0044F0E4
* Reference to: ComCtrls.TListItem.GetIndex(TListItem):Integer;
|
004D6BAC E8D34CF7FF call 0044B884
004D6BB1 8BC8 mov ecx, eax
004D6BB3 B20B mov dl, $0B
004D6BB5 8BC3 mov eax, ebx
|
004D6BB7 E8F4FEFFFF call 004D6AB0
004D6BBC 5B pop ebx
004D6BBD C3 ret
*)
end;
procedure TMainForm.ClientSocketConnect(Sender : TObject);
begin
(*
004D6BC0 55 push ebp
004D6BC1 8BEC mov ebp, esp
004D6BC3 83C4E4 add esp, -$1C
004D6BC6 53 push ebx
004D6BC7 56 push esi
004D6BC8 57 push edi
004D6BC9 33DB xor ebx, ebx
004D6BCB 895DE8 mov [ebp-$18], ebx
004D6BCE 895DE4 mov [ebp-$1C], ebx
004D6BD1 895DEC mov [ebp-$14], ebx
004D6BD4 8BF1 mov esi, ecx
004D6BD6 8BD8 mov ebx, eax
004D6BD8 33C0 xor eax, eax
004D6BDA 55 push ebp
* Possible String Reference to: '楱悟?噙^[?]?
|
004D6BDB 68636D4D00 push $004D6D63
***** TRY
|
004D6BE0 64FF30 push dword ptr fs:[eax]
004D6BE3 648920 mov fs:[eax], esp
* Possible String Reference to: '服务器已联接'
|
004D6BE6 BA7C6D4D00 mov edx, $004D6D7C
004D6BEB 8BC3 mov eax, ebx
|
004D6BED E8D2010000 call 004D6DC4
* Reference to control TMainForm.LinkSvrBtn : TToolButton
|
004D6BF2 8B8394030000 mov eax, [ebx+$0394]
004D6BF8 33D2 xor edx, edx
004D6BFA 8B08 mov ecx, [eax]
* Reference to method TToolButton.SetEnabled(Boolean)
|
004D6BFC FF5164 call dword ptr [ecx+$64]
* Reference to control TMainForm.AutoCheck : TToolButton
|
004D6BFF 8B8374030000 mov eax, [ebx+$0374]
004D6C05 B201 mov dl, $01
004D6C07 8B08 mov ecx, [eax]
* Reference to method TToolButton.SetEnabled(Boolean)
|
004D6C09 FF5164 call dword ptr [ecx+$64]
004D6C0C C745F001000000 mov dword ptr [ebp-$10], $00000001
004D6C13 C745F4983A0000 mov dword ptr [ebp-$0C], $00003A98
004D6C1A C745F801000000 mov dword ptr [ebp-$08], $00000001
004D6C21 6A00 push $00
004D6C23 6A00 push $00
004D6C25 8D45FC lea eax, [ebp-$04]
004D6C28 50 push eax
004D6C29 6A00 push $00
004D6C2B 6A00 push $00
004D6C2D 6A0C push $0C
004D6C2F 8D45F0 lea eax, [ebp-$10]
004D6C32 50 push eax
004D6C33 6804000098 push $98000004
004D6C38 8B4604 mov eax, [esi+$04]
004D6C3B 50 push eax
* Reference to: <.WSAIoctl()
|
004D6C3C E8832DFBFF call 004899C4
004D6C41 33C0 xor eax, eax
004D6C43 55 push ebp
004D6C44 68336D4D00 push $004D6D33
***** TRY
|
004D6C49 64FF30 push dword ptr fs:[eax]
004D6C4C 648920 mov fs:[eax], esp
* Reference to TLoginForm instance
|
004D6C4F A1B4BC4D00 mov eax, dword ptr [$004DBCB4]
004D6C54 8B00 mov eax, [eax]
* Reference to control TLoginForm.AutoJK : TCheckBox
|
004D6C56 8B8020030000 mov eax, [eax+$0320]
004D6C5C 8B10 mov edx, [eax]
* Reference to method TCheckBox.GetChecked()
|
004D6C5E FF92C8000000 call dword ptr [edx+$00C8]
004D6C64 8BD0 mov edx, eax
* Reference to control TMainForm.AutoCheck : TToolButton
|
004D6C66 8B8374030000 mov eax, [ebx+$0374]
* Reference to: ComCtrls.TToolButton.SetDown(TToolButton;Boolean);
|
004D6C6C E8CF9FF7FF call 00450C40
004D6C71 8D55EC lea edx, [ebp-$14]
* Reference to TLoginForm instance
|
004D6C74 A1B4BC4D00 mov eax, dword ptr [$004DBCB4]
004D6C79 8B00 mov eax, [eax]
* Reference to control TLoginForm.Edit1 : TEdit
|
004D6C7B 8B8004030000 mov eax, [eax+$0304]
* Reference to: Controls.TControl.GetText(TControl):TCaption;
|
004D6C81 E87E0EF9FF call 00467B04
004D6C86 8B45EC mov eax, [ebp-$14]
004D6C89 50 push eax
* Possible String Reference to: 'ID'
|
004D6C8A B9946D4D00 mov ecx, $004D6D94
* Possible String Reference to: 'Setup'
|
004D6C8F BAA06D4D00 mov edx, $004D6DA0
004D6C94 A1B8D44D00 mov eax, dword ptr [$004DD4B8]
004D6C99 8B18 mov ebx, [eax]
004D6C9B FF5304 call dword ptr [ebx+$04]
* Reference to TLoginForm instance
|
004D6C9E A1B4BC4D00 mov eax, dword ptr [$004DBCB4]
004D6CA3 8B00 mov eax, [eax]
* Reference to control TLoginForm.SavePW : TCheckBox
|
004D6CA5 8B801C030000 mov eax, [eax+$031C]
004D6CAB 8B10 mov edx, [eax]
* Reference to method TCheckBox.GetChecked()
|
004D6CAD FF92C8000000 call dword ptr [edx+$00C8]
004D6CB3 84C0 test al, al
004D6CB5 743C jz 004D6CF3
004D6CB7 8D55E4 lea edx, [ebp-$1C]
* Reference to TLoginForm instance
|
004D6CBA A1B4BC4D00 mov eax, dword ptr [$004DBCB4]
004D6CBF 8B00 mov eax, [eax]
* Reference to control TLoginForm.Edit2 : TEdit
|
004D6CC1 8B8008030000 mov eax, [eax+$0308]
* Reference to: Controls.TControl.GetText(TControl):TCaption;
|
004D6CC7 E8380EF9FF call 00467B04
004D6CCC 8B45E4 mov eax, [ebp-$1C]
004D6CCF 8D4DE8 lea ecx, [ebp-$18]
004D6CD2 33D2 xor edx, edx
|
004D6CD4 E80FE6FFFF call 004D52E8
004D6CD9 8B45E8 mov eax, [ebp-$18]
004D6CDC 50 push eax
* Possible String Reference to: 'PW'
|
004D6CDD B9B06D4D00 mov ecx, $004D6DB0
* Possible String Reference to: 'Setup'
|
004D6CE2 BAA06D4D00 mov edx, $004D6DA0
004D6CE7 A1B8D44D00 mov eax, dword ptr [$004DD4B8]
004D6CEC 8B18 mov ebx, [eax]
004D6CEE FF5304 call dword ptr [ebx+$04]
004D6CF1 EB14 jmp 004D6D07
* Possible String Reference to: 'PW'
|
004D6CF3 B9B06D4D00 mov ecx, $004D6DB0
* Possible String Reference to: 'Setup'
|
004D6CF8 BAA06D4D00 mov edx, $004D6DA0
004D6CFD A1B8D44D00 mov eax, dword ptr [$004DD4B8]
004D6D02 8B18 mov ebx, [eax]
004D6D04 FF5350 call dword ptr [ebx+$50]
004D6D07 6A01 push $01
* Possible String Reference to: 'Setuped'
|
004D6D09 B9BC6D4D00 mov ecx, $004D6DBC
* Possible String Reference to: 'Setup'
|
004D6D0E BAA06D4D00 mov edx, $004D6DA0
004D6D13 A1B8D44D00 mov eax, dword ptr [$004DD4B8]
004D6D18 8B18 mov ebx, [eax]
004D6D1A FF5314 call dword ptr [ebx+$14]
* Reference to TLoginForm instance
|
004D6D1D A1B4BC4D00 mov eax, dword ptr [$004DBCB4]
004D6D22 8B00 mov eax, [eax]
* Reference to: Forms.TCustomForm.Close(TCustomForm);
|
004D6D24 E8CBDFFAFF call 00484CF4
004D6D29 33C0 xor eax, eax
004D6D2B 5A pop edx
004D6D2C 59 pop ecx
004D6D2D 59 pop ecx
004D6D2E 648910 mov fs:[eax], edx
004D6D31 EB0A jmp 004D6D3D
* Reference to: System.@HandleAnyException;
|
004D6D33 E924CCF2FF jmp 0040395C
* Reference to: System.@DoneExcept;
|
004D6D38 E887CFF2FF call 00403CC4
****** END
|
004D6D3D 33C0 xor eax, eax
004D6D3F 5A pop edx
004D6D40 59 pop ecx
004D6D41 59 pop ecx
004D6D42 648910 mov fs:[eax], edx
****** FINALLY
|
* Possible String Reference to: '_^[?]?
|
004D6D45 686A6D4D00 push $004D6D6A
004D6D4A 8D45E4 lea eax, [ebp-$1C]
* Reference to: System.@LStrClr(void;void);
|
004D6D4D E83ED5F2FF call 00404290
004D6D52 8D45E8 lea eax, [ebp-$18]
* Reference to: System.@LStrClr(void;void);
|
004D6D55 E836D5F2FF call 00404290
004D6D5A 8D45EC lea eax, [ebp-$14]
* Reference to: System.@LStrClr(void;void);
|
004D6D5D E82ED5F2FF call 00404290
004D6D62 C3 ret
* Reference to: System.@HandleFinally;
|
004D6D63 E9A8CEF2FF jmp 00403C10
004D6D68 EBE0 jmp 004D6D4A
****** END
|
004D6D6A 5F pop edi
004D6D6B 5E pop esi
004D6D6C 5B pop ebx
004D6D6D 8BE5 mov esp, ebp
004D6D6F 5D pop ebp
004D6D70 C3 ret
*)
end;
procedure TMainForm.ClientSocketConnecting(Sender : TObject);
begin
(*
004D6E24 53 push ebx
004D6E25 8BD8 mov ebx, eax
* Possible String Reference to: '正在联接服务器...'
|
004D6E27 BA4C6E4D00 mov edx, $004D6E4C
004D6E2C 8BC3 mov eax, ebx
|
004D6E2E E891FFFFFF call 004D6DC4
004D6E33 33D2 xor edx, edx
* Reference to control TMainForm.LinkSvrBtn : TToolButton
|
004D6E35 8B8394030000 mov eax, [ebx+$0394]
004D6E3B 8B08 mov ecx, [eax]
* Reference to method TToolButton.SetEnabled(Boolean)
|
004D6E3D FF5164 call dword ptr [ecx+$64]
004D6E40 5B pop ebx
004D6E41 C3 ret
*)
end;
procedure TMainForm.ClientSocketDisconnect(Sender : TObject);
begin
(*
004D6E60 53 push ebx
004D6E61 8BD8 mov ebx, eax
* Possible String Reference to: '服务器断开'
|
004D6E63 BAB86E4D00 mov edx, $004D6EB8
004D6E68 8BC3 mov eax, ebx
|
004D6E6A E855FFFFFF call 004D6DC4
004D6E6F B201 mov dl, $01
* Reference to control TMainForm.LinkSvrBtn : TToolButton
|
004D6E71 8B8394030000 mov eax, [ebx+$0394]
004D6E77 8B08 mov ecx, [eax]
* Reference to method TToolButton.SetEnabled(Boolean)
|
004D6E79 FF5164 call dword ptr [ecx+$64]
004D6E7C 33D2 xor edx, edx
* Reference to control TMainForm.AutoCheck : TToolButton
|
004D6E7E 8B8374030000 mov eax, [ebx+$0374]
004D6E84 8B08 mov ecx, [eax]
* Reference to method TToolButton.SetEnabled(Boolean)
|
004D6E86 FF5164 call dword ptr [ecx+$64]
004D6E89 33D2 xor edx, edx
* Reference to control TMainForm.AutoCheck : TToolButton
|
004D6E8B 8B8374030000 mov eax, [ebx+$0374]
* Reference to: ComCtrls.TToolButton.SetDown(TToolButton;Boolean);
|
004D6E91 E8AA9DF7FF call 00450C40
004D6E96 BA080000FF mov edx, $FF000008
* Possible String Reference to: '已与服务器失去联系'
|
004D6E9B B8CC6E4D00 mov eax, $004D6ECC
|
004D6EA0 E82BE5FFFF call 004D53D0
004D6EA5 C605BCD44D0001 mov byte ptr [$004DD4BC], $01
004D6EAC 5B pop ebx
004D6EAD C3 ret
*)
end;
procedure TMainForm.ClientSocketError(Sender : TObject);
begin
(*
004D6EE0 55 push ebp
004D6EE1 8BEC mov ebp, esp
004D6EE3 8B4508 mov eax, [ebp+$08]
004D6EE6 33D2 xor edx, edx
004D6EE8 8910 mov [eax], edx
004D6EEA 5D pop ebp
004D6EEB C20800 ret $0008
*)
end;
procedure TMainForm.ToolButton10Click(Sender : TObject);
begin
(*
004D6EF0 53 push ebx
004D6EF1 8BD8 mov ebx, eax
* Possible String Reference to: '更新天堂游戏'
|
004D6EF3 B8186F4D00 mov eax, $004D6F18
|
004D6EF8 E8AFE5FFFF call 004D54AC
004D6EFD 84C0 test al, al
004D6EFF 740D jz 004D6F0E
004D6F01 6AFF push $FF
004D6F03 33C9 xor ecx, ecx
004D6F05 B20D mov dl, $0D
004D6F07 8BC3 mov eax, ebx
|
004D6F09 E862FAFFFF call 004D6970
004D6F0E 5B pop ebx
004D6F0F C3 ret
*)
end;
procedure TMainForm.LinkSvrBtnClick(Sender : TObject);
begin
(*
004D6F28 53 push ebx
004D6F29 8BD8 mov ebx, eax
* Reference to control TMainForm.ClientSocket : TClientSocket
|
004D6F2B 8B8390030000 mov eax, [ebx+$0390]
* Reference to field TClientSocket.Active : Boolean
|
004D6F31 80783000 cmp byte ptr [eax+$30], $00
004D6F35 754D jnz 004D6F84
* Reference to TLoginForm instance
|
004D6F37 8B0DB4BC4D00 mov ecx, [$004DBCB4]
* Reference to TApplication instance
|
004D6F3D A1DCBB4D00 mov eax, dword ptr [$004DBBDC]
004D6F42 8B00 mov eax, [eax]
* Reference to class TLoginForm
|
004D6F44 8B1540394D00 mov edx, [$004D3940]
* Reference to: Forms.TApplication.CreateForm(TApplication;TComponentClass;void;void);
| or: QForms.TApplication.CreateForm(TApplication;TComponentClass;void;void);
|
004D6F4A E8DD14FBFF call 0048842C
* Reference to TLoginForm instance
|
004D6F4F A1B4BC4D00 mov eax, dword ptr [$004DBCB4]
004D6F54 8B00 mov eax, [eax]
004D6F56 8B10 mov edx, [eax]
* Reference to method TLoginForm.ShowModal()
|
004D6F58 FF92EC000000 call dword ptr [edx+$00EC]
* Reference to control TMainForm.ClientSocket : TClientSocket
|
004D6F5E 8B8390030000 mov eax, [ebx+$0390]
* Reference to field TClientSocket.Active : Boolean
|
004D6F64 80783000 cmp byte ptr [eax+$30], $00
004D6F68 751A jnz 004D6F84
004D6F6A B201 mov dl, $01
* Reference to control TMainForm.LinkSpr : TToolButton
|
004D6F6C 8B8398030000 mov eax, [ebx+$0398]
* Reference to: Controls.TControl.SetVisible(TControl;Boolean);
|
004D6F72 E8AD0AF9FF call 00467A24
004D6F77 B201 mov dl, $01
* Reference to control TMainForm.LinkSvrBtn : TToolButton
|
004D6F79 8B8394030000 mov eax, [ebx+$0394]
* Reference to: Controls.TControl.SetVisible(TControl;Boolean);
|
004D6F7F E8A00AF9FF call 00467A24
004D6F84 5B pop ebx
004D6F85 C3 ret
*)
end;
procedure TMainForm.FormActivate(Sender : TObject);
begin
(*
004D6F88 56 push esi
004D6F89 803DA2D44D0000 cmp byte ptr [$004DD4A2], $00
004D6F90 750F jnz 004D6FA1
* Reference to control TMainForm.LinkSvrBtn : TToolButton
|
004D6F92 8B8094030000 mov eax, [eax+$0394]
004D6F98 66BEEBFF mov si, $FFEB
* Reference to: System.@CallDynaInst;
|
004D6F9C E8D7C6F2FF call 00403678
004D6FA1 C605A2D44D0001 mov byte ptr [$004DD4A2], $01
004D6FA8 5E pop esi
004D6FA9 C3 ret
*)
end;
procedure TMainForm.ClientSocketRead(Sender : TObject);
begin
(*
004D6FAC 53 push ebx
004D6FAD 56 push esi
004D6FAE 57 push edi
004D6FAF 55 push ebp
004D6FB0 8BF9 mov edi, ecx
004D6FB2 8BF0 mov esi, eax
004D6FB4 8BC7 mov eax, edi
* Reference to: ComCtrls.THeaderSections.Add(THeaderSections):THeaderSection;
| or: ComCtrls.TListItems.Add(TListItems):TListItem;
| or: ScktComp.TCustomWinSocket.ReceiveLength(TCustomWinSocket):Integer;
|
004D6FB6 E8B14CFBFF call 0048BC6C
004D6FBB 8BD8 mov ebx, eax
004D6FBD 8BC3 mov eax, ebx
* Reference to: SysUtils.AllocMem(Cardinal):Pointer;
|
004D6FBF E8CC16F3FF call 00408690
004D6FC4 8BE8 mov ebp, eax
004D6FC6 8BD5 mov edx, ebp
004D6FC8 8BCB mov ecx, ebx
004D6FCA 8BC7 mov eax, edi
* Reference to: ScktComp.TCustomWinSocket.ReceiveBuf(TCustomWinSocket;void;void;Integer):Integer;
|
004D6FCC E82F4BFBFF call 0048BB00
004D6FD1 8BDD mov ebx, ebp
004D6FD3 66813B5A5A cmp word ptr [ebx], $5A5A
004D6FD8 0F858D000000 jnz 004D706B
* Reference to control TMainForm.SBar : TStatusBar
|
004D6FDE 8B8638030000 mov eax, [esi+$0338]
* Reference to field TStatusBar.Panels : TStatusPanels
|
004D6FE4 8B8008020000 mov eax, [eax+$0208]
004D6FEA BA02000000 mov edx, $00000002
* Reference to: ComCtrls.TStatusPanels.GetItem(TStatusPanels;Integer):TStatusPanel;
| or: QComCtrls.TStatusPanels.GetItem(TStatusPanels;Integer):TStatusPanel;
|
004D6FEF E88C29F7FF call 00449980
* Possible String Reference to: '已收到服务器统计的封号信息...'
|
004D6FF4 BAE0704D00 mov edx, $004D70E0
* Reference to: ComCtrls.TStatusPanel.SetText(TStatusPanel;AnsiString);
| or: ComCtrls.THeaderSection.SetText(THeaderSection;AnsiString);
|
004D6FF9 E8DE28F7FF call 004498DC
004D6FFE B201 mov dl, $01
* Reference to control TMainForm.AutoCheck : TToolButton
|
004D7000 8B8674030000 mov eax, [esi+$0374]
004D7006 8B08 mov ecx, [eax]
* Reference to method TToolButton.SetEnabled(Boolean)
|
004D7008 FF5164 call dword ptr [ecx+$64]
004D700B 56 push esi
004D700C 8BF3 mov esi, ebx
004D700E BF28CF4D00 mov edi, $004DCF28
004D7013 B919010000 mov ecx, $00000119
004D7018 F3 rep
004D7019 A5 movsd
004D701A 66A5 movsw
004D701C A4 movsb
004D701D 5E pop esi
004D701E 8B86F4030000 mov eax, [esi+$03F4]
004D7024 8B802C020000 mov eax, [eax+$022C]
* Reference to: ComCtrls.TTreeNodes.BeginUpdate(TTreeNodes);
| or: ComCtrls.TListItems.BeginUpdate(TListItems);
|
004D702A E8F14AF7FF call 0044BB20
004D702F 8B86F4030000 mov eax, [esi+$03F4]
004D7035 8B802C020000 mov eax, [eax+$022C]
* Reference to: ComCtrls.TTreeNodes.GetCount(TTreeNodes):Integer;
| or: ComCtrls.TListItems.GetCount(TListItems):Integer;
|
004D703B E8CC49F7FF call 0044BA0C
004D7040 8BF8 mov edi, eax
004D7042 4F dec edi
004D7043 85FF test edi, edi
004D7045 7C11 jl 004D7058
004D7047 47 inc edi
004D7048 33DB xor ebx, ebx
004D704A 8D5301 lea edx, [ebx+$01]
004D704D 8BC6 mov eax, esi
* Reference to : TMainForm._PROC_004D77C4()
|
004D704F E870070000 call 004D77C4
004D7054 43 inc ebx
004D7055 4F dec edi
004D7056 75F2 jnz 004D704A
004D7058 8B86F4030000 mov eax, [esi+$03F4]
004D705E 8B802C020000 mov eax, [eax+$022C]
* Reference to: ComCtrls.TTreeNodes.EndUpdate(TTreeNodes);
| or: ComCtrls.TListItems.EndUpdate(TListItems);
|
004D7064 E8934CF7FF call 0044BCFC
004D7069 EB60 jmp 004D70CB
004D706B 8A4302 mov al, byte ptr [ebx+$02]
004D706E 2C06 sub al, $06
004D7070 7559 jnz 004D70CB
004D7072 8D4B04 lea ecx, [ebx+$04]
004D7075 8A5303 mov dl, byte ptr [ebx+$03]
004D7078 8BC6 mov eax, esi
|
004D707A E8110D0000 call 004D7D90
004D707F 33C0 xor eax, eax
004D7081 8A4303 mov al, byte ptr [ebx+$03]
004D7084 8D0480 lea eax, [eax+eax*4]
004D7087 8D0480 lea eax, [eax+eax*4]
004D708A 56 push esi
004D708B 8D7304 lea esi, [ebx+$04]
004D708E 8DB811CF4D00 lea edi, [eax+$4DCF11]
004D7094 B906000000 mov ecx, $00000006
004D7099 F3 rep
004D709A A5 movsd
004D709B A4 movsb
004D709C 5E pop esi
004D709D 8B86F4030000 mov eax, [esi+$03F4]
004D70A3 8B802C020000 mov eax, [eax+$022C]
* Reference to: ComCtrls.TTreeNodes.BeginUpdate(TTreeNodes);
| or: ComCtrls.TListItems.BeginUpdate(TListItems);
|
004D70A9 E8724AF7FF call 0044BB20
004D70AE 33D2 xor edx, edx
004D70B0 8A5303 mov dl, byte ptr [ebx+$03]
004D70B3 8BC6 mov eax, esi
* Reference to : TMainForm._PROC_004D77C4()
|
004D70B5 E80A070000 call 004D77C4
004D70BA 8B86F4030000 mov eax, [esi+$03F4]
004D70C0 8B802C020000 mov eax, [eax+$022C]
* Reference to: ComCtrls.TTreeNodes.EndUpdate(TTreeNodes);
| or: ComCtrls.TListItems.EndUpdate(TListItems);
|
004D70C6 E8314CF7FF call 0044BCFC
004D70CB 8BC5 mov eax, ebp
* Reference to: System.@FreeMem(Pointer):Integer;
|
004D70CD E8D6B6F2FF call 004027A8
004D70D2 5D pop ebp
004D70D3 5F pop edi
004D70D4 5E pop esi
004D70D5 5B pop ebx
004D70D6 C3 ret
*)
end;
procedure TMainForm.PopupMenu1Popup(Sender : TObject);
begin
(*
004D7100 53 push ebx
004D7101 56 push esi
004D7102 57 push edi
004D7103 55 push ebp
004D7104 8BF8 mov edi, eax
004D7106 8B8704030000 mov eax, [edi+$0304]
* Reference to field TMainForm.OFFS_0034
|
004D710C 8B4034 mov eax, [eax+$34]
* Reference to: Menus.TMenuItem.GetCount(TMenuItem):Integer;
|
004D710F E8102CFAFF call 00479D24
004D7114 8BF0 mov esi, eax
004D7116 4E dec esi
004D7117 85F6 test esi, esi
004D7119 7C36 jl 004D7151
004D711B 46 inc esi
004D711C 33ED xor ebp, ebp
004D711E 8B8704030000 mov eax, [edi+$0304]
004D7124 8B4034 mov eax, [eax+$34]
004D7127 8BD5 mov edx, ebp
* Reference to: Menus.TMenuItem.GetItem(TMenuItem;Integer):TMenuItem;
|
004D7129 E8062CFAFF call 00479D34
004D712E 8BD8 mov ebx, eax
004D7130 837B0C01 cmp dword ptr [ebx+$0C], +$01
004D7134 7517 jnz 004D714D
004D7136 8B87F4030000 mov eax, [edi+$03F4]
* Reference to: ComCtrls.TCustomListView.GetSelected(TCustomListView):TListItem;
| or: ComCtrls.TCustomListView.GetFocused(TCustomListView):TListItem;
|
004D713C E8A37FF7FF call 0044F0E4
004D7141 85C0 test eax, eax
004D7143 0F95C2 setnz dl
004D7146 8BC3 mov eax, ebx
* Reference to: Menus.TMenuItem.SetEnabled(TMenuItem;Boolean);
|
004D7148 E8032BFAFF call 00479C50
004D714D 45 inc ebp
004D714E 4E dec esi
004D714F 75CD jnz 004D711E
004D7151 5D pop ebp
004D7152 5F pop edi
004D7153 5E pop esi
004D7154 5B pop ebx
004D7155 C3 ret
*)
end;
procedure TMainForm.VBtnClick(Sender : TObject);
begin
(*
004D7158 56 push esi
004D7159 57 push edi
004D715A 8BF0 mov esi, eax
* Reference to control TMainForm.IDList : TListView
|
004D715C 8BBE44040000 mov edi, [esi+$0444]
004D7162 80BF1502000000 cmp byte ptr [edi+$0215], $00
004D7169 7529 jnz 004D7194
004D716B B203 mov dl, $03
004D716D 8BC7 mov eax, edi
004D716F 8B08 mov ecx, [eax]
* Reference to method TListView.ViewStyle()
|
004D7171 FF9128010000 call dword ptr [ecx+$0128]
004D7177 B201 mov dl, $01
* Reference to control TMainForm.VBtn2 : TToolButton
|
004D7179 8B863C040000 mov eax, [esi+$043C]
* Reference to: ComCtrls.TToolButton.SetDown(TToolButton;Boolean);
|
004D717F E8BC9AF7FF call 00450C40
004D7184 B201 mov dl, $01
* Reference to control TMainForm.VPop2 : TMenuItem
|
004D7186 8B8620030000 mov eax, [esi+$0320]
* Reference to: Menus.TMenuItem.SetChecked(TMenuItem;Boolean);
|
004D718C E86B2AFAFF call 00479BFC
004D7191 5F pop edi
004D7192 5E pop esi
004D7193 C3 ret
004D7194 33D2 xor edx, edx
004D7196 8BC7 mov eax, edi
004D7198 8B08 mov ecx, [eax]
004D719A FF9128010000 call dword ptr [ecx+$0128]
004D71A0 B201 mov dl, $01
004D71A2 8B8638040000 mov eax, [esi+$0438]
* Reference to: ComCtrls.TToolButton.SetDown(TToolButton;Boolean);
|
004D71A8 E8939AF7FF call 00450C40
004D71AD B201 mov dl, $01
004D71AF 8B861C030000 mov eax, [esi+$031C]
* Reference to: Menus.TMenuItem.SetChecked(TMenuItem;Boolean);
|
004D71B5 E8422AFAFF call 00479BFC
004D71BA 5F pop edi
004D71BB 5E pop esi
004D71BC C3 ret
*)
end;
procedure TMainForm.IDListDblClick(Sender : TObject);
begin
(*
004D71C0 53 push ebx
004D71C1 8BD8 mov ebx, eax
* Reference to control TMainForm.IDList : TListView
|
004D71C3 8B8344040000 mov eax, [ebx+$0444]
* Reference to: ComCtrls.TCustomListView.GetSelected(TCustomListView):TListItem;
| or: ComCtrls.TCustomListView.GetFocused(TCustomListView):TListItem;
|
004D71C9 E8167FF7FF call 0044F0E4
004D71CE 85C0 test eax, eax
004D71D0 743E jz 004D7210
* Reference to control TMainForm.ScrPanel : TPanel
|
004D71D2 8B83DC030000 mov eax, [ebx+$03DC]
* Reference to: Controls.TControl.Show(TControl);
|
004D71D8 E8570EF9FF call 00468034
* Reference to control TMainForm.ScrPanel : TPanel
|
004D71DD 8B83DC030000 mov eax, [ebx+$03DC]
* Reference to: Controls.TControl.BringToFront(TControl);
|
004D71E3 E87C0BF9FF call 00467D64
* Reference to control TMainForm.IDList : TListView
|
004D71E8 8B8344040000 mov eax, [ebx+$0444]
* Reference to: ComCtrls.TCustomListView.GetSelected(TCustomListView):TListItem;
| or: ComCtrls.TCustomListView.GetFocused(TCustomListView):TListItem;
|
004D71EE E8F17EF7FF call 0044F0E4
* Reference to: ComCtrls.TListItem.GetIndex(TListItem):Integer;
|
004D71F3 E88C46F7FF call 0044B884
004D71F8 8BD0 mov edx, eax
004D71FA 42 inc edx
* Reference to control TMainForm.MemTable : TkbmMemTable
|
004D71FB 8B83A0030000 mov eax, [ebx+$03A0]
004D7201 8B08 mov ecx, [eax]
* Possible reference to virtual method TkbmMemTable.OFFS_01A0
|
004D7203 FF91A0010000 call dword ptr [ecx+$01A0]
004D7209 C605A8D44D0000 mov byte ptr [$004DD4A8], $00
004D7210 5B pop ebx
004D7211 C3 ret
*)
end;
procedure TMainForm.SpeedButton1Click(Sender : TObject);
begin
(*
004D73F4 55 push ebp
004D73F5 8BEC mov ebp, esp
004D73F7 33C9 xor ecx, ecx
004D73F9 51 push ecx
004D73FA 51 push ecx
004D73FB 51 push ecx
004D73FC 51 push ecx
004D73FD 51 push ecx
004D73FE 53 push ebx
004D73FF 56 push esi
004D7400 8BD8 mov ebx, eax
004D7402 33C0 xor eax, eax
004D7404 55 push ebp
* Possible String Reference to: '?球?柁[?]?
|
004D7405 68CD744D00 push $004D74CD
***** TRY
|
004D740A 64FF30 push dword ptr fs:[eax]
004D740D 648920 mov fs:[eax], esp
004D7410 A0DC744D00 mov al, byte ptr [$004D74DC]
004D7415 50 push eax
004D7416 8D55EC lea edx, [ebp-$14]
* Reference to control TMainForm.LocaIDEdit : TEdit
|
004D7419 8B83D0030000 mov eax, [ebx+$03D0]
* Reference to: Controls.TControl.GetText(TControl):TCaption;
|
004D741F E8E006F9FF call 00467B04
004D7424 8B55EC mov edx, [ebp-$14]
004D7427 8D45F0 lea eax, [ebp-$10]
* Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString);
|
004D742A E841D9F3FF call 00414D70
004D742F 8D4DF0 lea ecx, [ebp-$10]
* Possible String Reference to: 'GameID'
|
004D7432 BAE8744D00 mov edx, $004D74E8
* Reference to control TMainForm.MemTable : TkbmMemTable
|
004D7437 8B83A0030000 mov eax, [ebx+$03A0]
004D743D 8B30 mov esi, [eax]
* Possible reference to virtual method TkbmMemTable.OFFS_0244
|
004D743F FF9644020000 call dword ptr [esi+$0244]
004D7445 84C0 test al, al
004D7447 7458 jz 004D74A1
* Reference to control TMainForm.MemTable : TkbmMemTable
|
004D7449 8B83A0030000 mov eax, [ebx+$03A0]
004D744F 8B10 mov edx, [eax]
* Possible reference to virtual method TkbmMemTable.OFFS_0150
|
004D7451 FF9250010000 call dword ptr [edx+$0150]
004D7457 8BD0 mov edx, eax
004D7459 4A dec edx
* Reference to control TMainForm.IDList : TListView
|
004D745A 8B8344040000 mov eax, [ebx+$0444]
004D7460 8B08 mov ecx, [eax]
* Possible reference to virtual method TListView.OFFS_00D0
|
004D7462 FF91D0000000 call dword ptr [ecx+$00D0]
* Reference to control TMainForm.MemTable : TkbmMemTable
|
004D7468 8B83A0030000 mov eax, [ebx+$03A0]
004D746E 8B10 mov edx, [eax]
* Possible reference to virtual method TkbmMemTable.OFFS_0150
|
004D7470 FF9250010000 call dword ptr [edx+$0150]
004D7476 8BD0 mov edx, eax
004D7478 4A dec edx
* Reference to control TMainForm.IDList : TListView
|
004D7479 8B8344040000 mov eax, [ebx+$0444]
* Reference to field TListView.Items : TListItems
|
004D747F 8B802C020000 mov eax, [eax+$022C]
* Reference to: ComCtrls.TListItems.GetItem(TListItems;Integer):TListItem;
|
004D7485 E8B245F7FF call 0044BA3C
004D748A B201 mov dl, $01
* Reference to: ComCtrls.TListItem.MakeVisible(TListItem;Boolean);
|
004D748C E8EF3EF7FF call 0044B380
* Reference to control TMainForm.IDList : TListView
|
004D7491 8B8344040000 mov eax, [ebx+$0444]
004D7497 8B10 mov edx, [eax]
* Reference to method TListView.SetFocus()
|
004D7499 FF92C4000000 call dword ptr [edx+$00C4]
004D749F EB0E jmp 004D74AF
* Reference to control TMainForm.LocaIDEdit : TEdit
|
004D74A1 8B83D0030000 mov eax, [ebx+$03D0]
004D74A7 8B10 mov edx, [eax]
* Reference to method TEdit.SetFocus()
|
004D74A9 FF92C4000000 call dword ptr [edx+$00C4]
004D74AF 33C0 xor eax, eax
004D74B1 5A pop edx
004D74B2 59 pop ecx
004D74B3 59 pop ecx
004D74B4 648910 mov fs:[eax], edx
****** FINALLY
|
* Possible String Reference to: '^[?]?
|
004D74B7 68D4744D00 push $004D74D4
004D74BC 8D45EC lea eax, [ebp-$14]
* Reference to: System.@LStrClr(void;void);
|
004D74BF E8CCCDF2FF call 00404290
004D74C4 8D45F0 lea eax, [ebp-$10]
* Reference to: Variants.@VarClr(TVarData;TVarData);
|
004D74C7 E87C92F3FF call 00410748
004D74CC C3 ret
* Reference to: System.@HandleFinally;
|
004D74CD E93EC7F2FF jmp 00403C10
004D74D2 EBE8 jmp 004D74BC
****** END
|
004D74D4 5E pop esi
004D74D5 5B pop ebx
004D74D6 8BE5 mov esp, ebp
004D74D8 5D pop ebp
004D74D9 C3 ret
*)
end;
procedure TMainForm.ToolButton15Click(Sender : TObject);
begin
(*
* Reference to control TMainForm.ScrPanel : TPanel
|
004D74F0 8B80DC030000 mov eax, [eax+$03DC]
* Reference to: Controls.TWinControl.Realign(TWinControl);
|
004D74F6 E8310BF9FF call 0046802C
004D74FB C3 ret
*)
end;
procedure TMainForm.N28Click(Sender : TObject);
begin
(*
004D752C 53 push ebx
004D752D 8BD8 mov ebx, eax
004D752F 6AFF push $FF
* Reference to control TMainForm.IDList : TListView
|
004D7531 8B8344040000 mov eax, [ebx+$0444]
* Reference to: ComCtrls.TCustomListView.GetSelected(TCustomListView):TListItem;
| or: ComCtrls.TCustomListView.GetFocused(TCustomListView):TListItem;
|
004D7537 E8A87BF7FF call 0044F0E4
* Reference to: ComCtrls.TListItem.GetIndex(TListItem):Integer;
|
004D753C E84343F7FF call 0044B884
004D7541 8BC8 mov ecx, eax
004D7543 B20D mov dl, $0D
004D7545 8BC3 mov eax, ebx
|
004D7547 E864F5FFFF call 004D6AB0
004D754C 5B pop ebx
004D754D C3 ret
*)
end;
procedure TMainForm.PopupMenu2Popup(Sender : TObject);
begin
(*
004D7550 53 push ebx
004D7551 56 push esi
004D7552 57 push edi
004D7553 55 push ebp
004D7554 8BF8 mov edi, eax
004D7556 8B8714030000 mov eax, [edi+$0314]
* Reference to field TMainForm.OFFS_0034
|
004D755C 8B4034 mov eax, [eax+$34]
* Reference to: Menus.TMenuItem.GetCount(TMenuItem):Integer;
|
004D755F E8C027FAFF call 00479D24
004D7564 8BF0 mov esi, eax
004D7566 4E dec esi
004D7567 85F6 test esi, esi
004D7569 7C36 jl 004D75A1
004D756B 46 inc esi
004D756C 33ED xor ebp, ebp
004D756E 8B8714030000 mov eax, [edi+$0314]
004D7574 8B4034 mov eax, [eax+$34]
004D7577 8BD5 mov edx, ebp
* Reference to: Menus.TMenuItem.GetItem(TMenuItem;Integer):TMenuItem;
|
004D7579 E8B627FAFF call 00479D34
004D757E 8BD8 mov ebx, eax
004D7580 837B0C01 cmp dword ptr [ebx+$0C], +$01
004D7584 7517 jnz 004D759D
004D7586 8B8744040000 mov eax, [edi+$0444]
* Reference to: ComCtrls.TCustomListView.GetSelected(TCustomListView):TListItem;
| or: ComCtrls.TCustomListView.GetFocused(TCustomListView):TListItem;
|
004D758C E8537BF7FF call 0044F0E4
004D7591 85C0 test eax, eax
004D7593 0F95C2 setnz dl
004D7596 8BC3 mov eax, ebx
* Reference to: Menus.TMenuItem.SetEnabled(TMenuItem;Boolean);
|
004D7598 E8B326FAFF call 00479C50
004D759D 45 inc ebp
004D759E 4E dec esi
004D759F 75CD jnz 004D756E
004D75A1 5D pop ebp
004D75A2 5F pop edi
004D75A3 5E pop esi
004D75A4 5B pop ebx
004D75A5 C3 ret
*)
end;
procedure TMainForm.AutoCheckClick(Sender : TObject);
begin
(*
004D75A8 53 push ebx
004D75A9 8BD8 mov ebx, eax
* Reference to control TMainForm.AutoCheck : TToolButton
|
004D75AB 8B8374030000 mov eax, [ebx+$0374]
* Reference to field TToolButton.Down : Boolean
|
004D75B1 80B86A01000000 cmp byte ptr [eax+$016A], $00
004D75B8 0F8499000000 jz 004D7657
* Reference to TOptionForm instance
|
004D75BE A1C0BD4D00 mov eax, dword ptr [$004DBDC0]
004D75C3 8B00 mov eax, [eax]
004D75C5 8B10 mov edx, [eax]
* Reference to method TOptionForm.ShowModal()
|
004D75C7 FF92EC000000 call dword ptr [edx+$00EC]
004D75CD 48 dec eax
004D75CE 740D jz 004D75DD
004D75D0 33D2 xor edx, edx
* Reference to control TMainForm.AutoCheck : TToolButton
|
004D75D2 8B8374030000 mov eax, [ebx+$0374]
* Reference to: ComCtrls.TToolButton.SetDown(TToolButton;Boolean);
|
004D75D8 E86396F7FF call 00450C40
* Reference to TOptionForm instance
|
004D75DD A1C0BD4D00 mov eax, dword ptr [$004DBDC0]
004D75E2 8B00 mov eax, [eax]
* Reference to control TOptionForm.GMROOMRadio : TRadioGroup
|
004D75E4 8B80F8020000 mov eax, [eax+$02F8]
* Reference to field TRadioGroup.ItemIndex : Integer
|
004D75EA 8B8018020000 mov eax, [eax+$0218]
004D75F0 50 push eax
* Possible String Reference to: 'GmRoomRadio'
|
004D75F1 B964764D00 mov ecx, $004D7664
* Possible String Reference to: 'Setup'
|
004D75F6 BA78764D00 mov edx, $004D7678
004D75FB A1B8D44D00 mov eax, dword ptr [$004DD4B8]
004D7600 8B18 mov ebx, [eax]
004D7602 FF530C call dword ptr [ebx+$0C]
* Reference to TOptionForm instance
|
004D7605 A1C0BD4D00 mov eax, dword ptr [$004DBDC0]
004D760A 8B00 mov eax, [eax]
* Reference to control TOptionForm.SeeGMRadio : TRadioGroup
|
004D760C 8B8004030000 mov eax, [eax+$0304]
* Reference to field TRadioGroup.ItemIndex : Integer
|
004D7612 8B8018020000 mov eax, [eax+$0218]
004D7618 50 push eax
* Possible String Reference to: 'SeeGMRadio'
|
004D7619 B988764D00 mov ecx, $004D7688
* Possible String Reference to: 'Setup'
|
004D761E BA78764D00 mov edx, $004D7678
004D7623 A1B8D44D00 mov eax, dword ptr [$004DD4B8]
004D7628 8B18 mov ebx, [eax]
004D762A FF530C call dword ptr [ebx+$0C]
* Reference to TOptionForm instance
|
004D762D A1C0BD4D00 mov eax, dword ptr [$004DBDC0]
004D7632 8B00 mov eax, [eax]
* Reference to control TOptionForm.AutoNext : TCheckBox
|
004D7634 8B8008030000 mov eax, [eax+$0308]
004D763A 8B10 mov edx, [eax]
* Reference to method TCheckBox.GetChecked()
|
004D763C FF92C8000000 call dword ptr [edx+$00C8]
004D7642 50 push eax
* Possible String Reference to: 'AutoNext'
|
004D7643 B99C764D00 mov ecx, $004D769C
* Possible String Reference to: 'Setup'
|
004D7648 BA78764D00 mov edx, $004D7678
004D764D A1B8D44D00 mov eax, dword ptr [$004DD4B8]
004D7652 8B18 mov ebx, [eax]
004D7654 FF5314 call dword ptr [ebx+$14]
004D7657 5B pop ebx
004D7658 C3 ret
*)
end;
procedure TMainForm.ServerInfoListCustomDrawItem(Sender : TObject);
begin
(*
004D76A8 55 push ebp
004D76A9 8BEC mov ebp, esp
004D76AB 83C4F0 add esp, -$10
004D76AE 53 push ebx
004D76AF 56 push esi
004D76B0 8BD9 mov ebx, ecx
004D76B2 8BF2 mov esi, edx
004D76B4 8BC3 mov eax, ebx
* Reference to: ComCtrls.TListItem.GetIndex(TListItem):Integer;
|
004D76B6 E8C941F7FF call 0044B884
004D76BB 83F82A cmp eax, +$2A
004D76BE 0F8FC0000000 jnle 004D7784
004D76C4 8BC3 mov eax, ebx
* Reference to: ComCtrls.TListItem.GetIndex(TListItem):Integer;
|
004D76C6 E8B941F7FF call 0044B884
004D76CB 8D0480 lea eax, [eax+eax*4]
004D76CE 8D0480 lea eax, [eax+eax*4]
004D76D1 DD802DCF4D00 fld qword ptr [eax+$4DCF2D]
004D76D7 D81D8C774D00 fcomp dword ptr [$004D778C]
004D76DD DFE0 fstsw ax
004D76DF 9E sahf
004D76E0 7722 jnbe 004D7704
004D76E2 8BC3 mov eax, ebx
* Reference to: ComCtrls.TListItem.GetIndex(TListItem):Integer;
|
004D76E4 E89B41F7FF call 0044B884
004D76E9 8D0480 lea eax, [eax+eax*4]
004D76EC 8D0480 lea eax, [eax+eax*4]
004D76EF DD8037CF4D00 fld qword ptr [eax+$4DCF37]
004D76F5 D81D8C774D00 fcomp dword ptr [$004D778C]
004D76FB DFE0 fstsw ax
004D76FD 9E sahf
004D76FE 0F8680000000 jbe 004D7784
004D7704 8BC3 mov eax, ebx
* Reference to: ComCtrls.TListItem.GetIndex(TListItem):Integer;
|
004D7706 E87941F7FF call 0044B884
004D770B 8D0480 lea eax, [eax+eax*4]
004D770E 8D0480 lea eax, [eax+eax*4]
004D7711 052DCF4D00 add eax, +$004DCF2D
004D7716 50 push eax
* Reference to: SysUtils.Now:TDateTime;
|
004D7717 E82037F3FF call 0040AE3C
004D771C 58 pop eax
004D771D DC20 fsub qword ptr [eax]
004D771F DD5DF8 fstp qword ptr [ebp-$08]
004D7722 9B wait
004D7723 8BC3 mov eax, ebx
* Reference to: ComCtrls.TListItem.GetIndex(TListItem):Integer;
|
004D7725 E85A41F7FF call 0044B884
004D772A 8D0480 lea eax, [eax+eax*4]
004D772D 8D0480 lea eax, [eax+eax*4]
004D7730 0537CF4D00 add eax, +$004DCF37
004D7735 50 push eax
* Reference to: SysUtils.Now:TDateTime;
|
004D7736 E80137F3FF call 0040AE3C
004D773B 58 pop eax
004D773C DC20 fsub qword ptr [eax]
004D773E DD5DF0 fstp qword ptr [ebp-$10]
004D7741 9B wait
004D7742 DD45F8 fld qword ptr [ebp-$08]
004D7745 D81D90774D00 fcomp dword ptr [$004D7790]
004D774B DFE0 fstsw ax
004D774D 9E sahf
004D774E 720E jb 004D775E
004D7750 DD45F0 fld qword ptr [ebp-$10]
004D7753 D81D90774D00 fcomp dword ptr [$004D7790]
004D7759 DFE0 fstsw ax
004D775B 9E sahf
004D775C 7326 jnb 004D7784
004D775E 8B8610020000 mov eax, [esi+$0210]
004D7764 8B4014 mov eax, [eax+$14]
004D7767 BA80000000 mov edx, $00000080
* Reference to: Graphics.TBrush.SetColor(TBrush;TColor);
|
004D776C E8472EF5FF call 0042A5B8
004D7771 8B8610020000 mov eax, [esi+$0210]
004D7777 8B400C mov eax, [eax+$0C]
004D777A BAFFFFFF00 mov edx, $00FFFFFF
* Reference to: Graphics.TFont.SetColor(TFont;TColor);
|
004D777F E86826F5FF call 00429DEC
004D7784 5E pop esi
004D7785 5B pop ebx
004D7786 8BE5 mov esp, ebp
004D7788 5D pop ebp
004D7789 C20800 ret $0008
*)
end;
procedure TMainForm.IDListCustomDrawItem(Sender : TObject);
begin
(*
004D7794 55 push ebp
004D7795 8BEC mov ebp, esp
004D7797 53 push ebx
004D7798 56 push esi
004D7799 8BD9 mov ebx, ecx
004D779B 8BF2 mov esi, edx
004D779D 8BC3 mov eax, ebx
* Reference to: ComCtrls.TListItem.GetIndex(TListItem):Integer;
|
004D779F E8E040F7FF call 0044B884
004D77A4 A801 test al, $01
004D77A6 7513 jnz 004D77BB
004D77A8 8B8610020000 mov eax, [esi+$0210]
004D77AE 8B4014 mov eax, [eax+$14]
004D77B1 BAF2F2F200 mov edx, $00F2F2F2
* Reference to: Graphics.TBrush.SetColor(TBrush;TColor);
|
004D77B6 E8FD2DF5FF call 0042A5B8
004D77BB 5E pop esi
004D77BC 5B pop ebx
004D77BD 5D pop ebp
004D77BE C20800 ret $0008
*)
end;
procedure TMainForm.N17Click(Sender : TObject);
begin
(*
004D7A5C 53 push ebx
004D7A5D 51 push ecx
004D7A5E 8BD8 mov ebx, eax
* Reference to TGJSetupForm instance
|
004D7A60 8B0D50BB4D00 mov ecx, [$004DBB50]
* Reference to TApplication instance
|
004D7A66 A1DCBB4D00 mov eax, dword ptr [$004DBBDC]
004D7A6B 8B00 mov eax, [eax]
* Reference to class TGJSetupForm
|
004D7A6D 8B1500434D00 mov edx, [$004D4300]
* Reference to: Forms.TApplication.CreateForm(TApplication;TComponentClass;void;void);
| or: QForms.TApplication.CreateForm(TApplication;TComponentClass;void;void);
|
004D7A73 E8B409FBFF call 0048842C
* Reference to TGJSetupForm instance
|
004D7A78 A150BB4D00 mov eax, dword ptr [$004DBB50]
004D7A7D 8B00 mov eax, [eax]
004D7A7F 8B10 mov edx, [eax]
* Reference to method TGJSetupForm.ShowModal()
|
004D7A81 FF92EC000000 call dword ptr [edx+$00EC]
004D7A87 48 dec eax
004D7A88 7556 jnz 004D7AE0
004D7A8A C60424FF mov byte ptr [esp], $FF
* Reference to TGJSetupForm instance
|
004D7A8E A150BB4D00 mov eax, dword ptr [$004DBB50]
004D7A93 8B00 mov eax, [eax]
* Reference to control TGJSetupForm.BBCheck : TCheckBox
|
004D7A95 8B80F8020000 mov eax, [eax+$02F8]
004D7A9B 8B10 mov edx, [eax]
* Reference to method TCheckBox.GetChecked()
|
004D7A9D FF92C8000000 call dword ptr [edx+$00C8]
004D7AA3 88442401 mov [esp+$01], al
* Reference to TGJSetupForm instance
|
004D7AA7 A150BB4D00 mov eax, dword ptr [$004DBB50]
004D7AAC 8B00 mov eax, [eax]
* Reference to control TGJSetupForm.CKCheck : TCheckBox
|
004D7AAE 8B80FC020000 mov eax, [eax+$02FC]
004D7AB4 8B10 mov edx, [eax]
* Reference to method TCheckBox.GetChecked()
|
004D7AB6 FF92C8000000 call dword ptr [edx+$00C8]
004D7ABC 88442402 mov [esp+$02], al
004D7AC0 8BC4 mov eax, esp
004D7AC2 8B00 mov eax, [eax]
004D7AC4 50 push eax
* Reference to control TMainForm.IDList : TListView
|
004D7AC5 8B8344040000 mov eax, [ebx+$0444]
* Reference to: ComCtrls.TCustomListView.GetSelected(TCustomListView):TListItem;
| or: ComCtrls.TCustomListView.GetFocused(TCustomListView):TListItem;
|
004D7ACB E81476F7FF call 0044F0E4
* Reference to: ComCtrls.TListItem.GetIndex(TListItem):Integer;
|
004D7AD0 E8AF3DF7FF call 0044B884
004D7AD5 8BC8 mov ecx, eax
004D7AD7 B211 mov dl, $11
004D7AD9 8BC3 mov eax, ebx
|
004D7ADB E8D0EFFFFF call 004D6AB0
* Reference to TGJSetupForm instance
|
004D7AE0 A150BB4D00 mov eax, dword ptr [$004DBB50]
004D7AE5 8B00 mov eax, [eax]
* Reference to: System.TObject.Free(TObject);
|
004D7AE7 E890B9F2FF call 0040347C
004D7AEC 5A pop edx
004D7AED 5B pop ebx
004D7AEE C3 ret
*)
end;
procedure TMainForm.N4Click(Sender : TObject);
begin
(*
004D7AF0 55 push ebp
004D7AF1 8BEC mov ebp, esp
004D7AF3 6A00 push $00
004D7AF5 53 push ebx
004D7AF6 8BD8 mov ebx, eax
004D7AF8 33C0 xor eax, eax
004D7AFA 55 push ebp
* Possible String Reference to: '?莉?疔Y]?
|
004D7AFB 687A7B4D00 push $004D7B7A
***** TRY
|
004D7B00 64FF30 push dword ptr fs:[eax]
004D7B03 648920 mov fs:[eax], esp
* Reference to control TMainForm.ServerInfoList : TListView
|
004D7B06 8B83F4030000 mov eax, [ebx+$03F4]
* Reference to: ComCtrls.TCustomListView.GetSelected(TCustomListView):TListItem;
| or: ComCtrls.TCustomListView.GetFocused(TCustomListView):TListItem;
|
004D7B0C E8D375F7FF call 0044F0E4
004D7B11 85C0 test eax, eax
004D7B13 744F jz 004D7B64
* Reference to control TMainForm.ServerInfoList : TListView
|
004D7B15 8B83F4030000 mov eax, [ebx+$03F4]
* Reference to: ComCtrls.TCustomListView.GetSelected(TCustomListView):TListItem;
| or: ComCtrls.TCustomListView.GetFocused(TCustomListView):TListItem;
|
004D7B1B E8C475F7FF call 0044F0E4
* Reference to: ComCtrls.TListItem.GetIndex(TListItem):Integer;
|
004D7B20 E85F3DF7FF call 0044B884
004D7B25 40 inc eax
004D7B26 8D55FC lea edx, [ebp-$04]
* Reference to: SysUtils.IntToStr(Integer):AnsiString;overload;
|
004D7B29 E80E12F3FF call 00408D3C
004D7B2E 8D45FC lea eax, [ebp-$04]
* Possible String Reference to: '服回城'
|
004D7B31 BA907B4D00 mov edx, $004D7B90
* Reference to: System.@LStrCat;
|
004D7B36 E81DCAF2FF call 00404558
004D7B3B 8B45FC mov eax, [ebp-$04]
|
004D7B3E E869D9FFFF call 004D54AC
004D7B43 84C0 test al, al
004D7B45 741D jz 004D7B64
* Reference to control TMainForm.ServerInfoList : TListView
|
004D7B47 8B83F4030000 mov eax, [ebx+$03F4]
* Reference to: ComCtrls.TCustomListView.GetSelected(TCustomListView):TListItem;
| or: ComCtrls.TCustomListView.GetFocused(TCustomListView):TListItem;
|
004D7B4D E89275F7FF call 0044F0E4
* Reference to: ComCtrls.TListItem.GetIndex(TListItem):Integer;
|
004D7B52 E82D3DF7FF call 0044B884
004D7B57 40 inc eax
004D7B58 50 push eax
004D7B59 33C9 xor ecx, ecx
004D7B5B B20A mov dl, $0A
004D7B5D 8BC3 mov eax, ebx
|
004D7B5F E80CEEFFFF call 004D6970
004D7B64 33C0 xor eax, eax
004D7B66 5A pop edx
004D7B67 59 pop ecx
004D7B68 59 pop ecx
004D7B69 648910 mov fs:[eax], edx
****** FINALLY
|
* Possible String Reference to: '[Y]?
|
004D7B6C 68817B4D00 push $004D7B81
004D7B71 8D45FC lea eax, [ebp-$04]
* Reference to: System.@LStrClr(void;void);
|
004D7B74 E817C7F2FF call 00404290
004D7B79 C3 ret
* Reference to: System.@HandleFinally;
|
004D7B7A E991C0F2FF jmp 00403C10
004D7B7F EBF0 jmp 004D7B71
****** END
|
004D7B81 5B pop ebx
004D7B82 59 pop ecx
004D7B83 5D pop ebp
004D7B84 C3 ret
*)
end;
procedure TMainForm.N5Click(Sender : TObject);
begin
(*
004D7B98 55 push ebp
004D7B99 8BEC mov ebp, esp
004D7B9B 6A00 push $00
004D7B9D 53 push ebx
004D7B9E 8BD8 mov ebx, eax
004D7BA0 33C0 xor eax, eax
004D7BA2 55 push ebp
* Possible String Reference to: '殚框?疔Y]?
|
004D7BA3 68227C4D00 push $004D7C22
***** TRY
|
004D7BA8 64FF30 push dword ptr fs:[eax]
004D7BAB 648920 mov fs:[eax], esp
* Reference to control TMainForm.ServerInfoList : TListView
|
004D7BAE 8B83F4030000 mov eax, [ebx+$03F4]
* Reference to: ComCtrls.TCustomListView.GetSelected(TCustomListView):TListItem;
| or: ComCtrls.TCustomListView.GetFocused(TCustomListView):TListItem;
|
004D7BB4 E82B75F7FF call 0044F0E4
004D7BB9 85C0 test eax, eax
004D7BBB 744F jz 004D7C0C
* Reference to control TMainForm.ServerInfoList : TListView
|
004D7BBD 8B83F4030000 mov eax, [ebx+$03F4]
* Reference to: ComCtrls.TCustomListView.GetSelected(TCustomListView):TListItem;
| or: ComCtrls.TCustomListView.GetFocused(TCustomListView):TListItem;
|
004D7BC3 E81C75F7FF call 0044F0E4
* Reference to: ComCtrls.TListItem.GetIndex(TListItem):Integer;
|
004D7BC8 E8B73CF7FF call 0044B884
004D7BCD 40 inc eax
004D7BCE 8D55FC lea edx, [ebp-$04]
* Reference to: SysUtils.IntToStr(Integer):AnsiString;overload;
|
004D7BD1 E86611F3FF call 00408D3C
004D7BD6 8D45FC lea eax, [ebp-$04]
* Possible String Reference to: '服强退'
|
004D7BD9 BA387C4D00 mov edx, $004D7C38
* Reference to: System.@LStrCat;
|
004D7BDE E875C9F2FF call 00404558
004D7BE3 8B45FC mov eax, [ebp-$04]
|
004D7BE6 E8C1D8FFFF call 004D54AC
004D7BEB 84C0 test al, al
004D7BED 741D jz 004D7C0C
* Reference to control TMainForm.ServerInfoList : TListView
|
004D7BEF 8B83F4030000 mov eax, [ebx+$03F4]
* Reference to: ComCtrls.TCustomListView.GetSelected(TCustomListView):TListItem;
| or: ComCtrls.TCustomListView.GetFocused(TCustomListView):TListItem;
|
004D7BF5 E8EA74F7FF call 0044F0E4
* Reference to: ComCtrls.TListItem.GetIndex(TListItem):Integer;
|
004D7BFA E8853CF7FF call 0044B884
004D7BFF 40 inc eax
004D7C00 50 push eax
004D7C01 33C9 xor ecx, ecx
004D7C03 B209 mov dl, $09
004D7C05 8BC3 mov eax, ebx
|
004D7C07 E864EDFFFF call 004D6970
004D7C0C 33C0 xor eax, eax
004D7C0E 5A pop edx
004D7C0F 59 pop ecx
004D7C10 59 pop ecx
004D7C11 648910 mov fs:[eax], edx
****** FINALLY
|
* Possible String Reference to: '[Y]?
|
004D7C14 68297C4D00 push $004D7C29
004D7C19 8D45FC lea eax, [ebp-$04]
* Reference to: System.@LStrClr(void;void);
|
004D7C1C E86FC6F2FF call 00404290
004D7C21 C3 ret
* Reference to: System.@HandleFinally;
|
004D7C22 E9E9BFF2FF jmp 00403C10
004D7C27 EBF0 jmp 004D7C19
****** END
|
004D7C29 5B pop ebx
004D7C2A 59 pop ecx
004D7C2B 5D pop ebp
004D7C2C C3 ret
*)
end;
procedure TMainForm.N7Click(Sender : TObject);
begin
(*
004D7C40 53 push ebx
004D7C41 51 push ecx
004D7C42 8BD8 mov ebx, eax
* Reference to control TMainForm.ServerInfoList : TListView
|
004D7C44 8B83F4030000 mov eax, [ebx+$03F4]
* Reference to: ComCtrls.TCustomListView.GetSelected(TCustomListView):TListItem;
| or: ComCtrls.TCustomListView.GetFocused(TCustomListView):TListItem;
|
004D7C4A E89574F7FF call 0044F0E4
004D7C4F 85C0 test eax, eax
004D7C51 0F848C000000 jz 004D7CE3
* Reference to TGJSetupForm instance
|
004D7C57 8B0D50BB4D00 mov ecx, [$004DBB50]
* Reference to TApplication instance
|
004D7C5D A1DCBB4D00 mov eax, dword ptr [$004DBBDC]
004D7C62 8B00 mov eax, [eax]
* Reference to class TGJSetupForm
|
004D7C64 8B1500434D00 mov edx, [$004D4300]
* Reference to: Forms.TApplication.CreateForm(TApplication;TComponentClass;void;void);
| or: QForms.TApplication.CreateForm(TApplication;TComponentClass;void;void);
|
004D7C6A E8BD07FBFF call 0048842C
* Reference to TGJSetupForm instance
|
004D7C6F A150BB4D00 mov eax, dword ptr [$004DBB50]
004D7C74 8B00 mov eax, [eax]
004D7C76 8B10 mov edx, [eax]
* Reference to method TGJSetupForm.ShowModal()
|
004D7C78 FF92EC000000 call dword ptr [edx+$00EC]
004D7C7E 48 dec eax
004D7C7F 7556 jnz 004D7CD7
* Reference to control TMainForm.ServerInfoList : TListView
|
004D7C81 8B83F4030000 mov eax, [ebx+$03F4]
* Reference to: ComCtrls.TCustomListView.GetSelected(TCustomListView):TListItem;
| or: ComCtrls.TCustomListView.GetFocused(TCustomListView):TListItem;
|
004D7C87 E85874F7FF call 0044F0E4
* Reference to: ComCtrls.TListItem.GetIndex(TListItem):Integer;
|
004D7C8C E8F33BF7FF call 0044B884
004D7C91 40 inc eax
004D7C92 880424 mov [esp], al
* Reference to TGJSetupForm instance
|
004D7C95 A150BB4D00 mov eax, dword ptr [$004DBB50]
004D7C9A 8B00 mov eax, [eax]
* Reference to control TGJSetupForm.BBCheck : TCheckBox
|
004D7C9C 8B80F8020000 mov eax, [eax+$02F8]
004D7CA2 8B10 mov edx, [eax]
* Reference to method TCheckBox.GetChecked()
|
004D7CA4 FF92C8000000 call dword ptr [edx+$00C8]
004D7CAA 88442401 mov [esp+$01], al
* Reference to TGJSetupForm instance
|
004D7CAE A150BB4D00 mov eax, dword ptr [$004DBB50]
004D7CB3 8B00 mov eax, [eax]
* Reference to control TGJSetupForm.CKCheck : TCheckBox
|
004D7CB5 8B80FC020000 mov eax, [eax+$02FC]
004D7CBB 8B10 mov edx, [eax]
* Reference to method TCheckBox.GetChecked()
|
004D7CBD FF92C8000000 call dword ptr [edx+$00C8]
004D7CC3 88442402 mov [esp+$02], al
004D7CC7 8BC4 mov eax, esp
004D7CC9 8B00 mov eax, [eax]
004D7CCB 50 push eax
004D7CCC 33C9 xor ecx, ecx
004D7CCE B211 mov dl, $11
004D7CD0 8BC3 mov eax, ebx
|
004D7CD2 E899ECFFFF call 004D6970
* Reference to TGJSetupForm instance
|
004D7CD7 A150BB4D00 mov eax, dword ptr [$004DBB50]
004D7CDC 8B00 mov eax, [eax]
* Reference to: System.TObject.Free(TObject);
|
004D7CDE E899B7F2FF call 0040347C
004D7CE3 5A pop edx
004D7CE4 5B pop ebx
004D7CE5 C3 ret
*)
end;
procedure TMainForm.N6Click(Sender : TObject);
begin
(*
004D7CE8 55 push ebp
004D7CE9 8BEC mov ebp, esp
004D7CEB 6A00 push $00
004D7CED 53 push ebx
004D7CEE 8BD8 mov ebx, eax
004D7CF0 33C0 xor eax, eax
004D7CF2 55 push ebp
* Possible String Reference to: '?掘?疔Y]?
|
004D7CF3 68727D4D00 push $004D7D72
***** TRY
|
004D7CF8 64FF30 push dword ptr fs:[eax]
004D7CFB 648920 mov fs:[eax], esp
* Reference to control TMainForm.ServerInfoList : TListView
|
004D7CFE 8B83F4030000 mov eax, [ebx+$03F4]
* Reference to: ComCtrls.TCustomListView.GetSelected(TCustomListView):TListItem;
| or: ComCtrls.TCustomListView.GetFocused(TCustomListView):TListItem;
|
004D7D04 E8DB73F7FF call 0044F0E4
004D7D09 85C0 test eax, eax
004D7D0B 744F jz 004D7D5C
* Reference to control TMainForm.ServerInfoList : TListView
|
004D7D0D 8B83F4030000 mov eax, [ebx+$03F4]
* Reference to: ComCtrls.TCustomListView.GetSelected(TCustomListView):TListItem;
| or: ComCtrls.TCustomListView.GetFocused(TCustomListView):TListItem;
|
004D7D13 E8CC73F7FF call 0044F0E4
* Reference to: ComCtrls.TListItem.GetIndex(TListItem):Integer;
|
004D7D18 E8673BF7FF call 0044B884
004D7D1D 40 inc eax
004D7D1E 8D55FC lea edx, [ebp-$04]
* Reference to: SysUtils.IntToStr(Integer):AnsiString;overload;
|
004D7D21 E81610F3FF call 00408D3C
004D7D26 8D45FC lea eax, [ebp-$04]
* Possible String Reference to: '服关机'
|
004D7D29 BA887D4D00 mov edx, $004D7D88
* Reference to: System.@LStrCat;
|
004D7D2E E825C8F2FF call 00404558
004D7D33 8B45FC mov eax, [ebp-$04]
|
004D7D36 E871D7FFFF call 004D54AC
004D7D3B 84C0 test al, al
004D7D3D 741D jz 004D7D5C
* Reference to control TMainForm.ServerInfoList : TListView
|
004D7D3F 8B83F4030000 mov eax, [ebx+$03F4]
* Reference to: ComCtrls.TCustomListView.GetSelected(TCustomListView):TListItem;
| or: ComCtrls.TCustomListView.GetFocused(TCustomListView):TListItem;
|
004D7D45 E89A73F7FF call 0044F0E4
* Reference to: ComCtrls.TListItem.GetIndex(TListItem):Integer;
|
004D7D4A E8353BF7FF call 0044B884
004D7D4F 40 inc eax
004D7D50 50 push eax
004D7D51 33C9 xor ecx, ecx
004D7D53 B20B mov dl, $0B
004D7D55 8BC3 mov eax, ebx
|
004D7D57 E814ECFFFF call 004D6970
004D7D5C 33C0 xor eax, eax
004D7D5E 5A pop edx
004D7D5F 59 pop ecx
004D7D60 59 pop ecx
004D7D61 648910 mov fs:[eax], edx
****** FINALLY
|
* Possible String Reference to: '[Y]?
|
004D7D64 68797D4D00 push $004D7D79
004D7D69 8D45FC lea eax, [ebp-$04]
* Reference to: System.@LStrClr(void;void);
|
004D7D6C E81FC5F2FF call 00404290
004D7D71 C3 ret
* Reference to: System.@HandleFinally;
|
004D7D72 E999BEF2FF jmp 00403C10
004D7D77 EBF0 jmp 004D7D69
****** END
|
004D7D79 5B pop ebx
004D7D7A 59 pop ecx
004D7D7B 5D pop ebp
004D7D7C C3 ret
*)
end;
procedure TMainForm.ISeeBtnClick(Sender : TObject);
begin
(*
004D8204 C605BCD44D0000 mov byte ptr [$004DD4BC], $00
004D820B 33D2 xor edx, edx
* Reference to control TMainForm.ISeeBtn : TButton
|
004D820D 8B8014040000 mov eax, [eax+$0414]
004D8213 8B08 mov ecx, [eax]
* Reference to method TButton.SetEnabled(Boolean)
|
004D8215 FF5164 call dword ptr [ecx+$64]
004D8218 C3 ret
*)
end;
procedure TMainForm.ServerInfoListCustomDrawSubItem(Sender : TObject);
begin
(*
004D821C 55 push ebp
004D821D 8BEC mov ebp, esp
004D821F 83C4F8 add esp, -$08
004D8222 53 push ebx
004D8223 56 push esi
004D8224 8BD9 mov ebx, ecx
004D8226 8BF2 mov esi, edx
004D8228 8BC3 mov eax, ebx
* Reference to: ComCtrls.TListItem.GetIndex(TListItem):Integer;
|
004D822A E85536F7FF call 0044B884
004D822F A801 test al, $01
004D8231 7515 jnz 004D8248
004D8233 8B8610020000 mov eax, [esi+$0210]
004D8239 8B4014 mov eax, [eax+$14]
004D823C BAF2F2F200 mov edx, $00F2F2F2
* Reference to: Graphics.TBrush.SetColor(TBrush;TColor);
|
004D8241 E87223F5FF call 0042A5B8
004D8246 EB13 jmp 004D825B
004D8248 8B8610020000 mov eax, [esi+$0210]
004D824E 8B4014 mov eax, [eax+$14]
004D8251 BAFFFFFF00 mov edx, $00FFFFFF
* Reference to: Graphics.TBrush.SetColor(TBrush;TColor);
|
004D8256 E85D23F5FF call 0042A5B8
004D825B 8BC3 mov eax, ebx
* Reference to: ComCtrls.TListItem.GetIndex(TListItem):Integer;
|
004D825D E82236F7FF call 0044B884
004D8262 83F82A cmp eax, +$2A
004D8265 0F8F3F010000 jnle 004D83AA
004D826B 8B4510 mov eax, [ebp+$10]
004D826E 83E804 sub eax, +$04
004D8271 740C jz 004D827F
004D8273 48 dec eax
004D8274 0F84A0000000 jz 004D831A
004D827A E92B010000 jmp 004D83AA
* Reference to: SysUtils.Now:TDateTime;
|
004D827F E8B82BF3FF call 0040AE3C
004D8284 83C4F8 add esp, -$08
004D8287 DD1C24 fstp qword ptr [esp]
004D828A 9B wait
004D828B 8BC3 mov eax, ebx
* Reference to: ComCtrls.TListItem.GetIndex(TListItem):Integer;
|
004D828D E8F235F7FF call 0044B884
004D8292 8D0480 lea eax, [eax+eax*4]
004D8295 8D0480 lea eax, [eax+eax*4]
004D8298 FFB031CF4D00 push dword ptr [eax+$4DCF31]
004D829E FFB02DCF4D00 push dword ptr [eax+$4DCF2D]
|
004D82A4 E8EB5BFBFF call 0048DE94
004D82A9 8945F8 mov [ebp-$08], eax
004D82AC 8955FC mov [ebp-$04], edx
004D82AF 837DFC00 cmp dword ptr [ebp-$04], +$00
004D82B3 750B jnz 004D82C0
004D82B5 817DF8A0050000 cmp dword ptr [ebp-$08], $000005A0
004D82BC 7344 jnb 004D8302
004D82BE EB02 jmp 004D82C2
004D82C0 7D40 jnl 004D8302
004D82C2 837DFC00 cmp dword ptr [ebp-$04], +$00
004D82C6 7508 jnz 004D82D0
004D82C8 837DF80A cmp dword ptr [ebp-$08], +$0A
004D82CC 731C jnb 004D82EA
004D82CE EB02 jmp 004D82D2
004D82D0 7D18 jnl 004D82EA
004D82D2 8B8610020000 mov eax, [esi+$0210]
004D82D8 8B400C mov eax, [eax+$0C]
004D82DB BA0000FF00 mov edx, $00FF0000
* Reference to: Graphics.TFont.SetColor(TFont;TColor);
|
004D82E0 E8071BF5FF call 00429DEC
004D82E5 E9C0000000 jmp 004D83AA
004D82EA 8B8610020000 mov eax, [esi+$0210]
004D82F0 8B400C mov eax, [eax+$0C]
004D82F3 BAFF000000 mov edx, $000000FF
* Reference to: Graphics.TFont.SetColor(TFont;TColor);
|
004D82F8 E8EF1AF5FF call 00429DEC
004D82FD E9A8000000 jmp 004D83AA
004D8302 8B8610020000 mov eax, [esi+$0210]
004D8308 8B400C mov eax, [eax+$0C]
004D830B BA080000FF mov edx, $FF000008
delphi反编译源码如下:
unit MainP;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics,
Controls, Forms, Dialogs, StdCtrls
type
TMainForm=class(TForm)
ToolBar1: TToolBar;
ImageList1: TImageList;
ImageList2: TImageList;
PopupMenu1: TPopupMenu;
N4: TMenuItem;
N5: TMenuItem;
N7: TMenuItem;
PopupMenu2: TPopupMenu;
N8: TMenuItem;
VPop: TMenuItem;
VPop2: TMenuItem;
N11: TMenuItem;
N14: TMenuItem;
N15: TMenuItem;
N16: TMenuItem;
N17: TMenuItem;
SBar: TStatusBar;
ServerSocket: TServerSocket;
Timer1: TTimer;
ImageList3: TImageList;
ToolButton2: TToolButton;
ToolButton3: TToolButton;
ToolButton4: TToolButton;
ToolButton5: TToolButton;
ToolButton6: TToolButton;
ToolButton8: TToolButton;
ToolButton9: TToolButton;
ToolButton10: TToolButton;
ToolButton11: TToolButton;
ToolButton12: TToolButton;
ToolButton13: TToolButton;
AutoCheck: TToolButton;
N26: TMenuItem;
N27: TMenuItem;
N28: TMenuItem;
N29: TMenuItem;
N30: TMenuItem;
N31: TMenuItem;
ClientSocket: TClientSocket;
LinkSvrBtn: TToolButton;
LinkSpr: TToolButton;
ImageList4: TImageList;
MemTable: TkbmMemTable;
MemTableSock: TIntegerField;
MemTableSvrID: TSmallintField;
MemTableGameID: TStringField;
MemTableGold: TIntegerField;
MemTableMapID: TSmallintField;
MainPanel: TPanel;
Splitter1: TSplitter;
Panel2: TPanel;
Panel3: TPanel;
Label1: TLabel;
SpeedButton1: TSpeedButton;
LocaIDEdit: TEdit;
N2: TMenuItem;
N6: TMenuItem;
ScrPanel: TPanel;
Image1: TImage;
ToolBar3: TToolBar;
ToolButton15: TToolButton;
ScroolBox: TScrollBox;
Panel1: TPanel;
ServerInfoList: TListView;
Panel4: TPanel;
Splitter2: TSplitter;
Panel5: TPanel;
GMOLCheck: TCheckBox;
GMRoomCheck: TCheckBox;
SeeGMCheck: TCheckBox;
FHCheck: TCheckBox;
ISeeBtn: TButton;
MList: TListBox;
GameMessList: TListBox;
Splitter3: TSplitter;
MapInfo: TPanel;
ToolButton1: TToolButton;
Page: TPageControl;
TabSheet1: TTabSheet;
ToolBar2: TToolBar;
VBtn: TToolButton;
VBtn2: TToolButton;
ToolButton18: TToolButton;
IDList: TListView;
TabSheet2: TTabSheet;
GameSocket: TClientSocket;
Panel6: TPanel;
GroupBox1: TGroupBox;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Edit1: TEdit;
FloatEdit1: TFloatEdit;
Edit2: TEdit;
Edit3: TEdit;
GroupBox2: TGroupBox;
Label6: TLabel;
Label7: TLabel;
Edit4: TEdit;
Edit5: TEdit;
GroupBox3: TGroupBox;
Panel7: TPanel;
GroupBox4: TGroupBox;
Label8: TLabel;
FloatEdit2: TFloatEdit;
CheckBox1: TCheckBox;
Panel8: TPanel;
StartBtn: TButton;
StopBtn: TButton;
GroupBox5: TGroupBox;
Label10: TLabel;
Label11: TLabel;
Label12: TLabel;
Label13: TLabel;
Label9: TLabel;
N1: TMenuItem;
N3: TMenuItem;
N9: TMenuItem;
N10: TMenuItem;
MemTableErrCount: TSmallintField;
UnGMCheck: TCheckBox;
procedure FormCreate(Sender : TObject);
procedure FormClose(Sender : TObject);
procedure ServerSocketAccept(Sender : TObject);
procedure Timer1Timer(Sender : TObject);
procedure ServerSocketClientDisconnect(Sender : TObject);
procedure ServerSocketClientRead(Sender : TObject);
procedure ServerSocketClientError(Sender : TObject);
procedure ToolButton9Click(Sender : TObject);
procedure FormCloseQuery(Sender : TObject);
procedure ToolButton6Click(Sender : TObject);
procedure ToolButton11Click(Sender : TObject);
procedure ToolButton5Click(Sender : TObject);
procedure ToolButton12Click(Sender : TObject);
procedure ToolButton3Click(Sender : TObject);
procedure ToolButton4Click(Sender : TObject);
procedure N27Click(Sender : TObject);
procedure N29Click(Sender : TObject);
procedure N14Click(Sender : TObject);
procedure N15Click(Sender : TObject);
procedure N31Click(Sender : TObject);
procedure ClientSocketConnect(Sender : TObject);
procedure ClientSocketConnecting(Sender : TObject);
procedure ClientSocketDisconnect(Sender : TObject);
procedure ClientSocketError(Sender : TObject);
procedure ToolButton10Click(Sender : TObject);
procedure LinkSvrBtnClick(Sender : TObject);
procedure FormActivate(Sender : TObject);
procedure ClientSocketRead(Sender : TObject);
procedure PopupMenu1Popup(Sender : TObject);
procedure VBtnClick(Sender : TObject);
procedure IDListDblClick(Sender : TObject);
procedure SpeedButton1Click(Sender : TObject);
procedure ToolButton15Click(Sender : TObject);
procedure N28Click(Sender : TObject);
procedure PopupMenu2Popup(Sender : TObject);
procedure AutoCheckClick(Sender : TObject);
procedure ServerInfoListCustomDrawItem(Sender : TObject);
procedure IDListCustomDrawItem(Sender : TObject);
procedure N17Click(Sender : TObject);
procedure N4Click(Sender : TObject);
procedure N5Click(Sender : TObject);
procedure N7Click(Sender : TObject);
procedure N6Click(Sender : TObject);
procedure ISeeBtnClick(Sender : TObject);
procedure ServerInfoListCustomDrawSubItem(Sender : TObject);
procedure MemTableBeforeInsert(Sender : TObject);
procedure MemTableBeforeDelete(Sender : TObject);
procedure MemTableAfterPost(Sender : TObject);
procedure ServerInfoListSelectItem(Sender : TObject);
procedure ToolButton1Click(Sender : TObject);
procedure FormShow(Sender : TObject);
procedure N1Click(Sender : TObject);
procedure N3Click(Sender : TObject);
procedure N10Click(Sender : TObject);
procedure GameSocketRead(Sender : TObject);
procedure GameSocketError(Sender : TObject);
procedure StartBtnClick(Sender : TObject);
procedure GameSocketDisconnect(Sender : TObject);
procedure GameSocketConnect(Sender : TObject);
procedure _PROC_004D53D1(Sender : TObject);
procedure _PROC_004D54AD(Sender : TObject);
procedure _PROC_004D5588(Sender : TObject);
procedure _PROC_004D55EC(Sender : TObject);
procedure _PROC_004D5B29(Sender : TObject);
procedure _PROC_004D5B5D(Sender : TObject);
procedure _PROC_004D5EC1(Sender : TObject);
procedure _PROC_004D5ED7(Sender : TObject);
procedure _PROC_004D5EF4(Sender : TObject);
procedure _PROC_004D67C7(Sender : TObject);
procedure _PROC_004D6971(Sender : TObject);
procedure _PROC_004D6AB1(Sender : TObject);
procedure _PROC_004D6DC5(Sender : TObject);
procedure _PROC_004D7214(Sender : TObject);
procedure _PROC_004D7389(Sender : TObject);
procedure _PROC_004D74FD(Sender : TObject);
procedure _PROC_004D77C4(Sender : TObject);
procedure _PROC_004D7D91(Sender : TObject);
procedure _PROC_004D842C(Sender : TObject);
procedure _PROC_004D860D(Sender : TObject);
private
{ Private declarations }
public
{ Public declarations }
end ;
var
MainForm: TMainForm;
{This file is generated by DeDe Ver 3.50.02 Copyright (c) 1999-2002 DaFixer}
implementation
{$R *.DFM}
procedure TMainForm.FormCreate(Sender : TObject);
begin
(*
004D5664 55 push ebp
004D5665 8BEC mov ebp, esp
004D5667 81C448FDFFFF add esp, $FFFFFD48
004D566D 53 push ebx
004D566E 56 push esi
004D566F 57 push edi
004D5670 33C9 xor ecx, ecx
004D5672 898D48FDFFFF mov [ebp+$FFFFFD48], ecx
004D5678 898D4CFEFFFF mov [ebp+$FFFFFE4C], ecx
004D567E 898D50FEFFFF mov [ebp+$FFFFFE50], ecx
004D5684 898D5CFEFFFF mov [ebp+$FFFFFE5C], ecx
004D568A 898D64FEFFFF mov [ebp+$FFFFFE64], ecx
004D5690 898D60FEFFFF mov [ebp+$FFFFFE60], ecx
004D5696 8BD8 mov ebx, eax
004D5698 33C0 xor eax, eax
004D569A 55 push ebp
* Possible String Reference to: '殛狎?沁^[?]?
|
004D569B 68A15A4D00 push $004D5AA1
***** TRY
|
004D56A0 64FF30 push dword ptr fs:[eax]
004D56A3 648920 mov fs:[eax], esp
004D56A6 8D9560FEFFFF lea edx, [ebp+$FFFFFE60]
* Reference to TApplication instance
|
004D56AC A1DCBB4D00 mov eax, dword ptr [$004DBBDC]
004D56B1 8B00 mov eax, [eax]
* Reference to: Forms.TApplication.GetExeName(TApplication):AnsiString;
|
004D56B3 E80434FBFF call 00488ABC
004D56B8 8B8560FEFFFF mov eax, [ebp+$FFFFFE60]
004D56BE 8D9564FEFFFF lea edx, [ebp+$FFFFFE64]
* Reference to: SysUtils.ExtractFilePath(AnsiString):AnsiString;
|
004D56C4 E8BF3DF3FF call 00409488
004D56C9 8D8564FEFFFF lea eax, [ebp+$FFFFFE64]
* Possible String Reference to: 'Setup.ini'
|
004D56CF BAB85A4D00 mov edx, $004D5AB8
* Reference to: System.@LStrCat;
|
004D56D4 E87FEEF2FF call 00404558
004D56D9 8B8D64FEFFFF mov ecx, [ebp+$FFFFFE64]
004D56DF B201 mov dl, $01
* Reference to class TIniFile
|
004D56E1 A18CDF4300 mov eax, dword ptr [$0043DF8C]
* Reference to: IniFiles.TCustomIniFile.Create(TCustomIniFile;boolean;AnsiString);
|
004D56E6 E85189F6FF call 0043E03C
* Reference to GlobalVar_004DD4B8
|
004D56EB A3B8D44D00 mov dword ptr [$004DD4B8], eax
* Reference to control TMainForm.GMOLCheck : TCheckBox
|
004D56F0 8BB304040000 mov esi, [ebx+$0404]
004D56F6 8BC6 mov eax, esi
004D56F8 8B10 mov edx, [eax]
* Reference to method TCheckBox.GetChecked()
|
004D56FA FF92C8000000 call dword ptr [edx+$00C8]
004D5700 50 push eax
* Possible String Reference to: 'GMOLCheck'
|
004D5701 B9CC5A4D00 mov ecx, $004D5ACC
* Possible String Reference to: 'Setup'
|
004D5706 BAE05A4D00 mov edx, $004D5AE0
004D570B A1B8D44D00 mov eax, dword ptr [$004DD4B8]
004D5710 8B38 mov edi, [eax]
004D5712 FF5710 call dword ptr [edi+$10]
004D5715 8BD0 mov edx, eax
004D5717 8BC6 mov eax, esi
004D5719 8B08 mov ecx, [eax]
* Reference to method TCheckBox.SetChecked(Boolean)
|
004D571B FF91CC000000 call dword ptr [ecx+$00CC]
* Reference to control TMainForm.GMRoomCheck : TCheckBox
|
004D5721 8BB308040000 mov esi, [ebx+$0408]
004D5727 8BC6 mov eax, esi
004D5729 8B10 mov edx, [eax]
* Reference to method TCheckBox.GetChecked()
|
004D572B FF92C8000000 call dword ptr [edx+$00C8]
004D5731 50 push eax
* Possible String Reference to: 'GMRoomCheck'
|
004D5732 B9F05A4D00 mov ecx, $004D5AF0
* Possible String Reference to: 'Setup'
|
004D5737 BAE05A4D00 mov edx, $004D5AE0
004D573C A1B8D44D00 mov eax, dword ptr [$004DD4B8]
004D5741 8B38 mov edi, [eax]
004D5743 FF5710 call dword ptr [edi+$10]
004D5746 8BD0 mov edx, eax
004D5748 8BC6 mov eax, esi
004D574A 8B08 mov ecx, [eax]
* Reference to method TCheckBox.SetChecked(Boolean)
|
004D574C FF91CC000000 call dword ptr [ecx+$00CC]
* Reference to control TMainForm.SeeGMCheck : TCheckBox
|
004D5752 8BB30C040000 mov esi, [ebx+$040C]
004D5758 8BC6 mov eax, esi
004D575A 8B10 mov edx, [eax]
* Reference to method TCheckBox.GetChecked()
|
004D575C FF92C8000000 call dword ptr [edx+$00C8]
004D5762 50 push eax
* Possible String Reference to: 'SeeGMCheck'
|
004D5763 B9045B4D00 mov ecx, $004D5B04
* Possible String Reference to: 'Setup'
|
004D5768 BAE05A4D00 mov edx, $004D5AE0
004D576D A1B8D44D00 mov eax, dword ptr [$004DD4B8]
004D5772 8B38 mov edi, [eax]
004D5774 FF5710 call dword ptr [edi+$10]
004D5777 8BD0 mov edx, eax
004D5779 8BC6 mov eax, esi
004D577B 8B08 mov ecx, [eax]
* Reference to method TCheckBox.SetChecked(Boolean)
|
004D577D FF91CC000000 call dword ptr [ecx+$00CC]
* Reference to control TMainForm.FHCheck : TCheckBox
|
004D5783 8BB310040000 mov esi, [ebx+$0410]
004D5789 8BC6 mov eax, esi
004D578B 8B10 mov edx, [eax]
* Reference to method TCheckBox.GetChecked()
|
004D578D FF92C8000000 call dword ptr [edx+$00C8]
004D5793 50 push eax
* Possible String Reference to: 'FHCheck'
|
004D5794 B9185B4D00 mov ecx, $004D5B18
* Possible String Reference to: 'Setup'
|
004D5799 BAE05A4D00 mov edx, $004D5AE0
004D579E A1B8D44D00 mov eax, dword ptr [$004DD4B8]
004D57A3 8B38 mov edi, [eax]
004D57A5 FF5710 call dword ptr [edi+$10]
004D57A8 8BD0 mov edx, eax
004D57AA 8BC6 mov eax, esi
004D57AC 8B08 mov ecx, [eax]
* Reference to method TCheckBox.SetChecked(Boolean)
|
004D57AE FF91CC000000 call dword ptr [ecx+$00CC]
* Reference to control TMainForm.UnGMCheck : TCheckBox
|
004D57B4 8BB3DC040000 mov esi, [ebx+$04DC]
004D57BA 8BC6 mov eax, esi
004D57BC 8B10 mov edx, [eax]
* Reference to method TCheckBox.GetChecked()
|
004D57BE FF92C8000000 call dword ptr [edx+$00C8]
004D57C4 50 push eax
* Possible String Reference to: 'UnGMCheck'
|
004D57C5 B9285B4D00 mov ecx, $004D5B28
* Possible String Reference to: 'Setup'
|
004D57CA BAE05A4D00 mov edx, $004D5AE0
004D57CF A1B8D44D00 mov eax, dword ptr [$004DD4B8]
004D57D4 8B38 mov edi, [eax]
004D57D6 FF5710 call dword ptr [edi+$10]
004D57D9 8BD0 mov edx, eax
004D57DB 8BC6 mov eax, esi
004D57DD 8B08 mov ecx, [eax]
* Reference to method TCheckBox.SetChecked(Boolean)
|
004D57DF FF91CC000000 call dword ptr [ecx+$00CC]
* Reference to control TMainForm.ServerInfoList : TListView
|
004D57E5 8B83F4030000 mov eax, [ebx+$03F4]
* Reference to field TListView.DoubleBuffered : Boolean
|
004D57EB C680F801000001 mov byte ptr [eax+$01F8], $01
004D57F2 C745FC01000000 mov dword ptr [ebp-$04], $00000001
* Reference to control TMainForm.ServerInfoList : TListView
|
004D57F9 8B83F4030000 mov eax, [ebx+$03F4]
* Reference to field TListView.Items : TListItems
|
004D57FF 8B802C020000 mov eax, [eax+$022C]
* Reference to: ComCtrls.TListItems.Add(TListItems):TListItem;
|
004D5805 E8A661F7FF call 0044B9B0
004D580A 8BF0 mov esi, eax
004D580C 8D855CFEFFFF lea eax, [ebp+$FFFFFE5C]
004D5812 50 push eax
004D5813 8B45FC mov eax, [ebp-$04]
004D5816 898554FEFFFF mov [ebp+$FFFFFE54], eax
004D581C C68558FEFFFF00 mov byte ptr [ebp+$FFFFFE58], $00
004D5823 8D9554FEFFFF lea edx, [ebp+$FFFFFE54]
004D5829 33C9 xor ecx, ecx
* Possible String Reference to: '韩 %02.d 服务器'
|
004D582B B83C5B4D00 mov eax, $004D5B3C
|
004D5830 E89344F3FF call 00409CC8
004D5835 8B955CFEFFFF mov edx, [ebp+$FFFFFE5C]
004D583B 8BC6 mov eax, esi
* Reference to: ComCtrls.TListItem.SetCaption(TListItem;AnsiString);
|
004D583D E80E5CF7FF call 0044B450
004D5842 6A01 push $01
* Reference to field TListItems.OFFS_0024
|
004D5844 8B4E24 mov ecx, [esi+$24]
* Possible String Reference to: 'Select'
|
004D5847 BA545B4D00 mov edx, $004D5B54
004D584C A1B8D44D00 mov eax, dword ptr [$004DD4B8]
004D5851 8B38 mov edi, [eax]
004D5853 FF5710 call dword ptr [edi+$10]
004D5856 8BD0 mov edx, eax
004D5858 8BC6 mov eax, esi
* Reference to: ComCtrls.TListItem.SetChecked(TListItem;Boolean);
|
004D585A E8895BF7FF call 0044B3E8
004D585F FF45FC inc dword ptr [ebp-$04]
004D5862 837DFC2E cmp dword ptr [ebp-$04], +$2E
004D5866 7591 jnz 004D57F9
004D5868 B201 mov dl, $01
* Reference to class TMemoryStream
|
004D586A A1B0BE4100 mov eax, dword ptr [$0041BEB0]
* Reference to: System.TObject.Create(TObject;Boolean);
|
004D586F E8D8DBF2FF call 0040344C
* Reference to GlobalVar_004DD4A4
|
004D5874 A3A4D44D00 mov dword ptr [$004DD4A4], eax
004D5879 B201 mov dl, $01
* Reference to class TGIFImage
|
004D587B A1FCD94B00 mov eax, dword ptr [$004BD9FC]
|
004D5880 E88340FFFF call 004C9908
* Possible reference to GlobalVar_004DD4B0
|
004D5885 A3B0D44D00 mov dword ptr [$004DD4B0], eax
004D588A B201 mov dl, $01
* Reference to class TBitmap
|
004D588C A1408E4200 mov eax, dword ptr [$00428E40]
* Reference to: Graphics.TBitmap.Create(TBitmap;boolean);
|
004D5891 E86A95F5FF call 0042EE00
* Possible reference to GlobalVar_004DD4AC
|
004D5896 A3ACD44D00 mov dword ptr [$004DD4AC], eax
004D589B BA00040000 mov edx, $00000400
* Reference to GlobalVar_004DD4AC
|
004D58A0 A1ACD44D00 mov eax, dword ptr [$004DD4AC]
004D58A5 8B08 mov ecx, [eax]
* Possible reference to virtual method TGlobalVar_004DD4AC.OFFS_40
|
004D58A7 FF5140 call dword ptr [ecx+$40]
004D58AA BA00030000 mov edx, $00000300
* Reference to GlobalVar_004DD4AC
|
004D58AF A1ACD44D00 mov eax, dword ptr [$004DD4AC]
004D58B4 8B08 mov ecx, [eax]
* Possible reference to virtual method TGlobalVar_004DD4AC.OFFS_34
|
004D58B6 FF5134 call dword ptr [ecx+$34]
* Reference to field TMainForm.DoubleBuffered : Boolean
|
004D58B9 C683F801000001 mov byte ptr [ebx+$01F8], $01
004D58C0 B205 mov dl, $05
* Reference to control TMainForm.ScrPanel : TPanel
|
004D58C2 8B83DC030000 mov eax, [ebx+$03DC]
* Reference to: Controls.TControl.SetAlign(TControl;TAlign);
|
004D58C8 E82317F9FF call 00466FF0
* Reference to control TMainForm.MemTable : TkbmMemTable
|
004D58CD 8B83A0030000 mov eax, [ebx+$03A0]
* Reference to: DB.TDataSet.Open(TDataSet);
|
004D58D3 E898E7FCFF call 004A4070
004D58D8 8D9550FEFFFF lea edx, [ebp+$FFFFFE50]
004D58DE 8BC3 mov eax, ebx
* Reference to: Controls.TControl.GetText(TControl):TCaption;
|
004D58E0 E81F22F9FF call 00467B04
004D58E5 8B9550FEFFFF mov edx, [ebp+$FFFFFE50]
* Reference to TApplication instance
|
004D58EB A1DCBB4D00 mov eax, dword ptr [$004DBBDC]
004D58F0 8B00 mov eax, [eax]
* Reference to: Forms.TApplication.SetTitle(TApplication;AnsiString);
|
004D58F2 E81527FBFF call 0048800C
004D58F7 8D8568FEFFFF lea eax, [ebp+$FFFFFE68]
004D58FD 50 push eax
004D58FE 6801010000 push $00000101
|
004D5903 E8E841FBFF call 00489AF0
004D5908 6A00 push $00
004D590A 6A02 push $02
004D590C 6A02 push $02
|
004D590E E89541FBFF call 00489AA8
004D5913 8BF0 mov esi, eax
* Reference to field TMainForm.OFFS_04E4
|
004D5915 89B3E4040000 mov [ebx+$04E4], esi
004D591B 83FEFF cmp esi, -$01
004D591E 7506 jnz 004D5926
004D5920 56 push esi
|
004D5921 E80A41FBFF call 00489A30
* Reference to field TMainForm.OFFS_04E8
|
004D5926 66C783E80400000200 mov word ptr [ebx+$04E8], $0002
004D592F 33C0 xor eax, eax
* Reference to field TMainForm.OFFS_04EC
|
004D5931 8983EC040000 mov [ebx+$04EC], eax
004D5937 6862040000 push $00000462
|
004D593C E80741FBFF call 00489A48
* Reference to field TMainForm.OFFS_04EA
|
004D5941 668983EA040000 mov [ebx+$04EA], ax
004D5948 6A10 push $10
* Reference to field TMainForm.OFFS_04E8
|
004D594A 8D83E8040000 lea eax, [ebx+$04E8]
004D5950 50 push eax
* Reference to field TMainForm.OFFS_04E4
|
004D5951 8B83E4040000 mov eax, [ebx+$04E4]
004D5957 50 push eax
|
004D5958 E8CB40FBFF call 00489A28
004D595D C745FC01000000 mov dword ptr [ebp-$04], $00000001
004D5964 6A04 push $04
004D5966 8D45FC lea eax, [ebp-$04]
004D5969 50 push eax
004D596A 6A20 push $20
004D596C 68FFFF0000 push $0000FFFF
* Reference to field TMainForm.OFFS_04E4
|
004D5971 8B83E4040000 mov eax, [ebx+$04E4]
004D5977 50 push eax
|
004D5978 E82341FBFF call 00489AA0
004D597D 40 inc eax
004D597E 6A01 push $01
004D5980 6801040000 push $00000401
004D5985 8BC3 mov eax, ebx
* Reference to: QForms.TCustomForm.GetClientHandle(TCustomForm):QWorkspaceH;
|
004D5987 E8AC8AF9FF call 0046E438
004D598C 50 push eax
* Reference to field TMainForm.OFFS_04E4
|
004D598D 8B83E4040000 mov eax, [ebx+$04E4]
004D5993 50 push eax
|
004D5994 E82F41FBFF call 00489AC8
* Reference to field TMainForm.OFFS_04F8
|
004D5999 66C783F80400000200 mov word ptr [ebx+$04F8], $0002
004D59A2 68B9080000 push $000008B9
|
004D59A7 E89C40FBFF call 00489A48
* Reference to field TMainForm.OFFS_04FA
|
004D59AC 668983FA040000 mov [ebx+$04FA], ax
004D59B3 B828CF4D00 mov eax, $004DCF28
004D59B8 BA67040000 mov edx, $00000467
* Reference to: Classes.TStream.WriteComponent(TStream;TComponent);
| or: Classes.TWriter.WriteRootComponent(TWriter;TComponent);
| or: DB.TWideStringField.GetAsWideString(TWideStringField):WideString;
| or: DB.TDateTimeField.GetValue(TDateTimeField;TDateTime;TDateTime):Boolean;
| or: DB.TSQLTimeStampField.GetValue(TSQLTimeStampField;TSQLTimeStamp;TSQLTimeStamp):Boolean;
| or: DB.TSQLTimeStampField.SetAsSQLTimeStamp(TSQLTimeStampField;TSQLTimeStamp;TSQLTimeStamp);
|
004D59BD E8161AF3FF call 004073D8
004D59C2 B894D34D00 mov eax, $004DD394
004D59C7 BA0E010000 mov edx, $0000010E
* Reference to: Classes.TStream.WriteComponent(TStream;TComponent);
| or: Classes.TWriter.WriteRootComponent(TWriter;TComponent);
| or: DB.TWideStringField.GetAsWideString(TWideStringField):WideString;
| or: DB.TDateTimeField.GetValue(TDateTimeField;TDateTime;TDateTime):Boolean;
| or: DB.TSQLTimeStampField.GetValue(TSQLTimeStampField;TSQLTimeStamp;TSQLTimeStamp):Boolean;
| or: DB.TSQLTimeStampField.SetAsSQLTimeStamp(TSQLTimeStampField;TSQLTimeStamp;TSQLTimeStamp);
|
004D59CC E8071AF3FF call 004073D8
004D59D1 B813000000 mov eax, $00000013
* Reference to: SysUtils.AllocMem(Cardinal):Pointer;
|
004D59D6 E8B52CF3FF call 00408690
* Reference to GlobalVar_004DD390
|
004D59DB A390D34D00 mov dword ptr [$004DD390], eax
004D59E0 C745F8DA53A119 mov dword ptr [ebp-$08], $19A153DA
004D59E7 FF75F8 push dword ptr [ebp-$08]
|
004D59EA E86940FBFF call 00489A58
004D59EF 8BD0 mov edx, eax
004D59F1 8D854CFEFFFF lea eax, [ebp+$FFFFFE4C]
* Reference to: System.@LStrFromPChar(String;String;PAnsiChar);
| or: System.@WStrFromPChar(WideString;WideString;PAnsiChar);
|
004D59F7 E88CEAF2FF call 00404488
004D59FC 8B954CFEFFFF mov edx, [ebp+$FFFFFE4C]
* Reference to control TMainForm.ClientSocket : TClientSocket
|
004D5A02 8B8390030000 mov eax, [ebx+$0390]
* Reference to: ScktComp.TAbstractSocket.SetHost(TAbstractSocket;AnsiString);
|
004D5A08 E8DF72FBFF call 0048CCEC
004D5A0D 8B3590D34D00 mov esi, [$004DD390]
004D5A13 66C7061300 mov word ptr [esi], $0013
004D5A18 C6460201 mov byte ptr [esi+$02], $01
004D5A1C 8D8548FDFFFF lea eax, [ebp+$FFFFFD48]
|
004D5A22 E85DFBFFFF call 004D5584
004D5A27 8B9548FDFFFF mov edx, [ebp+$FFFFFD48]
004D5A2D 8D854CFDFFFF lea eax, [ebp+$FFFFFD4C]
004D5A33 B9FF000000 mov ecx, $000000FF
* Reference to: System.@LStrToString;
|
004D5A38 E8EFEAF2FF call 0040452C
004D5A3D 8D954CFDFFFF lea edx, [ebp+$FFFFFD4C]
004D5A43 8D4603 lea eax, [esi+$03]
004D5A46 B10F mov cl, $0F
* Reference to: System.@PStrNCpy(PShortString;PShortString;Byte);
|
004D5A48 E843D2F2FF call 00402C90
* Reference to control TMainForm.Timer1 : TTimer
|
004D5A4D 8BB340030000 mov esi, [ebx+$0340]
004D5A53 33D2 xor edx, edx
* Reference to field TTimer.OFFS_003C
|
004D5A55 8B463C mov eax, [esi+$3C]
* Possible reference to virtual method TTimer.OFFS_38
|
004D5A58 FF5638 call dword ptr [esi+$38]
* Reference to field TMainForm.DoubleBuffered : Boolean
|
004D5A5B C683F801000001 mov byte ptr [ebx+$01F8], $01
004D5A62 33C0 xor eax, eax
004D5A64 5A pop edx
004D5A65 59 pop ecx
004D5A66 59 pop ecx
004D5A67 648910 mov fs:[eax], edx
****** FINALLY
|
* Possible String Reference to: '_^[?]?
|
004D5A6A 68A85A4D00 push $004D5AA8
004D5A6F 8D8548FDFFFF lea eax, [ebp+$FFFFFD48]
* Reference to: System.@LStrClr(void;void);
|
004D5A75 E816E8F2FF call 00404290
004D5A7A 8D854CFEFFFF lea eax, [ebp+$FFFFFE4C]
* Reference to: System.@LStrClr(void;void);
|
004D5A80 E80BE8F2FF call 00404290
004D5A85 8D8550FEFFFF lea eax, [ebp+$FFFFFE50]
* Reference to: System.@LStrClr(void;void);
|
004D5A8B E800E8F2FF call 00404290
004D5A90 8D855CFEFFFF lea eax, [ebp+$FFFFFE5C]
004D5A96 BA03000000 mov edx, $00000003
* Reference to: System.@LStrArrayClr(void;void;Integer);
|
004D5A9B E814E8F2FF call 004042B4
004D5AA0 C3 ret
* Reference to: System.@HandleFinally;
|
004D5AA1 E96AE1F2FF jmp 00403C10
004D5AA6 EBC7 jmp 004D5A6F
****** END
|
004D5AA8 5F pop edi
004D5AA9 5E pop esi
004D5AAA 5B pop ebx
004D5AAB 8BE5 mov esp, ebp
004D5AAD 5D pop ebp
004D5AAE C3 ret
*)
end;
procedure TMainForm.FormClose(Sender : TObject);
begin
(*
004D5CF4 53 push ebx
004D5CF5 56 push esi
004D5CF6 57 push edi
004D5CF7 55 push ebp
004D5CF8 8BD8 mov ebx, eax
* Reference to control TMainForm.ServerInfoList : TListView
|
004D5CFA 8B83F4030000 mov eax, [ebx+$03F4]
* Reference to field TListView.Items : TListItems
|
004D5D00 8B802C020000 mov eax, [eax+$022C]
* Reference to: ComCtrls.TListItems.GetCount(TListItems):Integer;
|
004D5D06 E8015DF7FF call 0044BA0C
004D5D0B 8BF8 mov edi, eax
004D5D0D 4F dec edi
004D5D0E 85FF test edi, edi
004D5D10 7C45 jl 004D5D57
004D5D12 47 inc edi
004D5D13 33F6 xor esi, esi
* Reference to control TMainForm.ServerInfoList : TListView
|
004D5D15 8B83F4030000 mov eax, [ebx+$03F4]
* Reference to field TListView.Items : TListItems
|
004D5D1B 8B802C020000 mov eax, [eax+$022C]
004D5D21 8BD6 mov edx, esi
* Reference to: ComCtrls.TListItems.GetItem(TListItems;Integer):TListItem;
|
004D5D23 E8145DF7FF call 0044BA3C
* Reference to: ComCtrls.TListItem.GetChecked(TListItem):Boolean;
|
004D5D28 E87756F7FF call 0044B3A4
004D5D2D 50 push eax
* Reference to control TMainForm.ServerInfoList : TListView
|
004D5D2E 8B83F4030000 mov eax, [ebx+$03F4]
* Reference to field TListView.Items : TListItems
|
004D5D34 8B802C020000 mov eax, [eax+$022C]
004D5D3A 8BD6 mov edx, esi
* Reference to: ComCtrls.TListItems.GetItem(TListItems;Integer):TListItem;
|
004D5D3C E8FB5CF7FF call 0044BA3C
* Reference to field TListItems.OFFS_0024
|
004D5D41 8B4824 mov ecx, [eax+$24]
* Possible String Reference to: 'Select'
|
004D5D44 BA545E4D00 mov edx, $004D5E54
004D5D49 A1B8D44D00 mov eax, dword ptr [$004DD4B8]
004D5D4E 8B28 mov ebp, [eax]
004D5D50 FF5514 call dword ptr [ebp+$14]
004D5D53 46 inc esi
004D5D54 4F dec edi
004D5D55 75BE jnz 004D5D15
* Reference to control TMainForm.GMOLCheck : TCheckBox
|
004D5D57 8B8304040000 mov eax, [ebx+$0404]
004D5D5D 8B10 mov edx, [eax]
* Reference to method TCheckBox.GetChecked()
|
004D5D5F FF92C8000000 call dword ptr [edx+$00C8]
004D5D65 50 push eax
* Possible String Reference to: 'GMOLCheck'
|
004D5D66 B9645E4D00 mov ecx, $004D5E64
* Possible String Reference to: 'Setup'
|
004D5D6B BA785E4D00 mov edx, $004D5E78
004D5D70 A1B8D44D00 mov eax, dword ptr [$004DD4B8]
004D5D75 8B30 mov esi, [eax]
004D5D77 FF5614 call dword ptr [esi+$14]
* Reference to control TMainForm.GMRoomCheck : TCheckBox
|
004D5D7A 8B8308040000 mov eax, [ebx+$0408]
004D5D80 8B10 mov edx, [eax]
* Reference to method TCheckBox.GetChecked()
|
004D5D82 FF92C8000000 call dword ptr [edx+$00C8]
004D5D88 50 push eax
* Possible String Reference to: 'GMRoomCheck'
|
004D5D89 B9885E4D00 mov ecx, $004D5E88
* Possible String Reference to: 'Setup'
|
004D5D8E BA785E4D00 mov edx, $004D5E78
004D5D93 A1B8D44D00 mov eax, dword ptr [$004DD4B8]
004D5D98 8B30 mov esi, [eax]
004D5D9A FF5614 call dword ptr [esi+$14]
* Reference to control TMainForm.SeeGMCheck : TCheckBox
|
004D5D9D 8B830C040000 mov eax, [ebx+$040C]
004D5DA3 8B10 mov edx, [eax]
* Reference to method TCheckBox.GetChecked()
|
004D5DA5 FF92C8000000 call dword ptr [edx+$00C8]
004D5DAB 50 push eax
* Possible String Reference to: 'SeeGMCheck'
|
004D5DAC B99C5E4D00 mov ecx, $004D5E9C
* Possible String Reference to: 'Setup'
|
004D5DB1 BA785E4D00 mov edx, $004D5E78
004D5DB6 A1B8D44D00 mov eax, dword ptr [$004DD4B8]
004D5DBB 8B30 mov esi, [eax]
004D5DBD FF5614 call dword ptr [esi+$14]
* Reference to control TMainForm.FHCheck : TCheckBox
|
004D5DC0 8B8310040000 mov eax, [ebx+$0410]
004D5DC6 8B10 mov edx, [eax]
* Reference to method TCheckBox.GetChecked()
|
004D5DC8 FF92C8000000 call dword ptr [edx+$00C8]
004D5DCE 50 push eax
* Possible String Reference to: 'FHCheck'
|
004D5DCF B9B05E4D00 mov ecx, $004D5EB0
* Possible String Reference to: 'Setup'
|
004D5DD4 BA785E4D00 mov edx, $004D5E78
004D5DD9 A1B8D44D00 mov eax, dword ptr [$004DD4B8]
004D5DDE 8B30 mov esi, [eax]
004D5DE0 FF5614 call dword ptr [esi+$14]
* Reference to control TMainForm.UnGMCheck : TCheckBox
|
004D5DE3 8B83DC040000 mov eax, [ebx+$04DC]
004D5DE9 8B10 mov edx, [eax]
* Reference to method TCheckBox.GetChecked()
|
004D5DEB FF92C8000000 call dword ptr [edx+$00C8]
004D5DF1 50 push eax
* Possible String Reference to: 'UnGMCheck'
|
004D5DF2 B9C05E4D00 mov ecx, $004D5EC0
* Possible String Reference to: 'Setup'
|
004D5DF7 BA785E4D00 mov edx, $004D5E78
004D5DFC A1B8D44D00 mov eax, dword ptr [$004DD4B8]
004D5E01 8B30 mov esi, [eax]
004D5E03 FF5614 call dword ptr [esi+$14]
004D5E06 A1B8D44D00 mov eax, dword ptr [$004DD4B8]
* Reference to: System.TObject.Free(TObject);
|
004D5E0B E86CD6F2FF call 0040347C
004D5E10 A1A4D44D00 mov eax, dword ptr [$004DD4A4]
* Reference to: System.TObject.Free(TObject);
|
004D5E15 E862D6F2FF call 0040347C
* Reference to GlobalVar_004DD4B0
|
004D5E1A A1B0D44D00 mov eax, dword ptr [$004DD4B0]
* Reference to: System.TObject.Free(TObject);
|
004D5E1F E858D6F2FF call 0040347C
* Reference to GlobalVar_004DD4AC
|
004D5E24 A1ACD44D00 mov eax, dword ptr [$004DD4AC]
* Reference to: System.TObject.Free(TObject);
|
004D5E29 E84ED6F2FF call 0040347C
* Reference to field TMainForm.OFFS_04E4
|
004D5E2E 8B83E4040000 mov eax, [ebx+$04E4]
004D5E34 50 push eax
|
004D5E35 E8F63BFBFF call 00489A30
004D5E3A A1C0D44D00 mov eax, dword ptr [$004DD4C0]
004D5E3F 50 push eax
|
004D5E40 E8930BF3FF call 004069D8
004D5E45 5D pop ebp
004D5E46 5F pop edi
004D5E47 5E pop esi
004D5E48 5B pop ebx
004D5E49 C3 ret
*)
end;
procedure TMainForm.ServerSocketAccept(Sender : TObject);
begin
(*
004D5F10 53 push ebx
004D5F11 56 push esi
004D5F12 83C4D8 add esp, -$28
004D5F15 8BF1 mov esi, ecx
004D5F17 8BD8 mov ebx, eax
004D5F19 8B4604 mov eax, [esi+$04]
004D5F1C 890424 mov [esp], eax
004D5F1F C644240400 mov byte ptr [esp+$04], $00
004D5F24 C7442408FFFFFFFF mov dword ptr [esp+$08], $FFFFFFFF
004D5F2C C644240C00 mov byte ptr [esp+$0C], $00
004D5F31 33C0 xor eax, eax
004D5F33 89442410 mov [esp+$10], eax
004D5F37 C64424140B mov byte ptr [esp+$14], $0B
004D5F3C C7442418FFFFFFFF mov dword ptr [esp+$18], $FFFFFFFF
004D5F44 C644241C00 mov byte ptr [esp+$1C], $00
004D5F49 33C0 xor eax, eax
004D5F4B 89442420 mov [esp+$20], eax
004D5F4F C644242400 mov byte ptr [esp+$24], $00
004D5F54 8BD4 mov edx, esp
004D5F56 B904000000 mov ecx, $00000004
* Reference to control TMainForm.MemTable : TkbmMemTable
|
004D5F5B 8B83A0030000 mov eax, [ebx+$03A0]
* Reference to: DB.TDataSet.AppendRecord(TDataSet;arrayofTVarRec;arrayofTVarRec;0..-1);
|
004D5F61 E8AA0EFDFF call 004A6E10
004D5F66 83C428 add esp, +$28
004D5F69 5E pop esi
004D5F6A 5B pop ebx
004D5F6B C3 ret
*)
end;
procedure TMainForm.Timer1Timer(Sender : TObject);
begin
(*
004D5F6C 55 push ebp
004D5F6D 8BEC mov ebp, esp
004D5F6F 83C4F0 add esp, -$10
004D5F72 53 push ebx
004D5F73 56 push esi
004D5F74 33C9 xor ecx, ecx
004D5F76 894DF0 mov [ebp-$10], ecx
004D5F79 894DFC mov [ebp-$04], ecx
004D5F7C 8BD8 mov ebx, eax
004D5F7E 33C0 xor eax, eax
004D5F80 55 push ebp
004D5F81 68B7604D00 push $004D60B7
***** TRY
|
004D5F86 64FF30 push dword ptr fs:[eax]
004D5F89 648920 mov fs:[eax], esp
004D5F8C 803DBCD44D0000 cmp byte ptr [$004DD4BC], $00
004D5F93 7419 jz 004D5FAE
004D5F95 B201 mov dl, $01
* Reference to control TMainForm.ISeeBtn : TButton
|
004D5F97 8B8314040000 mov eax, [ebx+$0414]
004D5F9D 8B08 mov ecx, [eax]
* Reference to method TButton.SetEnabled(Boolean)
|
004D5F9F FF5164 call dword ptr [ecx+$64]
004D5FA2 6A50 push $50
004D5FA4 68C4090000 push $000009C4
|
004D5FA9 E87209F3FF call 00406920
|
004D5FAE E8E50AF3FF call 00406A98
004D5FB3 8BF0 mov esi, eax
004D5FB5 8BC6 mov eax, esi
004D5FB7 2B05B4D44D00 sub eax, dword ptr [$004DD4B4]
004D5FBD 3D88130000 cmp eax, $00001388
004D5FC2 761B jbe 004D5FDF
004D5FC4 A190D34D00 mov eax, dword ptr [$004DD390]
004D5FC9 0FB708 movzx ecx, word ptr [eax]
004D5FCC 8B1590D34D00 mov edx, [$004DD390]
004D5FD2 8BC3 mov eax, ebx
|
004D5FD4 E8F3FEFFFF call 004D5ECC
004D5FD9 8935B4D44D00 mov [$004DD4B4], esi
* Reference to control TMainForm.ServerSocket : TServerSocket
|
004D5FDF 8B833C030000 mov eax, [ebx+$033C]
* Reference to field TServerSocket.Socket : TServerWinSocket
|
004D5FE5 8B8090000000 mov eax, [eax+$0090]
* Reference to: ScktComp.TServerWinSocket.GetActiveConnections(TServerWinSocket):Integer;
|
004D5FEB E85862FBFF call 0048C248
004D5FF0 3B0550B74D00 cmp eax, [$004DB750]
004D5FF6 7455 jz 004D604D
* Reference to control TMainForm.ServerSocket : TServerSocket
|
004D5FF8 8B833C030000 mov eax, [ebx+$033C]
* Reference to field TServerSocket.Socket : TServerWinSocket
|
004D5FFE 8B8090000000 mov eax, [eax+$0090]
* Reference to: ScktComp.TServerWinSocket.GetActiveConnections(TServerWinSocket):Integer;
|
004D6004 E83F62FBFF call 0048C248
004D6009 A350B74D00 mov dword ptr [$004DB750], eax
004D600E 8D45FC lea eax, [ebp-$04]
004D6011 50 push eax
004D6012 A150B74D00 mov eax, dword ptr [$004DB750]
004D6017 8945F4 mov [ebp-$0C], eax
004D601A C645F800 mov byte ptr [ebp-$08], $00
004D601E 8D55F4 lea edx, [ebp-$0C]
004D6021 33C9 xor ecx, ecx
* Possible String Reference to: '共 %D 台机器'
|
004D6023 B8CC604D00 mov eax, $004D60CC
|
004D6028 E89B3CF3FF call 00409CC8
004D602D 8B45FC mov eax, [ebp-$04]
004D6030 50 push eax
* Reference to control TMainForm.SBar : TStatusBar
|
004D6031 8B8338030000 mov eax, [ebx+$0338]
* Reference to field TStatusBar.Panels : TStatusPanels
|
004D6037 8B8008020000 mov eax, [eax+$0208]
004D603D BA06000000 mov edx, $00000006
* Reference to: ComCtrls.TStatusPanels.GetItem(TStatusPanels;Integer):TStatusPanel;
| or: QComCtrls.TStatusPanels.GetItem(TStatusPanels;Integer):TStatusPanel;
|
004D6042 E83939F7FF call 00449980
004D6047 5A pop edx
* Reference to: ComCtrls.TStatusPanel.SetText(TStatusPanel;AnsiString);
| or: ComCtrls.THeaderSection.SetText(THeaderSection;AnsiString);
|
004D6048 E88F38F7FF call 004498DC
* Reference to control TMainForm.Timer1 : TTimer
|
004D604D 8B8340030000 mov eax, [ebx+$0340]
004D6053 FF400C inc dword ptr [eax+$0C]
* Reference to control TMainForm.Timer1 : TTimer
|
004D6056 8B8340030000 mov eax, [ebx+$0340]
* Reference to field TTimer.Tag : Longint
|
004D605C 83780C0F cmp dword ptr [eax+$0C], +$0F
004D6060 7E37 jle 004D6099
* Reference to control TMainForm.ClientSocket : TClientSocket
|
004D6062 8BB390030000 mov esi, [ebx+$0390]
* Reference to field TClientSocket.Active : Boolean
|
004D6068 807E3000 cmp byte ptr [esi+$30], $00
004D606C 7420 jz 004D608E
004D606E B864000000 mov eax, $00000064
|
004D6073 E848CDF2FF call 00402DC0
004D6078 8D55F0 lea edx, [ebp-$10]
* Reference to: SysUtils.IntToStr(Integer):AnsiString;overload;
|
004D607B E8BC2CF3FF call 00408D3C
004D6080 8B55F0 mov edx, [ebp-$10]
* Reference to field TClientSocket.Socket : TClientWinSocket
|
004D6083 8B8690000000 mov eax, [esi+$0090]
* Reference to: ScktComp.TCustomWinSocket.SendText(TCustomWinSocket;AnsiString):Integer;
|
004D6089 E8FE56FBFF call 0048B78C
* Reference to control TMainForm.Timer1 : TTimer
|
004D608E 8B8340030000 mov eax, [ebx+$0340]
004D6094 33D2 xor edx, edx
* Reference to field TTimer.Tag : Longint
|
004D6096 89500C mov [eax+$0C], edx
004D6099 33C0 xor eax, eax
004D609B 5A pop edx
004D609C 59 pop ecx
004D609D 59 pop ecx
004D609E 648910 mov fs:[eax], edx
****** FINALLY
|
004D60A1 68BE604D00 push $004D60BE
004D60A6 8D45F0 lea eax, [ebp-$10]
* Reference to: System.@LStrClr(void;void);
|
004D60A9 E8E2E1F2FF call 00404290
004D60AE 8D45FC lea eax, [ebp-$04]
* Reference to: System.@LStrClr(void;void);
|
004D60B1 E8DAE1F2FF call 00404290
004D60B6 C3 ret
* Reference to: System.@HandleFinally;
|
004D60B7 E954DBF2FF jmp 00403C10
004D60BC EBE8 jmp 004D60A6
****** END
|
004D60BE 5E pop esi
004D60BF 5B pop ebx
004D60C0 8BE5 mov esp, ebp
004D60C2 5D pop ebp
004D60C3 C3 ret
*)
end;
procedure TMainForm.ServerSocketClientDisconnect(Sender : TObject);
begin
(*
004D60DC 55 push ebp
004D60DD 8BEC mov ebp, esp
004D60DF 6A00 push $00
004D60E1 6A00 push $00
004D60E3 6A00 push $00
004D60E5 6A00 push $00
004D60E7 53 push ebx
004D60E8 56 push esi
004D60E9 8BF1 mov esi, ecx
004D60EB 8BD8 mov ebx, eax
004D60ED 33C0 xor eax, eax
004D60EF 55 push ebp
* Possible String Reference to: '轷隍?疝[?]?
|
004D60F0 6896614D00 push $004D6196
***** TRY
|
004D60F5 64FF30 push dword ptr fs:[eax]
004D60F8 648920 mov fs:[eax], esp
004D60FB A0A4614D00 mov al, byte ptr [$004D61A4]
004D6100 50 push eax
004D6101 8D45F0 lea eax, [ebp-$10]
004D6104 8B5604 mov edx, [esi+$04]
004D6107 B1FC mov cl, $FC
|
004D6109 E82EEAF3FF call 00414B3C
004D610E 8D4DF0 lea ecx, [ebp-$10]
* Possible String Reference to: 'Sock'
|
004D6111 BAB0614D00 mov edx, $004D61B0
* Reference to control TMainForm.MemTable : TkbmMemTable
|
004D6116 8B83A0030000 mov eax, [ebx+$03A0]
004D611C 8B30 mov esi, [eax]
* Possible reference to virtual method TkbmMemTable.OFFS_0244
|
004D611E FF9644020000 call dword ptr [esi+$0244]
004D6124 84C0 test al, al
004D6126 7458 jz 004D6180
* Possible String Reference to: 'SvrID'
|
004D6128 BAC0614D00 mov edx, $004D61C0
* Reference to control TMainForm.MemTable : TkbmMemTable
|
004D612D 8B83A0030000 mov eax, [ebx+$03A0]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
004D6133 E8D4EEFCFF call 004A500C
004D6138 8B10 mov edx, [eax]
* Possible reference to virtual method TkbmMemTable.OFFS_58
|
004D613A FF5258 call dword ptr [edx+$58]
004D613D 85C0 test eax, eax
004D613F 7E34 jle 004D6175
004D6141 8D0440 lea eax, [eax+eax*2]
004D6144 8D34458ED34D00 lea esi, [$4DD38E+eax*2]
004D614B 66FF0E dec word ptr [esi]
* Possible String Reference to: 'Gold'
|
004D614E BAD0614D00 mov edx, $004D61D0
* Reference to control TMainForm.MemTable : TkbmMemTable
|
004D6153 8B83A0030000 mov eax, [ebx+$03A0]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
004D6159 E8AEEEFCFF call 004A500C
004D615E 8B10 mov edx, [eax]
* Possible reference to virtual method TkbmMemTable.OFFS_58
|
004D6160 FF5258 call dword ptr [edx+$58]
004D6163 294602 sub dword ptr [esi+$02], eax
* Reference to field TMainForm.OFFS_04E0
|
004D6166 8B93E0040000 mov edx, [ebx+$04E0]
004D616C 2BD0 sub edx, eax
004D616E 8BC3 mov eax, ebx
|
004D6170 E813120000 call 004D7388
* Reference to control TMainForm.MemTable : TkbmMemTable
|
004D6175 8B83A0030000 mov eax, [ebx+$03A0]
* Reference to: DB.TDataSet.Delete(TDataSet);
|
004D617B E84409FDFF call 004A6AC4
004D6180 33C0 xor eax, eax
004D6182 5A pop edx
004D6183 59 pop ecx
004D6184 59 pop ecx
004D6185 648910 mov fs:[eax], edx
****** FINALLY
|
* Possible String Reference to: '^[?]?
|
004D6188 689D614D00 push $004D619D
004D618D 8D45F0 lea eax, [ebp-$10]
* Reference to: Variants.@VarClr(TVarData;TVarData);
|
004D6190 E8B3A5F3FF call 00410748
004D6195 C3 ret
* Reference to: System.@HandleFinally;
|
004D6196 E975DAF2FF jmp 00403C10
004D619B EBF0 jmp 004D618D
****** END
|
004D619D 5E pop esi
004D619E 5B pop ebx
004D619F 8BE5 mov esp, ebp
004D61A1 5D pop ebp
004D61A2 C3 ret
*)
end;
procedure TMainForm.ServerSocketClientRead(Sender : TObject);
begin
(*
004D61D8 55 push ebp
004D61D9 8BEC mov ebp, esp
004D61DB 51 push ecx
004D61DC B907000000 mov ecx, $00000007
004D61E1 6A00 push $00
004D61E3 6A00 push $00
004D61E5 49 dec ecx
004D61E6 75F9 jnz 004D61E1
004D61E8 51 push ecx
004D61E9 874DFC xchg [ebp-$04], ecx
004D61EC 53 push ebx
004D61ED 56 push esi
004D61EE 57 push edi
004D61EF 894DF8 mov [ebp-$08], ecx
004D61F2 8945FC mov [ebp-$04], eax
004D61F5 33C0 xor eax, eax
004D61F7 55 push ebp
* Possible String Reference to: '槟则?剡^[?]?
|
004D61F8 68C7674D00 push $004D67C7
***** TRY
|
004D61FD 64FF30 push dword ptr fs:[eax]
004D6200 648920 mov fs:[eax], esp
004D6203 8B45F8 mov eax, [ebp-$08]
* Reference to: ComCtrls.THeaderSections.Add(THeaderSections):THeaderSection;
| or: ComCtrls.TListItems.Add(TListItems):TListItem;
| or: ScktComp.TCustomWinSocket.ReceiveLength(TCustomWinSocket):Integer;
|
004D6206 E8615AFBFF call 0048BC6C
004D620B 8BD8 mov ebx, eax
004D620D 85DB test ebx, ebx
004D620F 0F8484050000 jz 004D6799
004D6215 8BC3 mov eax, ebx
* Reference to: SysUtils.AllocMem(Cardinal):Pointer;
|
004D6217 E87424F3FF call 00408690
004D621C 8945EC mov [ebp-$14], eax
004D621F 8B45EC mov eax, [ebp-$14]
004D6222 8945E8 mov [ebp-$18], eax
004D6225 8B55EC mov edx, [ebp-$14]
004D6228 8BCB mov ecx, ebx
004D622A 8B45F8 mov eax, [ebp-$08]
* Reference to: ScktComp.TCustomWinSocket.ReceiveBuf(TCustomWinSocket;void;void;Integer):Integer;
|
004D622D E8CE58FBFF call 0048BB00
004D6232 895DF0 mov [ebp-$10], ebx
004D6235 8B7DEC mov edi, [ebp-$14]
004D6238 0FB71F movzx ebx, word ptr [edi]
004D623B 33C0 xor eax, eax
004D623D 8A4702 mov al, byte ptr [edi+$02]
004D6240 83C0FA add eax, -$06
004D6243 83F80C cmp eax, +$0C
004D6246 0F8743050000 jnbe 004D678F
004D624C 8A8059624D00 mov al, byte ptr [eax+$4D6259]
004D6252 FF248566624D00 jmp dword ptr [$4D6266+eax*4]
004D6259 0102 add [edx], eax
004D625B 0000 add [eax], al
004D625D 0000 add [eax], al
004D625F 0000 add [eax], al
004D6261 0003 add [ebx], al
004D6263 0500048F67 add eax, +$678F0400
004D6268 4D dec ebp
004D6269 007E62 add [esi+$62], bh
004D626C 4D dec ebp
004D626D 007F64 add [edi+$64], bh
004D6270 4D dec ebp
004D6271 00B5654D000B add [ebp+$B004D65], dh
004D6277 664D dec bp
004D6279 005566 add [ebp+$66], dl
004D627C 4D dec ebp
004D627D 0083FB1B0F85 add [ebx+$850F1BFB], al
004D6283 120500008BDF adc al, byte ptr [$DF8B0000]
004D6289 836B0364 sub dword ptr [ebx+$03], +$64
004D628D 817B0300100000 cmp dword ptr [ebx+$03], $00001000
004D6294 0F9545E7 setnz byte ptr [ebp-$19]
004D6298 A0D8674D00 mov al, byte ptr [$004D67D8]
004D629D 50 push eax
004D629E 8D45D4 lea eax, [ebp-$2C]
004D62A1 8B55F8 mov edx, [ebp-$08]
004D62A4 8B5204 mov edx, [edx+$04]
004D62A7 B1FC mov cl, $FC
|
004D62A9 E88EE8F3FF call 00414B3C
004D62AE 8D4DD4 lea ecx, [ebp-$2C]
* Reference to MainForm
|
004D62B1 8B45FC mov eax, [ebp-$04]
* Reference to control TMainForm.MemTable : TkbmMemTable
|
004D62B4 8B80A0030000 mov eax, [eax+$03A0]
* Possible String Reference to: 'Sock'
|
004D62BA BAE4674D00 mov edx, $004D67E4
004D62BF 8B30 mov esi, [eax]
* Possible reference to virtual method TkbmMemTable.OFFS_0244
|
004D62C1 FF9644020000 call dword ptr [esi+$0244]
004D62C7 84C0 test al, al
004D62C9 7479 jz 004D6344
004D62CB 33C0 xor eax, eax
004D62CD 8A4314 mov al, byte ptr [ebx+$14]
004D62D0 8D0440 lea eax, [eax+eax*2]
004D62D3 8D34458ED34D00 lea esi, [$4DD38E+eax*2]
* Reference to MainForm
|
004D62DA 8B45FC mov eax, [ebp-$04]
* Reference to control TMainForm.MemTable : TkbmMemTable
|
004D62DD 8B80A0030000 mov eax, [eax+$03A0]
* Possible String Reference to: 'SvrID'
|
004D62E3 BAF4674D00 mov edx, $004D67F4
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
004D62E8 E81FEDFCFF call 004A500C
004D62ED 8B10 mov edx, [eax]
* Possible reference to virtual method TkbmMemTable.OFFS_58
|
004D62EF FF5258 call dword ptr [edx+$58]
004D62F2 85C0 test eax, eax
004D62F4 7D03 jnl 004D62F9
004D62F6 66FF06 inc word ptr [esi]
* Reference to MainForm
|
004D62F9 8B45FC mov eax, [ebp-$04]
* Reference to control TMainForm.MemTable : TkbmMemTable
|
004D62FC 8B80A0030000 mov eax, [eax+$03A0]
* Possible String Reference to: 'Gold'
|
004D6302 BA04684D00 mov edx, $004D6804
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
004D6307 E800EDFCFF call 004A500C
004D630C 8B10 mov edx, [eax]
* Possible reference to virtual method TkbmMemTable.OFFS_58
|
004D630E FF5258 call dword ptr [edx+$58]
004D6311 8BF8 mov edi, eax
004D6313 8B4602 mov eax, [esi+$02]
004D6316 2BC7 sub eax, edi
004D6318 034317 add eax, [ebx+$17]
004D631B 894602 mov [esi+$02], eax
* Reference to MainForm
|
004D631E 8B45FC mov eax, [ebp-$04]
* Reference to field TMainForm.OFFS_04E0
|
004D6321 8B90E0040000 mov edx, [eax+$04E0]
004D6327 2BD7 sub edx, edi
004D6329 035317 add edx, [ebx+$17]
* Reference to MainForm
|
004D632C 8B45FC mov eax, [ebp-$04]
|
004D632F E854100000 call 004D7388
* Reference to MainForm
|
004D6334 8B45FC mov eax, [ebp-$04]
* Reference to control TMainForm.MemTable : TkbmMemTable
|
004D6337 8B80A0030000 mov eax, [eax+$03A0]
* Reference to: DB.TDataSet.Edit(TDataSet);
|
004D633D E84A04FDFF call 004A678C
004D6342 EB3A jmp 004D637E
004D6344 33C0 xor eax, eax
004D6346 8A4314 mov al, byte ptr [ebx+$14]
004D6349 8D0440 lea eax, [eax+eax*2]
004D634C 8D04458ED34D00 lea eax, [$4DD38E+eax*2]
004D6353 66FF00 inc word ptr [eax]
004D6356 8B5317 mov edx, [ebx+$17]
004D6359 015002 add [eax+$02], edx
* Reference to MainForm
|
004D635C 8B45FC mov eax, [ebp-$04]
* Reference to field TMainForm.OFFS_04E0
|
004D635F 8B90E0040000 mov edx, [eax+$04E0]
004D6365 035317 add edx, [ebx+$17]
* Reference to MainForm
|
004D6368 8B45FC mov eax, [ebp-$04]
|
004D636B E818100000 call 004D7388
* Reference to MainForm
|
004D6370 8B45FC mov eax, [ebp-$04]
* Reference to control TMainForm.MemTable : TkbmMemTable
|
004D6373 8B80A0030000 mov eax, [eax+$03A0]
* Reference to: DB.TDataSet.Append(TDataSet);
|
004D6379 E85205FDFF call 004A68D0
* Reference to MainForm
|
004D637E 8B45FC mov eax, [ebp-$04]
* Reference to control TMainForm.MemTable : TkbmMemTable
|
004D6381 8BB0A0030000 mov esi, [eax+$03A0]
* Possible String Reference to: 'Sock'
|
004D6387 BAE4674D00 mov edx, $004D67E4
004D638C 8BC6 mov eax, esi
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
004D638E E879ECFCFF call 004A500C
004D6393 8B55F8 mov edx, [ebp-$08]
004D6396 8B5204 mov edx, [edx+$04]
004D6399 8B08 mov ecx, [eax]
* Possible reference to virtual method TkbmMemTable.OFFS_00A8
|
004D639B FF91A8000000 call dword ptr [ecx+$00A8]
* Possible String Reference to: 'SvrID'
|
004D63A1 BAF4674D00 mov edx, $004D67F4
004D63A6 8BC6 mov eax, esi
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
004D63A8 E85FECFCFF call 004A500C
004D63AD 33D2 xor edx, edx
004D63AF 8A5314 mov dl, byte ptr [ebx+$14]
004D63B2 8B08 mov ecx, [eax]
* Possible reference to virtual method TkbmMemTable.OFFS_00A8
|
004D63B4 FF91A8000000 call dword ptr [ecx+$00A8]
* Possible String Reference to: 'GameID'
|
004D63BA BA14684D00 mov edx, $004D6814
004D63BF 8BC6 mov eax, esi
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
004D63C1 E846ECFCFF call 004A500C
004D63C6 50 push eax
004D63C7 8D45D0 lea eax, [ebp-$30]
004D63CA 8D5307 lea edx, [ebx+$07]
* Reference to: System.@LStrFromString(String;String;ShortString;ShortString);
| or: System.@WStrFromString(WideString;WideString;ShortString;ShortString);
|
004D63CD E822E1F2FF call 004044F4
004D63D2 8B55D0 mov edx, [ebp-$30]
004D63D5 58 pop eax
004D63D6 8B08 mov ecx, [eax]
004D63D8 FF91B0000000 call dword ptr [ecx+$00B0]
* Possible String Reference to: 'Gold'
|
004D63DE BA04684D00 mov edx, $004D6804
004D63E3 8BC6 mov eax, esi
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
004D63E5 E822ECFCFF call 004A500C
004D63EA 8B5317 mov edx, [ebx+$17]
004D63ED 8B08 mov ecx, [eax]
* Possible reference to virtual method TkbmMemTable.OFFS_00A8
|
004D63EF FF91A8000000 call dword ptr [ecx+$00A8]
* Possible String Reference to: 'MapID'
|
004D63F5 BA24684D00 mov edx, $004D6824
004D63FA 8BC6 mov eax, esi
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
004D63FC E80BECFCFF call 004A500C
004D6401 0FB75315 movzx edx, word ptr [ebx+$15]
004D6405 8B08 mov ecx, [eax]
* Possible reference to virtual method TkbmMemTable.OFFS_00A8
|
004D6407 FF91A8000000 call dword ptr [ecx+$00A8]
004D640D 807DE700 cmp byte ptr [ebp-$19], $00
004D6411 7428 jz 004D643B
* Possible String Reference to: 'ErrCount'
|
004D6413 BA34684D00 mov edx, $004D6834
004D6418 8BC6 mov eax, esi
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
004D641A E8EDEBFCFF call 004A500C
004D641F 8B10 mov edx, [eax]
* Possible reference to virtual method TkbmMemTable.OFFS_58
|
004D6421 FF5258 call dword ptr [edx+$58]
004D6424 40 inc eax
004D6425 50 push eax
* Possible String Reference to: 'ErrCount'
|
004D6426 BA34684D00 mov edx, $004D6834
004D642B 8BC6 mov eax, esi
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
004D642D E8DAEBFCFF call 004A500C
004D6432 5A pop edx
004D6433 8B08 mov ecx, [eax]
* Possible reference to virtual method TkbmMemTable.OFFS_00A8
|
004D6435 FF91A8000000 call dword ptr [ecx+$00A8]
004D643B 8BC6 mov eax, esi
004D643D 8B10 mov edx, [eax]
* Possible reference to virtual method TkbmMemTable.OFFS_024C
|
004D643F FF924C020000 call dword ptr [edx+$024C]
* Possible String Reference to: 'ErrCount'
|
004D6445 BA34684D00 mov edx, $004D6834
004D644A 8BC6 mov eax, esi
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
004D644C E8BBEBFCFF call 004A500C
004D6451 8B10 mov edx, [eax]
* Possible reference to virtual method TkbmMemTable.OFFS_58
|
004D6453 FF5258 call dword ptr [edx+$58]
004D6456 83F864 cmp eax, +$64
004D6459 7E12 jle 004D646D
004D645B 6AFF push $FF
004D645D 8B45F8 mov eax, [ebp-$08]
004D6460 8B4804 mov ecx, [eax+$04]
004D6463 B20B mov dl, $0B
* Reference to MainForm
|
004D6465 8B45FC mov eax, [ebp-$04]
|
004D6468 E803050000 call 004D6970
004D646D 33D2 xor edx, edx
004D646F 8A5314 mov dl, byte ptr [ebx+$14]
* Reference to MainForm
|
004D6472 8B45FC mov eax, [ebp-$04]
* Reference to : TMainForm._PROC_004D77C4()
|
004D6475 E84A130000 call 004D77C4
004D647A E910030000 jmp 004D678F
004D647F 83FB07 cmp ebx, +$07
004D6482 0F8511030000 jnz 004D6799
004D6488 A0D8674D00 mov al, byte ptr [$004D67D8]
004D648D 50 push eax
004D648E 8D45C0 lea eax, [ebp-$40]
004D6491 8B55F8 mov edx, [ebp-$08]
004D6494 8B5204 mov edx, [edx+$04]
004D6497 B1FC mov cl, $FC
|
004D6499 E89EE6F3FF call 00414B3C
004D649E 8D4DC0 lea ecx, [ebp-$40]
* Reference to MainForm
|
004D64A1 8B45FC mov eax, [ebp-$04]
* Reference to control TMainForm.MemTable : TkbmMemTable
|
004D64A4 8B80A0030000 mov eax, [eax+$03A0]
* Possible String Reference to: 'Sock'
|
004D64AA BAE4674D00 mov edx, $004D67E4
004D64AF 8B18 mov ebx, [eax]
* Possible reference to virtual method TkbmMemTable.OFFS_0244
|
004D64B1 FF9344020000 call dword ptr [ebx+$0244]
004D64B7 84C0 test al, al
004D64B9 0F84D0020000 jz 004D678F
* Reference to MainForm
|
004D64BF 8B45FC mov eax, [ebp-$04]
* Reference to control TMainForm.MemTable : TkbmMemTable
|
004D64C2 8B80A0030000 mov eax, [eax+$03A0]
* Possible String Reference to: 'SvrId'
|
004D64C8 BA48684D00 mov edx, $004D6848
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
004D64CD E83AEBFCFF call 004A500C
004D64D2 8B10 mov edx, [eax]
* Possible reference to virtual method TkbmMemTable.OFFS_58
|
004D64D4 FF5258 call dword ptr [edx+$58]
004D64D7 8BF8 mov edi, eax
004D64D9 8D047F lea eax, [edi+edi*2]
004D64DC 8D1C458ED34D00 lea ebx, [$4DD38E+eax*2]
004D64E3 66FF0B dec word ptr [ebx]
* Reference to MainForm
|
004D64E6 8B45FC mov eax, [ebp-$04]
* Reference to control TMainForm.MemTable : TkbmMemTable
|
004D64E9 8B80A0030000 mov eax, [eax+$03A0]
* Possible String Reference to: 'Gold'
|
004D64EF BA04684D00 mov edx, $004D6804
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
004D64F4 E813EBFCFF call 004A500C
004D64F9 8B10 mov edx, [eax]
* Possible reference to virtual method TkbmMemTable.OFFS_58
|
004D64FB FF5258 call dword ptr [edx+$58]
004D64FE 8BF8 mov edi, eax
004D6500 297B02 sub dword ptr [ebx+$02], edi
* Reference to MainForm
|
004D6503 8B45FC mov eax, [ebp-$04]
* Reference to field TMainForm.OFFS_04E0
|
004D6506 8B90E0040000 mov edx, [eax+$04E0]
004D650C 2BD7 sub edx, edi
* Reference to MainForm
|
004D650E 8B45FC mov eax, [ebp-$04]
|
004D6511 E8720E0000 call 004D7388
* Reference to MainForm
|
004D6516 8B45FC mov eax, [ebp-$04]
* Reference to control TMainForm.MemTable : TkbmMemTable
|
004D6519 8B80A0030000 mov eax, [eax+$03A0]
* Possible String Reference to: 'SvrId'
|
004D651F BA48684D00 mov edx, $004D6848
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
004D6524 E8E3EAFCFF call 004A500C
004D6529 8B10 mov edx, [eax]
* Possible reference to virtual method TkbmMemTable.OFFS_58
|
004D652B FF5258 call dword ptr [edx+$58]
004D652E 8BD0 mov edx, eax
* Reference to MainForm
|
004D6530 8B45FC mov eax, [ebp-$04]
* Reference to : TMainForm._PROC_004D77C4()
|
004D6533 E88C120000 call 004D77C4
* Reference to MainForm
|
004D6538 8B45FC mov eax, [ebp-$04]
* Reference to control TMainForm.MemTable : TkbmMemTable
|
004D653B 8B80A0030000 mov eax, [eax+$03A0]
* Reference to: DB.TDataSet.Edit(TDataSet);
|
004D6541 E84602FDFF call 004A678C
* Reference to MainForm
|
004D6546 8B45FC mov eax, [ebp-$04]
* Reference to control TMainForm.MemTable : TkbmMemTable
|
004D6549 8B80A0030000 mov eax, [eax+$03A0]
* Possible String Reference to: 'SvrID'
|
004D654F BAF4674D00 mov edx, $004D67F4
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
004D6554 E8B3EAFCFF call 004A500C
004D6559 83CAFF or edx, -$01
004D655C 8B08 mov ecx, [eax]
* Possible reference to virtual method TkbmMemTable.OFFS_00A8
|
004D655E FF91A8000000 call dword ptr [ecx+$00A8]
* Reference to MainForm
|
004D6564 8B45FC mov eax, [ebp-$04]
* Reference to control TMainForm.MemTable : TkbmMemTable
|
004D6567 8B80A0030000 mov eax, [eax+$03A0]
* Possible String Reference to: 'Gold'
|
004D656D BA04684D00 mov edx, $004D6804
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
004D6572 E895EAFCFF call 004A500C
004D6577 33D2 xor edx, edx
004D6579 8B08 mov ecx, [eax]
* Possible reference to virtual method TkbmMemTable.OFFS_00A8
|
004D657B FF91A8000000 call dword ptr [ecx+$00A8]
* Reference to MainForm
|
004D6581 8B45FC mov eax, [ebp-$04]
* Reference to control TMainForm.MemTable : TkbmMemTable
|
004D6584 8B80A0030000 mov eax, [eax+$03A0]
* Possible String Reference to: 'MapID'
|
004D658A BA24684D00 mov edx, $004D6824
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
004D658F E878EAFCFF call 004A500C
004D6594 83CAFF or edx, -$01
004D6597 8B08 mov ecx, [eax]
* Possible reference to virtual method TkbmMemTable.OFFS_00A8
|
004D6599 FF91A8000000 call dword ptr [ecx+$00A8]
* Reference to MainForm
|
004D659F 8B45FC mov eax, [ebp-$04]
* Reference to control TMainForm.MemTable : TkbmMemTable
|
004D65A2 8B80A0030000 mov eax, [eax+$03A0]
004D65A8 8B10 mov edx, [eax]
* Possible reference to virtual method TkbmMemTable.OFFS_024C
|
004D65AA FF924C020000 call dword ptr [edx+$024C]
004D65B0 E9DA010000 jmp 004D678F
004D65B5 83FB19 cmp ebx, +$19
004D65B8 0F85DB010000 jnz 004D6799
* Reference to pointer to GlobalVar_004DCE60
|
004D65BE A164B94D00 mov eax, dword ptr [$004DB964]
004D65C3 833800 cmp dword ptr [eax], +$00
004D65C6 0F84C3010000 jz 004D678F
004D65CC 8D45F4 lea eax, [ebp-$0C]
004D65CF 8D5707 lea edx, [edi+$07]
* Reference to: System.@LStrFromString(String;String;ShortString;ShortString);
| or: System.@WStrFromString(WideString;WideString;ShortString;ShortString);
|
004D65D2 E81DDFF2FF call 004044F4
* Reference to pointer to GlobalVar_004DCE60
|
004D65D7 A164B94D00 mov eax, dword ptr [$004DB964]
004D65DC 8B00 mov eax, [eax]
* Reference to control GMROOMRadio : N.A.
|
004D65DE 8B80F8020000 mov eax, [eax+$02F8]
* Reference to field N.A..OFFS_0218
|
004D65E4 8B9818020000 mov ebx, [eax+$0218]
004D65EA 8B55F4 mov edx, [ebp-$0C]
004D65ED 8BC3 mov eax, ebx
004D65EF 8B08 mov ecx, [eax]
004D65F1 FF5154 call dword ptr [ecx+$54]
004D65F4 85C0 test eax, eax
004D65F6 0F8D93010000 jnl 004D678F
004D65FC 8B55F4 mov edx, [ebp-$0C]
004D65FF 8BC3 mov eax, ebx
* Reference to: Classes.TStrings.Append(TStrings;AnsiString);
| or: TeEngine.TChartSeries.AssignValues(TChartSeries;TChartSeries);
|
004D6601 E88689F4FF call 0041EF8C
004D6606 E984010000 jmp 004D678F
004D660B 8D55F4 lea edx, [ebp-$0C]
004D660E 8B45E8 mov eax, [ebp-$18]
004D6611 83C007 add eax, +$07
* Reference to: Dialogs.FixFileName(AnsiString):AnsiString;
| or: SysUtils.StrPas(PChar):AnsiString;
|
004D6614 E8BF31F3FF call 004097D8
* Reference to MainForm
|
004D6619 8B45FC mov eax, [ebp-$04]
* Reference to control TMainForm.GameMessList : TListBox
|
004D661C 8B801C040000 mov eax, [eax+$041C]
* Reference to field TListBox.Items : TStrings
|
004D6622 8B8018020000 mov eax, [eax+$0218]
004D6628 8B55F4 mov edx, [ebp-$0C]
* Reference to: Classes.TStrings.Append(TStrings;AnsiString);
|
004D662B E85C89F4FF call 0041EF8C
* Reference to MainForm
|
004D6630 8B45FC mov eax, [ebp-$04]
* Reference to control TMainForm.GameMessList : TListBox
|
004D6633 8B981C040000 mov ebx, [eax+$041C]
004D6639 8BC3 mov eax, ebx
004D663B 8B10 mov edx, [eax]
* Possible reference to virtual method TListBox.OFFS_00C8
|
004D663D FF92C8000000 call dword ptr [edx+$00C8]
004D6643 8BD0 mov edx, eax
004D6645 4A dec edx
004D6646 8BC3 mov eax, ebx
004D6648 8B08 mov ecx, [eax]
* Reference to method TListBox.ItemIndex()
|
004D664A FF91D0000000 call dword ptr [ecx+$00D0]
004D6650 E93A010000 jmp 004D678F
004D6655 8D45EC lea eax, [ebp-$14]
004D6658 8BD3 mov edx, ebx
* Reference to: System.@ReallocMem(Pointer;Pointer;Integer):Pointer;
|
004D665A E869C1F2FF call 004027C8
004D665F 8B45EC mov eax, [ebp-$14]
004D6662 8945E8 mov [ebp-$18], eax
004D6665 33C0 xor eax, eax
004D6667 55 push ebp
004D6668 6868674D00 push $004D6768
***** TRY
|
004D666D 64FF30 push dword ptr fs:[eax]
004D6670 648920 mov fs:[eax], esp
004D6673 8BFB mov edi, ebx
004D6675 2B7DF0 sub edi, dword ptr [ebp-$10]
004D6678 8B75F0 mov esi, [ebp-$10]
004D667B 85FF test edi, edi
004D667D 7E38 jle 004D66B7
004D667F 6A00 push $00
004D6681 57 push edi
004D6682 8B45E8 mov eax, [ebp-$18]
004D6685 33D2 xor edx, edx
004D6687 52 push edx
004D6688 50 push eax
004D6689 8BC6 mov eax, esi
004D668B 99 cdq
004D668C 030424 add eax, [esp]
004D668F 13542404 adc edx, [esp+$04]
004D6693 83C408 add esp, +$08
004D6696 50 push eax
004D6697 8B45F8 mov eax, [ebp-$08]
004D669A 8B4004 mov eax, [eax+$04]
004D669D 50 push eax
|
004D669E E8D533FBFF call 00489A78
004D66A3 8BD8 mov ebx, eax
004D66A5 85DB test ebx, ebx
004D66A7 7F06 jnle 004D66AF
004D66A9 85F6 test esi, esi
004D66AB 7F0A jnle 004D66B7
004D66AD EBD0 jmp 004D667F
004D66AF 03F3 add esi, ebx
004D66B1 2BFB sub edi, ebx
004D66B3 85FF test edi, edi
004D66B5 7FC8 jnle 004D667F
004D66B7 85F6 test esi, esi
004D66B9 750D jnz 004D66C8
004D66BB 33C0 xor eax, eax
004D66BD 5A pop edx
004D66BE 59 pop ecx
004D66BF 59 pop ecx
004D66C0 648910 mov fs:[eax], edx
004D66C3 E9D1000000 jmp 004D6799
004D66C8 A1A4D44D00 mov eax, dword ptr [$004DD4A4]
* Reference to: Classes.TMemoryStream.Clear(TMemoryStream);
|
004D66CD E862A5F4FF call 00420C34
004D66D2 8B55E8 mov edx, [ebp-$18]
004D66D5 83C207 add edx, +$07
004D66D8 8BCE mov ecx, esi
004D66DA A1A4D44D00 mov eax, dword ptr [$004DD4A4]
* Reference to: Classes.TStream.WriteBuffer(TStream;void;void;Longint);
|
004D66DF E840A0F4FF call 00420724
004D66E4 6A00 push $00
004D66E6 6A00 push $00
004D66E8 A1A4D44D00 mov eax, dword ptr [$004DD4A4]
|
004D66ED E8EE9DF4FF call 004204E0
* Reference to GlobalVar_004DD4B0
|
004D66F2 A1B0D44D00 mov eax, dword ptr [$004DD4B0]
|
004D66F7 E88833FFFF call 004C9A84
004D66FC 8B15A4D44D00 mov edx, [$004DD4A4]
* Reference to GlobalVar_004DD4B0
|
004D6702 A1B0D44D00 mov eax, dword ptr [$004DD4B0]
004D6707 8B08 mov ecx, [eax]
* Possible reference to virtual method TGlobalVar_004DD4B0.OFFS_54
|
004D6709 FF5154 call dword ptr [ecx+$54]
* Reference to GlobalVar_004DD4B0
|
004D670C A1B0D44D00 mov eax, dword ptr [$004DD4B0]
004D6711 50 push eax
* Reference to GlobalVar_004DD4AC
|
004D6712 A1ACD44D00 mov eax, dword ptr [$004DD4AC]
* Reference to: Graphics.TBitmap.GetCanvas(TBitmap):TCanvas;
|
004D6717 E8AC8CF5FF call 0042F3C8
004D671C 33D2 xor edx, edx
004D671E 8A15A8D44D00 mov dl, byte ptr [$004DD4A8]
004D6724 C1E206 shl edx, $06
004D6727 33C9 xor ecx, ecx
* Reference to: Graphics.TCanvas.Draw(TCanvas;Integer;Integer;TGraphic);
|
004D6729 E88241F5FF call 0042A8B0
004D672E FE05A8D44D00 inc byte ptr [$004DD4A8]
004D6734 803DA8D44D000F cmp byte ptr [$004DD4A8], $0F
004D673B 7621 jbe 004D675E
004D673D C605A8D44D0000 mov byte ptr [$004DD4A8], $00
* Reference to MainForm
|
004D6744 8B45FC mov eax, [ebp-$04]
* Reference to control TMainForm.Image1 : TImage
|
004D6747 8B80E0030000 mov eax, [eax+$03E0]
* Reference to field TImage.Picture : TPicture
|
004D674D 8B8068010000 mov eax, [eax+$0168]
* Reference to GlobalVar_004DD4AC
|
004D6753 8B15ACD44D00 mov edx, [$004DD4AC]
004D6759 8B08 mov ecx, [eax]
* Reference to method TPicture.Assign(TPersistent)
|
004D675B FF5108 call dword ptr [ecx+$08]
004D675E 33C0 xor eax, eax
004D6760 5A pop edx
004D6761 59 pop ecx
004D6762 59 pop ecx
004D6763 648910 mov fs:[eax], edx
004D6766 EB0A jmp 004D6772
* Reference to: System.@HandleAnyException;
|
004D6768 E9EFD1F2FF jmp 0040395C
* Reference to: System.@DoneExcept;
|
004D676D E852D5F2FF call 00403CC4
****** END
|
* Reference to MainForm
|
004D6772 8B45FC mov eax, [ebp-$04]
* Reference to control TMainForm.ScrPanel : TPanel
|
004D6775 8B80DC030000 mov eax, [eax+$03DC]
* Reference to field TPanel.Visible : Boolean
|
004D677B 80785700 cmp byte ptr [eax+$57], $00
004D677F 740E jz 004D678F
004D6781 8B45F8 mov eax, [ebp-$08]
004D6784 8B5004 mov edx, [eax+$04]
* Reference to MainForm
|
004D6787 8B45FC mov eax, [ebp-$04]
|
004D678A E86D0D0000 call 004D74FC
004D678F 8D45EC lea eax, [ebp-$14]
004D6792 33D2 xor edx, edx
* Reference to: System.@ReallocMem(Pointer;Pointer;Integer):Pointer;
|
004D6794 E82FC0F2FF call 004027C8
004D6799 33C0 xor eax, eax
004D679B 5A pop edx
004D679C 59 pop ecx
004D679D 59 pop ecx
004D679E 648910 mov fs:[eax], edx
****** FINALLY
|
* Possible String Reference to: '_^[?]?
|
004D67A1 68CE674D00 push $004D67CE
004D67A6 8D45C0 lea eax, [ebp-$40]
* Reference to: Variants.@VarClr(TVarData;TVarData);
|
004D67A9 E89A9FF3FF call 00410748
004D67AE 8D45D0 lea eax, [ebp-$30]
* Reference to: System.@LStrClr(void;void);
|
004D67B1 E8DADAF2FF call 00404290
004D67B6 8D45D4 lea eax, [ebp-$2C]
* Reference to: Variants.@VarClr(TVarData;TVarData);
|
004D67B9 E88A9FF3FF call 00410748
004D67BE 8D45F4 lea eax, [ebp-$0C]
* Reference to: System.@LStrClr(void;void);
|
004D67C1 E8CADAF2FF call 00404290
004D67C6 C3 ret
* Reference to: System.@HandleFinally;
|
004D67C7 E944D4F2FF jmp 00403C10
004D67CC EBD8 jmp 004D67A6
****** END
|
004D67CE 5F pop edi
004D67CF 5E pop esi
004D67D0 5B pop ebx
004D67D1 8BE5 mov esp, ebp
004D67D3 5D pop ebp
004D67D4 C3 ret
*)
end;
procedure TMainForm.ServerSocketClientError(Sender : TObject);
begin
(*
004D6850 55 push ebp
004D6851 8BEC mov ebp, esp
004D6853 8B4508 mov eax, [ebp+$08]
004D6856 33D2 xor edx, edx
004D6858 8910 mov [eax], edx
004D685A 8BC1 mov eax, ecx
* Reference to: ScktComp.TCustomWinSocket.Close(TCustomWinSocket);
|
004D685C E89747FBFF call 0048AFF8
004D6861 5D pop ebp
004D6862 C20800 ret $0008
*)
end;
procedure TMainForm.ToolButton9Click(Sender : TObject);
begin
(*
* Reference to: Forms.TCustomForm.Close(TCustomForm);
|
004D6868 E887E4FAFF call 00484CF4
004D686D C3 ret
*)
end;
procedure TMainForm.FormCloseQuery(Sender : TObject);
begin
(*
004D6870 55 push ebp
004D6871 8BEC mov ebp, esp
004D6873 6A00 push $00
004D6875 53 push ebx
004D6876 56 push esi
004D6877 8BF1 mov esi, ecx
004D6879 8BD8 mov ebx, eax
004D687B 33C0 xor eax, eax
004D687D 55 push ebp
004D687E 68F6684D00 push $004D68F6
***** TRY
|
004D6883 64FF30 push dword ptr fs:[eax]
004D6886 648920 mov fs:[eax], esp
* Reference to control TMainForm.AutoCheck : TToolButton
|
004D6889 8B8374030000 mov eax, [ebx+$0374]
* Reference to field TToolButton.Down : Boolean
|
004D688F 80B86A01000000 cmp byte ptr [eax+$016A], $00
004D6896 7445 jz 004D68DD
* Reference to control TMainForm.ServerSocket : TServerSocket
|
004D6898 8B833C030000 mov eax, [ebx+$033C]
* Reference to field TServerSocket.Socket : TServerWinSocket
|
004D689E 8B8090000000 mov eax, [eax+$0090]
* Reference to: ScktComp.TServerWinSocket.GetActiveConnections(TServerWinSocket):Integer;
|
004D68A4 E89F59FBFF call 0048C248
004D68A9 85C0 test eax, eax
004D68AB 7E30 jle 004D68DD
004D68AD 6821010000 push $00000121
004D68B2 8D55FC lea edx, [ebp-$04]
004D68B5 8BC3 mov eax, ebx
* Reference to: Controls.TControl.GetText(TControl):TCaption;
|
004D68B7 E84812F9FF call 00467B04
004D68BC 8B45FC mov eax, [ebp-$04]
* Reference to: System.@LStrToPChar(String):PAnsiChar;
|
004D68BF E88CDEF2FF call 00404750
004D68C4 50 push eax
* Possible String Reference to: '主控机正在监控,退出主控机所有子机?
| ??ケ;ぃ?啡贤顺雎穑?
|
004D68C5 6804694D00 push $004D6904
004D68CA 8BC3 mov eax, ebx
* Reference to: QForms.TCustomForm.GetClientHandle(TCustomForm):QWorkspaceH;
|
004D68CC E8677BF9FF call 0046E438
004D68D1 50 push eax
|
004D68D2 E82109F3FF call 004071F8
004D68D7 48 dec eax
004D68D8 0F9406 setz byte ptr [esi]
004D68DB EB03 jmp 004D68E0
004D68DD C60601 mov byte ptr [esi], $01
004D68E0 33C0 xor eax, eax
004D68E2 5A pop edx
004D68E3 59 pop ecx
004D68E4 59 pop ecx
004D68E5 648910 mov fs:[eax], edx
****** FINALLY
|
* Possible String Reference to: '^[Y]?
|
004D68E8 68FD684D00 push $004D68FD
004D68ED 8D45FC lea eax, [ebp-$04]
* Reference to: System.@LStrClr(void;void);
|
004D68F0 E89BD9F2FF call 00404290
004D68F5 C3 ret
* Reference to: System.@HandleFinally;
|
004D68F6 E915D3F2FF jmp 00403C10
004D68FB EBF0 jmp 004D68ED
****** END
|
004D68FD 5E pop esi
004D68FE 5B pop ebx
004D68FF 59 pop ecx
004D6900 5D pop ebp
004D6901 C3 ret
*)
end;
procedure TMainForm.ToolButton6Click(Sender : TObject);
begin
(*
004D6940 53 push ebx
004D6941 8BD8 mov ebx, eax
* Possible String Reference to: '上线'
|
004D6943 B868694D00 mov eax, $004D6968
|
004D6948 E85FEBFFFF call 004D54AC
004D694D 84C0 test al, al
004D694F 740D jz 004D695E
004D6951 6AFF push $FF
004D6953 33C9 xor ecx, ecx
004D6955 B208 mov dl, $08
004D6957 8BC3 mov eax, ebx
|
004D6959 E812000000 call 004D6970
004D695E 5B pop ebx
004D695F C3 ret
*)
end;
procedure TMainForm.ToolButton11Click(Sender : TObject);
begin
(*
004D69B0 53 push ebx
004D69B1 8BD8 mov ebx, eax
* Possible String Reference to: '更新挑战天堂'
|
004D69B3 B8D8694D00 mov eax, $004D69D8
|
004D69B8 E8EFEAFFFF call 004D54AC
004D69BD 84C0 test al, al
004D69BF 740D jz 004D69CE
004D69C1 6AFF push $FF
004D69C3 33C9 xor ecx, ecx
004D69C5 B20C mov dl, $0C
004D69C7 8BC3 mov eax, ebx
|
004D69C9 E8A2FFFFFF call 004D6970
004D69CE 5B pop ebx
004D69CF C3 ret
*)
end;
procedure TMainForm.ToolButton5Click(Sender : TObject);
begin
(*
004D69E8 53 push ebx
004D69E9 8BD8 mov ebx, eax
* Possible String Reference to: '关闭计算机'
|
004D69EB B8106A4D00 mov eax, $004D6A10
|
004D69F0 E8B7EAFFFF call 004D54AC
004D69F5 84C0 test al, al
004D69F7 740D jz 004D6A06
004D69F9 6AFF push $FF
004D69FB 33C9 xor ecx, ecx
004D69FD B20B mov dl, $0B
004D69FF 8BC3 mov eax, ebx
|
004D6A01 E86AFFFFFF call 004D6970
004D6A06 5B pop ebx
004D6A07 C3 ret
*)
end;
procedure TMainForm.ToolButton12Click(Sender : TObject);
begin
(*
* Reference to pointer to GlobalVar_004DCE60
|
004D6A1C 8B0D64B94D00 mov ecx, [$004DB964]
* Reference to TApplication instance
|
004D6A22 A1DCBB4D00 mov eax, dword ptr [$004DBBDC]
004D6A27 8B00 mov eax, [eax]
* Reference to class TLanOpen
|
004D6A29 8B1518144D00 mov edx, [$004D1418]
* Reference to: Forms.TApplication.CreateForm(TApplication;TComponentClass;void;void);
| or: QForms.TApplication.CreateForm(TApplication;TComponentClass;void;void);
|
004D6A2F E8F819FBFF call 0048842C
* Reference to pointer to GlobalVar_004DCE60
|
004D6A34 A164B94D00 mov eax, dword ptr [$004DB964]
004D6A39 8B00 mov eax, [eax]
004D6A3B 8B10 mov edx, [eax]
* Possible reference to virtual method TGlobalVar_004DCE60.OFFS_00EC
|
004D6A3D FF92EC000000 call dword ptr [edx+$00EC]
* Reference to pointer to GlobalVar_004DCE60
|
004D6A43 A164B94D00 mov eax, dword ptr [$004DB964]
004D6A48 8B00 mov eax, [eax]
* Reference to: System.TObject.Free(TObject);
|
004D6A4A E82DCAF2FF call 0040347C
004D6A4F C3 ret
*)
end;
procedure TMainForm.ToolButton3Click(Sender : TObject);
begin
(*
004D6A50 53 push ebx
004D6A51 8BD8 mov ebx, eax
* Possible String Reference to: '回城'
|
004D6A53 B8786A4D00 mov eax, $004D6A78
|
004D6A58 E84FEAFFFF call 004D54AC
004D6A5D 84C0 test al, al
004D6A5F 740D jz 004D6A6E
004D6A61 6AFF push $FF
004D6A63 33C9 xor ecx, ecx
004D6A65 B20A mov dl, $0A
004D6A67 8BC3 mov eax, ebx
|
004D6A69 E802FFFFFF call 004D6970
004D6A6E 5B pop ebx
004D6A6F C3 ret
*)
end;
procedure TMainForm.ToolButton4Click(Sender : TObject);
begin
(*
004D6A80 53 push ebx
004D6A81 8BD8 mov ebx, eax
* Possible String Reference to: '强退'
|
004D6A83 B8A86A4D00 mov eax, $004D6AA8
|
004D6A88 E81FEAFFFF call 004D54AC
004D6A8D 84C0 test al, al
004D6A8F 740D jz 004D6A9E
004D6A91 6AFF push $FF
004D6A93 33C9 xor ecx, ecx
004D6A95 B209 mov dl, $09
004D6A97 8BC3 mov eax, ebx
|
004D6A99 E8D2FEFFFF call 004D6970
004D6A9E 5B pop ebx
004D6A9F C3 ret
*)
end;
procedure TMainForm.N27Click(Sender : TObject);
begin
(*
004D6B0C 53 push ebx
004D6B0D 8BD8 mov ebx, eax
004D6B0F 6AFF push $FF
* Reference to control TMainForm.IDList : TListView
|
004D6B11 8B8344040000 mov eax, [ebx+$0444]
* Reference to: ComCtrls.TCustomListView.GetSelected(TCustomListView):TListItem;
| or: ComCtrls.TCustomListView.GetFocused(TCustomListView):TListItem;
|
004D6B17 E8C885F7FF call 0044F0E4
* Reference to: ComCtrls.TListItem.GetIndex(TListItem):Integer;
|
004D6B1C E8634DF7FF call 0044B884
004D6B21 8BC8 mov ecx, eax
004D6B23 B208 mov dl, $08
004D6B25 8BC3 mov eax, ebx
|
004D6B27 E884FFFFFF call 004D6AB0
004D6B2C 5B pop ebx
004D6B2D C3 ret
*)
end;
procedure TMainForm.N29Click(Sender : TObject);
begin
(*
004D6B30 53 push ebx
004D6B31 8BD8 mov ebx, eax
004D6B33 6AFF push $FF
* Reference to control TMainForm.IDList : TListView
|
004D6B35 8B8344040000 mov eax, [ebx+$0444]
* Reference to: ComCtrls.TCustomListView.GetSelected(TCustomListView):TListItem;
| or: ComCtrls.TCustomListView.GetFocused(TCustomListView):TListItem;
|
004D6B3B E8A485F7FF call 0044F0E4
* Reference to: ComCtrls.TListItem.GetIndex(TListItem):Integer;
|
004D6B40 E83F4DF7FF call 0044B884
004D6B45 8BC8 mov ecx, eax
004D6B47 B20C mov dl, $0C
004D6B49 8BC3 mov eax, ebx
|
004D6B4B E860FFFFFF call 004D6AB0
004D6B50 5B pop ebx
004D6B51 C3 ret
*)
end;
procedure TMainForm.N14Click(Sender : TObject);
begin
(*
004D6B54 53 push ebx
004D6B55 8BD8 mov ebx, eax
004D6B57 6AFF push $FF
* Reference to control TMainForm.IDList : TListView
|
004D6B59 8B8344040000 mov eax, [ebx+$0444]
* Reference to: ComCtrls.TCustomListView.GetSelected(TCustomListView):TListItem;
| or: ComCtrls.TCustomListView.GetFocused(TCustomListView):TListItem;
|
004D6B5F E88085F7FF call 0044F0E4
* Reference to: ComCtrls.TListItem.GetIndex(TListItem):Integer;
|
004D6B64 E81B4DF7FF call 0044B884
004D6B69 8BC8 mov ecx, eax
004D6B6B B20A mov dl, $0A
004D6B6D 8BC3 mov eax, ebx
|
004D6B6F E83CFFFFFF call 004D6AB0
004D6B74 5B pop ebx
004D6B75 C3 ret
*)
end;
procedure TMainForm.N15Click(Sender : TObject);
begin
(*
004D6B78 53 push ebx
004D6B79 8BD8 mov ebx, eax
004D6B7B 6AFF push $FF
* Reference to control TMainForm.IDList : TListView
|
004D6B7D 8B8344040000 mov eax, [ebx+$0444]
* Reference to: ComCtrls.TCustomListView.GetSelected(TCustomListView):TListItem;
| or: ComCtrls.TCustomListView.GetFocused(TCustomListView):TListItem;
|
004D6B83 E85C85F7FF call 0044F0E4
* Reference to: ComCtrls.TListItem.GetIndex(TListItem):Integer;
|
004D6B88 E8F74CF7FF call 0044B884
004D6B8D 8BC8 mov ecx, eax
004D6B8F B209 mov dl, $09
004D6B91 8BC3 mov eax, ebx
|
004D6B93 E818FFFFFF call 004D6AB0
004D6B98 5B pop ebx
004D6B99 C3 ret
*)
end;
procedure TMainForm.N31Click(Sender : TObject);
begin
(*
004D6B9C 53 push ebx
004D6B9D 8BD8 mov ebx, eax
004D6B9F 6AFF push $FF
* Reference to control TMainForm.IDList : TListView
|
004D6BA1 8B8344040000 mov eax, [ebx+$0444]
* Reference to: ComCtrls.TCustomListView.GetSelected(TCustomListView):TListItem;
| or: ComCtrls.TCustomListView.GetFocused(TCustomListView):TListItem;
|
004D6BA7 E83885F7FF call 0044F0E4
* Reference to: ComCtrls.TListItem.GetIndex(TListItem):Integer;
|
004D6BAC E8D34CF7FF call 0044B884
004D6BB1 8BC8 mov ecx, eax
004D6BB3 B20B mov dl, $0B
004D6BB5 8BC3 mov eax, ebx
|
004D6BB7 E8F4FEFFFF call 004D6AB0
004D6BBC 5B pop ebx
004D6BBD C3 ret
*)
end;
procedure TMainForm.ClientSocketConnect(Sender : TObject);
begin
(*
004D6BC0 55 push ebp
004D6BC1 8BEC mov ebp, esp
004D6BC3 83C4E4 add esp, -$1C
004D6BC6 53 push ebx
004D6BC7 56 push esi
004D6BC8 57 push edi
004D6BC9 33DB xor ebx, ebx
004D6BCB 895DE8 mov [ebp-$18], ebx
004D6BCE 895DE4 mov [ebp-$1C], ebx
004D6BD1 895DEC mov [ebp-$14], ebx
004D6BD4 8BF1 mov esi, ecx
004D6BD6 8BD8 mov ebx, eax
004D6BD8 33C0 xor eax, eax
004D6BDA 55 push ebp
* Possible String Reference to: '楱悟?噙^[?]?
|
004D6BDB 68636D4D00 push $004D6D63
***** TRY
|
004D6BE0 64FF30 push dword ptr fs:[eax]
004D6BE3 648920 mov fs:[eax], esp
* Possible String Reference to: '服务器已联接'
|
004D6BE6 BA7C6D4D00 mov edx, $004D6D7C
004D6BEB 8BC3 mov eax, ebx
|
004D6BED E8D2010000 call 004D6DC4
* Reference to control TMainForm.LinkSvrBtn : TToolButton
|
004D6BF2 8B8394030000 mov eax, [ebx+$0394]
004D6BF8 33D2 xor edx, edx
004D6BFA 8B08 mov ecx, [eax]
* Reference to method TToolButton.SetEnabled(Boolean)
|
004D6BFC FF5164 call dword ptr [ecx+$64]
* Reference to control TMainForm.AutoCheck : TToolButton
|
004D6BFF 8B8374030000 mov eax, [ebx+$0374]
004D6C05 B201 mov dl, $01
004D6C07 8B08 mov ecx, [eax]
* Reference to method TToolButton.SetEnabled(Boolean)
|
004D6C09 FF5164 call dword ptr [ecx+$64]
004D6C0C C745F001000000 mov dword ptr [ebp-$10], $00000001
004D6C13 C745F4983A0000 mov dword ptr [ebp-$0C], $00003A98
004D6C1A C745F801000000 mov dword ptr [ebp-$08], $00000001
004D6C21 6A00 push $00
004D6C23 6A00 push $00
004D6C25 8D45FC lea eax, [ebp-$04]
004D6C28 50 push eax
004D6C29 6A00 push $00
004D6C2B 6A00 push $00
004D6C2D 6A0C push $0C
004D6C2F 8D45F0 lea eax, [ebp-$10]
004D6C32 50 push eax
004D6C33 6804000098 push $98000004
004D6C38 8B4604 mov eax, [esi+$04]
004D6C3B 50 push eax
* Reference to: <.WSAIoctl()
|
004D6C3C E8832DFBFF call 004899C4
004D6C41 33C0 xor eax, eax
004D6C43 55 push ebp
004D6C44 68336D4D00 push $004D6D33
***** TRY
|
004D6C49 64FF30 push dword ptr fs:[eax]
004D6C4C 648920 mov fs:[eax], esp
* Reference to TLoginForm instance
|
004D6C4F A1B4BC4D00 mov eax, dword ptr [$004DBCB4]
004D6C54 8B00 mov eax, [eax]
* Reference to control TLoginForm.AutoJK : TCheckBox
|
004D6C56 8B8020030000 mov eax, [eax+$0320]
004D6C5C 8B10 mov edx, [eax]
* Reference to method TCheckBox.GetChecked()
|
004D6C5E FF92C8000000 call dword ptr [edx+$00C8]
004D6C64 8BD0 mov edx, eax
* Reference to control TMainForm.AutoCheck : TToolButton
|
004D6C66 8B8374030000 mov eax, [ebx+$0374]
* Reference to: ComCtrls.TToolButton.SetDown(TToolButton;Boolean);
|
004D6C6C E8CF9FF7FF call 00450C40
004D6C71 8D55EC lea edx, [ebp-$14]
* Reference to TLoginForm instance
|
004D6C74 A1B4BC4D00 mov eax, dword ptr [$004DBCB4]
004D6C79 8B00 mov eax, [eax]
* Reference to control TLoginForm.Edit1 : TEdit
|
004D6C7B 8B8004030000 mov eax, [eax+$0304]
* Reference to: Controls.TControl.GetText(TControl):TCaption;
|
004D6C81 E87E0EF9FF call 00467B04
004D6C86 8B45EC mov eax, [ebp-$14]
004D6C89 50 push eax
* Possible String Reference to: 'ID'
|
004D6C8A B9946D4D00 mov ecx, $004D6D94
* Possible String Reference to: 'Setup'
|
004D6C8F BAA06D4D00 mov edx, $004D6DA0
004D6C94 A1B8D44D00 mov eax, dword ptr [$004DD4B8]
004D6C99 8B18 mov ebx, [eax]
004D6C9B FF5304 call dword ptr [ebx+$04]
* Reference to TLoginForm instance
|
004D6C9E A1B4BC4D00 mov eax, dword ptr [$004DBCB4]
004D6CA3 8B00 mov eax, [eax]
* Reference to control TLoginForm.SavePW : TCheckBox
|
004D6CA5 8B801C030000 mov eax, [eax+$031C]
004D6CAB 8B10 mov edx, [eax]
* Reference to method TCheckBox.GetChecked()
|
004D6CAD FF92C8000000 call dword ptr [edx+$00C8]
004D6CB3 84C0 test al, al
004D6CB5 743C jz 004D6CF3
004D6CB7 8D55E4 lea edx, [ebp-$1C]
* Reference to TLoginForm instance
|
004D6CBA A1B4BC4D00 mov eax, dword ptr [$004DBCB4]
004D6CBF 8B00 mov eax, [eax]
* Reference to control TLoginForm.Edit2 : TEdit
|
004D6CC1 8B8008030000 mov eax, [eax+$0308]
* Reference to: Controls.TControl.GetText(TControl):TCaption;
|
004D6CC7 E8380EF9FF call 00467B04
004D6CCC 8B45E4 mov eax, [ebp-$1C]
004D6CCF 8D4DE8 lea ecx, [ebp-$18]
004D6CD2 33D2 xor edx, edx
|
004D6CD4 E80FE6FFFF call 004D52E8
004D6CD9 8B45E8 mov eax, [ebp-$18]
004D6CDC 50 push eax
* Possible String Reference to: 'PW'
|
004D6CDD B9B06D4D00 mov ecx, $004D6DB0
* Possible String Reference to: 'Setup'
|
004D6CE2 BAA06D4D00 mov edx, $004D6DA0
004D6CE7 A1B8D44D00 mov eax, dword ptr [$004DD4B8]
004D6CEC 8B18 mov ebx, [eax]
004D6CEE FF5304 call dword ptr [ebx+$04]
004D6CF1 EB14 jmp 004D6D07
* Possible String Reference to: 'PW'
|
004D6CF3 B9B06D4D00 mov ecx, $004D6DB0
* Possible String Reference to: 'Setup'
|
004D6CF8 BAA06D4D00 mov edx, $004D6DA0
004D6CFD A1B8D44D00 mov eax, dword ptr [$004DD4B8]
004D6D02 8B18 mov ebx, [eax]
004D6D04 FF5350 call dword ptr [ebx+$50]
004D6D07 6A01 push $01
* Possible String Reference to: 'Setuped'
|
004D6D09 B9BC6D4D00 mov ecx, $004D6DBC
* Possible String Reference to: 'Setup'
|
004D6D0E BAA06D4D00 mov edx, $004D6DA0
004D6D13 A1B8D44D00 mov eax, dword ptr [$004DD4B8]
004D6D18 8B18 mov ebx, [eax]
004D6D1A FF5314 call dword ptr [ebx+$14]
* Reference to TLoginForm instance
|
004D6D1D A1B4BC4D00 mov eax, dword ptr [$004DBCB4]
004D6D22 8B00 mov eax, [eax]
* Reference to: Forms.TCustomForm.Close(TCustomForm);
|
004D6D24 E8CBDFFAFF call 00484CF4
004D6D29 33C0 xor eax, eax
004D6D2B 5A pop edx
004D6D2C 59 pop ecx
004D6D2D 59 pop ecx
004D6D2E 648910 mov fs:[eax], edx
004D6D31 EB0A jmp 004D6D3D
* Reference to: System.@HandleAnyException;
|
004D6D33 E924CCF2FF jmp 0040395C
* Reference to: System.@DoneExcept;
|
004D6D38 E887CFF2FF call 00403CC4
****** END
|
004D6D3D 33C0 xor eax, eax
004D6D3F 5A pop edx
004D6D40 59 pop ecx
004D6D41 59 pop ecx
004D6D42 648910 mov fs:[eax], edx
****** FINALLY
|
* Possible String Reference to: '_^[?]?
|
004D6D45 686A6D4D00 push $004D6D6A
004D6D4A 8D45E4 lea eax, [ebp-$1C]
* Reference to: System.@LStrClr(void;void);
|
004D6D4D E83ED5F2FF call 00404290
004D6D52 8D45E8 lea eax, [ebp-$18]
* Reference to: System.@LStrClr(void;void);
|
004D6D55 E836D5F2FF call 00404290
004D6D5A 8D45EC lea eax, [ebp-$14]
* Reference to: System.@LStrClr(void;void);
|
004D6D5D E82ED5F2FF call 00404290
004D6D62 C3 ret
* Reference to: System.@HandleFinally;
|
004D6D63 E9A8CEF2FF jmp 00403C10
004D6D68 EBE0 jmp 004D6D4A
****** END
|
004D6D6A 5F pop edi
004D6D6B 5E pop esi
004D6D6C 5B pop ebx
004D6D6D 8BE5 mov esp, ebp
004D6D6F 5D pop ebp
004D6D70 C3 ret
*)
end;
procedure TMainForm.ClientSocketConnecting(Sender : TObject);
begin
(*
004D6E24 53 push ebx
004D6E25 8BD8 mov ebx, eax
* Possible String Reference to: '正在联接服务器...'
|
004D6E27 BA4C6E4D00 mov edx, $004D6E4C
004D6E2C 8BC3 mov eax, ebx
|
004D6E2E E891FFFFFF call 004D6DC4
004D6E33 33D2 xor edx, edx
* Reference to control TMainForm.LinkSvrBtn : TToolButton
|
004D6E35 8B8394030000 mov eax, [ebx+$0394]
004D6E3B 8B08 mov ecx, [eax]
* Reference to method TToolButton.SetEnabled(Boolean)
|
004D6E3D FF5164 call dword ptr [ecx+$64]
004D6E40 5B pop ebx
004D6E41 C3 ret
*)
end;
procedure TMainForm.ClientSocketDisconnect(Sender : TObject);
begin
(*
004D6E60 53 push ebx
004D6E61 8BD8 mov ebx, eax
* Possible String Reference to: '服务器断开'
|
004D6E63 BAB86E4D00 mov edx, $004D6EB8
004D6E68 8BC3 mov eax, ebx
|
004D6E6A E855FFFFFF call 004D6DC4
004D6E6F B201 mov dl, $01
* Reference to control TMainForm.LinkSvrBtn : TToolButton
|
004D6E71 8B8394030000 mov eax, [ebx+$0394]
004D6E77 8B08 mov ecx, [eax]
* Reference to method TToolButton.SetEnabled(Boolean)
|
004D6E79 FF5164 call dword ptr [ecx+$64]
004D6E7C 33D2 xor edx, edx
* Reference to control TMainForm.AutoCheck : TToolButton
|
004D6E7E 8B8374030000 mov eax, [ebx+$0374]
004D6E84 8B08 mov ecx, [eax]
* Reference to method TToolButton.SetEnabled(Boolean)
|
004D6E86 FF5164 call dword ptr [ecx+$64]
004D6E89 33D2 xor edx, edx
* Reference to control TMainForm.AutoCheck : TToolButton
|
004D6E8B 8B8374030000 mov eax, [ebx+$0374]
* Reference to: ComCtrls.TToolButton.SetDown(TToolButton;Boolean);
|
004D6E91 E8AA9DF7FF call 00450C40
004D6E96 BA080000FF mov edx, $FF000008
* Possible String Reference to: '已与服务器失去联系'
|
004D6E9B B8CC6E4D00 mov eax, $004D6ECC
|
004D6EA0 E82BE5FFFF call 004D53D0
004D6EA5 C605BCD44D0001 mov byte ptr [$004DD4BC], $01
004D6EAC 5B pop ebx
004D6EAD C3 ret
*)
end;
procedure TMainForm.ClientSocketError(Sender : TObject);
begin
(*
004D6EE0 55 push ebp
004D6EE1 8BEC mov ebp, esp
004D6EE3 8B4508 mov eax, [ebp+$08]
004D6EE6 33D2 xor edx, edx
004D6EE8 8910 mov [eax], edx
004D6EEA 5D pop ebp
004D6EEB C20800 ret $0008
*)
end;
procedure TMainForm.ToolButton10Click(Sender : TObject);
begin
(*
004D6EF0 53 push ebx
004D6EF1 8BD8 mov ebx, eax
* Possible String Reference to: '更新天堂游戏'
|
004D6EF3 B8186F4D00 mov eax, $004D6F18
|
004D6EF8 E8AFE5FFFF call 004D54AC
004D6EFD 84C0 test al, al
004D6EFF 740D jz 004D6F0E
004D6F01 6AFF push $FF
004D6F03 33C9 xor ecx, ecx
004D6F05 B20D mov dl, $0D
004D6F07 8BC3 mov eax, ebx
|
004D6F09 E862FAFFFF call 004D6970
004D6F0E 5B pop ebx
004D6F0F C3 ret
*)
end;
procedure TMainForm.LinkSvrBtnClick(Sender : TObject);
begin
(*
004D6F28 53 push ebx
004D6F29 8BD8 mov ebx, eax
* Reference to control TMainForm.ClientSocket : TClientSocket
|
004D6F2B 8B8390030000 mov eax, [ebx+$0390]
* Reference to field TClientSocket.Active : Boolean
|
004D6F31 80783000 cmp byte ptr [eax+$30], $00
004D6F35 754D jnz 004D6F84
* Reference to TLoginForm instance
|
004D6F37 8B0DB4BC4D00 mov ecx, [$004DBCB4]
* Reference to TApplication instance
|
004D6F3D A1DCBB4D00 mov eax, dword ptr [$004DBBDC]
004D6F42 8B00 mov eax, [eax]
* Reference to class TLoginForm
|
004D6F44 8B1540394D00 mov edx, [$004D3940]
* Reference to: Forms.TApplication.CreateForm(TApplication;TComponentClass;void;void);
| or: QForms.TApplication.CreateForm(TApplication;TComponentClass;void;void);
|
004D6F4A E8DD14FBFF call 0048842C
* Reference to TLoginForm instance
|
004D6F4F A1B4BC4D00 mov eax, dword ptr [$004DBCB4]
004D6F54 8B00 mov eax, [eax]
004D6F56 8B10 mov edx, [eax]
* Reference to method TLoginForm.ShowModal()
|
004D6F58 FF92EC000000 call dword ptr [edx+$00EC]
* Reference to control TMainForm.ClientSocket : TClientSocket
|
004D6F5E 8B8390030000 mov eax, [ebx+$0390]
* Reference to field TClientSocket.Active : Boolean
|
004D6F64 80783000 cmp byte ptr [eax+$30], $00
004D6F68 751A jnz 004D6F84
004D6F6A B201 mov dl, $01
* Reference to control TMainForm.LinkSpr : TToolButton
|
004D6F6C 8B8398030000 mov eax, [ebx+$0398]
* Reference to: Controls.TControl.SetVisible(TControl;Boolean);
|
004D6F72 E8AD0AF9FF call 00467A24
004D6F77 B201 mov dl, $01
* Reference to control TMainForm.LinkSvrBtn : TToolButton
|
004D6F79 8B8394030000 mov eax, [ebx+$0394]
* Reference to: Controls.TControl.SetVisible(TControl;Boolean);
|
004D6F7F E8A00AF9FF call 00467A24
004D6F84 5B pop ebx
004D6F85 C3 ret
*)
end;
procedure TMainForm.FormActivate(Sender : TObject);
begin
(*
004D6F88 56 push esi
004D6F89 803DA2D44D0000 cmp byte ptr [$004DD4A2], $00
004D6F90 750F jnz 004D6FA1
* Reference to control TMainForm.LinkSvrBtn : TToolButton
|
004D6F92 8B8094030000 mov eax, [eax+$0394]
004D6F98 66BEEBFF mov si, $FFEB
* Reference to: System.@CallDynaInst;
|
004D6F9C E8D7C6F2FF call 00403678
004D6FA1 C605A2D44D0001 mov byte ptr [$004DD4A2], $01
004D6FA8 5E pop esi
004D6FA9 C3 ret
*)
end;
procedure TMainForm.ClientSocketRead(Sender : TObject);
begin
(*
004D6FAC 53 push ebx
004D6FAD 56 push esi
004D6FAE 57 push edi
004D6FAF 55 push ebp
004D6FB0 8BF9 mov edi, ecx
004D6FB2 8BF0 mov esi, eax
004D6FB4 8BC7 mov eax, edi
* Reference to: ComCtrls.THeaderSections.Add(THeaderSections):THeaderSection;
| or: ComCtrls.TListItems.Add(TListItems):TListItem;
| or: ScktComp.TCustomWinSocket.ReceiveLength(TCustomWinSocket):Integer;
|
004D6FB6 E8B14CFBFF call 0048BC6C
004D6FBB 8BD8 mov ebx, eax
004D6FBD 8BC3 mov eax, ebx
* Reference to: SysUtils.AllocMem(Cardinal):Pointer;
|
004D6FBF E8CC16F3FF call 00408690
004D6FC4 8BE8 mov ebp, eax
004D6FC6 8BD5 mov edx, ebp
004D6FC8 8BCB mov ecx, ebx
004D6FCA 8BC7 mov eax, edi
* Reference to: ScktComp.TCustomWinSocket.ReceiveBuf(TCustomWinSocket;void;void;Integer):Integer;
|
004D6FCC E82F4BFBFF call 0048BB00
004D6FD1 8BDD mov ebx, ebp
004D6FD3 66813B5A5A cmp word ptr [ebx], $5A5A
004D6FD8 0F858D000000 jnz 004D706B
* Reference to control TMainForm.SBar : TStatusBar
|
004D6FDE 8B8638030000 mov eax, [esi+$0338]
* Reference to field TStatusBar.Panels : TStatusPanels
|
004D6FE4 8B8008020000 mov eax, [eax+$0208]
004D6FEA BA02000000 mov edx, $00000002
* Reference to: ComCtrls.TStatusPanels.GetItem(TStatusPanels;Integer):TStatusPanel;
| or: QComCtrls.TStatusPanels.GetItem(TStatusPanels;Integer):TStatusPanel;
|
004D6FEF E88C29F7FF call 00449980
* Possible String Reference to: '已收到服务器统计的封号信息...'
|
004D6FF4 BAE0704D00 mov edx, $004D70E0
* Reference to: ComCtrls.TStatusPanel.SetText(TStatusPanel;AnsiString);
| or: ComCtrls.THeaderSection.SetText(THeaderSection;AnsiString);
|
004D6FF9 E8DE28F7FF call 004498DC
004D6FFE B201 mov dl, $01
* Reference to control TMainForm.AutoCheck : TToolButton
|
004D7000 8B8674030000 mov eax, [esi+$0374]
004D7006 8B08 mov ecx, [eax]
* Reference to method TToolButton.SetEnabled(Boolean)
|
004D7008 FF5164 call dword ptr [ecx+$64]
004D700B 56 push esi
004D700C 8BF3 mov esi, ebx
004D700E BF28CF4D00 mov edi, $004DCF28
004D7013 B919010000 mov ecx, $00000119
004D7018 F3 rep
004D7019 A5 movsd
004D701A 66A5 movsw
004D701C A4 movsb
004D701D 5E pop esi
004D701E 8B86F4030000 mov eax, [esi+$03F4]
004D7024 8B802C020000 mov eax, [eax+$022C]
* Reference to: ComCtrls.TTreeNodes.BeginUpdate(TTreeNodes);
| or: ComCtrls.TListItems.BeginUpdate(TListItems);
|
004D702A E8F14AF7FF call 0044BB20
004D702F 8B86F4030000 mov eax, [esi+$03F4]
004D7035 8B802C020000 mov eax, [eax+$022C]
* Reference to: ComCtrls.TTreeNodes.GetCount(TTreeNodes):Integer;
| or: ComCtrls.TListItems.GetCount(TListItems):Integer;
|
004D703B E8CC49F7FF call 0044BA0C
004D7040 8BF8 mov edi, eax
004D7042 4F dec edi
004D7043 85FF test edi, edi
004D7045 7C11 jl 004D7058
004D7047 47 inc edi
004D7048 33DB xor ebx, ebx
004D704A 8D5301 lea edx, [ebx+$01]
004D704D 8BC6 mov eax, esi
* Reference to : TMainForm._PROC_004D77C4()
|
004D704F E870070000 call 004D77C4
004D7054 43 inc ebx
004D7055 4F dec edi
004D7056 75F2 jnz 004D704A
004D7058 8B86F4030000 mov eax, [esi+$03F4]
004D705E 8B802C020000 mov eax, [eax+$022C]
* Reference to: ComCtrls.TTreeNodes.EndUpdate(TTreeNodes);
| or: ComCtrls.TListItems.EndUpdate(TListItems);
|
004D7064 E8934CF7FF call 0044BCFC
004D7069 EB60 jmp 004D70CB
004D706B 8A4302 mov al, byte ptr [ebx+$02]
004D706E 2C06 sub al, $06
004D7070 7559 jnz 004D70CB
004D7072 8D4B04 lea ecx, [ebx+$04]
004D7075 8A5303 mov dl, byte ptr [ebx+$03]
004D7078 8BC6 mov eax, esi
|
004D707A E8110D0000 call 004D7D90
004D707F 33C0 xor eax, eax
004D7081 8A4303 mov al, byte ptr [ebx+$03]
004D7084 8D0480 lea eax, [eax+eax*4]
004D7087 8D0480 lea eax, [eax+eax*4]
004D708A 56 push esi
004D708B 8D7304 lea esi, [ebx+$04]
004D708E 8DB811CF4D00 lea edi, [eax+$4DCF11]
004D7094 B906000000 mov ecx, $00000006
004D7099 F3 rep
004D709A A5 movsd
004D709B A4 movsb
004D709C 5E pop esi
004D709D 8B86F4030000 mov eax, [esi+$03F4]
004D70A3 8B802C020000 mov eax, [eax+$022C]
* Reference to: ComCtrls.TTreeNodes.BeginUpdate(TTreeNodes);
| or: ComCtrls.TListItems.BeginUpdate(TListItems);
|
004D70A9 E8724AF7FF call 0044BB20
004D70AE 33D2 xor edx, edx
004D70B0 8A5303 mov dl, byte ptr [ebx+$03]
004D70B3 8BC6 mov eax, esi
* Reference to : TMainForm._PROC_004D77C4()
|
004D70B5 E80A070000 call 004D77C4
004D70BA 8B86F4030000 mov eax, [esi+$03F4]
004D70C0 8B802C020000 mov eax, [eax+$022C]
* Reference to: ComCtrls.TTreeNodes.EndUpdate(TTreeNodes);
| or: ComCtrls.TListItems.EndUpdate(TListItems);
|
004D70C6 E8314CF7FF call 0044BCFC
004D70CB 8BC5 mov eax, ebp
* Reference to: System.@FreeMem(Pointer):Integer;
|
004D70CD E8D6B6F2FF call 004027A8
004D70D2 5D pop ebp
004D70D3 5F pop edi
004D70D4 5E pop esi
004D70D5 5B pop ebx
004D70D6 C3 ret
*)
end;
procedure TMainForm.PopupMenu1Popup(Sender : TObject);
begin
(*
004D7100 53 push ebx
004D7101 56 push esi
004D7102 57 push edi
004D7103 55 push ebp
004D7104 8BF8 mov edi, eax
004D7106 8B8704030000 mov eax, [edi+$0304]
* Reference to field TMainForm.OFFS_0034
|
004D710C 8B4034 mov eax, [eax+$34]
* Reference to: Menus.TMenuItem.GetCount(TMenuItem):Integer;
|
004D710F E8102CFAFF call 00479D24
004D7114 8BF0 mov esi, eax
004D7116 4E dec esi
004D7117 85F6 test esi, esi
004D7119 7C36 jl 004D7151
004D711B 46 inc esi
004D711C 33ED xor ebp, ebp
004D711E 8B8704030000 mov eax, [edi+$0304]
004D7124 8B4034 mov eax, [eax+$34]
004D7127 8BD5 mov edx, ebp
* Reference to: Menus.TMenuItem.GetItem(TMenuItem;Integer):TMenuItem;
|
004D7129 E8062CFAFF call 00479D34
004D712E 8BD8 mov ebx, eax
004D7130 837B0C01 cmp dword ptr [ebx+$0C], +$01
004D7134 7517 jnz 004D714D
004D7136 8B87F4030000 mov eax, [edi+$03F4]
* Reference to: ComCtrls.TCustomListView.GetSelected(TCustomListView):TListItem;
| or: ComCtrls.TCustomListView.GetFocused(TCustomListView):TListItem;
|
004D713C E8A37FF7FF call 0044F0E4
004D7141 85C0 test eax, eax
004D7143 0F95C2 setnz dl
004D7146 8BC3 mov eax, ebx
* Reference to: Menus.TMenuItem.SetEnabled(TMenuItem;Boolean);
|
004D7148 E8032BFAFF call 00479C50
004D714D 45 inc ebp
004D714E 4E dec esi
004D714F 75CD jnz 004D711E
004D7151 5D pop ebp
004D7152 5F pop edi
004D7153 5E pop esi
004D7154 5B pop ebx
004D7155 C3 ret
*)
end;
procedure TMainForm.VBtnClick(Sender : TObject);
begin
(*
004D7158 56 push esi
004D7159 57 push edi
004D715A 8BF0 mov esi, eax
* Reference to control TMainForm.IDList : TListView
|
004D715C 8BBE44040000 mov edi, [esi+$0444]
004D7162 80BF1502000000 cmp byte ptr [edi+$0215], $00
004D7169 7529 jnz 004D7194
004D716B B203 mov dl, $03
004D716D 8BC7 mov eax, edi
004D716F 8B08 mov ecx, [eax]
* Reference to method TListView.ViewStyle()
|
004D7171 FF9128010000 call dword ptr [ecx+$0128]
004D7177 B201 mov dl, $01
* Reference to control TMainForm.VBtn2 : TToolButton
|
004D7179 8B863C040000 mov eax, [esi+$043C]
* Reference to: ComCtrls.TToolButton.SetDown(TToolButton;Boolean);
|
004D717F E8BC9AF7FF call 00450C40
004D7184 B201 mov dl, $01
* Reference to control TMainForm.VPop2 : TMenuItem
|
004D7186 8B8620030000 mov eax, [esi+$0320]
* Reference to: Menus.TMenuItem.SetChecked(TMenuItem;Boolean);
|
004D718C E86B2AFAFF call 00479BFC
004D7191 5F pop edi
004D7192 5E pop esi
004D7193 C3 ret
004D7194 33D2 xor edx, edx
004D7196 8BC7 mov eax, edi
004D7198 8B08 mov ecx, [eax]
004D719A FF9128010000 call dword ptr [ecx+$0128]
004D71A0 B201 mov dl, $01
004D71A2 8B8638040000 mov eax, [esi+$0438]
* Reference to: ComCtrls.TToolButton.SetDown(TToolButton;Boolean);
|
004D71A8 E8939AF7FF call 00450C40
004D71AD B201 mov dl, $01
004D71AF 8B861C030000 mov eax, [esi+$031C]
* Reference to: Menus.TMenuItem.SetChecked(TMenuItem;Boolean);
|
004D71B5 E8422AFAFF call 00479BFC
004D71BA 5F pop edi
004D71BB 5E pop esi
004D71BC C3 ret
*)
end;
procedure TMainForm.IDListDblClick(Sender : TObject);
begin
(*
004D71C0 53 push ebx
004D71C1 8BD8 mov ebx, eax
* Reference to control TMainForm.IDList : TListView
|
004D71C3 8B8344040000 mov eax, [ebx+$0444]
* Reference to: ComCtrls.TCustomListView.GetSelected(TCustomListView):TListItem;
| or: ComCtrls.TCustomListView.GetFocused(TCustomListView):TListItem;
|
004D71C9 E8167FF7FF call 0044F0E4
004D71CE 85C0 test eax, eax
004D71D0 743E jz 004D7210
* Reference to control TMainForm.ScrPanel : TPanel
|
004D71D2 8B83DC030000 mov eax, [ebx+$03DC]
* Reference to: Controls.TControl.Show(TControl);
|
004D71D8 E8570EF9FF call 00468034
* Reference to control TMainForm.ScrPanel : TPanel
|
004D71DD 8B83DC030000 mov eax, [ebx+$03DC]
* Reference to: Controls.TControl.BringToFront(TControl);
|
004D71E3 E87C0BF9FF call 00467D64
* Reference to control TMainForm.IDList : TListView
|
004D71E8 8B8344040000 mov eax, [ebx+$0444]
* Reference to: ComCtrls.TCustomListView.GetSelected(TCustomListView):TListItem;
| or: ComCtrls.TCustomListView.GetFocused(TCustomListView):TListItem;
|
004D71EE E8F17EF7FF call 0044F0E4
* Reference to: ComCtrls.TListItem.GetIndex(TListItem):Integer;
|
004D71F3 E88C46F7FF call 0044B884
004D71F8 8BD0 mov edx, eax
004D71FA 42 inc edx
* Reference to control TMainForm.MemTable : TkbmMemTable
|
004D71FB 8B83A0030000 mov eax, [ebx+$03A0]
004D7201 8B08 mov ecx, [eax]
* Possible reference to virtual method TkbmMemTable.OFFS_01A0
|
004D7203 FF91A0010000 call dword ptr [ecx+$01A0]
004D7209 C605A8D44D0000 mov byte ptr [$004DD4A8], $00
004D7210 5B pop ebx
004D7211 C3 ret
*)
end;
procedure TMainForm.SpeedButton1Click(Sender : TObject);
begin
(*
004D73F4 55 push ebp
004D73F5 8BEC mov ebp, esp
004D73F7 33C9 xor ecx, ecx
004D73F9 51 push ecx
004D73FA 51 push ecx
004D73FB 51 push ecx
004D73FC 51 push ecx
004D73FD 51 push ecx
004D73FE 53 push ebx
004D73FF 56 push esi
004D7400 8BD8 mov ebx, eax
004D7402 33C0 xor eax, eax
004D7404 55 push ebp
* Possible String Reference to: '?球?柁[?]?
|
004D7405 68CD744D00 push $004D74CD
***** TRY
|
004D740A 64FF30 push dword ptr fs:[eax]
004D740D 648920 mov fs:[eax], esp
004D7410 A0DC744D00 mov al, byte ptr [$004D74DC]
004D7415 50 push eax
004D7416 8D55EC lea edx, [ebp-$14]
* Reference to control TMainForm.LocaIDEdit : TEdit
|
004D7419 8B83D0030000 mov eax, [ebx+$03D0]
* Reference to: Controls.TControl.GetText(TControl):TCaption;
|
004D741F E8E006F9FF call 00467B04
004D7424 8B55EC mov edx, [ebp-$14]
004D7427 8D45F0 lea eax, [ebp-$10]
* Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString);
|
004D742A E841D9F3FF call 00414D70
004D742F 8D4DF0 lea ecx, [ebp-$10]
* Possible String Reference to: 'GameID'
|
004D7432 BAE8744D00 mov edx, $004D74E8
* Reference to control TMainForm.MemTable : TkbmMemTable
|
004D7437 8B83A0030000 mov eax, [ebx+$03A0]
004D743D 8B30 mov esi, [eax]
* Possible reference to virtual method TkbmMemTable.OFFS_0244
|
004D743F FF9644020000 call dword ptr [esi+$0244]
004D7445 84C0 test al, al
004D7447 7458 jz 004D74A1
* Reference to control TMainForm.MemTable : TkbmMemTable
|
004D7449 8B83A0030000 mov eax, [ebx+$03A0]
004D744F 8B10 mov edx, [eax]
* Possible reference to virtual method TkbmMemTable.OFFS_0150
|
004D7451 FF9250010000 call dword ptr [edx+$0150]
004D7457 8BD0 mov edx, eax
004D7459 4A dec edx
* Reference to control TMainForm.IDList : TListView
|
004D745A 8B8344040000 mov eax, [ebx+$0444]
004D7460 8B08 mov ecx, [eax]
* Possible reference to virtual method TListView.OFFS_00D0
|
004D7462 FF91D0000000 call dword ptr [ecx+$00D0]
* Reference to control TMainForm.MemTable : TkbmMemTable
|
004D7468 8B83A0030000 mov eax, [ebx+$03A0]
004D746E 8B10 mov edx, [eax]
* Possible reference to virtual method TkbmMemTable.OFFS_0150
|
004D7470 FF9250010000 call dword ptr [edx+$0150]
004D7476 8BD0 mov edx, eax
004D7478 4A dec edx
* Reference to control TMainForm.IDList : TListView
|
004D7479 8B8344040000 mov eax, [ebx+$0444]
* Reference to field TListView.Items : TListItems
|
004D747F 8B802C020000 mov eax, [eax+$022C]
* Reference to: ComCtrls.TListItems.GetItem(TListItems;Integer):TListItem;
|
004D7485 E8B245F7FF call 0044BA3C
004D748A B201 mov dl, $01
* Reference to: ComCtrls.TListItem.MakeVisible(TListItem;Boolean);
|
004D748C E8EF3EF7FF call 0044B380
* Reference to control TMainForm.IDList : TListView
|
004D7491 8B8344040000 mov eax, [ebx+$0444]
004D7497 8B10 mov edx, [eax]
* Reference to method TListView.SetFocus()
|
004D7499 FF92C4000000 call dword ptr [edx+$00C4]
004D749F EB0E jmp 004D74AF
* Reference to control TMainForm.LocaIDEdit : TEdit
|
004D74A1 8B83D0030000 mov eax, [ebx+$03D0]
004D74A7 8B10 mov edx, [eax]
* Reference to method TEdit.SetFocus()
|
004D74A9 FF92C4000000 call dword ptr [edx+$00C4]
004D74AF 33C0 xor eax, eax
004D74B1 5A pop edx
004D74B2 59 pop ecx
004D74B3 59 pop ecx
004D74B4 648910 mov fs:[eax], edx
****** FINALLY
|
* Possible String Reference to: '^[?]?
|
004D74B7 68D4744D00 push $004D74D4
004D74BC 8D45EC lea eax, [ebp-$14]
* Reference to: System.@LStrClr(void;void);
|
004D74BF E8CCCDF2FF call 00404290
004D74C4 8D45F0 lea eax, [ebp-$10]
* Reference to: Variants.@VarClr(TVarData;TVarData);
|
004D74C7 E87C92F3FF call 00410748
004D74CC C3 ret
* Reference to: System.@HandleFinally;
|
004D74CD E93EC7F2FF jmp 00403C10
004D74D2 EBE8 jmp 004D74BC
****** END
|
004D74D4 5E pop esi
004D74D5 5B pop ebx
004D74D6 8BE5 mov esp, ebp
004D74D8 5D pop ebp
004D74D9 C3 ret
*)
end;
procedure TMainForm.ToolButton15Click(Sender : TObject);
begin
(*
* Reference to control TMainForm.ScrPanel : TPanel
|
004D74F0 8B80DC030000 mov eax, [eax+$03DC]
* Reference to: Controls.TWinControl.Realign(TWinControl);
|
004D74F6 E8310BF9FF call 0046802C
004D74FB C3 ret
*)
end;
procedure TMainForm.N28Click(Sender : TObject);
begin
(*
004D752C 53 push ebx
004D752D 8BD8 mov ebx, eax
004D752F 6AFF push $FF
* Reference to control TMainForm.IDList : TListView
|
004D7531 8B8344040000 mov eax, [ebx+$0444]
* Reference to: ComCtrls.TCustomListView.GetSelected(TCustomListView):TListItem;
| or: ComCtrls.TCustomListView.GetFocused(TCustomListView):TListItem;
|
004D7537 E8A87BF7FF call 0044F0E4
* Reference to: ComCtrls.TListItem.GetIndex(TListItem):Integer;
|
004D753C E84343F7FF call 0044B884
004D7541 8BC8 mov ecx, eax
004D7543 B20D mov dl, $0D
004D7545 8BC3 mov eax, ebx
|
004D7547 E864F5FFFF call 004D6AB0
004D754C 5B pop ebx
004D754D C3 ret
*)
end;
procedure TMainForm.PopupMenu2Popup(Sender : TObject);
begin
(*
004D7550 53 push ebx
004D7551 56 push esi
004D7552 57 push edi
004D7553 55 push ebp
004D7554 8BF8 mov edi, eax
004D7556 8B8714030000 mov eax, [edi+$0314]
* Reference to field TMainForm.OFFS_0034
|
004D755C 8B4034 mov eax, [eax+$34]
* Reference to: Menus.TMenuItem.GetCount(TMenuItem):Integer;
|
004D755F E8C027FAFF call 00479D24
004D7564 8BF0 mov esi, eax
004D7566 4E dec esi
004D7567 85F6 test esi, esi
004D7569 7C36 jl 004D75A1
004D756B 46 inc esi
004D756C 33ED xor ebp, ebp
004D756E 8B8714030000 mov eax, [edi+$0314]
004D7574 8B4034 mov eax, [eax+$34]
004D7577 8BD5 mov edx, ebp
* Reference to: Menus.TMenuItem.GetItem(TMenuItem;Integer):TMenuItem;
|
004D7579 E8B627FAFF call 00479D34
004D757E 8BD8 mov ebx, eax
004D7580 837B0C01 cmp dword ptr [ebx+$0C], +$01
004D7584 7517 jnz 004D759D
004D7586 8B8744040000 mov eax, [edi+$0444]
* Reference to: ComCtrls.TCustomListView.GetSelected(TCustomListView):TListItem;
| or: ComCtrls.TCustomListView.GetFocused(TCustomListView):TListItem;
|
004D758C E8537BF7FF call 0044F0E4
004D7591 85C0 test eax, eax
004D7593 0F95C2 setnz dl
004D7596 8BC3 mov eax, ebx
* Reference to: Menus.TMenuItem.SetEnabled(TMenuItem;Boolean);
|
004D7598 E8B326FAFF call 00479C50
004D759D 45 inc ebp
004D759E 4E dec esi
004D759F 75CD jnz 004D756E
004D75A1 5D pop ebp
004D75A2 5F pop edi
004D75A3 5E pop esi
004D75A4 5B pop ebx
004D75A5 C3 ret
*)
end;
procedure TMainForm.AutoCheckClick(Sender : TObject);
begin
(*
004D75A8 53 push ebx
004D75A9 8BD8 mov ebx, eax
* Reference to control TMainForm.AutoCheck : TToolButton
|
004D75AB 8B8374030000 mov eax, [ebx+$0374]
* Reference to field TToolButton.Down : Boolean
|
004D75B1 80B86A01000000 cmp byte ptr [eax+$016A], $00
004D75B8 0F8499000000 jz 004D7657
* Reference to TOptionForm instance
|
004D75BE A1C0BD4D00 mov eax, dword ptr [$004DBDC0]
004D75C3 8B00 mov eax, [eax]
004D75C5 8B10 mov edx, [eax]
* Reference to method TOptionForm.ShowModal()
|
004D75C7 FF92EC000000 call dword ptr [edx+$00EC]
004D75CD 48 dec eax
004D75CE 740D jz 004D75DD
004D75D0 33D2 xor edx, edx
* Reference to control TMainForm.AutoCheck : TToolButton
|
004D75D2 8B8374030000 mov eax, [ebx+$0374]
* Reference to: ComCtrls.TToolButton.SetDown(TToolButton;Boolean);
|
004D75D8 E86396F7FF call 00450C40
* Reference to TOptionForm instance
|
004D75DD A1C0BD4D00 mov eax, dword ptr [$004DBDC0]
004D75E2 8B00 mov eax, [eax]
* Reference to control TOptionForm.GMROOMRadio : TRadioGroup
|
004D75E4 8B80F8020000 mov eax, [eax+$02F8]
* Reference to field TRadioGroup.ItemIndex : Integer
|
004D75EA 8B8018020000 mov eax, [eax+$0218]
004D75F0 50 push eax
* Possible String Reference to: 'GmRoomRadio'
|
004D75F1 B964764D00 mov ecx, $004D7664
* Possible String Reference to: 'Setup'
|
004D75F6 BA78764D00 mov edx, $004D7678
004D75FB A1B8D44D00 mov eax, dword ptr [$004DD4B8]
004D7600 8B18 mov ebx, [eax]
004D7602 FF530C call dword ptr [ebx+$0C]
* Reference to TOptionForm instance
|
004D7605 A1C0BD4D00 mov eax, dword ptr [$004DBDC0]
004D760A 8B00 mov eax, [eax]
* Reference to control TOptionForm.SeeGMRadio : TRadioGroup
|
004D760C 8B8004030000 mov eax, [eax+$0304]
* Reference to field TRadioGroup.ItemIndex : Integer
|
004D7612 8B8018020000 mov eax, [eax+$0218]
004D7618 50 push eax
* Possible String Reference to: 'SeeGMRadio'
|
004D7619 B988764D00 mov ecx, $004D7688
* Possible String Reference to: 'Setup'
|
004D761E BA78764D00 mov edx, $004D7678
004D7623 A1B8D44D00 mov eax, dword ptr [$004DD4B8]
004D7628 8B18 mov ebx, [eax]
004D762A FF530C call dword ptr [ebx+$0C]
* Reference to TOptionForm instance
|
004D762D A1C0BD4D00 mov eax, dword ptr [$004DBDC0]
004D7632 8B00 mov eax, [eax]
* Reference to control TOptionForm.AutoNext : TCheckBox
|
004D7634 8B8008030000 mov eax, [eax+$0308]
004D763A 8B10 mov edx, [eax]
* Reference to method TCheckBox.GetChecked()
|
004D763C FF92C8000000 call dword ptr [edx+$00C8]
004D7642 50 push eax
* Possible String Reference to: 'AutoNext'
|
004D7643 B99C764D00 mov ecx, $004D769C
* Possible String Reference to: 'Setup'
|
004D7648 BA78764D00 mov edx, $004D7678
004D764D A1B8D44D00 mov eax, dword ptr [$004DD4B8]
004D7652 8B18 mov ebx, [eax]
004D7654 FF5314 call dword ptr [ebx+$14]
004D7657 5B pop ebx
004D7658 C3 ret
*)
end;
procedure TMainForm.ServerInfoListCustomDrawItem(Sender : TObject);
begin
(*
004D76A8 55 push ebp
004D76A9 8BEC mov ebp, esp
004D76AB 83C4F0 add esp, -$10
004D76AE 53 push ebx
004D76AF 56 push esi
004D76B0 8BD9 mov ebx, ecx
004D76B2 8BF2 mov esi, edx
004D76B4 8BC3 mov eax, ebx
* Reference to: ComCtrls.TListItem.GetIndex(TListItem):Integer;
|
004D76B6 E8C941F7FF call 0044B884
004D76BB 83F82A cmp eax, +$2A
004D76BE 0F8FC0000000 jnle 004D7784
004D76C4 8BC3 mov eax, ebx
* Reference to: ComCtrls.TListItem.GetIndex(TListItem):Integer;
|
004D76C6 E8B941F7FF call 0044B884
004D76CB 8D0480 lea eax, [eax+eax*4]
004D76CE 8D0480 lea eax, [eax+eax*4]
004D76D1 DD802DCF4D00 fld qword ptr [eax+$4DCF2D]
004D76D7 D81D8C774D00 fcomp dword ptr [$004D778C]
004D76DD DFE0 fstsw ax
004D76DF 9E sahf
004D76E0 7722 jnbe 004D7704
004D76E2 8BC3 mov eax, ebx
* Reference to: ComCtrls.TListItem.GetIndex(TListItem):Integer;
|
004D76E4 E89B41F7FF call 0044B884
004D76E9 8D0480 lea eax, [eax+eax*4]
004D76EC 8D0480 lea eax, [eax+eax*4]
004D76EF DD8037CF4D00 fld qword ptr [eax+$4DCF37]
004D76F5 D81D8C774D00 fcomp dword ptr [$004D778C]
004D76FB DFE0 fstsw ax
004D76FD 9E sahf
004D76FE 0F8680000000 jbe 004D7784
004D7704 8BC3 mov eax, ebx
* Reference to: ComCtrls.TListItem.GetIndex(TListItem):Integer;
|
004D7706 E87941F7FF call 0044B884
004D770B 8D0480 lea eax, [eax+eax*4]
004D770E 8D0480 lea eax, [eax+eax*4]
004D7711 052DCF4D00 add eax, +$004DCF2D
004D7716 50 push eax
* Reference to: SysUtils.Now:TDateTime;
|
004D7717 E82037F3FF call 0040AE3C
004D771C 58 pop eax
004D771D DC20 fsub qword ptr [eax]
004D771F DD5DF8 fstp qword ptr [ebp-$08]
004D7722 9B wait
004D7723 8BC3 mov eax, ebx
* Reference to: ComCtrls.TListItem.GetIndex(TListItem):Integer;
|
004D7725 E85A41F7FF call 0044B884
004D772A 8D0480 lea eax, [eax+eax*4]
004D772D 8D0480 lea eax, [eax+eax*4]
004D7730 0537CF4D00 add eax, +$004DCF37
004D7735 50 push eax
* Reference to: SysUtils.Now:TDateTime;
|
004D7736 E80137F3FF call 0040AE3C
004D773B 58 pop eax
004D773C DC20 fsub qword ptr [eax]
004D773E DD5DF0 fstp qword ptr [ebp-$10]
004D7741 9B wait
004D7742 DD45F8 fld qword ptr [ebp-$08]
004D7745 D81D90774D00 fcomp dword ptr [$004D7790]
004D774B DFE0 fstsw ax
004D774D 9E sahf
004D774E 720E jb 004D775E
004D7750 DD45F0 fld qword ptr [ebp-$10]
004D7753 D81D90774D00 fcomp dword ptr [$004D7790]
004D7759 DFE0 fstsw ax
004D775B 9E sahf
004D775C 7326 jnb 004D7784
004D775E 8B8610020000 mov eax, [esi+$0210]
004D7764 8B4014 mov eax, [eax+$14]
004D7767 BA80000000 mov edx, $00000080
* Reference to: Graphics.TBrush.SetColor(TBrush;TColor);
|
004D776C E8472EF5FF call 0042A5B8
004D7771 8B8610020000 mov eax, [esi+$0210]
004D7777 8B400C mov eax, [eax+$0C]
004D777A BAFFFFFF00 mov edx, $00FFFFFF
* Reference to: Graphics.TFont.SetColor(TFont;TColor);
|
004D777F E86826F5FF call 00429DEC
004D7784 5E pop esi
004D7785 5B pop ebx
004D7786 8BE5 mov esp, ebp
004D7788 5D pop ebp
004D7789 C20800 ret $0008
*)
end;
procedure TMainForm.IDListCustomDrawItem(Sender : TObject);
begin
(*
004D7794 55 push ebp
004D7795 8BEC mov ebp, esp
004D7797 53 push ebx
004D7798 56 push esi
004D7799 8BD9 mov ebx, ecx
004D779B 8BF2 mov esi, edx
004D779D 8BC3 mov eax, ebx
* Reference to: ComCtrls.TListItem.GetIndex(TListItem):Integer;
|
004D779F E8E040F7FF call 0044B884
004D77A4 A801 test al, $01
004D77A6 7513 jnz 004D77BB
004D77A8 8B8610020000 mov eax, [esi+$0210]
004D77AE 8B4014 mov eax, [eax+$14]
004D77B1 BAF2F2F200 mov edx, $00F2F2F2
* Reference to: Graphics.TBrush.SetColor(TBrush;TColor);
|
004D77B6 E8FD2DF5FF call 0042A5B8
004D77BB 5E pop esi
004D77BC 5B pop ebx
004D77BD 5D pop ebp
004D77BE C20800 ret $0008
*)
end;
procedure TMainForm.N17Click(Sender : TObject);
begin
(*
004D7A5C 53 push ebx
004D7A5D 51 push ecx
004D7A5E 8BD8 mov ebx, eax
* Reference to TGJSetupForm instance
|
004D7A60 8B0D50BB4D00 mov ecx, [$004DBB50]
* Reference to TApplication instance
|
004D7A66 A1DCBB4D00 mov eax, dword ptr [$004DBBDC]
004D7A6B 8B00 mov eax, [eax]
* Reference to class TGJSetupForm
|
004D7A6D 8B1500434D00 mov edx, [$004D4300]
* Reference to: Forms.TApplication.CreateForm(TApplication;TComponentClass;void;void);
| or: QForms.TApplication.CreateForm(TApplication;TComponentClass;void;void);
|
004D7A73 E8B409FBFF call 0048842C
* Reference to TGJSetupForm instance
|
004D7A78 A150BB4D00 mov eax, dword ptr [$004DBB50]
004D7A7D 8B00 mov eax, [eax]
004D7A7F 8B10 mov edx, [eax]
* Reference to method TGJSetupForm.ShowModal()
|
004D7A81 FF92EC000000 call dword ptr [edx+$00EC]
004D7A87 48 dec eax
004D7A88 7556 jnz 004D7AE0
004D7A8A C60424FF mov byte ptr [esp], $FF
* Reference to TGJSetupForm instance
|
004D7A8E A150BB4D00 mov eax, dword ptr [$004DBB50]
004D7A93 8B00 mov eax, [eax]
* Reference to control TGJSetupForm.BBCheck : TCheckBox
|
004D7A95 8B80F8020000 mov eax, [eax+$02F8]
004D7A9B 8B10 mov edx, [eax]
* Reference to method TCheckBox.GetChecked()
|
004D7A9D FF92C8000000 call dword ptr [edx+$00C8]
004D7AA3 88442401 mov [esp+$01], al
* Reference to TGJSetupForm instance
|
004D7AA7 A150BB4D00 mov eax, dword ptr [$004DBB50]
004D7AAC 8B00 mov eax, [eax]
* Reference to control TGJSetupForm.CKCheck : TCheckBox
|
004D7AAE 8B80FC020000 mov eax, [eax+$02FC]
004D7AB4 8B10 mov edx, [eax]
* Reference to method TCheckBox.GetChecked()
|
004D7AB6 FF92C8000000 call dword ptr [edx+$00C8]
004D7ABC 88442402 mov [esp+$02], al
004D7AC0 8BC4 mov eax, esp
004D7AC2 8B00 mov eax, [eax]
004D7AC4 50 push eax
* Reference to control TMainForm.IDList : TListView
|
004D7AC5 8B8344040000 mov eax, [ebx+$0444]
* Reference to: ComCtrls.TCustomListView.GetSelected(TCustomListView):TListItem;
| or: ComCtrls.TCustomListView.GetFocused(TCustomListView):TListItem;
|
004D7ACB E81476F7FF call 0044F0E4
* Reference to: ComCtrls.TListItem.GetIndex(TListItem):Integer;
|
004D7AD0 E8AF3DF7FF call 0044B884
004D7AD5 8BC8 mov ecx, eax
004D7AD7 B211 mov dl, $11
004D7AD9 8BC3 mov eax, ebx
|
004D7ADB E8D0EFFFFF call 004D6AB0
* Reference to TGJSetupForm instance
|
004D7AE0 A150BB4D00 mov eax, dword ptr [$004DBB50]
004D7AE5 8B00 mov eax, [eax]
* Reference to: System.TObject.Free(TObject);
|
004D7AE7 E890B9F2FF call 0040347C
004D7AEC 5A pop edx
004D7AED 5B pop ebx
004D7AEE C3 ret
*)
end;
procedure TMainForm.N4Click(Sender : TObject);
begin
(*
004D7AF0 55 push ebp
004D7AF1 8BEC mov ebp, esp
004D7AF3 6A00 push $00
004D7AF5 53 push ebx
004D7AF6 8BD8 mov ebx, eax
004D7AF8 33C0 xor eax, eax
004D7AFA 55 push ebp
* Possible String Reference to: '?莉?疔Y]?
|
004D7AFB 687A7B4D00 push $004D7B7A
***** TRY
|
004D7B00 64FF30 push dword ptr fs:[eax]
004D7B03 648920 mov fs:[eax], esp
* Reference to control TMainForm.ServerInfoList : TListView
|
004D7B06 8B83F4030000 mov eax, [ebx+$03F4]
* Reference to: ComCtrls.TCustomListView.GetSelected(TCustomListView):TListItem;
| or: ComCtrls.TCustomListView.GetFocused(TCustomListView):TListItem;
|
004D7B0C E8D375F7FF call 0044F0E4
004D7B11 85C0 test eax, eax
004D7B13 744F jz 004D7B64
* Reference to control TMainForm.ServerInfoList : TListView
|
004D7B15 8B83F4030000 mov eax, [ebx+$03F4]
* Reference to: ComCtrls.TCustomListView.GetSelected(TCustomListView):TListItem;
| or: ComCtrls.TCustomListView.GetFocused(TCustomListView):TListItem;
|
004D7B1B E8C475F7FF call 0044F0E4
* Reference to: ComCtrls.TListItem.GetIndex(TListItem):Integer;
|
004D7B20 E85F3DF7FF call 0044B884
004D7B25 40 inc eax
004D7B26 8D55FC lea edx, [ebp-$04]
* Reference to: SysUtils.IntToStr(Integer):AnsiString;overload;
|
004D7B29 E80E12F3FF call 00408D3C
004D7B2E 8D45FC lea eax, [ebp-$04]
* Possible String Reference to: '服回城'
|
004D7B31 BA907B4D00 mov edx, $004D7B90
* Reference to: System.@LStrCat;
|
004D7B36 E81DCAF2FF call 00404558
004D7B3B 8B45FC mov eax, [ebp-$04]
|
004D7B3E E869D9FFFF call 004D54AC
004D7B43 84C0 test al, al
004D7B45 741D jz 004D7B64
* Reference to control TMainForm.ServerInfoList : TListView
|
004D7B47 8B83F4030000 mov eax, [ebx+$03F4]
* Reference to: ComCtrls.TCustomListView.GetSelected(TCustomListView):TListItem;
| or: ComCtrls.TCustomListView.GetFocused(TCustomListView):TListItem;
|
004D7B4D E89275F7FF call 0044F0E4
* Reference to: ComCtrls.TListItem.GetIndex(TListItem):Integer;
|
004D7B52 E82D3DF7FF call 0044B884
004D7B57 40 inc eax
004D7B58 50 push eax
004D7B59 33C9 xor ecx, ecx
004D7B5B B20A mov dl, $0A
004D7B5D 8BC3 mov eax, ebx
|
004D7B5F E80CEEFFFF call 004D6970
004D7B64 33C0 xor eax, eax
004D7B66 5A pop edx
004D7B67 59 pop ecx
004D7B68 59 pop ecx
004D7B69 648910 mov fs:[eax], edx
****** FINALLY
|
* Possible String Reference to: '[Y]?
|
004D7B6C 68817B4D00 push $004D7B81
004D7B71 8D45FC lea eax, [ebp-$04]
* Reference to: System.@LStrClr(void;void);
|
004D7B74 E817C7F2FF call 00404290
004D7B79 C3 ret
* Reference to: System.@HandleFinally;
|
004D7B7A E991C0F2FF jmp 00403C10
004D7B7F EBF0 jmp 004D7B71
****** END
|
004D7B81 5B pop ebx
004D7B82 59 pop ecx
004D7B83 5D pop ebp
004D7B84 C3 ret
*)
end;
procedure TMainForm.N5Click(Sender : TObject);
begin
(*
004D7B98 55 push ebp
004D7B99 8BEC mov ebp, esp
004D7B9B 6A00 push $00
004D7B9D 53 push ebx
004D7B9E 8BD8 mov ebx, eax
004D7BA0 33C0 xor eax, eax
004D7BA2 55 push ebp
* Possible String Reference to: '殚框?疔Y]?
|
004D7BA3 68227C4D00 push $004D7C22
***** TRY
|
004D7BA8 64FF30 push dword ptr fs:[eax]
004D7BAB 648920 mov fs:[eax], esp
* Reference to control TMainForm.ServerInfoList : TListView
|
004D7BAE 8B83F4030000 mov eax, [ebx+$03F4]
* Reference to: ComCtrls.TCustomListView.GetSelected(TCustomListView):TListItem;
| or: ComCtrls.TCustomListView.GetFocused(TCustomListView):TListItem;
|
004D7BB4 E82B75F7FF call 0044F0E4
004D7BB9 85C0 test eax, eax
004D7BBB 744F jz 004D7C0C
* Reference to control TMainForm.ServerInfoList : TListView
|
004D7BBD 8B83F4030000 mov eax, [ebx+$03F4]
* Reference to: ComCtrls.TCustomListView.GetSelected(TCustomListView):TListItem;
| or: ComCtrls.TCustomListView.GetFocused(TCustomListView):TListItem;
|
004D7BC3 E81C75F7FF call 0044F0E4
* Reference to: ComCtrls.TListItem.GetIndex(TListItem):Integer;
|
004D7BC8 E8B73CF7FF call 0044B884
004D7BCD 40 inc eax
004D7BCE 8D55FC lea edx, [ebp-$04]
* Reference to: SysUtils.IntToStr(Integer):AnsiString;overload;
|
004D7BD1 E86611F3FF call 00408D3C
004D7BD6 8D45FC lea eax, [ebp-$04]
* Possible String Reference to: '服强退'
|
004D7BD9 BA387C4D00 mov edx, $004D7C38
* Reference to: System.@LStrCat;
|
004D7BDE E875C9F2FF call 00404558
004D7BE3 8B45FC mov eax, [ebp-$04]
|
004D7BE6 E8C1D8FFFF call 004D54AC
004D7BEB 84C0 test al, al
004D7BED 741D jz 004D7C0C
* Reference to control TMainForm.ServerInfoList : TListView
|
004D7BEF 8B83F4030000 mov eax, [ebx+$03F4]
* Reference to: ComCtrls.TCustomListView.GetSelected(TCustomListView):TListItem;
| or: ComCtrls.TCustomListView.GetFocused(TCustomListView):TListItem;
|
004D7BF5 E8EA74F7FF call 0044F0E4
* Reference to: ComCtrls.TListItem.GetIndex(TListItem):Integer;
|
004D7BFA E8853CF7FF call 0044B884
004D7BFF 40 inc eax
004D7C00 50 push eax
004D7C01 33C9 xor ecx, ecx
004D7C03 B209 mov dl, $09
004D7C05 8BC3 mov eax, ebx
|
004D7C07 E864EDFFFF call 004D6970
004D7C0C 33C0 xor eax, eax
004D7C0E 5A pop edx
004D7C0F 59 pop ecx
004D7C10 59 pop ecx
004D7C11 648910 mov fs:[eax], edx
****** FINALLY
|
* Possible String Reference to: '[Y]?
|
004D7C14 68297C4D00 push $004D7C29
004D7C19 8D45FC lea eax, [ebp-$04]
* Reference to: System.@LStrClr(void;void);
|
004D7C1C E86FC6F2FF call 00404290
004D7C21 C3 ret
* Reference to: System.@HandleFinally;
|
004D7C22 E9E9BFF2FF jmp 00403C10
004D7C27 EBF0 jmp 004D7C19
****** END
|
004D7C29 5B pop ebx
004D7C2A 59 pop ecx
004D7C2B 5D pop ebp
004D7C2C C3 ret
*)
end;
procedure TMainForm.N7Click(Sender : TObject);
begin
(*
004D7C40 53 push ebx
004D7C41 51 push ecx
004D7C42 8BD8 mov ebx, eax
* Reference to control TMainForm.ServerInfoList : TListView
|
004D7C44 8B83F4030000 mov eax, [ebx+$03F4]
* Reference to: ComCtrls.TCustomListView.GetSelected(TCustomListView):TListItem;
| or: ComCtrls.TCustomListView.GetFocused(TCustomListView):TListItem;
|
004D7C4A E89574F7FF call 0044F0E4
004D7C4F 85C0 test eax, eax
004D7C51 0F848C000000 jz 004D7CE3
* Reference to TGJSetupForm instance
|
004D7C57 8B0D50BB4D00 mov ecx, [$004DBB50]
* Reference to TApplication instance
|
004D7C5D A1DCBB4D00 mov eax, dword ptr [$004DBBDC]
004D7C62 8B00 mov eax, [eax]
* Reference to class TGJSetupForm
|
004D7C64 8B1500434D00 mov edx, [$004D4300]
* Reference to: Forms.TApplication.CreateForm(TApplication;TComponentClass;void;void);
| or: QForms.TApplication.CreateForm(TApplication;TComponentClass;void;void);
|
004D7C6A E8BD07FBFF call 0048842C
* Reference to TGJSetupForm instance
|
004D7C6F A150BB4D00 mov eax, dword ptr [$004DBB50]
004D7C74 8B00 mov eax, [eax]
004D7C76 8B10 mov edx, [eax]
* Reference to method TGJSetupForm.ShowModal()
|
004D7C78 FF92EC000000 call dword ptr [edx+$00EC]
004D7C7E 48 dec eax
004D7C7F 7556 jnz 004D7CD7
* Reference to control TMainForm.ServerInfoList : TListView
|
004D7C81 8B83F4030000 mov eax, [ebx+$03F4]
* Reference to: ComCtrls.TCustomListView.GetSelected(TCustomListView):TListItem;
| or: ComCtrls.TCustomListView.GetFocused(TCustomListView):TListItem;
|
004D7C87 E85874F7FF call 0044F0E4
* Reference to: ComCtrls.TListItem.GetIndex(TListItem):Integer;
|
004D7C8C E8F33BF7FF call 0044B884
004D7C91 40 inc eax
004D7C92 880424 mov [esp], al
* Reference to TGJSetupForm instance
|
004D7C95 A150BB4D00 mov eax, dword ptr [$004DBB50]
004D7C9A 8B00 mov eax, [eax]
* Reference to control TGJSetupForm.BBCheck : TCheckBox
|
004D7C9C 8B80F8020000 mov eax, [eax+$02F8]
004D7CA2 8B10 mov edx, [eax]
* Reference to method TCheckBox.GetChecked()
|
004D7CA4 FF92C8000000 call dword ptr [edx+$00C8]
004D7CAA 88442401 mov [esp+$01], al
* Reference to TGJSetupForm instance
|
004D7CAE A150BB4D00 mov eax, dword ptr [$004DBB50]
004D7CB3 8B00 mov eax, [eax]
* Reference to control TGJSetupForm.CKCheck : TCheckBox
|
004D7CB5 8B80FC020000 mov eax, [eax+$02FC]
004D7CBB 8B10 mov edx, [eax]
* Reference to method TCheckBox.GetChecked()
|
004D7CBD FF92C8000000 call dword ptr [edx+$00C8]
004D7CC3 88442402 mov [esp+$02], al
004D7CC7 8BC4 mov eax, esp
004D7CC9 8B00 mov eax, [eax]
004D7CCB 50 push eax
004D7CCC 33C9 xor ecx, ecx
004D7CCE B211 mov dl, $11
004D7CD0 8BC3 mov eax, ebx
|
004D7CD2 E899ECFFFF call 004D6970
* Reference to TGJSetupForm instance
|
004D7CD7 A150BB4D00 mov eax, dword ptr [$004DBB50]
004D7CDC 8B00 mov eax, [eax]
* Reference to: System.TObject.Free(TObject);
|
004D7CDE E899B7F2FF call 0040347C
004D7CE3 5A pop edx
004D7CE4 5B pop ebx
004D7CE5 C3 ret
*)
end;
procedure TMainForm.N6Click(Sender : TObject);
begin
(*
004D7CE8 55 push ebp
004D7CE9 8BEC mov ebp, esp
004D7CEB 6A00 push $00
004D7CED 53 push ebx
004D7CEE 8BD8 mov ebx, eax
004D7CF0 33C0 xor eax, eax
004D7CF2 55 push ebp
* Possible String Reference to: '?掘?疔Y]?
|
004D7CF3 68727D4D00 push $004D7D72
***** TRY
|
004D7CF8 64FF30 push dword ptr fs:[eax]
004D7CFB 648920 mov fs:[eax], esp
* Reference to control TMainForm.ServerInfoList : TListView
|
004D7CFE 8B83F4030000 mov eax, [ebx+$03F4]
* Reference to: ComCtrls.TCustomListView.GetSelected(TCustomListView):TListItem;
| or: ComCtrls.TCustomListView.GetFocused(TCustomListView):TListItem;
|
004D7D04 E8DB73F7FF call 0044F0E4
004D7D09 85C0 test eax, eax
004D7D0B 744F jz 004D7D5C
* Reference to control TMainForm.ServerInfoList : TListView
|
004D7D0D 8B83F4030000 mov eax, [ebx+$03F4]
* Reference to: ComCtrls.TCustomListView.GetSelected(TCustomListView):TListItem;
| or: ComCtrls.TCustomListView.GetFocused(TCustomListView):TListItem;
|
004D7D13 E8CC73F7FF call 0044F0E4
* Reference to: ComCtrls.TListItem.GetIndex(TListItem):Integer;
|
004D7D18 E8673BF7FF call 0044B884
004D7D1D 40 inc eax
004D7D1E 8D55FC lea edx, [ebp-$04]
* Reference to: SysUtils.IntToStr(Integer):AnsiString;overload;
|
004D7D21 E81610F3FF call 00408D3C
004D7D26 8D45FC lea eax, [ebp-$04]
* Possible String Reference to: '服关机'
|
004D7D29 BA887D4D00 mov edx, $004D7D88
* Reference to: System.@LStrCat;
|
004D7D2E E825C8F2FF call 00404558
004D7D33 8B45FC mov eax, [ebp-$04]
|
004D7D36 E871D7FFFF call 004D54AC
004D7D3B 84C0 test al, al
004D7D3D 741D jz 004D7D5C
* Reference to control TMainForm.ServerInfoList : TListView
|
004D7D3F 8B83F4030000 mov eax, [ebx+$03F4]
* Reference to: ComCtrls.TCustomListView.GetSelected(TCustomListView):TListItem;
| or: ComCtrls.TCustomListView.GetFocused(TCustomListView):TListItem;
|
004D7D45 E89A73F7FF call 0044F0E4
* Reference to: ComCtrls.TListItem.GetIndex(TListItem):Integer;
|
004D7D4A E8353BF7FF call 0044B884
004D7D4F 40 inc eax
004D7D50 50 push eax
004D7D51 33C9 xor ecx, ecx
004D7D53 B20B mov dl, $0B
004D7D55 8BC3 mov eax, ebx
|
004D7D57 E814ECFFFF call 004D6970
004D7D5C 33C0 xor eax, eax
004D7D5E 5A pop edx
004D7D5F 59 pop ecx
004D7D60 59 pop ecx
004D7D61 648910 mov fs:[eax], edx
****** FINALLY
|
* Possible String Reference to: '[Y]?
|
004D7D64 68797D4D00 push $004D7D79
004D7D69 8D45FC lea eax, [ebp-$04]
* Reference to: System.@LStrClr(void;void);
|
004D7D6C E81FC5F2FF call 00404290
004D7D71 C3 ret
* Reference to: System.@HandleFinally;
|
004D7D72 E999BEF2FF jmp 00403C10
004D7D77 EBF0 jmp 004D7D69
****** END
|
004D7D79 5B pop ebx
004D7D7A 59 pop ecx
004D7D7B 5D pop ebp
004D7D7C C3 ret
*)
end;
procedure TMainForm.ISeeBtnClick(Sender : TObject);
begin
(*
004D8204 C605BCD44D0000 mov byte ptr [$004DD4BC], $00
004D820B 33D2 xor edx, edx
* Reference to control TMainForm.ISeeBtn : TButton
|
004D820D 8B8014040000 mov eax, [eax+$0414]
004D8213 8B08 mov ecx, [eax]
* Reference to method TButton.SetEnabled(Boolean)
|
004D8215 FF5164 call dword ptr [ecx+$64]
004D8218 C3 ret
*)
end;
procedure TMainForm.ServerInfoListCustomDrawSubItem(Sender : TObject);
begin
(*
004D821C 55 push ebp
004D821D 8BEC mov ebp, esp
004D821F 83C4F8 add esp, -$08
004D8222 53 push ebx
004D8223 56 push esi
004D8224 8BD9 mov ebx, ecx
004D8226 8BF2 mov esi, edx
004D8228 8BC3 mov eax, ebx
* Reference to: ComCtrls.TListItem.GetIndex(TListItem):Integer;
|
004D822A E85536F7FF call 0044B884
004D822F A801 test al, $01
004D8231 7515 jnz 004D8248
004D8233 8B8610020000 mov eax, [esi+$0210]
004D8239 8B4014 mov eax, [eax+$14]
004D823C BAF2F2F200 mov edx, $00F2F2F2
* Reference to: Graphics.TBrush.SetColor(TBrush;TColor);
|
004D8241 E87223F5FF call 0042A5B8
004D8246 EB13 jmp 004D825B
004D8248 8B8610020000 mov eax, [esi+$0210]
004D824E 8B4014 mov eax, [eax+$14]
004D8251 BAFFFFFF00 mov edx, $00FFFFFF
* Reference to: Graphics.TBrush.SetColor(TBrush;TColor);
|
004D8256 E85D23F5FF call 0042A5B8
004D825B 8BC3 mov eax, ebx
* Reference to: ComCtrls.TListItem.GetIndex(TListItem):Integer;
|
004D825D E82236F7FF call 0044B884
004D8262 83F82A cmp eax, +$2A
004D8265 0F8F3F010000 jnle 004D83AA
004D826B 8B4510 mov eax, [ebp+$10]
004D826E 83E804 sub eax, +$04
004D8271 740C jz 004D827F
004D8273 48 dec eax
004D8274 0F84A0000000 jz 004D831A
004D827A E92B010000 jmp 004D83AA
* Reference to: SysUtils.Now:TDateTime;
|
004D827F E8B82BF3FF call 0040AE3C
004D8284 83C4F8 add esp, -$08
004D8287 DD1C24 fstp qword ptr [esp]
004D828A 9B wait
004D828B 8BC3 mov eax, ebx
* Reference to: ComCtrls.TListItem.GetIndex(TListItem):Integer;
|
004D828D E8F235F7FF call 0044B884
004D8292 8D0480 lea eax, [eax+eax*4]
004D8295 8D0480 lea eax, [eax+eax*4]
004D8298 FFB031CF4D00 push dword ptr [eax+$4DCF31]
004D829E FFB02DCF4D00 push dword ptr [eax+$4DCF2D]
|
004D82A4 E8EB5BFBFF call 0048DE94
004D82A9 8945F8 mov [ebp-$08], eax
004D82AC 8955FC mov [ebp-$04], edx
004D82AF 837DFC00 cmp dword ptr [ebp-$04], +$00
004D82B3 750B jnz 004D82C0
004D82B5 817DF8A0050000 cmp dword ptr [ebp-$08], $000005A0
004D82BC 7344 jnb 004D8302
004D82BE EB02 jmp 004D82C2
004D82C0 7D40 jnl 004D8302
004D82C2 837DFC00 cmp dword ptr [ebp-$04], +$00
004D82C6 7508 jnz 004D82D0
004D82C8 837DF80A cmp dword ptr [ebp-$08], +$0A
004D82CC 731C jnb 004D82EA
004D82CE EB02 jmp 004D82D2
004D82D0 7D18 jnl 004D82EA
004D82D2 8B8610020000 mov eax, [esi+$0210]
004D82D8 8B400C mov eax, [eax+$0C]
004D82DB BA0000FF00 mov edx, $00FF0000
* Reference to: Graphics.TFont.SetColor(TFont;TColor);
|
004D82E0 E8071BF5FF call 00429DEC
004D82E5 E9C0000000 jmp 004D83AA
004D82EA 8B8610020000 mov eax, [esi+$0210]
004D82F0 8B400C mov eax, [eax+$0C]
004D82F3 BAFF000000 mov edx, $000000FF
* Reference to: Graphics.TFont.SetColor(TFont;TColor);
|
004D82F8 E8EF1AF5FF call 00429DEC
004D82FD E9A8000000 jmp 004D83AA
004D8302 8B8610020000 mov eax, [esi+$0210]
004D8308 8B400C mov eax, [eax+$0C]
004D830B BA080000FF mov edx, $FF000008
[培训]内核驱动高级班,冲击BAT一流互联网大厂工作,每周日13:00-18:00直播授课
赞赏
看原图
赞赏
雪币:
留言: