PHP DM Gate v0.9 » Delphi Microsoft Publischer <span class="vd">[Delphi, Windows]</span>

ROMAN201 © (07.04.09 00:43) [0]

При работе в делфи 7 с паблишером происходит интересная ситуация

паблишер реагирует на команды создания сервера автоматизации и создания документа (код ниже познее связывание) при раннем и познем связыввании.
А на все осталиные команды нет (например команды создания страницы ; добавление надписи и др)
может кто нибудь знает в чем проблема

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, OleServer, comobj;

type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var pub : Variant;

begin
pub:= CreateOleObject('Publisher.Application');

pub.Documents.Add($000000B3,1);
pub.Documents.Item[1].Pages.Add(2,1,1,true);
pub.ActiveDocument.Pages.Item[1].Shapes.AddTextEffect($00000001,'dffd','Arial',2 0,$FFFFFFFF,$FFFFFFFF,100,200);
pub.ActiveDocument.Pages.Item[1].Shapes.Item(1).TextFrame.TextRange.InsertAfter( 'dfdf');

<Цитата>