Программирование COM в Delphi. Урок 7. Пример обмена данными через DDE. Продолжение.
Исходники к уроку можно скачать здесь.
На прошлом уроке мы написали простой пример взаимодействия по DDE - программа клиент получала данные от программы сервер. Сегодня мы рассмотри обратное взаимодействие - клиент будет посылать макрокоманду на сервер. И так, для начала переделаем сервер. Нам надо добавить всего один обработчики события содержащий всего одну строку (см. исходники прошлого урока). Это обработчик OnExecuteMacro компонента TDDEServerConv:
|
procedure TfrmDDEServer.DdeServerExecuteMacro(Sender: TObject; Msg: TStrings); begin ScrollBar.Max:=StrToInt(msg[0]); end; |
И так, компилируем сервер и переходим к клиенту. Добавляем туда поле ввода и кнопочку "Применить"*:
Пишем обработчик кнопочки (поле ввода у нас названо edMax):
|
procedure TfrmDDEClient.btnApplyClick(Sender: TObject); var s:string; str:TStringList; begin s:=edMax.Text; try ProgressBar.Max:=StrToInt(s); except exit; end; str:=TStringList.Create; str.Add(s); DDEClientConv.ExecuteMacroLines(str,false) end; |
И все, теперь мы можем из клиента задать диапазон скроллера на сервере*:
Исходники к уроку можно скачать здесь..
(C) Шуравин Александр
Скриншоты, помеченные знаком* , являются цитатами и иллюстрациями программного продукта "Turbo Delphi", авторское право на который принадлежит фирме "Borland Delphi".