unit_findchar.pas

传奇3封外挂客户端+登陆器+配置器源码............................

unit Unit_FindChar;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, SUIForm, StdCtrls, SUIEdit, SUIButton, SUIDlg,
  ComCtrls, SUIStatusBar, ScktComp, cxControls, cxContainer, cxMCListBox,
  SUIImagePanel;

type
  TFrm_FindChar = class(TForm)
    suiMessageDialog1: TsuiMessageDialog;
    CSocket: TClientSocket;
    Timer1: TTimer;
    suiForm1: TsuiForm;
    suiStatusBar1: TsuiStatusBar;
    suiImagePanel1: TsuiImagePanel;
    Label2: TLabel;
    Edit_ID: TsuiEdit;
    Label3: TLabel;
    Edit_Pass: TsuiEdit;
    Bt_Close: TsuiButton;
    Bt_Restore: TsuiButton;
    Bt_Del: TsuiButton;
    Bt_Find: TsuiButton;
    suiImagePanel2: TsuiImagePanel;
    cxMCListBox1: TcxMCListBox;
    procedure Show_Message(text:String;Icon:TsuiIconType);
    procedure Bt_CloseClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure CSocketError(Sender: TObject; Socket: TCustomWinSocket;
      ErrorEvent: TErrorEvent; var ErrorCode: Integer);
    procedure CSocketRead(Sender: TObject; Socket: TCustomWinSocket);
    function DecodeMessagePacket(data:String):integer;
    procedure Bt_FindClick(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure Bt_DelClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Frm_FindChar: TFrm_FindChar;
  Step:string;
implementation

uses Unit_Main, Unit_Msg, Unit_MyPro;

{$R *.dfm}

procedure TFrm_FindChar.Show_Message(text:String;Icon:TsuiIconType);
begin
  suiMessageDialog1.Caption:='提示信息';
  suiMessageDialog1.Text:=text;
  suiMessageDialog1.IconType:=Icon;
  suiMessageDialog1.ShowModal;
end;


procedure TFrm_FindChar.Bt_CloseClick(Sender: TObject);
begin
  Close;
end;

procedure TFrm_FindChar.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  CSocket.Active:=False;
  Edit_ID.Text:='';
  Edit_Pass.Text:='';
  cxMCListBox1.Items.Clear;
  Bt_Find.Enabled:=True;
  Bt_Del.Enabled:=False;
  Bt_Restore.Enabled:=False;
end;

procedure TFrm_FindChar.CSocketError(Sender: TObject;
  Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
  var ErrorCode: Integer);
begin
  suiStatusBar1.Panels[0].Text:='连接失败，可能未开启注册服务。';
  CSocket.Active:=False;
  ErrorCode:=0;
end;

procedure TFrm_FindChar.CSocketRead(Sender: TObject;
  Socket: TCustomWinSocket);
var
  str,data:string;
begin
  str:=Socket.ReceiveText;
  str:=ArrestStringEx(str,'#','!',data);
  DecodeMessagePacket(data);
end;

function TFrm_FindChar.DecodeMessagePacket(data:String):integer;
var
  head, body: String;
  msg:TDefaultMessage;
  Sc:T_SFindChar;
  i:integer;
begin
  Result:=0;
  head := Copy (data, 1, DEFBLOCKSIZE);
  body := Copy (data, DEFBLOCKSIZE+1, Length(data)-DEFBLOCKSIZE);
  msg  := DecodeMessage (head);
  if msg.Comm=SM_FindChar_Fail then
  begin
    if msg.param=1 then
    begin
      show_message('查找角色失败，请联系管理员！',suiWarning);
      Edit_ID.Enabled:=True;
      Edit_ID.SetFocus;
      Bt_Restore.Enabled:=False;
      Bt_Del.Enabled:=False;
      Bt_Find.Enabled:=True;
    end;
    if msg.param=2 then
    begin
      show_message('查找角色失败，请检查ID和密码输入！',suiWarning);
      Edit_ID.Enabled:=True;
      Edit_ID.SetFocus;
      Bt_Restore.Enabled:=False;
      Bt_Del.Enabled:=False;
      Bt_Find.Enabled:=True;
    end;
    CSocket.Close;
    suiStatusBar1.Panels[0].Text:='断开连接。';
  end;
  if msg.Comm=SM_FindChar_Success then
  begin
    Bt_Find.Enabled:=False;
    DecodeBuffer(body,@Sc,Sizeof(T_SFindChar));
    if sc.Deleted=0 then cxMCListBox1.Items.Add(IntToStr(sc.Idx)+';'+Trim(sc.Char)+';否') else cxMCListBox1.Items.Add(IntToStr(sc.Idx)+';'+Trim(sc.Char)+';是');
    if msg.param=99 then
    begin
      Bt_Del.Enabled:=True;
      Bt_Restore.Enabled:=True;
      CSocket.Close;
      suiStatusBar1.Panels[0].Text:='断开连接。';
    end;
  end;
  if msg.Comm=SM_EditChar_Success then
  begin
    Show_Message('修改角色成功，祝您游戏愉快！',suiInformation);
    CSocket.Close;
    Close;
  end;
  if msg.Comm=SM_EditChar_Fail then
  begin
    if msg.param=2 then
    begin
      show_message('修改角色失败，请联系管理员！',suiWarning);
      Edit_ID.Enabled:=True;
      Edit_ID.SetFocus;
      Bt_Restore.Enabled:=False;
      Bt_Del.Enabled:=False;
      Bt_Find.Enabled:=True;
    end;
    if msg.param=2 then
    begin
      show_message('修改角色失败，请检查ID和密码输入！',suiWarning);
      Edit_ID.Enabled:=True;
      Edit_ID.SetFocus;
      Bt_Restore.Enabled:=False;
      Bt_Del.Enabled:=False;
      Bt_Find.Enabled:=True;
    end;
    CSocket.Close;
    suiStatusBar1.Panels[0].Text:='断开连接。';
  end;
end;



procedure TFrm_FindChar.Bt_FindClick(Sender: TObject);
begin
  if Length(Edit_Pass.Text)<5 then
  begin
    show_message('密码不能少于5位！',suiWarning);
    Edit_Pass.SetFocus;
    exit;
  end;
  suiStatusBar1.Panels[0].Text:='正在向服务器发送查找角色请求！';
  CSocket.Active:=False;
  CSocket.Address:=Reg_SvrIp;
  CSocket.Port:=Reg_SvrPort;
  Try
    CSocket.Active:=True;
  except end;
  Step:='FindChar';
  Timer1.Enabled:=True;

end;

procedure TFrm_FindChar.Timer1Timer(Sender: TObject);
var
  CC:T_CFindChar;
  CE:T_CEditChar;
  msg:TDefaultMessage;
begin
  if Step='FindChar' then
  begin
    CC.LoginId:=Edit_ID.Text;
    CC.Password:=Edit_Pass.Text;
    msg:=MakeDefaultMsg(CM_FindChar,0);
    SendSocket(CSocket.Socket,EncodeMessage(msg)+EncodeBuffer(@CC, sizeof(T_CFindChar)));
    Step:='';
  end;
  if Step='DelChar' then
  begin
    Ce.LoginId:=Edit_ID.Text;
    Ce.Password:=Edit_Pass.Text;
    Ce.Idx:=StrToInt(Copy(cxMCListBox1.Items[cxMCListBox1.ItemIndex],1,pos(';',cxMCListBox1.Items[cxMCListBox1.ItemIndex])-1));
    Ce.Deleted:=1;
    msg:=MakeDefaultMsg(CM_EditChar,0);
    SendSocket(CSocket.Socket,EncodeMessage(msg)+EncodeBuffer(@Ce, sizeof(T_CEditChar)));
    Step:='';
  end;
  if Step='RestoreChar' then
  begin
    Ce.LoginId:=Edit_ID.Text;
    Ce.Password:=Edit_Pass.Text;
    Ce.Idx:=StrToInt(Copy(cxMCListBox1.Items[cxMCListBox1.ItemIndex],1,pos(';',cxMCListBox1.Items[cxMCListBox1.ItemIndex])-1));
    Ce.Deleted:=0;
    msg:=MakeDefaultMsg(CM_EditChar,0);
    SendSocket(CSocket.Socket,EncodeMessage(msg)+EncodeBuffer(@Ce, sizeof(T_CEditChar)));
    Step:='';
  end;
  Timer1.Enabled:=False;
end;

procedure TFrm_FindChar.Bt_DelClick(Sender: TObject);
begin
  if cxMCListBox1.ItemIndex<0 then
  begin
    Show_Message('必须选择一个角色',suiWarning);
    exit;
  end;
  suiStatusBar1.Panels[0].Text:='正在向服务器发送修改角色请求！';
  CSocket.Active:=False;
  CSocket.Address:=Reg_SvrIp;
  CSocket.Port:=Reg_SvrPort;
  Try
    CSocket.Active:=True;
  except end;
  if (Sender as TsuiButton).Name='Bt_Del' then Step:='DelChar';
  if (Sender as TsuiButton).Name='Bt_Restore' then Step:='RestoreChar';
  Timer1.Enabled:=True;
end;

procedure TFrm_FindChar.FormCreate(Sender: TObject);
begin
  SetForm_Style(suiForm1,ExeType);
end;

end.