![]() |
|
|
|||||||
| Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
![]() |
|
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
|
|
#1
|
|||
|
|||
|
Ребят задача не тривиальная. Надо в базу запихнуть пдф файл который конвертировать из текстового. помогите в какую сторону копать. Спасибо за ответ
|
|
#2
|
||||
|
||||
|
Когда-то делал подобное способом перегонки текста в картинку,
а её затем в pdf-формат, не могу найти исходник, затерялся где-то в сорцехранке, но работало всё по примеру из drkb, только нужно установить в среду Acrobat Control for ActiveX посредством Component -> Import ActiveX Control -> Install Код:
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;Код:
...
if not TifToPDF('c:\test.tif', 'c:\test.pdf') then Showmessage('Could not convert');
... |
|
#3
|
|||
|
|||
|
Этот пример требует наличия акробата на машине. Не факт, что он есть.
Эестеперементировал с этими либами: PowerPDF SynPDF Для моего проекта, вроде, не совсем подходят, или я не до конца разобрался с ними, но для простых вещей, вроде, работали. Качал с Torry.ru в свое время, но, думаю, можно и так найти. |