Программирование COM в Delphi. Урок 6. Пример обмена данными через DDE (TDDeServerConv, TDDEClientCo

Автор megabax

09.01.2012 г.

New Page 1

Программирование COM в Delphi. Урок 6. Пример обмена данными через DDE (TDDEServerConv, TDDEClientConv)

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

Сегодня мы попробуем сами написать простейший DDE сервер и DDE клиент. Начнем с сервера. И так, кладем на форму компонент TDDEServerConv*:

Обзываем его DdeServer. Затем кладем TDDEServerItem*:

Свойство Text ставим 0, Name - DdeServerItem, а свойство ServerConv - DdeServer*:

Теперь кладем на форму метку и скроллер*:

Если скроллер назвать ScrollBar, а метку lbPos, то обработчик собтия OnChange нашего скроллера будет выглядеть так:

procedure TfrmDDEServer.ScrollBarChange(Sender: TObject);

begin

DDEServerItem.Text:=IntToStr(ScrollBar.Position);

lbPos.Caption:=DDEServerItem.Text;

end;

Как видим, DDE Server у нас состоит всего из двух строк программного кода, что может быть проще!

Теперь сохраним проект под именем ProjectDDEServ (можете сохранить другое имя, тогда в программе DDE Client вам надо будет указать его, свое имя) и комплируем. После чего приступаем к программированию клиента.

И так, начинаем новый проект, кладем на форму компоненты TDDEClientConv и TDDEClientItem*:

Так же кладем на форму tProgressBar*:

и метку*:

Затем нам надо связать компонент TDDEClientConv с нашим сервером. Для этого необходимо заполнить свойства DdeServer и DdeTopic. При попытке заполнить отредактировать эти свойства будет вызван диалог, и при правильном заполнении автоматически запуститься наш сервер*:

В DdeServer пишем имя проекта, под которым мы сохранили программу сервер, а DdeTopic - имя компонента TDDEServerConv, как мы его назвали в проекте.

Теперь переходим к TDDEClinetItem. Его нужно связать с TDDEClientConv и заполнить свойство*

В свойство DdeItem прописываем имя компонента TDDEServerItem из рограммы сервера. Если его указать неправильно, то Delphi отвергнет ввод, очистив поле для ввода.

Следующий шаг обработчик события OnChange компонента TDDEClientItem:

procedure TfrmDDEClient.DdeClientItemChange(Sender: TObject);

var s:string;

begin

s:=Trim(DDEClientItem.Text);

lbDDECli.Caption:=s;

try

ProgressBar.Position:=StrToInt(s);

except

ProgressBar.Position:=0;

end;

Теперь запускаем программу клиент (сервер запуститься автоматически). Если мы двигаем скроллер в сервере, то это автоматически отражается в прогресс баре на клиенте:

Если вдруг у вас не получилось, в первую очередь проверьте, заполнено ли свойство DDEItem (оно может сбиться, если вы, например, потрогали свойства DdeServer и DdeTopic у компонента TDDEClientConv.

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

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

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

« След.		Пред. »

Вернуться