一、新用户注册界面设计：

        注册时采用手机号注册，客户端发送新号注册申请由后台做审核，后台审核通过后向注册的手机号发送注册成功的消息。注册过的手机号不能再二次注册。

界面验证代码

private{ Private declarations }FVerf: AnsiString; {验证码}FPhone: AnsiString; {手机号}FTime: Integer;public{ Public declarations }FClientSocket: TClientSocket;procedure logindone(returnstr: AnsiString); {处理返回结构 }end;varFrmReg: TFrmReg;implementation
usesuGlobalvariable, uTCP_Client_Service, md5jm, uLogin;{$R *.fmx}procedure TFrmReg.BtnOKClick(Sender: TObject);
varVtcp_client_service : TTCP_client_service;data_stream : TMemoryStream;data_strstrea : TStringStream;restr,cmd_id: AnsiString;
beginif (Length(Trim(EdtPhone.Text)) <> 11) or (Trim(EdtPhone.Text) <> FPhone) thenbeginMessageBox(0,'手机号输入错误','提示',MB_OK + MB_ICONHAND);Exit;end;if Trim(EdtPWD.Text) <> Trim(EdtPWD2.Text) thenbeginMessageBox(0,'两次输入的密码不一致','提示',MB_OK + MB_ICONHAND);Exit;end;if Length(Trim(EdtName.Text)) > 4 thenbeginMessageBox(0,'姓名长度错误','提示',MB_OK + MB_ICONHAND);Exit;end;if (Trim(EdtPhone.Text) = '') or (Trim(EdtPWD.Text) = '') or(Trim(EdtPWD2.Text) = '') or (Trim(EdtVerf.Text) = '') or(Trim(EdtName.Text) = '') thenbeginMessageBox(0,'内容不能为空','提示',MB_OK + MB_ICONHAND);Exit;end;if Trim(EdtVerf.Text) <> FVerf thenbeginMessageBox(0,'验证码错误','提示',MB_OK + MB_ICONHAND);Exit;end;

二、新用户注册接口协议

1、 向服务端发送指令
  {用户注册（301）（实盘数据库注册指令）

发送：300;用户bh;md5密码;姓名;
      返回：300;0;错误提示;
            300;1;注册成功！;}
  {用户注册（301）（模拟数据库注册指令）
      发送：301;用户bh;md5密码;姓名;
      返回：301;0;错误提示;
            301;1;}

2、注册发送协议：

BtnOK.Enabled := False;data_stream := TMemoryStream.Create;data_strstrea := TStringStream.Create;trycmd_id := '300';restr := cmd_id + ';' + Trim(EdtPhone.Text) + ';' +md5jm.MD5Print( MD5String( Trim(EdtPWD.Text) ) ) + ';' +Trim(EdtName.Text) + ';';data_strstrea.WriteString(restr);data_stream.LoadFromStream( data_strstrea );{创建TCP连接对象}Vtcp_client_service := TTCP_client_service.Create(nil);Vtcp_client_service.Socket_LB := 2;Vtcp_client_service.FCMD_data.LoadFromStream( data_stream ); {业务指令数据流}{开始连接}if not Vtcp_client_service.open_service thenbegin{启动TCP连接失败}ShowMessage('连接失败！');end;