Как сделать калькулятор в Delphi?
Delphi - объектно-ориентированный язык программирования, разработанный компанией Borland в 1995 году. Он основан на языке программирования Pascal, но имеет более расширенные возможности и добавлены новые функции.
Как Delphi реализует многоплатформенную разработку?
Delphi является интегрированной средой разработки (IDE), которая позволяет разрабатывать программное обеспечение для различных платформ, включая Windows, macOS, Android и iOS. Delphi достигает многоплатформенности с помощью...
Конвертируем TIF в PDF
Как-то раз получился TIF файл на несколько страниц и возникла необходимость конвертации его в PDF формат. Для использования такой возможности необходимо иметь полную версию Adobe Acrobat. Функция тестировалась на Adobe Acrobat 4.0.
Сперва Вам необходимо импортировать элементы управления Acrobat AxtiveX.
- Выберите Component -> Import ActiveX Control
- Выберите Acrobat Control for ActiveX и нажмите install
- Выберите пакет ActiveX control для инсталяции
- Добавьте PDFlib_tlb в Ваш проект. Этот файл находится в директории BorlandDelphi5Imports.
Как использовать функцию
Вот пример её вызова:
if not TifToPDF('c: est.tif', 'c: est.pdf') then
Showmessage('Could not convert');
Функция TifToPdf:
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;