Ver Mensaje Individual
  #9  
Antiguo 06-03-2013
jars jars is offline
Miembro
 
Registrado: mar 2004
Posts: 279
Reputación: 21
jars Va por buen camino
Pues lo que estoy haciendo ahora es guardandolo en un StrinList (Sessions), este es el código.
Código Delphi [-]
procedure TfrmMediaTabs.NewMessage(SessionId, TextMessage: string);
var
  x: Integer;
begin
  x := Sessions.IndexOf(SessionId);
  if x < 0 then Exit;
  TfrChat(Sessions.Objects[x]).mHistory.Text := TextMessage;
end;

Con este codigo, cada vez que llega un mensaje desde la web, intento agregarselo a la sessión que corresponda pero me encuentro que solamente me muestra el de la primera session y no el de la segunda.

Código Delphi [-]
  // frmMediaTabs es el formulario que contiene a PageControl
  frmMediaTabs.ChatSession := '1234';
  frmMediaTabs.Show;
  frmMediaTabs.NewMessage('1234', 'Este es el mensaje para la primera sesión');

  frmMediaTabs.ChatSession := '13587';
  frmMediaTabs.Show;
  frmMediaTabs.NewMessage('13587', 'Este es el mensaje para la segunda sesión');
Responder Con Cita