Browse Source

FInDeviceID = -1的bug

lqq 9 years ago
parent
commit
160a22baae

+ 3 - 2
Client/Group/GroupProcess.pas

@@ -460,6 +460,7 @@ begin
   AStyle := JsonToFont(AData.O['style']);
 
   TGroupService.GetService.OnMessage(ATeamID, ASender, AContent, AStyle, ASendTime, AData.I['msgType'], AData.I['length']);
+  Client.MessageMisc(ATeamID);
 end;
 
 { TGetMyGroupsResponse }
@@ -544,7 +545,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;
@@ -608,7 +609,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;

+ 2 - 0
Controls/RealICQUI/RealICQMicrophoneVolumeControl.pas

@@ -105,6 +105,8 @@ var
   IsSelect: Boolean;
 begin
   try
+    if FInDeviceID = -1 then
+      Exit;
     FAudioMixer.GetVolume(FInDeviceID, FConnectionID, L, R, FMute, Stereo, IsSelect);
   except
     OnChanged := nil;

+ 1 - 0
Includes/ACMAudio/AMixer.pas

@@ -521,6 +521,7 @@ var MD:TMixerDestination;
     details:array [0..30] of Integer;
 begin
   Result:=False;
+
   MD:=Destinations[ADestination];
   If MD<>nil then
   begin