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

3. Данные сервера изменяются, после чего клиент делает запрос серверу для получения новых данных и обновляет свой вид.

Как работает программа.

Ниже приведены 8 файлов, сконкатенированных в единое целое. Каждый файл имеет следующую структуру:

{ *** НАЧАЛО КОДА FILENAME.EXT *** } КОД { *** КОНЕЦ КОДА FILENAME.EXT *** },

поэтому вам остается всего-лишь взять код, расположенный между маркерами { *** }, скопировать в файл с соответствующим именем, и собрать оба проекта в среде Delphi.

{ *** НАЧАЛО КОДА DDEMLCLI.DPR *** }

program Ddemlcli;

uses Forms,Ddemlclu in 'DDEMLCLU.PAS' {Form1};

{$R *.RES}

begin

 Application.CreateForm(TForm1, Form1);

 Application.Run;

end.

{ ***  КОНЕЦ КОДА DDEMLCLI.DPR *** }

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

object Form1: TForm1

 Left = 197

 Top = 95

 Width = 413

 Height = 287

 HorzScrollBar.Visible = False

 VertScrollBar.Visible = False

 Caption = 'Демонстрация DDEML, Клиентское приложение'

 Font.Color = clWindowText

 Font.Height = -13

 Font.Name = 'System'

 Font.Style = []

 Menu = MainMenu1

 PixelsPerInch = 96

 OnCreate = FormCreate

 OnDestroy = FormDestroy

 OnShow = FormShow

 TextHeight = 16

 object PaintBox1: TPaintBox

  Left = 0

  Top = 0

  Width = 405

  Height = 241

  Align = alClient

  Color = clWhite

  ParentColor = False

  OnPaint = PaintBox1Paint

 end

 object MainMenu1: TMainMenu

  Top = 208

  object File1: TMenuItem

   Caption = '&Файл'

   object exit1: TMenuItem

    Caption = 'В&ыход'

    OnClick = exit1Click

   end

  end

  object DDE1: TMenuItem

   Caption = '&DDE'

   object RequestUpdate1: TMenuItem

    Caption = '&Запрос на обновление'

    OnClick = RequestUpdate1Click

   end

   object AdviseofChanges1: TMenuItem

    Caption = '&Сообщение об изменениях'

    OnClick = AdviseofChanges1Click

   end

   object N1: TMenuItem

    Caption = '-'

   end

   object PokeSomeData: TMenuItem

    Caption = '&Пропихивание данных'

    OnClick = PokeSomeDataClick

   end

  end

 end

end

{ ***  КОНЕЦ КОДА DDEMLCLU.DFM *** }

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

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

{                                                   }

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

{   Copyright (c) 1996 by Borland International     }

{                                                   }

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

{ Это демонстрационное приложение, демонстрирующее использование DDEML API в клиентском приложении. Оно использует серверное приложение DataEntry, которое является частью данной демонстрации, и служит для ввода данных и отображения их на графической панели.

Сначала вы должны запустить приложение-сервер (в DDEMLSRV.PAS), а затем стартовать клиента. Если сервер не запущен, клиент при попытке соединения потерпит неудачу.