Валентин Озеров - Советы по Delphi. Версия 1.4.3 от 1.1.2001

varI : Integer;

begin

ifServiceHSz <> 0 thenDdeFreeStringHandle(Inst, ServiceHSz);

ifTopicHSz <> 0 thenDdeFreeStringHandle(Inst, TopicHSz);

forI := 1 toNumValues do

ifItemHSz[I] <> 0 thenDdeFreeStringHandle(Inst, ItemHSz[I]);

ifInst <> 0 thenDdeUninitialize(Inst); { Игнорируем возвращаемое значение }

if@CallBack <> nil thenFreeProcInstance(@CallBack);

end;

procedureTForm1.FormShow(Sender: TObject);

var

I : Integer;

{ Завершаем инициализацию окна DDE сервера. Процедура инициализации использует DDEML для регистрации сервисов, предусмотренных данным приложением. Помните о том, что реальные имена, использованные в регистрах, определены в отдельном модуле (DataEntry), поэтому они могут быть использованы и клиентом. }

begin

@CallBack:= MakeProcInstance(@CallBackProc, HInstance);

ifDdeInitialize(Inst, CallBack, 0, 0) = dmlErr_No_Error then begin

ServiceHSz:= DdeCreateStringHandle(Inst, DataEntryName, cp_WinAnsi);

TopicHSz := DdeCreateStringHandle(Inst, DataTopicName, cp_WinAnsi);

forI := 1 toNumValues do

ItemHSz[I] := DdeCreateStringHandle(Inst, DataItemNames[I],cp_WinAnsi);

ifDdeNameService(Inst, ServiceHSz, 0, dns_Register) = 0 then

ShowMessage('Ошибка в процессе регистрации.');

end;

end;

procedureTForm1.EnterData1Click(Sender: TObject);

{ Активизируем диалог ввода данных и обновляем хранимые данные по окончании ввода.}

varI: Integer;

begin

ifDataEntry.ShowModal = mrOk then begin

withDataEntry do begin

Label6.Caption := S1;

Label7.Caption := S2;

Label8.Caption := S3;

DataSample[1] := StrToInt(S1);

DataSample[2] := StrToInt(S2);

DataSample[3] := StrToInt(S3);

end; { with }

forI := 1 toNumValues do

ifAdvising[I] thenDdePostAdvise(Inst, TopicHSz, ItemHSz[I]);

end; { if }

end;

procedureTForm1.Clear1Click(Sender: TObject);

{ Очищаем текущую дату. }

varI: Integer;

begin

forI := 1 toNumValues do begin

DataSample[I] := 0;

ifAdvising[I] thenDdePostAdvise(Inst, TopicHSz, ItemHSz[I]);

end;

Label6.Caption := '0';

Label7.Caption := '0';

Label8.Caption := '0';

end;

end.

{ *** КОНЕЦ КОДА DDESVRU.PAS *** }

{ *** НАЧАЛО КОДА DDEDLG.DFM *** }

objectDataEntry: TDataEntry

Left = 488

Top = 132

ActiveControl = OK

BtnBorderStyle = bsDialog

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

ClientHeight = 264

ClientWidth = 199

Font.Color = clBlack

Font.Height = -11

Font.Name = 'MS Sans Serif'

Font.Style = [fsBold]

PixelsPerInch = 96

Position = poScreenCenter

OnShow = FormShow

TextHeight = 13

objectBevel1: TBevel

Left = 8

Top = 8

Width = 177

Height = 201

Shape = bsFrame

IsControl = True

end

objectOKBtn: TBitBtn

Left = 16

Top = 216

Width = 69

Height = 39

Caption = '&OK'

ModalResult = 1

TabOrder = 3

OnClick = OK

BtnClickGlyph.Data = {

BE060000424DBE06000000000000360400002800000024000000120000000100

0800000000008802000000000000000000000000000000000000000000000000

80000080000000808000800000008000800080800000C0C0C000C0DCC000F0CA

A600000000000000000000000000000000000000000000000000000000000000

0000000000000000000000000000000000000000000000000000000000000000

0000000000000000000000000000000000000000000000000000000000000000

0000000000000000000000000000000000000000000000000000000000000000

0000000000000000000000000000000000000000000000000000000000000000

0000000000000000000000000000000000000000000000000000000000000000

0000000000000000000000000000000000000000000000000000000000000000

0000000000000000000000000000000000000000000000000000000000000000

0000000000000000000000000000000000000000000000000000000000000000

0000000000000000000000000000000000000000000000000000000000000000

0000000000000000000000000000000000000000000000000000000000000000

0000000000000000000000000000000000000000000000000000000000000000

0000000000000000000000000000000000000000000000000000000000000000

0000000000000000000000000000000000000000000000000000000000000000

0000000000000000000000000000000000000000000000000000000000000000

0000000000000000000000000000000000000000000000000000000000000000

0000000000000000000000000000000000000000000000000000000000000000

0000000000000000000000000000000000000000000000000000000000000000

0000000000000000000000000000000000000000000000000000000000000000

0000000000000000000000000000000000000000000000000000000000000000

0000000000000000000000000000000000000000000000000000000000000000

0000000000000000000000000000000000000000000000000000000000000000

0000000000000000000000000000000000000000000000000000000000000000

0000000000000000000000000000000000000000000000000000000000000000