Хотите раскрутить свой сайт в Яндекс и Google?
Недорогое и качественное продвижение сайта от 50$

Пример DDE & WordPerfect

Вот небольшой пример, скопированный из моего проекта:

procedure TForm1.PrintSave(Doc : String);

var

ProdDoc, ArchDoc : String;

WPCommands : TStringList;

begin

ProdDoc := ProdDrive + Doc;

ArchDoc := ArchDrive + Doc;

WPCommands := TStringList.Create;

with WPCommands do begin

Add('FileOpen(Filename:"'+ProdDoc+'")' );

Add('FileSave(Filename:"'+ProdDoc+'";ExportType:3;Overwrite:1)');

Add('PrintCopies(NumberOfCopies:2)');

Add('PrintCopiesBy(CopiesBy:1) ');

Add('PrintFullDoc() ');

Add('DocCompare(FileName:"'+ArchDoc+'";CompFlags:1) ');

Add('FileSave(Filename:"'+EMailDoc+'";ExportType:3;Overwrite:1');

Add('Close(Save:0) ');

end;

if PDDE.ExecuteMacroLines(WPCommands, True) then begin

log('WPCommand Worked!')

{ Теперь необходимо подождать WP, чтобы завершить команду... }

end

else log('Ошибка WPCommand!');

WPCommands.Free;

end;

Примечание: Вы не можете использовать 'True!' или 'False!', как это делается в макросах WP. Вы должны использовать числовые значения. Как узнать числовой эквивалент команды: если в WP использовать построитель макросов, то можно передавать перечислимые типы в диалоговое окно и узнавать их числовой эквивалент.

Все это проверено, DDE работает в связке WP/Delphi, первая команда возвращает сообщение 'Ok, я получил это', и запускает макрос. При попытке послать второй запрос DDE, он ожидает завершение обработки первого, выводит сообщение типа 'Необходимо подождать....', после чего немедленно передает управление. Мне хотелось бы дождаться команды завершения прежде, чем я возвращусь из своей процедуры.

John Studt [000701]

создание сайтов недорого
CSHQ.ru Public Server, все о маркетинге

Материалы, которые находятся на этой страничке, любезно предоставлены Игорем Ивановым

РЕКЛАМНЫЙ БЛОК