Советы по Delphi. Версия 1.4.3 от 1.1.2001

Озеров Валентин

 object Label3: TLabel

Left = 16

Top = 40

Width = 74

Height = 16

Caption = 'Data Item2:'

 end

 object Label4: TLabel

Left = 16

Top = 56

Width = 74

Height = 16

Caption = 'Data Item3:'

 end

 object Label5: TLabel

Left = 0

Top = 88

Width = 265

Height = 16

Caption = 'Выбор

данных | Ввод данных для изменения значений.'

 end

 object Label6: TLabel

Left = 96

Top = 24

Width = 8

Height = 16

Caption = '0'

 end

 object Label7: TLabel

Left = 96

Top = 40

Width = 8

Height = 16

Caption = '0'

 end

 object Label8: TLabel

Left = 96

Top = 56

Width = 8

Height = 16

Caption = '0'

 end

 object MainMenu1: TMain

MenuLeft = 352

Top = 24

object File1: TMenuItem

Caption = '&Файл'

object Exit1: TMenuItem

Caption = '&Выход'

OnClick = Exit1Click

end

end

object Data1: TMenuItem

Caption = '&Данные'

object EnterData1: TMenuItem

Caption = '&Ввод данных'

OnClick = EnterData1Click

end

object Clear1: TMenuItem

Caption = '&Очистить'

OnClick = Clear1Click

end

end

 end

end

{ ***

КОНЕЦ КОДА DDESVRU.DFM *** }

{ *** НАЧАЛО КОДА DDESVRU.PAS *** }

{***************************************************}

{ }

{ Delphi 1.0 DDEML Демонстрационная программа }

{ Copyright (c) 1996 by Borland International }

{ }

{***************************************************}

{ Данный демонстрационный пример использует библиотеку DDEML на стороне сервера кооперативного приложения. Данный сервер является простым приложением для ввода данных и позволяет оператору осуществлять ввод трех элементов данных, которые становятся доступными через DDE "заинтересованным" клиентам.

Данный сервер предоставляет свои услуги (сервисы) для данных со следующими именами:

 Service: 'DataEntry'

 Topic : 'SampledData'

 Items : 'DataItem1', 'DataItem2', 'DataItem3'

В-принципе, в качестве сервисов могли бы быть определены и другие темы. Полезными темами, на наш взгляд, могут быть исторические даты, информация о сэмплах и пр..

Вы должны запустить этот сервер ПЕРЕД тем как запустите клиента (DDEMLCLI.PAS), в противном случае клиент не сможет установить связь.

Интерфейс для этого сервера определен как список имен (Service, Topic и Items) в отдельном модуле с именем DataEntry (DATAENTR.TPU). Сервер делает Items доступными в формате cf_Text; они преобразовываются и хранятся у клиента локально как целые. }

unit Ddesvru;

interface

uses SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Menus, DDEML, { DDE APi }ShellApi;

const

 NumValues = 3;

 DataItemNames : array [1..NumValues] of PChar = ('DataItem1', 'DataItem2', 'DataItem3');

type

 TDataString = array [0..20] of Char; { Размер элемента как текста }

 TDataSample = array [1..NumValues] of Integer;

{type