Мастера DELPHI, Delphi programming community Рейтинг@Mail.ru Титульная страница Поиск, карта сайта Написать письмо 
| Новости |
Новости сайта
Поиск |
Поиск по лучшим сайтам о Delphi
FAQ |
Огромная база часто задаваемых вопросов и, конечно же, ответы к ним ;)
Статьи |
Подборка статей на самые разные темы. Все о DELPHI
Книги |
Новинки книжного рынка
Новости VCL
Обзор свежих компонент со всего мира, по-русски!
|
| Форумы
Здесь вы можете задать свой вопрос и наверняка получите ответ
| ЧАТ |
Место для общения :)
Орешник |
Коллекция курьезных вопросов из форумов
KOL и MCK |
KOL и MCK - Компактные программы на Delphi
Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / rsdn.org

 
Чтобы не потерять эту дискуссию, сделайте закладку « предыдущая ветвь | форум | следующая ветвь »

KOLPDF ошибка на этапе LicenseCheck [Delphi, Windows]


RusSun ©   (21.02.16 06:55

Использовал:

kol_3.00M
ActiveKOLG
kol_errG

в других версиях выходят ошибки:
<error text>
[Pascal Error] ActiveKOL.pas(203): E2211 Declaration of 'OleInPlaceFrame_TranslateAccelerator' differs from declaration in interface 'IOleInPlaceFrame'
[Pascal Error] ActiveKOL.pas(416): E2065 Unsatisfied forward or external declaration: 'TOleServer.InitServerData'
[Pascal Error] ActiveKOL.pas(441): E2065 Unsatisfied forward or external declaration: 'TOleServer.Connect'
[Pascal Error] ActiveKOL.pas(442): E2065 Unsatisfied forward or external declaration: 'TOleServer.Disconnect'
[Pascal Fatal Error] Project1.dpr(4): F2063 Could not compile used unit 'ActiveKOL.pas'
</error text>
на этапе проверки лицензии падает.

begin
if (FControlData^.LicenseKey <> nil) then
begin
OleCheck(CoGetClassObject(FControlData^.ClassID, CLSCTX_INPROC_SERVER or
CLSCTX_LOCAL_SERVER, nil, IClassFactory2, ClassFactory2));
LicKeyStr := PWideChar(FControlData^.LicenseKey);
LicenseCheck(ClassFactory2.CreateInstanceLic(nil, nil, IOleObject,
LicKeyStr, FOleObject), SInvalidLicense);
end else
LicenseCheck(CoCreateInstance(FControlData^.ClassID, nil,
CLSCTX_INPROC_SERVER or CLSCTX_LOCAL_SERVER, IOleObject,
FOleObject), SNotLicensed);
end;

procedure LicenseCheck(Status: HResult; const Ident: string);
begin
if Status = CLASS_E_NOTLICENSED then
...


https://yadi.sk/d/8fsS0xMCpDS25


NoUser ©   (23.02.16 16:28[1]

Собрал со 'своей' версией KOL,

подправил:
procedure TPDF.CreateControl;
 procedure DoCreate;
 begin
  // FIntf := IUnknown(OleObject) as _DPdf;
  FIntf := _DPdf(IUnknown(OleObject));  
 end;
begin
 if FIntf = nil then DoCreate;
end;


pdf-ка открылась.

https://yadi.sk/d/fpKcWnmGpMbcU


RusSun ©   (23.02.16 19:19[2]

В Хр ошибка https://yadi.sk/i/61hf32INpNEH9
и на 7ке даёт тоже ошибку даёт. (


NoUser ©   (23.02.16 23:15[3]

>тоже ошибку даёт
Стесняюсь спросить, а Adobe Reader какой-нить у тебя установлен?

Не проверял на XP, но на 7W32, 7W64, 2K8, 2K12 полет нормальный.

P.S.
Запустил на EeePC(7W32) - упало.
( думаю что-то с err.pas - я его под x64 подкручивал )
Понатыкал OutputDebugString - попал в ...
LicenseCheck(CoCreateInstance(FControlData^.ClassID, nil, LSCTX_INPROC_SERVER or CLSCTX_LOCAL_SERVER, IOleObject, FOleObject), NotLicensed);
//
procedure LicenseCheck(Status: HResult; const Ident: string);
 begin
   if Status = CLASS_E_NOTLICENSED then
     raise EOleError.CreateFmt(e_Ole, Ident, [SubClassName]);   // ага!
   OleCheck(Status);                                  // ы?
 end;

Установил Adobe Reader XI
Биного  ))


Dimaxx ©   (23.02.16 23:19[4]

https://sourceforge.net/projects/lazarus-ccr/files/PowerPDF/
не требует наличия акробата. Но требует переделки...


RusSun ©   (24.02.16 04:41[5]


> Установил Adobe Reader XI
> Биного  ))

Спасибо теперь ясно чего он у меня не хотел "фурычить". Для просмотра я обычно использую STDU Viewer (STDUtility) а про Adobe Reader и не вспоминаю N так время. Уж больного долго приходилось ждать загрузки одно документа для просмотра.

> https://sourceforge.net/projects/lazarus-ccr/files/PowerPDF/
> не требует наличия акробата. Но требует переделки...

Будет смотреть в этом направлении.
Всем большое спасибо!!! Буду разбираться.


RusSun ©   (03.03.16 19:47[6]


> не требует наличия акробата. Но требует переделки...

to Dimaxx можно по точнее "за что хвататься"? А то в архиве всего навалом.


Dimaxx ©   (04.03.16 13:01[7]

Смотреть примеры использования и от используемых модулей отталкиваться. У меня до него еще руки не дошли. Скачал мимоходом, а тут упомянули пдф и вспомнил про него.


версия для печати

Написать ответ

Ваше имя (регистрация  E-mail 







Разрешается использование тегов форматирования текста:
<b>жирный</b> <i>наклонный</i> <u>подчеркнутый</u>,
а для выделения текста программ, используйте <code> ... </code>
и не забывайте закрывать теги! </b></i></u></code> :)


Наверх

  Рейтинг@Mail.ru     Титульная страница Поиск, карта сайта Написать письмо