VPF::Delphi и CorelDraw через OLE - Форум программистов

mr_Driver

Дата 9.8.2004, 16:33 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Пытаюсь заставить Delphi работать с CorelDRAW 11 , но не все так сладко получается

Вот код:

Код

procedure TForm1.Button1Click(Sender: TObject);
var
CorelDraw: Variant;
sPath : String;
begin
try
CorelDraw := CreateOleObject('CorelDRAW.Application');
except
ShowMessage('CorelDRAW не запускается!');
Exit;
end;
CorelDraw.CorelScript.FileNew;
CorelDraw.Visible := true;
CorelDraw.ActiveDocument.InsertPagesEx(1,true,1, 16.535433, 11.692913);
CorelDraw.ActiveDocument.ActiveLayer.CreateEllipse(3,3,2,1); // Эллипс рисуется без проблем 
sPath := 'C:\0000\123.jpg';
CorelDraw.ActiveDocument.ActiveLayer.Import(sPath,774); // Картинка вставляться не хочет пишет ошибка: “Несовпадение типов” 
end;

Может кто-то сталкивался с этим, подскажите плиз в чем ошибка

MaksMS

Дата 15.3.2010, 06:29 (ссылка)

(голосов:1)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 5
Регистрация: 15.3.2010

Репутация: нет
Всего: нет

Как работать с Corel в Delphi

Regulum

Дата 15.3.2010, 09:07 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 29
Регистрация: 16.6.2009

Репутация: 1
Всего: 1

Есть книга "Corel Draw X3 Graphics Suite. Programming Guide for VBA". Перевести программу с VBA на Delphi не представляет большой сложности. Небольшое неудобство в том, что книга на английском языке, но разобраться можно.

P.S. Если не найдешь, пиши в личку, у меня она есть.

Это сообщение отредактировал(а) Regulum - 15.3.2010, 09:08

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: ActiveX/СОМ/CORBA \| Следующая тема »