TAstaServerSocket.OnChatLine

Applies to
TAstaServerSocket

Declaration
property OnChatLine: TAstaServerSendStringsEvent;

Description
The OnChatLine event allows you to take action when chat messages are passed through the sever. The following code, for instance, displays the messages in a memo at the server.

procedure TForm1.AstaServerSocket1ChatLine(Sender: TObject; S: string);
begin

  ReceiveMemo.Lines.Add(S);

end;

You could stream the memo to a file or perhaps save it to a database on a daily basis.