Форум » [x]Harbour » PAGESCRIPT 32 FOR (X)HARBOUR » Ответить
PAGESCRIPT 32 FOR (X)HARBOUR
Dima: Пытаюсь прикрутить PageScript 32 к проге на Harbour и облом. К проге на Xharbour прикрутил нормально (работает) Есть в TPSCRIPT.PRG (поставляется вместе с библой) [pre2] #include "PScript.ch" #include "FileIO.ch" #ifdef __XHARBOUR__ // 02.06.2005 - IBTC - changed for xHarbour Builder: #xtranslate Method <Classname>:<x> => Method <x> #define DLL_STDCALL NIL #include "hbclass.ch" #else #include "Xbp.ch" #include "Dll.ch" #endif [/pre2] Harbour естественно не находит Xbp.ch , Dll.ch , не пойму что делать. [pre2] =============================================== PAGESCRIPT 32 FOR (X)HARBOUR =============================================== This file contains important supplementary and late-breaking information that may not appear in the main product documentation. We recommend that you read this file in its entirety. In order to use PageScript 32 with (x)Harbour, you'll need to distribute PSCRIPT.DLL with your programs. We recommand that PSCRIPT.DLL be copied in the application's folder in order to avoid DLL versions conflicts. Three files needs to be included in your (x)Harbour projects : 1 - DLLCALL.C 2 - TPSCRIPT.PRG 3 - PSCRIPT.CH DLLCALL.C gives PageScript a way to call DLL functions in the same way as Xbase++ does. This interface is contributed by Paul Tucker, Ontario, Canada. Many thanks to him for this great contribution. TPSCRIPT.PRG contains all the PageScript 32 functions and one class, named TPageScript. You may either choose to call PS functions or instantiate TPageScript and use its methods. When you use functions, calling PSInit() automaticaly instanciates a Static TPageScript object. PSCRIPT.CH contains constants used by PageScript 32. [/pre2] Что то не пойму она будет вообще с Hаrbour работать http://www.abeelabs.com/pagescript32/index.php у меня версия 1.3.4.0
Dima: Все , разобрался. Прицепил к проге.
Dima: Кто то работает с PageScript под Harbour , или только я один ? Есть вопросик. Функция PSBitmap нормально растягивает картинку по заданным координатам. Но понадобилось печать выводить в PDF формате. В PageScript есть такая возможность через PSSetDevice(3) , все выводится красиво но вот с PSBitmap проблема и изображение не растягивается как следует по горизонтали. То есть грубо говоря если я хочу вписать картинку в прямоугольник шириной 100 мм , то картинка (при PSSetDevice(3)) впишется только в ширину 90 мм. По высоте все чётко. Если выводить на просмотр средствами PageScript или сразу на печать , такой проблемы нет.
gfilatov2002: Dima пишет: Кто то работает с PageScript под Harbour В продолжение темы - PageScript теперь живет по адресу http://pagescript32.com/ и поддержка PDF в его движке существенно переработана и исправлена. Новые владельцы этого продукта обещают уже скоро анонсировать новую версию этой DLL. Кстати, будет обеспечена поддержка 64-битной версии также. Если это будет интересно, то смогу включить их базовый тестовый пример в новую сборку Минигуи. Ваши комментарии приветствуются
Dima: gfilatov2002 Интересно конечно. А кроме HTML хелпа , где то есть страница с загрузкой самого PS32 ? Или снова за бабки ? ))
gfilatov2002: Dima пишет: где то есть страница с загрузкой самого PS32 Они обещают первую бету раздавать бесплатно, когда она будет готова (адрес выложат на сайте выше). А последующие версии будут платные Я сейчас тестирую такую предварительную версию, и впечатления - приятные, но размер подключаемой DLL увеличился примерно на 1 МБайт за счет полной переработки поддержки PDF формата.
Dima: gfilatov2002 Разработчики те же ? На каком языке кодят ( ранее был Delphi ) ?
gfilatov2002: Dima пишет: Разработчики те же ? Нет, права на эту библиотеку выкупила голландская фирма. Dima пишет: На каком языке кодят ( ранее был Delphi ) ? Да, это Дельфи. Дополнение о новом компоненте PDF - теперь используется eDocEngine VCL 5 версии (последний билд).
gfilatov2002: gfilatov2002 пишет: смогу включить их базовый тестовый пример в новую сборку Минигуи. Выложил для ознакомления этот тестовый пример по адресу: http://hmgextended.com/files/MISC/ps32demo.zip Ваши комментарии приветствуются
Dima: gfilatov2002 пишет: Ваши комментарии приветствуются TRIAL и TRAIL это же разные вещи В демке живет именно TRAIL PS TNFSF10 (чаще обозначается как TRAIL) входит в многочисленное семейство факторов некроза опухоли
Dima: gfilatov2002 В целом все нормально. Ранее помнится был еще и TPSCRIPT.PRG , теперь его не будет ?
gfilatov2002: Dima пишет: В целом все нормально Dima пишет: был еще и TPSCRIPT.PRG , теперь его не будет ? Будет, конечно. Ведь в него добавлены переходники для новых функций, которые, кстати, используются в демке
MIKHAIL: Крутая вещь ! А можно прикрутить к консольному Harbour ?
Dima: MIKHAIL пишет: А можно прикрутить к консольному Harbour ? Конечно. У меня давно работает.
MIKHAIL: Dima можешь мне скинуть рабочую версию и если есть описание ?
Dima: MIKHAIL https://web.archive.org/web/20150201213531/http://abeelabs.com/downloads/PS32.zip Описание где то я выкладывал , сейчас поищу https://cloud.mail.ru/public/2yaSnFYj5xHU/Guides.rar
Dima: MIKHAIL Стянул ?
MIKHAIL: Dima пишет: Стянул ? Нет, какая то ссылка странная. Сам сервер http://abeelabs.com не работает...
Dima: MIKHAIL Ссылка нормальная Вот она без подчерка впереди _https://web.archive.org/web/20150201213531/http://abeelabs.com/downloads/PS32.zip PS Я сливал сегодня по ней , всё норм.
MIKHAIL: Dima пишет: https://web.archive.org/web/20150201213531/http://abeelabs.com/downloads/PS32.zip Спасибо скачал. Там есть инструкции как подключать к проекту ?
Dima: MIKHAIL [pre2] PAGESCRIPT 32 FOR (X)HARBOUR =============================================== This file contains important supplementary and late-breaking information that may not appear in the main product documentation. We recommend that you read this file in its entirety. In order to use PageScript 32 with (x)Harbour, you'll need to distribute PSCRIPT.DLL with your programs. We recommand that PSCRIPT.DLL be copied in the application's folder in order to avoid DLL versions conflicts. Three files needs to be included in your (x)Harbour projects : 1 - DLLCALL.C 2 - TPSCRIPT.PRG 3 - PSCRIPT.CH DLLCALL.C gives PageScript a way to call DLL functions in the same way as Xbase++ does. This interface is contributed by Paul Tucker, Ontario, Canada. Many thanks to him for this great contribution. TPSCRIPT.PRG contains all the PageScript 32 functions and one class, named TPageScript. You may either choose to call PS functions or instantiate TPageScript and use its methods. When you use functions, calling PSInit() automaticaly instanciates a Static TPageScript object. PSCRIPT.CH contains constants used by PageScript 32. [/pre2] Правда мне пришлось подправить сырец , вот так [pre2] METHOD TPageScript:Init() ::bWaterMark := NIL // Codeblock for Watermark function ::nWaterMark := AWM_NONE // Indicates if the WaterMark is to be printed foreground or background ::lFromDialog := .f. // Indicates if printer selected from printer dialog ::lClipper := .f. // Indicates if calls to TextOut and TextBox should be compatible with PageScript for Clipper ::nUnit := APS_MILL // Default unit is MILLIMETERS ::aPrinters := {} // List of available printers ::nError := PSE_NOERROR // Indicates an error condition, such as no printer available ::aDocInfo := {0, "", "", APS_PORTRAIT, 1, APS_COURIER} // Print job info array ::hDll := DllLoad("PScript.dll") // Handle of the .DLL if ::hDll == nil//0 ::nError := PSE_DLLNOTLOADED // DLL not loaded error else ::nError := DllCall(::hDll, DLL_STDCALL, "PSInit") // No error, set the coordinate system to TOP/LEFT (Default) if ::nError == PSE_NOERROR DllCall(::hDll, DLL_STDCALL, "PSSetCoorSystem", APS_TOPLEFT) endif endif Return Self [/pre2] + ихний DLLCALL.C не использую + вверху сырца у меня так [pre2] #ifdef __HARBOUR__ // 02.06.2005 - IBTC - changed for xHarbour Builder: #xtranslate Method <Classname>:<x> => Method <x> #include "hbclass.ch" #include "Dll.ch" #else #include "Xbp.ch" #include "Dll.ch" #endif [/pre2]
полная версия страницы