群消息同步

Client/Group/GroupClient.pas

@@ -376,8 +376,8 @@ procedure TGroupClient.MessageMiscMust(ATeamID: string);
 var
   jo: ISuperObject;
 begin
-  jo := SO('{"msg":[]}');
-  jo.A['msg'].S[0] := ATeamID;
+  jo := SO('{"group":[]}');
+  jo.A['group'].S[0] := ATeamID;
   Send(MARK_MK_REQUEST, jo);
 end;
 

Client/Group/GroupProcess.pas

@@ -471,8 +471,8 @@ begin
 //        TGroupService.GetService.OnUploaded(jaImgs.O[iLoop].S['hash'], jaImgs.O[iLoop].S['file']);
 
   TGroupService.GetService.OnMessage(ATeamID, ASender, AContent, AStyle, ASendTime, AData.I['msgType'], AData.I['length']);
-  Client.MessageMisc(ATeamID);
-end;
+//  Client.MessageMisc(ATeamID);
+end;
 
 { TGetMyGroupsResponse }
 
@@ -556,7 +556,7 @@ begin
       AStyle := JsonToFont(AItem.O['style']);
       TGroupService.GetService.OnMessage(ATeamID, ASender, AContent, AStyle, ASendTime, AItem.I['msgType'], AItem.I['length']);
     finally
-      Client.MessageMisc(ATeamID);
+//      Client.MessageMisc(ATeamID);
     end;
   end;
 end;
@@ -620,7 +620,7 @@ begin
       AStyle := JsonToFont(AItem.O['style']);
       TGroupService.GetService.OnMessage(ATeamID, ASender, AContent, AStyle, ASendTime, AItem.I['msgType'], AItem.I['length']);
     finally
-      Client.MessageMisc(ATeamID);
+//      Client.MessageMisc(ATeamID);
     end;
   end;
 end;
@@ -630,11 +630,19 @@ end;
 procedure TMessageMiscBroadcast.Excute(AData: ISuperObject);
 var
   ja: TSuperArray;
+  jo: ISuperObject;
   i: Integer;
 begin
   ja := AData.A['group'];
-  for I := 0 to ja.Length - 1 do
-    TGroupService.GetService.OnMessageReaded(ja[i].S['id'],ja[i].I['ts']);    
+  if ja <> nil then       
+    for I := 0 to ja.Length - 1 do
+      TGroupService.GetService.OnMessageReaded(ja[i].S['id'],ja[i].I['ts'])
+  else
+  begin
+    jo := AData.O['group'];
+    if jo = nil then Exit;
+    TGroupService.GetService.OnMessageReaded(jo.S['id'],jo.I['ts']);
+  end;     
 end;
 
 end.

Client/Group/GroupProtocols.pas

@@ -88,6 +88,7 @@ begin
 
 //  FProtocols.AddObject(MARK_MK_REQUEST, TBaseProcess.Create(nil));
   FProtocols.AddObject(MARK_MK_RESPONSE, TBaseProcess.Create(AClient));
+  FProtocols.AddObject(MARK_MK_B, TMessageMiscBroadcast.Create(AClient));
 //  FProtocols.AddObject(MEMBER_GS_REQUEST, TBaseProcess.Create(nil));
   FProtocols.AddObject(USER_LI_RESPONSE, TGetMyGroupsResponse.Create(AClient));        
   FProtocols.AddObject(FILE_UPLOADED_BROADCAST, TFileDownloadBroadcast.Create(AClient));

Client/Group/GroupService.pas

@@ -383,6 +383,7 @@ begin
     AList := MainForm.NotReadMessages.Objects[i] as TList;
     MainForm.NotReadMessages.Delete(i);
     TRealICQUtility.FreeList(AList);
+    MainForm.StopHeadImageFlash(ATeamID);
   end;
 end;
 

Client/Group/TeamsAdapter.pas

@@ -428,7 +428,7 @@ begin
     RealICQTeamMessage:= TRealICQTeamMessage.Create(ATeamID,ASender,AFontStr,AMsg,False);
     RealICQTeamMessage.MessageID := GetTickCount();
     RealICQTeamMessage.SendDateTime := Now();
-    TGroupService.GetService.MessageMiscMust(ATeamID);
+//    TGroupService.GetService.MessageMiscMust(ATeamID);
     MainForm.ShowRealICQTeamMessage(RealICQTeamMessage, False);
     {$ELSE}
     if Group = nil then

ZWT/Config/condition.config

@@ -2,7 +2,7 @@
 	"faceSize":20,
 	"userInfoController":false,
 	"otherServersDisable":false,
-	"newCenterServer":false,
+	"newCenterServer":true,
 	"userInfoCheck":false,
 	"remoteUI":true,
 	"remoteUIHost":"http://120.26.136.253:8080/LXTalkUIView",

ZWT/XML/DefaultConfig.xml

@@ -2,12 +2,12 @@
 <DefaultConfig>
 	<SkinName Value="VStyle"/>
 	<UIMainColor Value="15392442"/>
-	<MainFormLeft Value="616"/>
-	<MainFormTop Value="7"/>
-	<MainFormWidth Value="258"/>
+	<MainFormLeft Value="860"/>
+	<MainFormTop Value="4"/>
+	<MainFormWidth Value="-345"/>
 	<MainFormHeight Value="585"/>
-	<TalkingFormLeft Value="232"/>
-	<TalkingFormTop Value="116"/>
+	<TalkingFormLeft Value="274"/>
+	<TalkingFormTop Value="183"/>
 	<TalkingFormWidth Value="663"/>
 	<TalkingFormHeight Value="507"/>
 	<ShowMainFormOnStart Value="True"/>