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

Procedure TProgMan.InitDDEConversation;

begin

 FDdeClientConv := TDdeClientConv.Create(Self);

 If NOT FDdeClientConv.SetLink('PROGMAN', 'PROGMAN') then

  raise EProgManError.Create('Не могу установить DDE Link');

end;

Procedure TProgMan.CreateGroup(GroupName: String; ShowGroup:Boolean);

Begin

 { Удаляем группу, если она существует }ExecMacroString(Format(SDDEDeleteGroup, [GroupName]));

 If NOT ExecMacroString(Format(SDDECreateGroup, [GroupName])) then

  raise EProgManError.Create('Не могу создать группу ' + GroupName);

 If ShowGroup then

  If not ExecMacroString(Format(SDDEShowGroup, [GroupName])) then

   raise EProgManError.Create('Не могу показать группу ' + GroupName);

End;

Procedure TProgMan.DeleteGroup(GroupName: String);

Begin

 if NOT ExecMacroString(Format(SDDEDeleteGroup, [GroupName])) then

  raise EProgManError.Create('Не могу удалить группу ' + GroupName);

End;

Procedure TProgMan.DeleteItem(ItemName: String);

Begin

 if NOT ExecMacroString(Format(SDDEDeleteGroup, [ItemName])) then

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

End;

Procedure TProgMan.AddItem(CmdLine, ItemName: String);

Var

 P: PChar;

 PSize: Word;

Begin

 PSize := StrLen(SDDEAddItem) + (Length(CmdLine) *2) + Length(ItemName) + 1;

 GetMem(P, PSize);

 try

  StrFmt(P, SDDEAddItem, [CmdLine, ItemName, CmdLine]);

  if NOT FDdeClientConv.ExecuteMacro(P, False) then

   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. Сервер может автоматически передавать данные клиенту, после чего клиент обновляет свой вид на основе результатов, полученных от сервера.