Работа с PDF-документами

Status
Not open for further replies.

Sacred_bpk

Турист
Так... звиняйте.... вопрос снят.
Разобрался с текущей версией. Вместо использования dcu-файлов попробовал прицепить имеющуюся DLL:

unit QuickPDFDLL;

interface

uses QuickPDFDLL0721 ;

Type
TQuickPDFDLL = class(TQuickPDFDLL0721)
public
constructor CreateUnLock ;
end;

implementation

uses Dialogs ;

{ TQuickPDFDLL }

constructor TQuickPDFDLL.CreateUnLock;
Var
UnlockResult: Integer;
begin
Create('QuickPDFDLL0721.dll') ;
UnlockResult := UnlockKey('jy4p34jy6ye34r4596je36t7y');
if UnlockResult <> 1 then
ShowMessage('Неверный лицензионный ключ');
end;

end.

Собственно все изменения в проекте :)
 

UnderDark

Турист
а как заставить Quick PDF работать с русско названными файлами? У меня при открытии вылетает ошибка имени файла
 

kiray

Турист
Quick PDF LIbrary 7.21 а вот где скачать полную версию а то всюда лайт
 

Sacrator

Турист
а как заставить Quick PDF работать с русско названными файлами? У меня при открытии вылетает ошибка имени файла
Я нашёл такое решение
Code:
procedure TfrmMain.Button1Click(Sender: TObject);
var
  PDFLibrary: TQuickPDF;
  UnlockResult: Integer;
  fs: TFileStream;
begin
  PDFLibrary := TQuickPDF.Create;
  try
    UnlockResult := PDFLibrary.UnlockKey('password');
    if UnlockResult = 1 then begin
      fs:=TFileStream.Create('D:\путь к файлу\какой-то файл.pdf',fmOpenRead);
      PDFLibrary.LoadFromStream(fs);
      fs.Free;
      //Работаем с файлом
    end else begin
      ShowMessage('Invalid license key for QuickPDF');
    end;
  finally
    PDFLibrary.Free;
  end;
end;
 

Tinitus

Premium
Premium
ATViewer может PDF показывать.
Gnostice eDocEngine может показывать и к тому-же создавать PDFs.
Начиная с версии 16.2 DevExpress VCL PDF Viewer может PDF показывать.

Последний производит лучшее впечатление из них.
 
Status
Not open for further replies.
Top