god引擎源码编译视频教程,god Delphi11源代码编译教程
GOD引擎源代码,服务端源码Delphi 客户端cocos2d 需要安装Delphi 11.3
下面就是编译god源码的视频全过程，以及控件等
{$R *.DFM}
procedure TFrmIDHum.FormCreate(Sender: TObject);
begin
Edit1.Text := '';
Edit2.Text := '';
IdGrid.Cells[0, 0] := '登录帐号';
IdGrid.Cells[1, 0] := '密码';
IdGrid.Cells[2, 0] := '用户名称';
IdGrid.Cells[3, 0] := 'ResiRegi';
IdGrid.Cells[4, 0] := 'Tran';
IdGrid.Cells[5, 0] := 'Secretwd';
IdGrid.Cells[6, 0] := 'Adress(cont)';
IdGrid.Cells[7, 0] := '备注';
ChrGrid.Cells[0, 0] := '索引号';
ChrGrid.Cells[1, 0] := '人物名称';
ChrGrid.Cells[2, 0] := '登录帐号';
ChrGrid.Cells[3, 0] := '是否禁用';
ChrGrid.Cells[4, 0] := '禁用时间';
ChrGrid.Cells[5, 0] := '操作计数';
ChrGrid.Cells[6, 0] := '选择编号';
ChrGrid.Cells[7, 0] := '是否英雄';
ChrGrid.Cells[8, 0] := '创建时间';
end;
procedure TFrmIDHum.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
(*
0049FEAC 55 push ebp
0049FEAD 8BEC mov ebp, esp
0049FEAF 83C4F0 add esp, -$10
0049FEB2 53 push ebx
0049FEB3 33DB xor ebx, ebx
0049FEB5 895DF0 mov [ebp-$10], ebx
0049FEB8 894DF8 mov [ebp-$08], ecx
0049FEBB 8955F4 mov [ebp-$0C], edx
0049FEBE 8945FC mov [ebp-$04], eax
0049FEC1 33C0 xor eax, eax
0049FEC3 55 push ebp
* Possible String Reference to: '橼6?腽[嬪]?
|
0049FEC4 6835FF4900 push $0049FF35
***** TRY
|
0049FEC9 64FF30 push dword ptr fs:[eax]
0049FECC 648920 mov fs:[eax], esp
0049FECF 8B45F8 mov eax, [ebp-$08]
0049FED2 80380D cmp byte ptr [eax], $0D
0049FED5 7548 jnz 0049FF1F
0049FED7 8D55F0 lea edx, [ebp-$10]
* Reference to FrmIDHum
|
0049FEDA 8B45FC mov eax, [ebp-$04]
* Reference to control TFrmIDHum.Edit2 : TEdit
|
0049FEDD 8B80DC020000 mov eax, [eax+$02DC]
* Reference to: controls.TControl.GetText(TControl):TCaption;
|
0049FEE3 E8781EF9FF call 00431D60
0049FEE8 8B45F0 mov eax, [ebp-$10]
* Possible String Reference to: 'humconvert'
|
0049FEEB BA4CFF4900 mov edx, $0049FF4C
* Reference to: system.@LStrCmp;
|
0049FEF0 E89B40F6FF call 00403F90
0049FEF5 7518 jnz 0049FF0F
0049FEF7 33D2 xor edx, edx
* Reference to FrmIDHum
|
0049FEF9 8B45FC mov eax, [ebp-$04]
* Reference to control TFrmIDHum.Edit2 : TEdit
|
0049FEFC 8B80DC020000 mov eax, [eax+$02DC]
* Reference to: controls.TControl.SetText(TControl;TCaption);
|
0049FF02 E8891EF9FF call 00431D90
* Reference to FrmIDHum
|
0049FF07 8B45FC mov eax, [ebp-$04]
* Reference to: FIDHum.Proc_0049FAAC
|
0049FF0A E89DFBFFFF call 0049FAAC
0049FF0F 33D2 xor edx, edx
* Reference to FrmIDHum
|
0049FF11 8B45FC mov eax, [ebp-$04]
* Reference to control TFrmIDHum.Edit2 : TEdit
|
0049FF14 8B80DC020000 mov eax, [eax+$02DC]
* Reference to: controls.TControl.SetText(TControl;TCaption);
|
0049FF1A E8711EF9FF call 00431D90
0049FF1F 33C0 xor eax, eax
0049FF21 5A pop edx
0049FF22 59 pop ecx
0049FF23 59 pop ecx
0049FF24 648910 mov fs:[eax], edx
****** FINALLY
|
* Possible String Reference to: '[嬪]?
|
0049FF27 683CFF4900 push $0049FF3C
0049FF2C 8D45F0 lea eax, [ebp-$10]
* Reference to: system.@LStrClr(String;String);
|
0049FF2F E8CC3CF6FF call 00403C00
0049FF34 C3 ret
* Reference to: system.@HandleFinally;
|
0049FF35 E9DA36F6FF jmp 00403614
0049FF3A EBF0 jmp 0049FF2C
****** END
|
0049FF3C 5B pop ebx
0049FF3D 8BE5 mov esp, ebp
0049FF3F 5D pop ebp
0049FF40 C3 ret
*)
end;
procedure TFrmIDHum.EdUserIdKeyPress(Sender: TObject; var Key: Char);
//0x0049FF58
var
sAccount: string;
ChrList: TStringList;
i, nIndex: Integer;
HumChrRCD: THumChrInfo;
begin
if Key = #13 then begin
Key := #0;
sAccount := EdUserId.Text;
ChrGrid.RowCount := 1;
if sAccount <> '' then begin
ChrList := TStringList.Create;
try
if HumChrDB.OpenEx then begin
HumChrDB.FindByAccount(sAccount, ChrList);
if ChrList.Count > 0 then begin//20090101
for i := 0 to ChrList.Count - 1 do begin
nIndex := Integer(ChrList.Objects[i]);
if HumChrDB.GetBy(nIndex, HumChrRCD) then begin
if CbShowDelChr.Checked then RefChrGrid(nIndex, HumChrRCD)
else if not HumChrRCD.boDeleted then
RefChrGrid(nIndex, HumChrRCD);
end;
end;
end;
end;
finally
HumChrDB.Close;
end;
ChrList.Free;
end;
end;
end;
