Программа только для Windows. Мне нужно передать текстовую строку из одного приложения (использует SimpleIPCClient) в другое (использует SimpleIPCServer).
Подскажите как использовать это событие OnMessage? У меня оно никогда не возникает.
- Код: Выделить всё
procedure TfMainPostCalc.SimpleIPCServerMessage(Sender: TObject);
begin
ShowMessage('Server OnMessage: Получено сообщение от клиента! '
+ SimpleIPCServer.StringMessage);
end;
Но вот если добавить таймер, тогда в его событии OnTimer текстовая строка отлавливается. Но похоже из-за таймера все тормозит.
- Код: Выделить всё
procedure TfMainPostCalc.TimerTimer(Sender: TObject);
begin
if SimpleIPCServer.Active
then
if SimpleIPCServer.PeekMessage(1,true)
then ShowMessage('Timer OnTimer: Получено сообщение от клиента! '
+ SimpleIPCServer.StringMessage);
end;
