Программирование - это просто
Advertisement
Главная arrow Уроки программирования arrow Пишем на Delphi с применением COM-технологий arrow Программирование COM в Delphi. Урок 6. Пример обмена данными через DDE (TDDeServerConv, TDDEClientCo
29.05.2024 г.
Главное меню
Главная
Интернет магазин
Программные продукты
Биржевые роботы
Искусственный интеллект
Математика и информатика
1С:Предприятие
Уроки C#
Уроки Delphi
Уроки программирования
Web-программирование
Дизайн и графика
Компьютер для блондинок
Исходники
Статьи
Платный раздел
Рассказы про компьютеры
Хитрости и секреты
Системный подход
Размышления
Наука для чайников
Друзья сайта
Excel-это не сложно
Все о финансах
.
Программирование COM в Delphi. Урок 6. Пример обмена данными через DDE (TDDeServerConv, TDDEClientCo Печать E-mail
Автор megabax   
09.01.2012 г.
New Page 1

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

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

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

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

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

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

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

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

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

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

Если скроллер назвать 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*:

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

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

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

и метку*:

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

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

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

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

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

Программирование COM в Delphi. Урок 6. Пример обмена данными через DDE (TDDeServerConv, 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;

end;

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

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

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

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

(C) Шуравин Александр 

 


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


 

Последнее обновление ( 12.09.2013 г. )
 
« След.   Пред. »
 
© 2024 Программирование - это просто
Joomla! - свободное программное обеспечение, распространяемое по лицензии GNU/GPL.
Русская локализация © 2005-2008 Joom.Ru - Русский Дом Joomla!
Design by Mamboteam.com | Powered by Mambobanner.de
Я принимаю Яндекс.Деньги