Форум: "Основная";
Текущий архив: 2004.01.26;
Скачать: [xml.tar.bz2];

Вниз

TIF в PDF   Найти похожие ветки 

← →
ssk   (2004-01-15 11:20) [0]

Всем пивет! По ссылке http://www.delphimaster.ru/cgi-bin/faq.pl?look=1&id=988625110&n=21 имеется совет, как сделать сабж. Предлагаемые установки в совете я сделал, но при выполнении функции конвертирования вылетает ошибка "Неверная строка с указанием класса." Модули ComObj, OleCtrls, PdfLib_TLB в uses прописал и полученный при этом компонент PDF на форму положил. Вот функция из ссылки:


function TifToPDF(TIFFilename, PDFFilename: string): boolean;
var
AcroApp : variant;
AVDoc : variant;
PDDoc : variant;
IsSuccess : Boolean;
begin
result := false;
if not fileexists(TIFFilename) then exit;

try
AcroApp := CreateOleObject("AcroExch.App"); // <-- здесь показывает ошибку
AVDoc := CreateOleObject("AcroExch.AVDoc");

AVDoc.Open(TIFFilename, "");
AVDoc := AcroApp.GetActiveDoc;

if AVDoc.IsValid then
begin
PDDoc := AVDoc.GetPDDoc;

PDDoc.SetInfo ("Title", "");
PDDoc.SetInfo ("Author", "");
PDDoc.SetInfo ("Subject", "");
PDDoc.SetInfo ("Keywords", "");

result := PDDoc.Save(1 or 4 or 32, PDFFilename);

PDDoc.Close;
end;

AVDoc.Close(True);
AcroApp.Exit;

finally
VarClear(PDDoc);
VarClear(AVDoc);
VarClear(AcroApp);
end;
end;


Установлен Acrobat 5.0. Может кто подскажет, как устранить ошибку? Может я что-то не так сделал?

---

← →
ssk   (2004-01-15 12:23) [1]

Неужели никто не знает?

---

← →
Amoeba   (2004-01-15 12:47) [2]

А Acrobat у тебя полный или обычный халявный Reader?

---

← →
ssk   (2004-01-15 12:59) [3]

Не знаю. Reader есть. А как можно узнать, полный Acrobat или нет?

---

← →
Amoeba   (2004-01-15 13:21) [4]

Хотя бы по размеру дистрибутива: у полного он под 100Мб, у Reader"a - в 10 раз меньше. Полный позволяет создавать и редактировать PDF файлы, а Reader их только читает.

---

← →
ssk   (2004-01-15 13:33) [5]

Ясно. У меня установка Acrobat 5.0 весит 9 Мб, значит, это просто Reader. Попробую найти полный.

---

← →
ssk   (2004-01-15 13:34) [6]

Если знаешь, где можно взять, скажи ;-)

---

← →
Amoeba   (2004-01-15 13:37) [7]

Если откуда скачать, то не знаю. А так можно найти на пиратских CD.

---

← →
ssk   (2004-01-15 13:44) [8]

Спасибо.

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2004.01.26;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.46 MB
Время: 0.068 c