Oops, I left out a part:
{ Called by SendMessageToRealTime() }
procedure TfClientMain.ICS_SendString(AMessageToSend: String);
begin
try
ICSSocket_Sending.SendStr(AMessageToSend);
except
on E: Exception do begin
ShowMessage(Format('%s: %s', [E.ClassName, E.Message]));
ClientDM.InsertException(CurrentUser, E.Message, E.ClassName);
end;
end;
end;
The information transmitted is intended only for the person or entity to
which it is addressed and may contain confidential and/or privileged
material. If the reader of this message is not the intended recipient,
you are hereby notified that your access is unauthorized, and any review,
dissemination, distribution or copying of this message including any
attachments is strictly prohibited. If you are not the intended
recipient, please contact the sender and delete the material from any
computer.
--
To unsubscribe or change your settings for TWSocket mailing list
please goto http://www.elists.org/mailman/listinfo/twsocket
Visit our website at http://www.overbyte.be
