45806 (Обратные вызовы в MIDAS через TSocketConnection), страница 2
Описание файла
Документ из архива "Обратные вызовы в MIDAS через TSocketConnection", который расположен в категории "". Всё это находится в предмете "информатика" из , которые можно найти в файловом архиве . Не смотря на прямую связь этого архива с , его также можно найти и в других разделах. Архив можно найти в разделе "рефераты, доклады и презентации", в предмете "информатика, программирование" в общих файлах.
Онлайн просмотр документа "45806"
Текст 2 страницы из документа "45806"
Вот, собственно, и все - обратный вызов осуществляется из нужного потока. Теперь можно приступать к реализации клиентской части.
Клиентская часть
Состоит из одной формы, просто чтобы попробовать механизм передачи сообщений. На этапе разработки форма выглядит следующим образом (Рисунок 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 AServer: IrdmMainDisp; begin if not scMain.Connected then raise Exception.Create('Нет соединения'); AServer := IrdmMainDisp(scMain.GetServer); AServer.Broadcast(eMessage.Text); end; procedure TfrmClient.scMainAfterConnect(Sender: TObject); var AServer: IrdmMainDisp; begin FCallBack := TBackCall.Create; AServer := IrdmMainDisp(scMain.GetServer); AServer.RegisterCallBack(FCallBack); lConnect.Caption := 'Соединение установлено'; btnConnect.Caption := 'Отключиться'; end; procedure TfrmClient.scMainAfterDisconnect(Sender: TObject); begin FCallBack := nil; lConnect.Caption := 'Нет соединения'; btnConnect.Caption := 'Соединиться'; end; |
Фактически все управляется scMain, обработчиками OnAfterConnect (регистрирующим callback-интерфейс) и OnAfterDisconnect (производящим обратное действие). Разумеется, библиотека типов сервера подключена к проекту, но не через Import Type Library. Дело в том, что в проекте присутствует ActiveX Object TBackCall, который реализует интерфейс IBackCall, описанный в библиотеке типов сервера. Сделать такой объект очень просто: надо просто выбрать New -> Automation Object и в диалоге ввести имя BackCall (можно и другое, это не принципиально), выбрать ckSingle, и нажать ОК. В получившейся библиотеке типов сразу удалить интерфейс IBackCall, и на вкладке uses библиотеки типов подключить библиотеку типов сервера (есть локальное меню). После этого на вкладке Implements кокласса выбрать из списка интерфейс IBackCall. После обновления в модуле будет создан заглушка для метода OnCall, а в каталоге проекта клиента организуется файл импорта библиотеки типов сервера BkServer_TLB.pas, который остается только подключить к проекту и прописать в секциях uses модулей главной формы и СОМ-объекта. Метод OnCall я реализовал простейшим образом:
| procedure TBackCall.OnCall(const MsgStr: WideString); begin ShowMessage(MsgStr); end; |
После компиляции приложение можно запустить в двух-трех экземплярах и проверить его работоспособность. Необходимо учитывать, что сообщения получают все клиенты, кроме пославшего его.
Таким образом, получилось хоть и минимальное, но работоспособное приложение с обратными вызовами и передачей сообщений между клиентскими частями. Хотя практически все реализовано вручную, без использования готовых методик COM, мне этот способ кажется наиболее предпочтительным, я просто реализовал обратные вызовы и маршалинг так, как мне хотелось. В результате вся реализация достаточно понятна и позволяет программировать вызовы так, как хочется.
Хотя мои друзья обозвали этот способ маршалинга вызовов "хакерским", мне все равно хотелось бы выразить им глубокую признательность за советы и терпение, с каким они отвечали на мои вопросы ;-)).
| ПРИМЕЧАНИЕ Исполняемые модули были созданы в Delphi5 SP1. Для работы приложения, естественно, необходимо запустить Borland Socket Server, который входит в поставку Delphi. |
Список литературы
Для подготовки данной работы были использованы материалы с сайта http://www.rsdn.ru/
