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

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

на обложку

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

Шрифт:

raise EProgManError.Create('Не могу добавить элемент ' + ItemName);

finally

FreeMem(P, PSize);

end;

End;

end.

GROUPFILE и ADDITEM для групп

Delphi 1

Вот код для создания файла группы и добавления в группу файла-элемента.

Чтобы использовать эту процедуру, определите DDE clientconv App как ProgMan.

procedure TMainForm.CreateWinGroup(Sender: TObject);

var

Name: string;

Name1: string;

Macro: string;

Macro1: string;

Cmd, Cmd1: array[0..255] of Char;

begin

{destDir - dos-каталог, хранящий YourFile.Ext'}

Name := 'GroupName';

Name1 := destDir + 'YourFile.Ext, FileName_in_Group ';

Macro := Format('[CreateGroup(%s)]', [Name]) + #13#10;

Macro1 :=Format('[Additem(%s)]',[Name1]) +#13#10;

StrPCopy(Cmd, Macro);

StrPCopy(cmd1, Macro1);

DDEClient.OpenLink;

if not DDEClient.ExecuteMacro(Cmd, False) then

MessageDlg('Невозможно создать группу '+Name, mtInformation, [mbOK], 0)

else begin

DDEClient.ExecuteMacro(Cmd1, False);

end;

DDEClient.CloseLink;

end;

Как можно работать с DDE под Delphi, используя вызовы API?

Delphi 3

Кстати, достаточно легко: следующий пример демонстрирует как можно научить общаться клиентскую программу с программой-сервером. Обе программы полностью созданы на Delphi. В итоге мы имеем 2 проекта, 3 формы и 3 модуля. Для работы с DDE-запросами данный пример использует методы DDE ML API.

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

1. Клиент может "пропихивать" (POKE) данные на сервер.

2. Сервер может автоматически передавать данные клиенту, после чего клиент обновляет свой вид на основе результатов, полученных от сервера.

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