|
|
GOD源码编译教程视频版,GOD引擎源码编译视频教程
GOD引擎源代码,服务端源码Delphi 需要安装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;
|
|
发表于 2023-6-9 13:04:21
发表于 2023-12-8 14:39:17