Реферат: Обратные вызовы в MIDAS через TSocketConnection
ClientIntf.OnCall(MsgStr);
finally
Owner.unlock;
end;
end;
except
end;
if wParam <> 0 then // сообщениеотработано - уничтожаем
TMsgClass(wParam).Free;
end
else
Result := DefWindowProc(Window, Message, wParam, lParam);
end;
Номер сообщению CM_CallbackMessage присваивается вызовом
| RegisterWindowMessage('bkServer Callback SyncMessage'); |
также в секции инициализации.
Вот, собственно, и все - обратный вызов осуществляется из нужного потока. Теперь можно приступать к реализации клиентской части.
Клиентская часть
Состоит из одной формы, просто чтобы попробовать механизм передачи сообщений. На этапе разработки форма выглядит следующим образом (Рисунок 2):
Рисунок 2
Здесь присутствует TSocketConnection (scMain), которая соединяется с сервером BkServer. Кнопка "Соединиться" (btnConnect) предназначена для установки соединения, кнопка "Послать" (btnSend) – для отправки сообщения, записанного в окне редактирования (eMessage) остальным клиентским частям.
Код клиентской части довольно короток:
|
procedure TfrmClient.btnConnectClick(Sender: TObject); begin with scMain do Connected := not Connected; end; procedure TfrmClient.btnSendClick(Sender: TObject); var К-во Просмотров: 508
Бесплатно скачать Реферат: Обратные вызовы в MIDAS через TSocketConnection
|