Corel+Delphi

← →
Darken (2004-10-07 23:20) [0]

Читал статью как под Corel8 все прекрасно работает!(попробовал применить примеры к 12 корелу и о-очень в этом засомневался, хотя может когда то!... у кого то оно и работало...)
Так вот может кто имеет информацию по взаимодействию Дельфи и Корела (только не корела-8)!

Все что мне удалось методом научного тыка, так вот это только и сделать:

var
Mspace, Acad : OleVariant;

acad:=CreateOleObject("CorelDraw.Application");
Mspace:= acad.CreateDocument;
acad.visible:=true;
Mspace:=acad.ActiveLayer.CreateEllipse2(3.404433, 8.602063, 1.891102, -1.891102, 90, 90, False);
Mspace:=acad.ActiveLayer.CreateEllipse(9.404433, 8.602063, 1.891102, -1.891102, 90, 90, False);
acad.ActiveLayer.CreateRectangle(9.404433, 8.602063, 1.891102, -1.891102, False);
acad:= mspace.Duplicate(5, -7);
acad:=mspace.Move( -5.754354, 0.756441);

Так вот если кто знает как выбрать обьект(фигуру), задать его параметры и т.д. E-mail: as_6@list.ru

← →
Кузя (2004-10-08 16:11) [1]

Кури материалы здесь
http://www.delphikingdom.com/table/search.asp?namekey=Corel&ItemID=&isQuestion=1&Qwaddress=&TypeEqv=0&Count=10

От себя могу добавить, что от версии к версии что-то добавляется а что-то и перестает работать :(

← →
GROL (2004-10-17 01:40) [2]

Инициализировать советую так:
if Ver in [10..12] then CreateOleObject("CorelDraw.Application."+IntToStr(Ver)); CorelDraw := CreateOleObject("CorelDraw.Automation."+IntToStr(Ver));

Corel+Delphi Найти похожие ветки