  TDefaultMessage = record
    Recog    :Integer;
    Ident    :Word;//Ϣͷ
    Param    :Word;
    Tag      :Word;
    Series   :Word;
  end;

var
  Msg: TDefaultMessage; 
úͼ
 Msg := MakeDefaultMsg(CM_ADDNEWUSER, 0, 0, 0, 0);
result.Ident:=CM_ADDNEWUSER; //Ϣͷ
ͷʽ text
SendCSocket(EncodeMessage(Msg) //ͷļֿͻ  Я5
Ĳ ۼ Ҳ Ӧ   ֱĸĸ

+EncodeBuffer(@ue, SizeOf(TUserEntry))
+EncodeBuffer(@ua, SizeOf(TUserEntryAdd)));

͵Ľṹ  
ͷ# 
β!
.SendSocket(sSendMsg: string);
begin
  if CSocket.Socket.Connected then begin
    CSocket.Socket.SendText('#' + IntToStr(g_btCode) + sSendMsg + '!');
    Inc(g_btCode);
    if g_btCode >= 10 then g_btCode := 1;
  end;