📄 unit2.pas
字号:
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics,
Controls, Forms, Dialogs, ExtCtrls, ScktComp;
type
TForm2=class(TForm)
Image1: TImage;
Client2: TClientSocket;
Timer1: TTimer;
procedure Client2Connect(Sender: TObject; Socket: TCustomWinSocket);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
procedure FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
procedure FormShow(Sender: TObject);
procedure Image1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X: Integer; Y: Integer);
procedure Image1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X: Integer; Y: Integer);
procedure Timer1Timer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end ;
var
Form2: TForm2;
{This file is generated by DeDe Ver 2.50 Copyright (c) 1999-2001 DaFixer}
implementation
{$R *.DFM}
procedure TForm2.Client2Connect(Sender: TObject; Socket: TCustomWinSocket);
begin
{
* Reference to control TForm2.Client2 : TClientSocket
|
00489610 8B80D4020000 mov eax, [eax+$02D4]
* Reference to field TClientSocket.OFFS_0080
|
00489616 8B8080000000 mov eax, [eax+$0080]
0048961C BA30964800 mov edx, $00489630
|
00489621 E81288FEFF call 00471E38
00489626 C3 ret
}
end ;
procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
{
004894C4 53 push ebx
004894C5 8BD8 mov ebx, eax
* Reference to field TForm2.OFFS_02E8
|
004894C7 8B83E8020000 mov eax, [ebx+$02E8]
004894CD 50 push eax
004894CE 8B00 mov eax, [eax]
* Possible reference to virtual method <UnknownType>.OFFS_4C
|
004894D0 FF504C call dword ptr [eax+$4C]
004894D3 33D2 xor edx, edx
* Reference to control TForm2.Timer1 : TTimer
|
004894D5 8B83D8020000 mov eax, [ebx+$02D8]
|
004894DB E80C94FCFF call 004528EC
004894E0 A1386B4900 mov eax, dword ptr [$496B38]
004894E5 8B00 mov eax, [eax]
004894E7 8B80EC020000 mov eax, [eax+$02EC]
004894ED 33D2 xor edx, edx
|
004894EF E88090FEFF call 00472574
004894F4 5B pop ebx
004894F5 C3 ret
}
end ;
procedure TForm2.FormCreate(Sender: TObject);
begin
{
004894F8 53 push ebx
004894F9 56 push esi
004894FA 8BD8 mov ebx, eax
* Reference to field TForm2.OFFS_02E8
|
004894FC 83BBE802000000 cmp dword ptr [ebx+$02E8], +$00
00489503 7510 jnz 00489515
00489505 6A00 push $00
* Reference to field TForm2.OFFS_02E8
|
00489507 8D83E8020000 lea eax, [ebx+$02E8]
0048950D 50 push eax
0048950E 6A00 push $00
|
00489510 E883FCFFFF call 00489198
00489515 6A13 push $13
00489517 8BC3 mov eax, ebx
|
00489519 E8A6DEFAFF call 004373C4
0048951E 50 push eax
* Reference to field TForm2.OFFS_02E8
|
0048951F 8B83E8020000 mov eax, [ebx+$02E8]
00489525 50 push eax
00489526 8B00 mov eax, [eax]
* Possible reference to virtual method <UnknownType>.OFFS_50
|
00489528 FF5050 call dword ptr [eax+$50]
* Reference to control TForm2.Image1 : TImage
|
0048952B 8BB3D0020000 mov esi, [ebx+$02D0]
00489531 A144954800 mov eax, dword ptr [$489544]
00489536 F7D0 not eax
00489538 234640 and eax, [esi+$40]
* Reference to field TImage.OFFS_0040
|
0048953B 894640 mov [esi+$40], eax
0048953E 5E pop esi
0048953F 5B pop ebx
00489540 C3 ret
}
end ;
procedure TForm2.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
{
00489724 55 push ebp
00489725 8BEC mov ebp, esp
00489727 53 push ebx
00489728 56 push esi
00489729 8BF1 mov esi, ecx
0048972B 8BD8 mov ebx, eax
* Reference to field TForm2.OFFS_02E4
|
0048972D 80BBE402000000 cmp byte ptr [ebx+$02E4], $00
00489734 7476 jz 004897AC
* Reference to control TForm2.Client2 : TClientSocket
|
00489736 8B83D4020000 mov eax, [ebx+$02D4]
* Reference to field TClientSocket.OFFS_0024
|
0048973C 80782400 cmp byte ptr [eax+$24], $00
00489740 7509 jnz 0048974B
00489742 B201 mov dl, $01
|
00489744 E82B8EFEFF call 00472574
00489749 EB61 jmp 004897AC
* Reference to field TForm2.OFFS_02DC
|
0048974B 8D83DC020000 lea eax, [ebx+$02DC]
00489751 33D2 xor edx, edx
00489753 8910 mov [eax], edx
00489755 66833E73 cmp word ptr [esi], +$73
00489759 751A jnz 00489775
* Reference to class Edit1
|
0048975B A0B4974800 mov al, byte ptr [$4897B4]
00489760 3A4508 cmp al, byte ptr [ebp+$08]
00489763 7510 jnz 00489775
* Reference to field TForm2.OFFS_02E0
|
00489765 C683E002000012 mov byte ptr [ebx+$02E0], $12
* Reference to field TForm2.OFFS_02E1
|
0048976C C683E102000002 mov byte ptr [ebx+$02E1], $02
00489773 EB10 jmp 00489785
00489775 668B06 mov ax, word ptr [esi]
* Reference to field TForm2.OFFS_02E0
|
00489778 8883E0020000 mov [ebx+$02E0], al
* Reference to field TForm2.OFFS_02E1
|
0048977E C683E102000000 mov byte ptr [ebx+$02E1], $00
* Reference to field TForm2.OFFS_02E2
|
00489785 8D83E2020000 lea eax, [ebx+$02E2]
0048978B 66C7000000 mov word ptr [eax], $0000
* Reference to field TForm2.OFFS_02DC
|
00489790 8D93DC020000 lea edx, [ebx+$02DC]
* Reference to control TForm2.Client2 : TClientSocket
|
00489796 8B83D4020000 mov eax, [ebx+$02D4]
* Reference to field TClientSocket.OFFS_0080
|
0048979C 8B8080000000 mov eax, [eax+$0080]
004897A2 B908000000 mov ecx, $00000008
|
004897A7 E86488FEFF call 00472010
004897AC 5E pop esi
004897AD 5B pop ebx
004897AE 5D pop ebp
004897AF C204 ret $04
}
end ;
procedure TForm2.FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
{
004897B8 55 push ebp
004897B9 8BEC mov ebp, esp
004897BB 53 push ebx
* Reference to field TForm2.OFFS_02E4
|
004897BC 80B8E402000000 cmp byte ptr [eax+$02E4], $00
004897C3 7458 jz 0048981D
* Reference to control TForm2.Client2 : TClientSocket
|
004897C5 8B90D4020000 mov edx, [eax+$02D4]
* Reference to field TClientSocket.OFFS_0024
|
004897CB 807A2400 cmp byte ptr [edx+$24], $00
004897CF 750B jnz 004897DC
004897D1 8BC2 mov eax, edx
004897D3 B201 mov dl, $01
|
004897D5 E89A8DFEFF call 00472574
004897DA EB41 jmp 0048981D
* Reference to field TClientSocket.OFFS_02DC
|
004897DC 8D90DC020000 lea edx, [eax+$02DC]
004897E2 33DB xor ebx, ebx
004897E4 891A mov [edx], ebx
004897E6 668B11 mov dx, word ptr [ecx]
* Reference to field TClientSocket.OFFS_02E0
|
004897E9 8890E0020000 mov [eax+$02E0], dl
* Reference to field TClientSocket.OFFS_02E1
|
004897EF 8D90E1020000 lea edx, [eax+$02E1]
004897F5 66C7020200 mov word ptr [edx], $0002
* Reference to field TClientSocket.OFFS_02E3
|
004897FA C680E302000000 mov byte ptr [eax+$02E3], $00
* Reference to field TClientSocket.OFFS_02DC
|
00489801 8D90DC020000 lea edx, [eax+$02DC]
* Reference to field TClientSocket.OFFS_02D4
|
00489807 8B80D4020000 mov eax, [eax+$02D4]
0048980D 8B8080000000 mov eax, [eax+$0080]
00489813 B908000000 mov ecx, $00000008
|
00489818 E8F387FEFF call 00472010
0048981D 5B pop ebx
0048981E 5D pop ebp
0048981F C204 ret $04
}
end ;
procedure TForm2.FormShow(Sender: TObject);
begin
{
0048940C 53 push ebx
0048940D 8BD8 mov ebx, eax
0048940F 6A10 push $10
00489411 A1386B4900 mov eax, dword ptr [$496B38]
00489416 8B00 mov eax, [eax]
00489418 8B8084030000 mov eax, [eax+$0384]
0048941E 8B8028010000 mov eax, [eax+$0128]
|
00489424 E8433AF9FF call 0041CE6C
00489429 50 push eax
0048942A A1386B4900 mov eax, dword ptr [$496B38]
0048942F 8B00 mov eax, [eax]
00489431 8B8084030000 mov eax, [eax+$0384]
00489437 8B8028010000 mov eax, [eax+$0128]
|
0048943D E8123AF9FF call 0041CE54
00489442 50 push eax
* Reference to field TForm2.OFFS_02E8
|
00489443 8B83E8020000 mov eax, [ebx+$02E8]
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -