Программирование COM в Delphi. Урок 7. Пример обмена данными через DDE. Продолжение.

Автор megabax

30.01.2012 г.

New Page 1

Программирование 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;

И все, теперь мы можем из клиента задать диапазон скроллера на сервере*:

Исходники к уроку можно скачать здесь..

Скриншоты, помеченные знаком* , являются цитатами и иллюстрациями программного продукта "Turbo Delphi", авторское право на который принадлежит фирме "Borland Delphi".

Последнее обновление ( 12.09.2013 г. )

Пред. »

Вернуться