функция ИзвлечьСтраницуPDF(имяфайла,страница)
answer=новый Структура("error,result",false,"");
// вариант с ExtractPDF
ПутьКПрограммеИзвлечения = lsОбщегоНазначенияСервер.ПутьКПрограммеРаботыСPDFФайлами();
ИмяВременногоФайлаИзвлечения = ПолучитьИмяВременногоФайла("pdf");
КаталогИзвлечения = ОбщегоНазначенияКлиентСервер.ДобавитьКонечныйРазделительПути(КаталогВременныхФайлов());
КодВозвратаКомпоненты = 1;
ЗапуститьПриложение(ПутьКПрограммеИзвлечения + " 1 """ + имяфайла + """ """ + ИмяВременногоФайлаИзвлечения+""" "+Формат(страница,"ЧГ=0"), , Истина, КодВозвратаКомпоненты);
Если КодВозвратаКомпоненты <> 0 Тогда
answer.error=true;
answer.result="Не удалось извлечь файлы счетов! для л/с ";
возврат answer;
КонецЕсли;
answer.result=ИмяВременногоФайлаИзвлечения;
// вариант с pdftk
//ПутьКПрограммеИзвлечения = lsОбщегоНазначенияСервер.ПутьКПрограммеРаботыСPDFФайлами();
//ИмяВременногоФайлаИзвлечения = ПолучитьИмяВременногоФайла("pdf");
//КаталогИзвлечения = ОбщегоНазначенияКлиентСервер.ДобавитьКонечныйРазделительПути(КаталогВременныхФайлов());
//КодВозвратаКомпоненты = 1;
//страница=Формат(страница,"ЧГ=0");
//ЗапуститьПриложение(ПутьКПрограммеИзвлечения +" """+ имяфайла + """ cat "+страница+" """ + ИмяВременногоФайлаИзвлечения+"""", , Истина, КодВозвратаКомпоненты);
//Если КодВозвратаКомпоненты <> 0 Тогда
// answer.error=true;
// answer.result="Не удалось извлечь файлы счетов! для л/с ";
// возврат answer;
//КонецЕсли;
//answer.result=ИмяВременногоФайлаИзвлечения;
возврат answer;
конецфункции
