?? idsrvclient.pas
字號:
unit IdSrvClient;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics,
Controls, Forms, Dialogs, StdCtrls
type
TFrmIDSoc=class(TForm)
IDSocket: TClientSocket;
Timer1: TTimer;
procedure FormCreate(Sender : TObject);
procedure FormDestroy(Sender : TObject);
procedure Timer1Timer(Sender : TObject);
procedure IDSocketConnect(Sender : TObject);
procedure IDSocketDisconnect(Sender : TObject);
procedure IDSocketError(Sender : TObject);
procedure IDSocketRead(Sender : TObject);
procedure _PROC_0049C128(Sender : TObject);
procedure _PROC_0049C290(Sender : TObject);
procedure _PROC_0049C2E0(Sender : TObject);
procedure _PROC_0049C3D5(Sender : TObject);
procedure _PROC_0049C4C9(Sender : TObject);
procedure _PROC_0049C711(Sender : TObject);
procedure _PROC_0049C8BD(Sender : TObject);
procedure _PROC_0049C9A1(Sender : TObject);
procedure _PROC_0049CAB8(Sender : TObject);
procedure _PROC_0049CBDC(Sender : TObject);
procedure _PROC_0049CD85(Sender : TObject);
procedure _PROC_0049CDDC(Sender : TObject);
procedure _PROC_0049CEE5(Sender : TObject);
procedure IdSrvClient.Initialization(Sender : TObject);
procedure IdSrvClient.Finalization(Sender : TObject);
procedure Proc_0049C710(Sender : TObject);
procedure Proc_0049C8BC(Sender : TObject);
procedure Proc_0049CD84(Sender : TObject);
procedure Proc_0049C9A0(Sender : TObject);
procedure Proc_0049C4C8(Sender : TObject);
private
{ Private declarations }
public
{ Public declarations }
end ;
var
FrmIDSoc: TFrmIDSoc;
{This file is generated by DeDe Ver 3.50.04 Copyright (c) 1999-2002 DaFixer}
implementation
{$R *.DFM}
procedure TFrmIDSoc.FormCreate(Sender : TObject);
begin
(*
0049BF60 55 push ebp
0049BF61 8BEC mov ebp, esp
0049BF63 83C4E4 add esp, -$1C
0049BF66 53 push ebx
0049BF67 33C9 xor ecx, ecx
0049BF69 894DE4 mov [ebp-$1C], ecx
0049BF6C 894DE8 mov [ebp-$18], ecx
0049BF6F 894DF4 mov [ebp-$0C], ecx
0049BF72 8955F0 mov [ebp-$10], edx
0049BF75 8945FC mov [ebp-$04], eax
0049BF78 33C0 xor eax, eax
0049BF7A 55 push ebp
0049BF7B 6888C04900 push $0049C088
***** TRY
|
0049BF80 64FF30 push dword ptr fs:[eax]
0049BF83 648920 mov fs:[eax], esp
0049BF86 33D2 xor edx, edx
0049BF88 8B45FC mov eax, [ebp-$04]
* Reference to control TFrmIDSoc.IDSocket : TClientSocket
|
0049BF8B 8B80D0020000 mov eax, [eax+$02D0]
* Reference to : TServerSocket._PROC_00451D8C()
|
0049BF91 E8F65DFBFF call 00451D8C
0049BF96 8D45F4 lea eax, [ebp-$0C]
* Possible String Reference to: '.\!Setup.ini'
|
0049BF99 BA9CC04900 mov edx, $0049C09C
* Reference to: System.Proc_00403DEC
|
0049BF9E E8497EF6FF call 00403DEC
0049BFA3 8B45F4 mov eax, [ebp-$0C]
* Reference to: Unit_004088DC.Proc_00409BF0
|
0049BFA6 E845DCF6FF call 00409BF0
0049BFAB 84C0 test al, al
0049BFAD 746C jz 0049C01B
0049BFAF 8B4DF4 mov ecx, [ebp-$0C]
0049BFB2 B201 mov dl, $01
* Reference to class TIniFile
|
0049BFB4 A130354500 mov eax, dword ptr [$00453530]
* Reference to: Unit_00453470.Proc_004535D8
|
0049BFB9 E81A76FBFF call 004535D8
0049BFBE 8945F8 mov [ebp-$08], eax
0049BFC1 837DF800 cmp dword ptr [ebp-$08], +$00
0049BFC5 744A jz 0049C011
* Possible String Reference to: '127.0.0.1'
|
0049BFC7 68B4C04900 push $0049C0B4
0049BFCC 8D45E8 lea eax, [ebp-$18]
0049BFCF 50 push eax
* Possible String Reference to: 'IDSAddr'
|
0049BFD0 B9CCC04900 mov ecx, $0049C0CC
* Possible String Reference to: 'Server'
|
0049BFD5 BADCC04900 mov edx, $0049C0DC
0049BFDA 8B45F8 mov eax, [ebp-$08]
0049BFDD 8B18 mov ebx, [eax]
0049BFDF FF13 call dword ptr [ebx]
0049BFE1 8B55E8 mov edx, [ebp-$18]
0049BFE4 8B45FC mov eax, [ebp-$04]
0049BFE7 05E0020000 add eax, +$000002E0
* Reference to: System.Proc_00403DA8
|
0049BFEC E8B77DF6FF call 00403DA8
0049BFF1 68E0150000 push $000015E0
* Possible String Reference to: 'IDSPort'
|
0049BFF6 B9ECC04900 mov ecx, $0049C0EC
* Possible String Reference to: 'Server'
|
0049BFFB BADCC04900 mov edx, $0049C0DC
0049C000 8B45F8 mov eax, [ebp-$08]
0049C003 8B18 mov ebx, [eax]
* Possible reference to virtual method TIniFile.OFFS_08
|
0049C005 FF5308 call dword ptr [ebx+$08]
0049C008 8B55FC mov edx, [ebp-$04]
* Reference to field TFrmIDSoc.OFFS_02E4
|
0049C00B 8982E4020000 mov [edx+$02E4], eax
0049C011 8B45F8 mov eax, [ebp-$08]
* Reference to: System.Proc_00402F6C
|
0049C014 E8536FF6FF call 00402F6C
0049C019 EB18 jmp 0049C033
0049C01B 8D45E4 lea eax, [ebp-$1C]
* Possible String Reference to: ' not found'
|
0049C01E B9FCC04900 mov ecx, $0049C0FC
0049C023 8B55F4 mov edx, [ebp-$0C]
* Reference to: System.Proc_00404020
|
0049C026 E8F57FF6FF call 00404020
0049C02B 8B45E4 mov eax, [ebp-$1C]
* Reference to : TMessageForm._PROC_0044E6A0()
|
0049C02E E86D26FBFF call 0044E6A0
0049C033 B201 mov dl, $01
* Reference to class TList
|
0049C035 A140014100 mov eax, dword ptr [$00410140]
* Reference to: System.Proc_00402F3C
|
0049C03A E8FD6EF6FF call 00402F3C
0049C03F 8B55FC mov edx, [ebp-$04]
* Reference to field TFrmIDSoc.OFFS_02D8
|
0049C042 8982D8020000 mov [edx+$02D8], eax
0049C048 B201 mov dl, $01
* Reference to class TStringList
|
0049C04A A16C064100 mov eax, dword ptr [$0041066C]
* Reference to: System.Proc_00402F3C
|
0049C04F E8E86EF6FF call 00402F3C
0049C054 8B55FC mov edx, [ebp-$04]
* Reference to field TFrmIDSoc.OFFS_02DC
|
0049C057 8982DC020000 mov [edx+$02DC], eax
0049C05D 8B45FC mov eax, [ebp-$04]
* Reference to : TFrmIDSoc._PROC_0049C128()
|
0049C060 E8C3000000 call 0049C128
0049C065 33C0 xor eax, eax
0049C067 5A pop edx
0049C068 59 pop ecx
0049C069 59 pop ecx
0049C06A 648910 mov fs:[eax], edx
****** FINALLY
|
0049C06D 688FC04900 push $0049C08F
0049C072 8D45E4 lea eax, [ebp-$1C]
0049C075 BA02000000 mov edx, $00000002
* Reference to: System.Proc_00403D78
|
0049C07A E8F97CF6FF call 00403D78
0049C07F 8D45F4 lea eax, [ebp-$0C]
* Reference to: System.Proc_00403D54
|
0049C082 E8CD7CF6FF call 00403D54
0049C087 C3 ret
* Reference to: System.Proc_0040368C
|
0049C088 E9FF75F6FF jmp 0040368C
0049C08D EBE3 jmp 0049C072
****** END
|
0049C08F 5B pop ebx
0049C090 8BE5 mov esp, ebp
0049C092 5D pop ebp
0049C093 C3 ret
*)
end;
procedure TFrmIDSoc.FormDestroy(Sender : TObject);
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -