Подскажите с автоматизацией в дельфи
От: indian  
Дата: 29.05.08 03:29
Оценка:
Написал тестовый кусочек использования автоматизации в бейсике (VB6). Идёт на ура. Попробовал сделать тоже на плюсах (VC7.1). (Загрузил библиотеку типов). Вываливается на ошибках. Не идут параметры по умолчанию. Мучаю ИнДезайн CS2. Давно с дельфи не работал. Может кто кинет толовые ссылки как на дельфи сделать это. (Если, конечно, возможно на дельфи дефаултные аргументы игнорировать...)
Вот код из бейсика:

Private Sub Command1_Click()
Dim myPlacePoint(0 To 1) As Double
myPlacePoint(0) = 50#
myPlacePoint(1) = 50#

Set myPages = myDocument.Pages
Set myPage = myPages.Add

Set myLayers = myDocument.Layers
Set myLayer = myLayers.FirstItem


Call myPage.Place("D:\Work\InDD\Erm09787.eps", myPlacePoint, myLayer)
End Sub

Private Sub Form_Load()
' Инициализация объектов
Set myInDesign = CreateObject("InDesign.Application.CS2")
Set myDocument = myInDesign.Open("D:\Work\Storm\InDD\Modules.indt")
End Sub

Проблема в третьем параметре, хоть он мне и не нужен — без разницы, на какой слой будут помещаться объекты...
Затыкается на переменной myLayer. Там ещё есть две переменные, но ставятся они в false.
 
Подождите ...
Wait...
Пока на собственное сообщение не было ответов, его можно удалить.