Форум: "Основная";
Текущий архив: 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.005 c