2007-11-11 18:07 UTC+0100 Viktor Szakats (harbour.01 syenar.hu)
* contrib/mtpl.mak
* contrib/mtpl_b32.mak
* contrib/mtpl_vc.mak
+ Added support for HB_ROOT.
+ Now default HB_*_INSTALL dirs are set inside make files.
(to avoid manipulating these envvars on the batch file level)
* contrib/libmisc/make_b32.bat
* contrib/libmisc/make_vc.bat
- Removed HB_*_INSTALL manipulation from .bat files.
* contrib/hgf/win32/make_b32.bat
* contrib/hgf/win32/make_vc.bat
- contrib/hgf/win32/make_b32.mak
- contrib/hgf/win32/make_vc.mak
+ contrib/hgf/win32/common.mak
+ Now using contrib template make files.
* make_b32.bat
* make_vc.bat
* common.mak
! Moved HB_*_INSTALL defaulting to make file level.
+ contrib/ole
+ contrib/ole/common.mak
+ contrib/ole/oleauto.prg
+ contrib/ole/test/sample.odt
+ contrib/ole/test/testole.prg
+ contrib/ole/test/bld_b32.bat
+ contrib/ole/ole2.c
+ contrib/ole/make_b32.bat
+ contrib/ole/make_vc.bat
+ contrib/ole/Makefile
+ Restored "old" OLE implementation, as it was reported
by Mindaugas Kavaliaskuas that it works better in some
respects than the newer version in /contrib/win32.
Until we know further about the details there is no
reason to not have this contrib.
+ Added CreateObject() and GetActiveObject() to enhance
compatibility with newer implementation.
+ Standardized make files.
* test moved to test dir.
+ Added VC make file.
* contrib/win32/test/testole.prg
+ contrib/ole/test/testole.prg
+ The two test apps from the two OLE implementations
were merged and now they are the same. A quick look
shows differences when detecting the presence of
an OLE object. "old" OLE GPFs with "new" OLE method,
"new" OLE RTEs with "old" OLE method.
* pdflib/common.mak
* pdflib/pdf1.prg
* pdflib/pdfhbdocs.prg
* pdflib/pdfhbdoc.c
* pdflib/Makefile
! Removed GLOBAL requirement.
! Moved away C code inside .prg.
! Fixed some unused var warnings.
! Removed some unused stuff.
; Now there are clashing symbols. I suspect this is an
unfinished contrib, even in xhb.
This commit is contained in:
Viktor Szakats
@@ -8,6 +8,71 @@
|
||||
2002-12-01 13:30 UTC+0100 Foo Bar <foo.bar@foobar.org>
|
||||
*/
|
||||
|
||||
2007-11-11 18:07 UTC+0100 Viktor Szakats (harbour.01 syenar.hu)
|
||||
* contrib/mtpl.mak
|
||||
* contrib/mtpl_b32.mak
|
||||
* contrib/mtpl_vc.mak
|
||||
+ Added support for HB_ROOT.
|
||||
+ Now default HB_*_INSTALL dirs are set inside make files.
|
||||
(to avoid manipulating these envvars on the batch file level)
|
||||
|
||||
* contrib/libmisc/make_b32.bat
|
||||
* contrib/libmisc/make_vc.bat
|
||||
- Removed HB_*_INSTALL manipulation from .bat files.
|
||||
|
||||
* contrib/hgf/win32/make_b32.bat
|
||||
* contrib/hgf/win32/make_vc.bat
|
||||
- contrib/hgf/win32/make_b32.mak
|
||||
- contrib/hgf/win32/make_vc.mak
|
||||
+ contrib/hgf/win32/common.mak
|
||||
+ Now using contrib template make files.
|
||||
|
||||
* make_b32.bat
|
||||
* make_vc.bat
|
||||
* common.mak
|
||||
! Moved HB_*_INSTALL defaulting to make file level.
|
||||
|
||||
+ contrib/ole
|
||||
+ contrib/ole/common.mak
|
||||
+ contrib/ole/oleauto.prg
|
||||
+ contrib/ole/test/sample.odt
|
||||
+ contrib/ole/test/testole.prg
|
||||
+ contrib/ole/test/bld_b32.bat
|
||||
+ contrib/ole/ole2.c
|
||||
+ contrib/ole/make_b32.bat
|
||||
+ contrib/ole/make_vc.bat
|
||||
+ contrib/ole/Makefile
|
||||
+ Restored "old" OLE implementation, as it was reported
|
||||
by Mindaugas Kavaliaskuas that it works better in some
|
||||
respects than the newer version in /contrib/win32.
|
||||
Until we know further about the details there is no
|
||||
reason to not have this contrib.
|
||||
+ Added CreateObject() and GetActiveObject() to enhance
|
||||
compatibility with newer implementation.
|
||||
+ Standardized make files.
|
||||
* test moved to test dir.
|
||||
+ Added VC make file.
|
||||
|
||||
* contrib/win32/test/testole.prg
|
||||
+ contrib/ole/test/testole.prg
|
||||
+ The two test apps from the two OLE implementations
|
||||
were merged and now they are the same. A quick look
|
||||
shows differences when detecting the presence of
|
||||
an OLE object. "old" OLE GPFs with "new" OLE method,
|
||||
"new" OLE RTEs with "old" OLE method.
|
||||
|
||||
* contrib/pdflib/common.mak
|
||||
* contrib/pdflib/pdf1.prg
|
||||
* contrib/pdflib/pdfhbdocs.prg
|
||||
* contrib/pdflib/pdfhbdoc.c
|
||||
* contrib/pdflib/Makefile
|
||||
! Removed GLOBAL requirement.
|
||||
! Moved away C code inside .prg.
|
||||
! Fixed some unused var warnings.
|
||||
! Removed some unused stuff.
|
||||
; Now there are clashing symbols. I suspect this is an
|
||||
unfinished contrib, even in xhb.
|
||||
|
||||
2007-11-11 16:07 UTC+0100 Viktor Szakats (harbour.01 syenar.hu)
|
||||
* contrib/xhb/hbcompat.ch
|
||||
+ Added hb_At() translation to extended At()
|
||||
|
||||
@@ -40,6 +40,24 @@ LIBEXT=.lib
|
||||
#LIBPREF=
|
||||
#!endif
|
||||
|
||||
#**********************************************************
|
||||
# Install directory defaults.
|
||||
#**********************************************************
|
||||
|
||||
!ifndef HB_INSTALL_PREFIX
|
||||
HB_INSTALL_PREFIX = .
|
||||
!endif
|
||||
|
||||
!ifndef HB_BIN_INSTALL
|
||||
HB_BIN_INSTALL = $(HB_INSTALL_PREFIX)\bin
|
||||
!endif
|
||||
!ifndef HB_INC_INSTALL
|
||||
HB_INC_INSTALL = $(HB_INSTALL_PREFIX)\include
|
||||
!endif
|
||||
!ifndef HB_LIB_INSTALL
|
||||
HB_LIB_INSTALL = $(HB_INSTALL_PREFIX)\lib
|
||||
!endif
|
||||
|
||||
#**********************************************************
|
||||
|
||||
#
|
||||
|
||||
23
harbour/contrib/hgf/win32/common.mak
Normal file
23
harbour/contrib/hgf/win32/common.mak
Normal file
@@ -0,0 +1,23 @@
|
||||
#
|
||||
# $Id$
|
||||
#
|
||||
|
||||
LIBNAME = hgfwin32
|
||||
|
||||
LIB_PATH = $(LIB_DIR)\$(LIBNAME)$(LIBEXT)
|
||||
|
||||
#
|
||||
# LIB rules
|
||||
#
|
||||
|
||||
LIB_OBJS = \
|
||||
$(OBJ_DIR)\button$(OBJEXT) \
|
||||
$(OBJ_DIR)\edit$(OBJEXT) \
|
||||
$(OBJ_DIR)\form$(OBJEXT) \
|
||||
$(OBJ_DIR)\menu$(OBJEXT) \
|
||||
$(OBJ_DIR)\menuitem$(OBJEXT) \
|
||||
$(OBJ_DIR)\winctrl$(OBJEXT) \
|
||||
$(OBJ_DIR)\win32$(OBJEXT)
|
||||
|
||||
all: \
|
||||
$(LIB_PATH) \
|
||||
@@ -3,6 +3,23 @@ rem
|
||||
rem $Id$
|
||||
rem
|
||||
|
||||
rem ---------------------------------------------------------------
|
||||
rem This is a generic template file, if it doesn't fit your own needs
|
||||
rem please DON'T MODIFY IT.
|
||||
rem
|
||||
rem Instead, make a local copy and modify that one, or make a call to
|
||||
rem this batch file from your customized one. [vszakats]
|
||||
rem
|
||||
rem Set any of the below settings to customize your build process:
|
||||
rem set HB_MAKE_PROGRAM=
|
||||
rem set HB_MAKE_FLAGS=
|
||||
rem ---------------------------------------------------------------
|
||||
|
||||
if "%HB_CC_NAME%" == "" set HB_CC_NAME=b32
|
||||
if "%HB_MAKE_PROGRAM%" == "" set HB_MAKE_PROGRAM=make.exe
|
||||
set HB_ROOT=..\..\..
|
||||
set HB_MAKEFILE=..\..\mtpl_%HB_CC_NAME%.mak
|
||||
|
||||
rem ---------------------------------------------------------------
|
||||
|
||||
rem Save the user value, force silent file overwrite with COPY
|
||||
@@ -10,30 +27,30 @@ rem (not all Windows versions support the COPY /Y flag)
|
||||
set HB_ORGENV_COPYCMD=%COPYCMD%
|
||||
set COPYCMD=/Y
|
||||
|
||||
rem ---------------------------------------------------------------
|
||||
|
||||
if "%1" == "clean" goto CLEAN
|
||||
if "%1" == "CLEAN" goto CLEAN
|
||||
|
||||
if "%1" == "install" goto INSTALL
|
||||
if "%1" == "INSTALL" goto INSTALL
|
||||
|
||||
:BUILD
|
||||
|
||||
make -fmake_b32.mak %1 %2 %3 > make_b32.log
|
||||
if errorlevel 1 notepad make_b32.log
|
||||
|
||||
:BUILD_OK
|
||||
|
||||
copy ..\..\..\lib\b32\hgfwin32.lib ..\..\..\lib\*.* > nul
|
||||
%HB_MAKE_PROGRAM% %HB_MAKE_FLAGS% -f %HB_MAKEFILE% %1 %2 %3 > make_%HB_CC_NAME%.log
|
||||
if errorlevel 1 notepad make_%HB_CC_NAME%.log
|
||||
goto EXIT
|
||||
|
||||
:CLEAN
|
||||
if exist ..\..\..\lib\b32\hgfwin32.lib del ..\..\..\lib\b32\hgfwin32.lib
|
||||
if exist ..\..\..\lib\b32\hgfwin32.bak del ..\..\..\lib\b32\hgfwin32.bak
|
||||
if exist ..\..\..\obj\b32\win32.obj del ..\..\..\obj\b32\win32.obj
|
||||
if exist ..\..\..\obj\b32\button.obj del ..\..\..\obj\b32\button.obj
|
||||
if exist ..\..\..\obj\b32\edit.obj del ..\..\..\obj\b32\edit.obj
|
||||
if exist ..\..\..\obj\b32\form.obj del ..\..\..\obj\b32\form.obj
|
||||
if exist ..\..\..\obj\b32\menu.obj del ..\..\..\obj\b32\menu.obj
|
||||
if exist ..\..\..\obj\b32\menuitm.obj del ..\..\..\obj\b32\menuitm.obj
|
||||
if exist ..\..\..\obj\b32\winctrl.obj del ..\..\..\obj\b32\winctrl.obj
|
||||
|
||||
%HB_MAKE_PROGRAM% %HB_MAKE_FLAGS% -f %HB_MAKEFILE% CLEAN > make_%HB_CC_NAME%.log
|
||||
if exist make_%HB_CC_NAME%.log del make_%HB_CC_NAME%.log > nul
|
||||
if exist inst_%HB_CC_NAME%.log del inst_%HB_CC_NAME%.log > nul
|
||||
goto EXIT
|
||||
|
||||
:INSTALL
|
||||
|
||||
%HB_MAKE_PROGRAM% %HB_MAKE_FLAGS% -f %HB_MAKEFILE% INSTALL > nul
|
||||
goto EXIT
|
||||
|
||||
:EXIT
|
||||
|
||||
@@ -1,42 +0,0 @@
|
||||
#
|
||||
# $Id$
|
||||
#
|
||||
|
||||
# makefile for Borland C/C++ 32 bits
|
||||
# Building of hgfwin32.lib - Harbour GUI framework for Win32
|
||||
|
||||
INCLUDE_DIR = ..\..\..\include
|
||||
|
||||
BIN_DIR = ..\..\..\bin\b32
|
||||
OBJ_DIR = ..\..\..\obj\b32
|
||||
LIB_DIR = ..\..\..\lib\b32
|
||||
|
||||
$(LIB_DIR)\hgfwin32.lib : \
|
||||
$(OBJ_DIR)\button.obj \
|
||||
$(OBJ_DIR)\edit.obj \
|
||||
$(OBJ_DIR)\form.obj \
|
||||
$(OBJ_DIR)\menu.obj \
|
||||
$(OBJ_DIR)\menuitem.obj \
|
||||
$(OBJ_DIR)\winctrl.obj \
|
||||
$(OBJ_DIR)\win32.obj
|
||||
|
||||
$(OBJ_DIR)\button.c : button.prg
|
||||
$(OBJ_DIR)\button.obj : $(OBJ_DIR)\button.c
|
||||
$(OBJ_DIR)\edit.c : edit.prg
|
||||
$(OBJ_DIR)\edit.obj : $(OBJ_DIR)\edit.c
|
||||
$(OBJ_DIR)\form.c : form.prg
|
||||
$(OBJ_DIR)\form.obj : $(OBJ_DIR)\form.c
|
||||
$(OBJ_DIR)\menu.c : menu.prg
|
||||
$(OBJ_DIR)\menu.obj : $(OBJ_DIR)\menu.c
|
||||
$(OBJ_DIR)\menuitem.c : menuitem.prg
|
||||
$(OBJ_DIR)\menuitem.obj : $(OBJ_DIR)\menuitem.c
|
||||
$(OBJ_DIR)\winctrl.c : winctrl.prg
|
||||
$(OBJ_DIR)\winctrl.obj : $(OBJ_DIR)\winctrl.c
|
||||
$(OBJ_DIR)\win32.obj : win32.c
|
||||
|
||||
.c.obj:
|
||||
bcc32 $(CLIBFLAGS) -DHB_API_MACROS -c -O2 -I$(INCLUDE_DIR) -o$@ $<
|
||||
tlib $(LIB_DIR)\hgfwin32.lib -+$@,,
|
||||
|
||||
.prg.c:
|
||||
$(BIN_DIR)\harbour.exe $< -q0 -w -es2 -gc0 -n -i$(INCLUDE_DIR) -o$@
|
||||
@@ -3,6 +3,23 @@ rem
|
||||
rem $Id$
|
||||
rem
|
||||
|
||||
rem ---------------------------------------------------------------
|
||||
rem This is a generic template file, if it doesn't fit your own needs
|
||||
rem please DON'T MODIFY IT.
|
||||
rem
|
||||
rem Instead, make a local copy and modify that one, or make a call to
|
||||
rem this batch file from your customized one. [vszakats]
|
||||
rem
|
||||
rem Set any of the below settings to customize your build process:
|
||||
rem set HB_MAKE_PROGRAM=
|
||||
rem set HB_MAKE_FLAGS=
|
||||
rem ---------------------------------------------------------------
|
||||
|
||||
if "%HB_CC_NAME%" == "" set HB_CC_NAME=vc
|
||||
if "%HB_MAKE_PROGRAM%" == "" set HB_MAKE_PROGRAM=nmake.exe
|
||||
set HB_ROOT=..\..\..
|
||||
set HB_MAKEFILE=..\..\mtpl_%HB_CC_NAME%.mak
|
||||
|
||||
rem ---------------------------------------------------------------
|
||||
|
||||
rem Save the user value, force silent file overwrite with COPY
|
||||
@@ -10,19 +27,33 @@ rem (not all Windows versions support the COPY /Y flag)
|
||||
set HB_ORGENV_COPYCMD=%COPYCMD%
|
||||
set COPYCMD=/Y
|
||||
|
||||
SET _LIB=%LIB%
|
||||
SET _PATH=%PATH%
|
||||
SET _INCLUDE=%INCLUDE%
|
||||
SET LIB=C:\COMPILER\VC\LIB;%PATH%
|
||||
SET PATH=C:\COMPILER\VC\BIN;%PATH%
|
||||
SET INCLUDE=..\..\..\INCLUDE;C:\COMPILER\VC\INCLUDE;%_INCLUDE%
|
||||
nmake /f make_vc.mak %1 %2 %3
|
||||
SET LIB=%_LIB%
|
||||
SET PATH=%_PATH%
|
||||
SET INCLUDE=%_INCLUDE%
|
||||
SET _LIB=
|
||||
SET _PATH=
|
||||
SET _INCLUDE=
|
||||
rem ---------------------------------------------------------------
|
||||
|
||||
if "%1" == "clean" goto CLEAN
|
||||
if "%1" == "CLEAN" goto CLEAN
|
||||
|
||||
if "%1" == "install" goto INSTALL
|
||||
if "%1" == "INSTALL" goto INSTALL
|
||||
|
||||
:BUILD
|
||||
|
||||
%HB_MAKE_PROGRAM% %HB_MAKE_FLAGS% -f %HB_MAKEFILE% %1 %2 %3 > make_%HB_CC_NAME%.log
|
||||
if errorlevel 1 notepad make_%HB_CC_NAME%.log
|
||||
goto EXIT
|
||||
|
||||
:CLEAN
|
||||
|
||||
%HB_MAKE_PROGRAM% %HB_MAKE_FLAGS% -f %HB_MAKEFILE% CLEAN > make_%HB_CC_NAME%.log
|
||||
if exist make_%HB_CC_NAME%.log del make_%HB_CC_NAME%.log > nul
|
||||
if exist inst_%HB_CC_NAME%.log del inst_%HB_CC_NAME%.log > nul
|
||||
goto EXIT
|
||||
|
||||
:INSTALL
|
||||
|
||||
%HB_MAKE_PROGRAM% %HB_MAKE_FLAGS% -f %HB_MAKEFILE% INSTALL > nul
|
||||
goto EXIT
|
||||
|
||||
:EXIT
|
||||
|
||||
rem ---------------------------------------------------------------
|
||||
|
||||
|
||||
@@ -1,73 +0,0 @@
|
||||
#
|
||||
# $Id$
|
||||
#
|
||||
|
||||
# makefile for Microsoft Visual C++ 32 bits
|
||||
# Building of hgfwin32.lib - Harbour GUI framework for Win32
|
||||
|
||||
INCLUDE_DIR = ..\..\..\include
|
||||
HARBOUR_EXE = ..\..\..\bin\vc\HARBOUR.EXE
|
||||
CC = CL
|
||||
CFLAGS = -W3 -nologo -I$(INCLUDE_DIR) -DWIN32
|
||||
CLIBFLAGS = $(CFLAGS) -c -DHB_API_MACROS
|
||||
CLIBFLAGSDEBUG = $(CLIBFLAGS) -Zi
|
||||
|
||||
BIN_DIR = ..\..\..\bin\vc
|
||||
OBJ_DIR = ..\..\..\obj\vc
|
||||
LIB_DIR = ..\..\..\lib\vc
|
||||
|
||||
HGFWIN_LIB = $(LIB_DIR)\hgfwin32.lib
|
||||
HGFWIN_LIB_OBJS = \
|
||||
$(OBJ_DIR)\button.obj \
|
||||
$(OBJ_DIR)\edit.obj \
|
||||
$(OBJ_DIR)\form.obj \
|
||||
$(OBJ_DIR)\menu.obj \
|
||||
$(OBJ_DIR)\menuitem.obj \
|
||||
$(OBJ_DIR)\winctrl.obj \
|
||||
$(OBJ_DIR)\win32.obj
|
||||
|
||||
$(HGFWIN_LIB) : $(HGFWIN_LIB_OBJS)
|
||||
lib /OUT:$(HGFWIN_LIB) $(HGFWIN_LIB_OBJS)
|
||||
|
||||
#
|
||||
# ADS dependencies
|
||||
#
|
||||
|
||||
$(OBJ_DIR)\button.c : button.prg
|
||||
$(HARBOUR_EXE) $** $(HARBOURFLAGS) -o$*.c
|
||||
|
||||
$(OBJ_DIR)\button.obj : $(OBJ_DIR)\button.c
|
||||
$(CC) $(CLIBFLAGS) -Fo$@ $**
|
||||
|
||||
$(OBJ_DIR)\edit.c : edit.prg
|
||||
$(HARBOUR_EXE) $** $(HARBOURFLAGS) -o$*.c
|
||||
|
||||
$(OBJ_DIR)\edit.obj : $(OBJ_DIR)\edit.c
|
||||
$(CC) $(CLIBFLAGS) -Fo$@ $**
|
||||
|
||||
$(OBJ_DIR)\form.c : form.prg
|
||||
$(HARBOUR_EXE) $** $(HARBOURFLAGS) -o$*.c
|
||||
|
||||
$(OBJ_DIR)\form.obj : $(OBJ_DIR)\form.c
|
||||
$(CC) $(CLIBFLAGS) -Fo$@ $**
|
||||
|
||||
$(OBJ_DIR)\menu.c : menu.prg
|
||||
$(HARBOUR_EXE) $** $(HARBOURFLAGS) -o$*.c
|
||||
|
||||
$(OBJ_DIR)\menu.obj : $(OBJ_DIR)\menu.c
|
||||
$(CC) $(CLIBFLAGS) -Fo$@ $**
|
||||
|
||||
$(OBJ_DIR)\menuitem.c : menuitem.prg
|
||||
$(HARBOUR_EXE) $** $(HARBOURFLAGS) -o$*.c
|
||||
|
||||
$(OBJ_DIR)\menuitem.obj : $(OBJ_DIR)\menuitem.c
|
||||
$(CC) $(CLIBFLAGS) -Fo$@ $**
|
||||
|
||||
$(OBJ_DIR)\winctrl.c : winctrl.prg
|
||||
$(HARBOUR_EXE) $** $(HARBOURFLAGS) -o$*.c
|
||||
|
||||
$(OBJ_DIR)\winctrl.obj : $(OBJ_DIR)\winctrl.c
|
||||
$(CC) $(CLIBFLAGS) -Fo$@ $**
|
||||
|
||||
$(OBJ_DIR)\win32.obj : win32.c
|
||||
$(CC) $(CLIBFLAGS) -Fo$@ $**
|
||||
@@ -49,12 +49,6 @@ if "%1" == "INSTALL" goto INSTALL
|
||||
|
||||
:INSTALL
|
||||
|
||||
if "%HB_INSTALL_PREFIX%" == "" set HB_INSTALL_PREFIX=..\..
|
||||
|
||||
if "%HB_BIN_INSTALL%" == "" set HB_BIN_INSTALL=%HB_INSTALL_PREFIX%\bin
|
||||
if "%HB_INC_INSTALL%" == "" set HB_INC_INSTALL=%HB_INSTALL_PREFIX%\include
|
||||
if "%HB_LIB_INSTALL%" == "" set HB_LIB_INSTALL=%HB_INSTALL_PREFIX%\lib
|
||||
|
||||
%HB_MAKE_PROGRAM% %HB_MAKE_FLAGS% -f %HB_MAKEFILE% INSTALL > nul
|
||||
goto EXIT
|
||||
|
||||
|
||||
@@ -49,12 +49,6 @@ if "%1" == "INSTALL" goto INSTALL
|
||||
|
||||
:INSTALL
|
||||
|
||||
if "%HB_INSTALL_PREFIX%" == "" set HB_INSTALL_PREFIX=..\..
|
||||
|
||||
if "%HB_BIN_INSTALL%" == "" set HB_BIN_INSTALL=%HB_INSTALL_PREFIX%\bin
|
||||
if "%HB_INC_INSTALL%" == "" set HB_INC_INSTALL=%HB_INSTALL_PREFIX%\include
|
||||
if "%HB_LIB_INSTALL%" == "" set HB_LIB_INSTALL=%HB_INSTALL_PREFIX%\lib
|
||||
|
||||
%HB_MAKE_PROGRAM% %HB_MAKE_FLAGS% -f %HB_MAKEFILE% INSTALL > nul
|
||||
goto EXIT
|
||||
|
||||
|
||||
@@ -31,15 +31,33 @@ LIBEXT = .lib
|
||||
|
||||
.SUFFIXES: $(LIBEXT) $(OBJEXT) .prg .c .cpp .asm
|
||||
|
||||
#**********************************************************
|
||||
# Install directory defaults.
|
||||
#**********************************************************
|
||||
|
||||
!ifndef HB_INSTALL_PREFIX
|
||||
HB_INSTALL_PREFIX = $(HB_ROOT)
|
||||
!endif
|
||||
|
||||
!ifndef HB_BIN_INSTALL
|
||||
HB_BIN_INSTALL = $(HB_INSTALL_PREFIX)\bin
|
||||
!endif
|
||||
!ifndef HB_INC_INSTALL
|
||||
HB_INC_INSTALL = $(HB_INSTALL_PREFIX)\include
|
||||
!endif
|
||||
!ifndef HB_LIB_INSTALL
|
||||
HB_LIB_INSTALL = $(HB_INSTALL_PREFIX)\lib
|
||||
!endif
|
||||
|
||||
#**********************************************************
|
||||
# Directory macros. These should never have to change.
|
||||
#**********************************************************
|
||||
|
||||
OBJ_DIR = ..\..\obj\$(HB_CC_NAME)
|
||||
LIB_DIR = ..\..\lib\$(HB_CC_NAME)
|
||||
BIN_DIR = ..\..\bin\$(HB_CC_NAME)
|
||||
OBJ_DIR = $(HB_ROOT)\obj\$(HB_CC_NAME)
|
||||
LIB_DIR = $(HB_ROOT)\lib\$(HB_CC_NAME)
|
||||
BIN_DIR = $(HB_ROOT)\bin\$(HB_CC_NAME)
|
||||
|
||||
INCLUDE_DIR = ..\..\include
|
||||
INCLUDE_DIR = $(HB_ROOT)\include
|
||||
|
||||
#**********************************************************
|
||||
# Macros to access Harbour executable and other goodies
|
||||
|
||||
@@ -24,7 +24,11 @@
|
||||
|
||||
#**********************************************************
|
||||
|
||||
!include ..\mtpl.mak
|
||||
!ifndef HB_ROOT
|
||||
HB_ROOT = ..\..
|
||||
!endif
|
||||
|
||||
!include $(HB_ROOT)\contrib\mtpl.mak
|
||||
|
||||
#**********************************************************
|
||||
# C compiler definition and C flags. These should never have to change.
|
||||
|
||||
@@ -25,7 +25,11 @@ HB_VISUALC_VER = 60
|
||||
|
||||
#**********************************************************
|
||||
|
||||
!include ..\mtpl.mak
|
||||
!ifndef HB_ROOT
|
||||
HB_ROOT = ..\..
|
||||
!endif
|
||||
|
||||
!include $(HB_ROOT)\contrib\mtpl.mak
|
||||
|
||||
#**********************************************************
|
||||
# C compiler definition and C flags. These should never have to change.
|
||||
|
||||
15
harbour/contrib/ole/Makefile
Normal file
15
harbour/contrib/ole/Makefile
Normal file
@@ -0,0 +1,15 @@
|
||||
#
|
||||
# $Id$
|
||||
#
|
||||
|
||||
ROOT = ../../
|
||||
|
||||
C_SOURCES=\
|
||||
ole2.c \
|
||||
|
||||
PRG_SOURCES=\
|
||||
oleauto.prg \
|
||||
|
||||
LIBNAME=hbole
|
||||
|
||||
include $(TOP)$(ROOT)config/lib.cf
|
||||
18
harbour/contrib/ole/common.mak
Normal file
18
harbour/contrib/ole/common.mak
Normal file
@@ -0,0 +1,18 @@
|
||||
#
|
||||
# $Id$
|
||||
#
|
||||
|
||||
LIBNAME = hbole
|
||||
|
||||
LIB_PATH = $(LIB_DIR)\$(LIBNAME)$(LIBEXT)
|
||||
|
||||
#
|
||||
# LIB rules
|
||||
#
|
||||
|
||||
LIB_OBJS = \
|
||||
$(OBJ_DIR)\ole2$(OBJEXT) \
|
||||
$(OBJ_DIR)\oleauto$(OBJEXT)
|
||||
|
||||
all: \
|
||||
$(LIB_PATH) \
|
||||
60
harbour/contrib/ole/make_b32.bat
Normal file
60
harbour/contrib/ole/make_b32.bat
Normal file
@@ -0,0 +1,60 @@
|
||||
@echo off
|
||||
rem
|
||||
rem $Id$
|
||||
rem
|
||||
|
||||
rem ---------------------------------------------------------------
|
||||
rem This is a generic template file, if it doesn't fit your own needs
|
||||
rem please DON'T MODIFY IT.
|
||||
rem
|
||||
rem Instead, make a local copy and modify that one, or make a call to
|
||||
rem this batch file from your customized one. [vszakats]
|
||||
rem
|
||||
rem Set any of the below settings to customize your build process:
|
||||
rem set HB_MAKE_PROGRAM=
|
||||
rem set HB_MAKE_FLAGS=
|
||||
rem ---------------------------------------------------------------
|
||||
|
||||
if "%HB_CC_NAME%" == "" set HB_CC_NAME=b32
|
||||
if "%HB_MAKE_PROGRAM%" == "" set HB_MAKE_PROGRAM=make.exe
|
||||
set HB_MAKEFILE=..\mtpl_%HB_CC_NAME%.mak
|
||||
|
||||
rem ---------------------------------------------------------------
|
||||
|
||||
rem Save the user value, force silent file overwrite with COPY
|
||||
rem (not all Windows versions support the COPY /Y flag)
|
||||
set HB_ORGENV_COPYCMD=%COPYCMD%
|
||||
set COPYCMD=/Y
|
||||
|
||||
rem ---------------------------------------------------------------
|
||||
|
||||
if "%1" == "clean" goto CLEAN
|
||||
if "%1" == "CLEAN" goto CLEAN
|
||||
|
||||
if "%1" == "install" goto INSTALL
|
||||
if "%1" == "INSTALL" goto INSTALL
|
||||
|
||||
:BUILD
|
||||
|
||||
%HB_MAKE_PROGRAM% %HB_MAKE_FLAGS% -f %HB_MAKEFILE% %1 %2 %3 > make_%HB_CC_NAME%.log
|
||||
if errorlevel 1 notepad make_%HB_CC_NAME%.log
|
||||
goto EXIT
|
||||
|
||||
:CLEAN
|
||||
|
||||
%HB_MAKE_PROGRAM% %HB_MAKE_FLAGS% -f %HB_MAKEFILE% CLEAN > make_%HB_CC_NAME%.log
|
||||
if exist make_%HB_CC_NAME%.log del make_%HB_CC_NAME%.log > nul
|
||||
if exist inst_%HB_CC_NAME%.log del inst_%HB_CC_NAME%.log > nul
|
||||
goto EXIT
|
||||
|
||||
:INSTALL
|
||||
|
||||
%HB_MAKE_PROGRAM% %HB_MAKE_FLAGS% -f %HB_MAKEFILE% INSTALL > nul
|
||||
goto EXIT
|
||||
|
||||
:EXIT
|
||||
|
||||
rem ---------------------------------------------------------------
|
||||
|
||||
rem Restore user value
|
||||
set COPYCMD=%HB_ORGENV_COPYCMD%
|
||||
60
harbour/contrib/ole/make_vc.bat
Normal file
60
harbour/contrib/ole/make_vc.bat
Normal file
@@ -0,0 +1,60 @@
|
||||
@echo off
|
||||
rem
|
||||
rem $Id$
|
||||
rem
|
||||
|
||||
rem ---------------------------------------------------------------
|
||||
rem This is a generic template file, if it doesn't fit your own needs
|
||||
rem please DON'T MODIFY IT.
|
||||
rem
|
||||
rem Instead, make a local copy and modify that one, or make a call to
|
||||
rem this batch file from your customized one. [vszakats]
|
||||
rem
|
||||
rem Set any of the below settings to customize your build process:
|
||||
rem set HB_MAKE_PROGRAM=
|
||||
rem set HB_MAKE_FLAGS=
|
||||
rem ---------------------------------------------------------------
|
||||
|
||||
if "%HB_CC_NAME%" == "" set HB_CC_NAME=vc
|
||||
if "%HB_MAKE_PROGRAM%" == "" set HB_MAKE_PROGRAM=nmake.exe
|
||||
set HB_MAKEFILE=..\mtpl_%HB_CC_NAME%.mak
|
||||
|
||||
rem ---------------------------------------------------------------
|
||||
|
||||
rem Save the user value, force silent file overwrite with COPY
|
||||
rem (not all Windows versions support the COPY /Y flag)
|
||||
set HB_ORGENV_COPYCMD=%COPYCMD%
|
||||
set COPYCMD=/Y
|
||||
|
||||
rem ---------------------------------------------------------------
|
||||
|
||||
if "%1" == "clean" goto CLEAN
|
||||
if "%1" == "CLEAN" goto CLEAN
|
||||
|
||||
if "%1" == "install" goto INSTALL
|
||||
if "%1" == "INSTALL" goto INSTALL
|
||||
|
||||
:BUILD
|
||||
|
||||
%HB_MAKE_PROGRAM% %HB_MAKE_FLAGS% -f %HB_MAKEFILE% %1 %2 %3 > make_%HB_CC_NAME%.log
|
||||
if errorlevel 1 notepad make_%HB_CC_NAME%.log
|
||||
goto EXIT
|
||||
|
||||
:CLEAN
|
||||
|
||||
%HB_MAKE_PROGRAM% %HB_MAKE_FLAGS% -f %HB_MAKEFILE% CLEAN > make_%HB_CC_NAME%.log
|
||||
if exist make_%HB_CC_NAME%.log del make_%HB_CC_NAME%.log > nul
|
||||
if exist inst_%HB_CC_NAME%.log del inst_%HB_CC_NAME%.log > nul
|
||||
goto EXIT
|
||||
|
||||
:INSTALL
|
||||
|
||||
%HB_MAKE_PROGRAM% %HB_MAKE_FLAGS% -f %HB_MAKEFILE% INSTALL > nul
|
||||
goto EXIT
|
||||
|
||||
:EXIT
|
||||
|
||||
rem ---------------------------------------------------------------
|
||||
|
||||
rem Restore user value
|
||||
set COPYCMD=%HB_ORGENV_COPYCMD%
|
||||
714
harbour/contrib/ole/ole2.c
Normal file
714
harbour/contrib/ole/ole2.c
Normal file
@@ -0,0 +1,714 @@
|
||||
/*
|
||||
* $Id$
|
||||
*/
|
||||
|
||||
/*
|
||||
* Harbour Project source code:
|
||||
* OLE library
|
||||
*
|
||||
* Copyright 2000,2003 José F. Giménez (JFG) <jfgimenez@wanadoo.es>
|
||||
* www - http://www.harbour-project.org
|
||||
*
|
||||
* This program is free software; you can redistribute it and/or modify
|
||||
* it under the terms of the GNU General Public License as published by
|
||||
* the Free Software Foundation; either version 2, or (at your option)
|
||||
* any later version.
|
||||
*
|
||||
* This program is distributed in the hope that it will be useful,
|
||||
* but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||||
* GNU General Public License for more details.
|
||||
*
|
||||
* You should have received a copy of the GNU General Public License
|
||||
* along with this software; see the file COPYING. If not, write to
|
||||
* the Free Software Foundation, Inc., 59 Temple Place, Suite 330,
|
||||
* Boston, MA 02111-1307 USA (or visit the web site http://www.gnu.org/).
|
||||
*
|
||||
* As a special exception, the Harbour Project gives permission for
|
||||
* additional uses of the text contained in its release of Harbour.
|
||||
*
|
||||
* The exception is that, if you link the Harbour libraries with other
|
||||
* files to produce an executable, this does not by itself cause the
|
||||
* resulting executable to be covered by the GNU General Public License.
|
||||
* Your use of that executable is in no way restricted on account of
|
||||
* linking the Harbour library code into it.
|
||||
*
|
||||
* This exception does not however invalidate any other reasons why
|
||||
* the executable file might be covered by the GNU General Public License.
|
||||
*
|
||||
* This exception applies only to the code released by the Harbour
|
||||
* Project under the name Harbour. If you copy code from other
|
||||
* Harbour Project or Free Software Foundation releases into a copy of
|
||||
* Harbour, as the General Public License permits, the exception does
|
||||
* not apply to the code that you add in this way. To avoid misleading
|
||||
* anyone as to the status of such modified files, you must delete
|
||||
* this exception notice from them.
|
||||
*
|
||||
* If you write modifications of your own for Harbour, it is your choice
|
||||
* whether to permit this exception to apply to your modifications.
|
||||
* If you do not wish that, delete this exception notice.
|
||||
*
|
||||
*/
|
||||
|
||||
/*************************************************************************
|
||||
* *
|
||||
* CreateOleObject( cOleName | cCLSID [, cIID ] ) -> hOleObject *
|
||||
* *
|
||||
* OleInvoke( hOleObject, cMethodName, uParam1, ..., uParamN ) *
|
||||
* -> uResult *
|
||||
* *
|
||||
* OleSetProperty( hOleObject, cPropertyName, uParam1, ..., uParamN ) *
|
||||
* -> lOk *
|
||||
* *
|
||||
* OleGetProperty( hOleObject, cPropertyName, uParam1, ..., uParamN ) *
|
||||
* -> uResult *
|
||||
* *
|
||||
* OleIsObject() -> lIsObject *
|
||||
* *
|
||||
* OleError() -> nError *
|
||||
* *
|
||||
* Ole2TxtError() -> cError *
|
||||
* *
|
||||
* OleUninitialize() -> Nil *
|
||||
* *
|
||||
\************************************************************************/
|
||||
|
||||
#define HB_OS_WIN_32_USED
|
||||
|
||||
#include <windows.h>
|
||||
#include <ole2.h>
|
||||
|
||||
#include "hbvm.h"
|
||||
#include "hbapiitm.h"
|
||||
#include "hbapicls.h"
|
||||
#include "hbdate.h"
|
||||
|
||||
static far VARIANTARG RetVal;
|
||||
static EXCEPINFO excep;
|
||||
static HRESULT nOleError = 0;
|
||||
static int lInitialized = 0;
|
||||
|
||||
static double DateToDbl( LPSTR cDate )
|
||||
{
|
||||
double nDate;
|
||||
|
||||
nDate = hb_dateEncStr( cDate ) - 0x0024d9abL;
|
||||
|
||||
return ( nDate );
|
||||
}
|
||||
|
||||
static LPSTR DblToDate( double nDate )
|
||||
{
|
||||
static char *cDate = "00000000";
|
||||
|
||||
hb_dateDecStr( cDate, nDate + 0x0024d9abL );
|
||||
|
||||
return ( cDate );
|
||||
}
|
||||
|
||||
static LPSTR AnsiToWide( LPSTR cAnsi )
|
||||
{
|
||||
unsigned short wLen;
|
||||
LPSTR cString;
|
||||
|
||||
wLen = MultiByteToWideChar( CP_ACP, MB_PRECOMPOSED, cAnsi, -1, 0, 0 );
|
||||
cString = ( char * ) hb_xgrab( wLen * 2 );
|
||||
MultiByteToWideChar( CP_ACP, MB_PRECOMPOSED, cAnsi, -1,
|
||||
( LPWSTR ) cString, wLen );
|
||||
return ( cString );
|
||||
}
|
||||
|
||||
static LPSTR WideToAnsi( LPSTR cWide )
|
||||
{
|
||||
unsigned short wLen;
|
||||
LPSTR cString;
|
||||
|
||||
wLen = WideCharToMultiByte( CP_ACP, 0, ( LPWSTR ) cWide, -1,
|
||||
NULL, 0, NULL, NULL );
|
||||
cString = hb_xgrab( (!wLen) ? 2 : wLen );
|
||||
WideCharToMultiByte( CP_ACP, 0, ( LPWSTR ) cWide, -1,
|
||||
cString, wLen, NULL, NULL );
|
||||
return ( cString );
|
||||
}
|
||||
|
||||
static void GetParams(DISPPARAMS * dParams)
|
||||
{
|
||||
VARIANTARG * pArgs = NULL;
|
||||
PHB_ITEM uParam;
|
||||
int n, nArgs, nArg;
|
||||
LPSTR cString;
|
||||
|
||||
nArgs = hb_pcount() - 2;
|
||||
|
||||
if( nArgs > 0 )
|
||||
{
|
||||
pArgs = ( VARIANTARG * ) hb_xgrab( sizeof( VARIANTARG ) * nArgs );
|
||||
|
||||
for( n = 0; n < nArgs; n++ )
|
||||
{
|
||||
// Los parametros en VARIANTARG[] hay que ponerlos en orden inverso
|
||||
nArg = nArgs + 2 - n;
|
||||
|
||||
VariantInit( &( pArgs[ n ] ) );
|
||||
|
||||
uParam = hb_param( nArg, 0xFFFF );
|
||||
|
||||
switch( hb_itemType( uParam ) )
|
||||
{
|
||||
case '\0':
|
||||
#if !defined(__BORLANDC__) && !defined(__XCC__)
|
||||
pArgs[ n ].vt = VT_EMPTY;
|
||||
#else
|
||||
pArgs[ n ].n1.n2.vt = VT_EMPTY;
|
||||
#endif
|
||||
break;
|
||||
|
||||
case HB_IT_STRING:
|
||||
case HB_IT_MEMO:
|
||||
#if !defined(__BORLANDC__) && !defined(__XCC__)
|
||||
pArgs[ n ].vt = VT_BSTR;
|
||||
#else
|
||||
pArgs[ n ].n1.n2.vt = VT_BSTR;
|
||||
#endif
|
||||
cString = AnsiToWide( hb_parc( nArg ) );
|
||||
#if !defined(__BORLANDC__) && !defined(__XCC__)
|
||||
pArgs[ n ].bstrVal = SysAllocString( (LPVOID) cString );
|
||||
#else
|
||||
pArgs[ n ].n1.n2.n3.bstrVal = SysAllocString( (LPVOID) cString );
|
||||
#endif
|
||||
hb_xfree( cString );
|
||||
break;
|
||||
|
||||
case HB_IT_LOGICAL:
|
||||
#if !defined(__BORLANDC__) && !defined(__XCC__)
|
||||
pArgs[ n ].vt = VT_BOOL;
|
||||
pArgs[ n ].boolVal = hb_parl( nArg );
|
||||
#else
|
||||
pArgs[ n ].n1.n2.vt = VT_BOOL;
|
||||
pArgs[ n ].n1.n2.n3.boolVal = hb_parl( nArg );
|
||||
#endif
|
||||
break;
|
||||
|
||||
case HB_IT_INTEGER:
|
||||
case HB_IT_LONG:
|
||||
case HB_IT_NUMERIC:
|
||||
#if !defined(__BORLANDC__) && !defined(__XCC__)
|
||||
pArgs[ n ].vt = VT_I4;
|
||||
pArgs[ n ].lVal = hb_parnl( nArg );
|
||||
#else
|
||||
pArgs[ n ].n1.n2.vt = VT_I4;
|
||||
pArgs[ n ].n1.n2.n3.lVal = hb_parnl( nArg );
|
||||
#endif
|
||||
break;
|
||||
|
||||
case HB_IT_DOUBLE:
|
||||
#if !defined(__BORLANDC__) && !defined(__XCC__)
|
||||
pArgs[ n ].vt = VT_R8;
|
||||
pArgs[ n ].dblVal = hb_parnd( nArg );
|
||||
#else
|
||||
pArgs[ n ].n1.n2.vt = VT_R8;
|
||||
pArgs[ n ].n1.n2.n3.dblVal = hb_parnd( nArg );
|
||||
#endif
|
||||
break;
|
||||
case HB_IT_DATE:
|
||||
#if !defined(__BORLANDC__) && !defined(__XCC__)
|
||||
pArgs[ n ].vt = VT_DATE;
|
||||
pArgs[ n ].dblVal = DateToDbl( hb_pards( nArg ) );
|
||||
#else
|
||||
pArgs[ n ].n1.n2.vt = VT_DATE;
|
||||
pArgs[ n ].n1.n2.n3.dblVal = DateToDbl( hb_pards( nArg ) );
|
||||
#endif
|
||||
break;
|
||||
|
||||
case HB_IT_OBJECT:
|
||||
{
|
||||
PHB_DYNS pData;
|
||||
#if !defined(__BORLANDC__) && !defined(__XCC__)
|
||||
pArgs[ n ].vt = VT_EMPTY;
|
||||
#else
|
||||
pArgs[ n ].n1.n2.vt = VT_EMPTY;
|
||||
#endif
|
||||
if ( hb_stricmp( hb_objGetClsName( uParam ), "TOleAuto" ) == 0 )
|
||||
{
|
||||
pData = hb_dynsymFindName( "hObj" );
|
||||
if( pData )
|
||||
{
|
||||
hb_vmPushSymbol( hb_dynsymSymbol( pData ) );
|
||||
hb_vmPush( uParam );
|
||||
hb_vmDo( 0 );
|
||||
#if !defined(__BORLANDC__) && !defined(__XCC__)
|
||||
pArgs[ n ].vt = VT_DISPATCH;
|
||||
pArgs[ n ].pdispVal = ( IDispatch * ) hb_parnl( -1 );
|
||||
#else
|
||||
pArgs[ n ].n1.n2.vt = VT_DISPATCH;
|
||||
pArgs[ n ].n1.n2.n3.pdispVal = ( IDispatch * ) hb_parnl( -1 );
|
||||
#endif
|
||||
}
|
||||
}
|
||||
}
|
||||
break;
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
dParams->rgvarg = pArgs;
|
||||
dParams->cArgs = nArgs;
|
||||
dParams->rgdispidNamedArgs = 0;
|
||||
dParams->cNamedArgs = 0;
|
||||
|
||||
}
|
||||
|
||||
static void FreeParams(DISPPARAMS * dParams)
|
||||
{
|
||||
int n;
|
||||
|
||||
if( dParams->cArgs > 0 )
|
||||
{
|
||||
for( n = 0; n < ( int ) dParams->cArgs; n++ )
|
||||
VariantClear( &(dParams->rgvarg[ n ]) );
|
||||
|
||||
hb_xfree( ( LPVOID ) dParams->rgvarg );
|
||||
}
|
||||
}
|
||||
|
||||
static void RetValue( void )
|
||||
{
|
||||
LPSTR cString;
|
||||
|
||||
#if !defined(__BORLANDC__) && !defined(__XCC__)
|
||||
switch( RetVal.vt )
|
||||
{
|
||||
case VT_BSTR:
|
||||
cString = WideToAnsi( ( LPSTR ) RetVal.bstrVal );
|
||||
hb_retc( cString );
|
||||
hb_xfree( cString );
|
||||
break;
|
||||
|
||||
case VT_BOOL:
|
||||
hb_retl( RetVal.boolVal );
|
||||
break;
|
||||
|
||||
case VT_DISPATCH:
|
||||
hb_retnl( ( LONG ) RetVal.pdispVal );
|
||||
break;
|
||||
|
||||
case VT_I4:
|
||||
hb_retnl( ( LONG ) RetVal.iVal );
|
||||
break;
|
||||
|
||||
case VT_R8:
|
||||
hb_retnd( RetVal.dblVal );
|
||||
break;
|
||||
|
||||
case VT_DATE:
|
||||
hb_retds( DblToDate( RetVal.dblVal ) );
|
||||
break;
|
||||
|
||||
case VT_EMPTY:
|
||||
hb_ret();
|
||||
break;
|
||||
|
||||
default:
|
||||
if ( nOleError == S_OK )
|
||||
nOleError = (HRESULT) -1;
|
||||
hb_ret();
|
||||
break;
|
||||
}
|
||||
|
||||
if( RetVal.vt != VT_DISPATCH )
|
||||
VariantClear( &RetVal );
|
||||
#else
|
||||
switch( RetVal.n1.n2.vt )
|
||||
{
|
||||
case VT_BSTR:
|
||||
cString = WideToAnsi( ( LPSTR ) RetVal.n1.n2.n3.bstrVal );
|
||||
hb_retc( cString );
|
||||
hb_xfree( cString );
|
||||
break;
|
||||
|
||||
case VT_BOOL:
|
||||
hb_retl( RetVal.n1.n2.n3.boolVal );
|
||||
break;
|
||||
|
||||
case VT_DISPATCH:
|
||||
hb_retnl( ( LONG ) RetVal.n1.n2.n3.pdispVal );
|
||||
break;
|
||||
|
||||
case VT_I4:
|
||||
hb_retnl( ( LONG ) RetVal.n1.n2.n3.iVal );
|
||||
break;
|
||||
|
||||
case VT_R8:
|
||||
hb_retnd( RetVal.n1.n2.n3.dblVal );
|
||||
break;
|
||||
|
||||
case VT_DATE:
|
||||
hb_retds( DblToDate( RetVal.n1.n2.n3.dblVal ) );
|
||||
break;
|
||||
|
||||
case VT_EMPTY:
|
||||
hb_ret();
|
||||
break;
|
||||
|
||||
default:
|
||||
if ( nOleError == S_OK )
|
||||
nOleError = (HRESULT) -1;
|
||||
hb_ret();
|
||||
break;
|
||||
}
|
||||
|
||||
if( RetVal.n1.n2.vt != VT_DISPATCH )
|
||||
VariantClear( &RetVal );
|
||||
#endif
|
||||
|
||||
}
|
||||
|
||||
|
||||
HB_FUNC( CREATEOLEOBJECT ) // ( cOleName | cCLSID [, cIID ] )
|
||||
{
|
||||
LPSTR cCLSID;
|
||||
GUID ClassID, iid;
|
||||
LPIID riid = (LPIID) &IID_IDispatch;
|
||||
void *pDisp = NULL; /* IDispatch */
|
||||
/* void *
|
||||
* used intentionally to inform compiler that there is no
|
||||
* strict-aliasing
|
||||
*/
|
||||
|
||||
nOleError = S_OK;
|
||||
|
||||
if ( !lInitialized )
|
||||
nOleError = OleInitialize( NULL );
|
||||
lInitialized = 1;
|
||||
|
||||
if ( (nOleError == S_OK) || (nOleError == (HRESULT) S_FALSE) )
|
||||
{
|
||||
|
||||
cCLSID = AnsiToWide( hb_parc( 1 ) );
|
||||
if ( hb_parc( 1 )[ 0 ] == '{' )
|
||||
nOleError = CLSIDFromString( ( LPOLESTR ) cCLSID, (LPCLSID) &ClassID );
|
||||
else
|
||||
nOleError = CLSIDFromProgID( ( LPCOLESTR ) cCLSID, (LPCLSID) &ClassID );
|
||||
hb_xfree( cCLSID );
|
||||
|
||||
if ( hb_pcount() == 2 )
|
||||
{
|
||||
if ( hb_parc( 2 )[ 0 ] == '{' )
|
||||
{
|
||||
cCLSID = AnsiToWide( hb_parc( 2 ) );
|
||||
nOleError = CLSIDFromString( ( LPOLESTR ) cCLSID, &iid );
|
||||
hb_xfree( cCLSID );
|
||||
}
|
||||
else
|
||||
memcpy( ( LPVOID ) &iid, hb_parc( 2 ), sizeof( iid ) );
|
||||
|
||||
riid = &iid;
|
||||
}
|
||||
|
||||
if ( nOleError == S_OK )
|
||||
nOleError = CoCreateInstance( &ClassID, NULL, CLSCTX_SERVER,
|
||||
(REFIID) riid, &pDisp );
|
||||
}
|
||||
|
||||
hb_retnl( ( LONG ) pDisp );
|
||||
|
||||
}
|
||||
|
||||
HB_FUNC( OLESHOWEXCEPTION )
|
||||
{
|
||||
if ( (LONG) nOleError == DISP_E_EXCEPTION )
|
||||
{
|
||||
LPSTR source, description;
|
||||
|
||||
source = WideToAnsi( (LPVOID) excep.bstrSource );
|
||||
description = WideToAnsi( (LPVOID) excep.bstrDescription );
|
||||
MessageBox( NULL, description, source, MB_ICONHAND );
|
||||
hb_xfree( source );
|
||||
hb_xfree( description );
|
||||
}
|
||||
}
|
||||
|
||||
HB_FUNC( OLEINVOKE ) // (hOleObject, szMethodName, uParams...)
|
||||
{
|
||||
IDispatch * pDisp = ( IDispatch * ) hb_parnl( 1 );
|
||||
LPSTR cMember;
|
||||
DISPID lDispID;
|
||||
DISPPARAMS dParams;
|
||||
UINT uArgErr;
|
||||
|
||||
VariantInit( &RetVal );
|
||||
memset( (LPBYTE) &excep, 0, sizeof( excep ) );
|
||||
|
||||
cMember = AnsiToWide( hb_parc( 2 ) );
|
||||
nOleError = pDisp->lpVtbl->GetIDsOfNames( pDisp, &IID_NULL,
|
||||
( LPVOID ) &cMember, 1,
|
||||
LOCALE_USER_DEFAULT, &lDispID );
|
||||
hb_xfree( cMember );
|
||||
|
||||
if ( nOleError == S_OK )
|
||||
{
|
||||
GetParams( &dParams );
|
||||
nOleError = pDisp->lpVtbl->Invoke( pDisp,
|
||||
lDispID,
|
||||
&IID_NULL,
|
||||
LOCALE_USER_DEFAULT,
|
||||
DISPATCH_METHOD,
|
||||
&dParams,
|
||||
&RetVal,
|
||||
&excep,
|
||||
&uArgErr ) ;
|
||||
FreeParams( &dParams );
|
||||
}
|
||||
|
||||
RetValue();
|
||||
}
|
||||
|
||||
HB_FUNC( OLESETPROPERTY ) // (hOleObject, cPropName, uValue, uParams...)
|
||||
{
|
||||
IDispatch * pDisp = ( IDispatch * ) hb_parnl( 1 );
|
||||
LPSTR cMember;
|
||||
DISPID lDispID, lPropPut = DISPID_PROPERTYPUT;
|
||||
DISPPARAMS dParams;
|
||||
UINT uArgErr;
|
||||
|
||||
VariantInit( &RetVal );
|
||||
memset( (LPBYTE) &excep, 0, sizeof( excep ) );
|
||||
|
||||
cMember = AnsiToWide( hb_parc( 2 ) );
|
||||
nOleError = pDisp->lpVtbl->GetIDsOfNames( pDisp, &IID_NULL,
|
||||
( LPVOID ) &cMember, 1,
|
||||
LOCALE_USER_DEFAULT, &lDispID );
|
||||
hb_xfree( cMember );
|
||||
|
||||
if ( nOleError == S_OK )
|
||||
{
|
||||
GetParams( &dParams );
|
||||
dParams.rgdispidNamedArgs = &lPropPut;
|
||||
dParams.cNamedArgs = 1;
|
||||
|
||||
nOleError = pDisp->lpVtbl->Invoke( pDisp,
|
||||
lDispID,
|
||||
&IID_NULL,
|
||||
LOCALE_USER_DEFAULT,
|
||||
DISPATCH_PROPERTYPUT,
|
||||
&dParams,
|
||||
NULL, // No return value
|
||||
&excep,
|
||||
&uArgErr );
|
||||
|
||||
FreeParams( &dParams );
|
||||
}
|
||||
|
||||
hb_ret();
|
||||
}
|
||||
|
||||
HB_FUNC( OLEGETPROPERTY ) // (hOleObject, cPropName, uParams...)
|
||||
{
|
||||
IDispatch * pDisp = ( IDispatch * ) hb_parnl( 1 );
|
||||
LPSTR cMember;
|
||||
DISPID lDispID;
|
||||
DISPPARAMS dParams;
|
||||
UINT uArgErr;
|
||||
|
||||
VariantInit( &RetVal );
|
||||
memset( (LPBYTE) &excep, 0, sizeof( excep ) );
|
||||
|
||||
cMember = AnsiToWide( hb_parc( 2 ) );
|
||||
nOleError = pDisp->lpVtbl->GetIDsOfNames( pDisp, &IID_NULL,
|
||||
( LPVOID ) &cMember, 1,
|
||||
LOCALE_USER_DEFAULT, &lDispID );
|
||||
hb_xfree( cMember );
|
||||
|
||||
if ( nOleError == S_OK )
|
||||
{
|
||||
GetParams( &dParams );
|
||||
nOleError = pDisp->lpVtbl->Invoke( pDisp,
|
||||
lDispID,
|
||||
&IID_NULL,
|
||||
LOCALE_USER_DEFAULT,
|
||||
DISPATCH_PROPERTYGET,
|
||||
&dParams,
|
||||
&RetVal,
|
||||
&excep,
|
||||
&uArgErr );
|
||||
|
||||
FreeParams( &dParams );
|
||||
}
|
||||
|
||||
RetValue();
|
||||
|
||||
}
|
||||
|
||||
HB_FUNC( OLEERROR )
|
||||
{
|
||||
hb_retnl( (LONG) nOleError );
|
||||
}
|
||||
|
||||
HB_FUNC( OLEISOBJECT )
|
||||
{
|
||||
#if !defined(__BORLANDC__) && !defined(__XCC__)
|
||||
hb_retl( RetVal.vt == VT_DISPATCH );
|
||||
#else
|
||||
hb_retl( RetVal.n1.n2.vt == VT_DISPATCH );
|
||||
#endif
|
||||
}
|
||||
|
||||
HB_FUNC( OLEUNINITIALIZE )
|
||||
{
|
||||
if( lInitialized )
|
||||
OleUninitialize();
|
||||
lInitialized = 0;
|
||||
}
|
||||
|
||||
HB_FUNC( OLE2TXTERROR )
|
||||
{
|
||||
switch ( (LONG) nOleError)
|
||||
{
|
||||
case S_OK:
|
||||
hb_retc( "S_OK" );
|
||||
break;
|
||||
|
||||
case CO_E_CLASSSTRING:
|
||||
hb_retc( "CO_E_CLASSSTRING" );
|
||||
break;
|
||||
|
||||
case OLE_E_WRONGCOMPOBJ:
|
||||
hb_retc( "OLE_E_WRONGCOMPOBJ" );
|
||||
break;
|
||||
|
||||
case REGDB_E_CLASSNOTREG:
|
||||
hb_retc( "REGDB_E_CLASSNOTREG" );
|
||||
break;
|
||||
|
||||
case REGDB_E_WRITEREGDB:
|
||||
hb_retc( "REGDB_E_WRITEREGDB" );
|
||||
break;
|
||||
|
||||
case E_OUTOFMEMORY:
|
||||
hb_retc( "E_OUTOFMEMORY" );
|
||||
break;
|
||||
|
||||
case E_INVALIDARG:
|
||||
hb_retc( "E_INVALIDARG" );
|
||||
break;
|
||||
|
||||
case E_UNEXPECTED:
|
||||
hb_retc( "E_UNEXPECTED" );
|
||||
break;
|
||||
|
||||
case DISP_E_UNKNOWNNAME:
|
||||
hb_retc( "DISP_E_UNKNOWNNAME" );
|
||||
break;
|
||||
|
||||
case DISP_E_UNKNOWNLCID:
|
||||
hb_retc( "DISP_E_UNKNOWNLCID" );
|
||||
break;
|
||||
|
||||
case DISP_E_BADPARAMCOUNT:
|
||||
hb_retc( "DISP_E_BADPARAMCOUNT" );
|
||||
break;
|
||||
|
||||
case DISP_E_BADVARTYPE:
|
||||
hb_retc( "DISP_E_BADVARTYPE" );
|
||||
break;
|
||||
|
||||
case DISP_E_EXCEPTION:
|
||||
hb_retc( "DISP_E_EXCEPTION" );
|
||||
break;
|
||||
|
||||
case DISP_E_MEMBERNOTFOUND:
|
||||
hb_retc( "DISP_E_MEMBERNOTFOUND" );
|
||||
break;
|
||||
|
||||
case DISP_E_NONAMEDARGS:
|
||||
hb_retc( "DISP_E_NONAMEDARGS" );
|
||||
break;
|
||||
|
||||
case DISP_E_OVERFLOW:
|
||||
hb_retc( "DISP_E_OVERFLOW" );
|
||||
break;
|
||||
|
||||
case DISP_E_PARAMNOTFOUND:
|
||||
hb_retc( "DISP_E_PARAMNOTFOUND" );
|
||||
break;
|
||||
|
||||
case DISP_E_TYPEMISMATCH:
|
||||
hb_retc( "DISP_E_TYPEMISMATCH" );
|
||||
break;
|
||||
|
||||
case DISP_E_UNKNOWNINTERFACE:
|
||||
hb_retc( "DISP_E_UNKNOWNINTERFACE" );
|
||||
break;
|
||||
|
||||
case DISP_E_PARAMNOTOPTIONAL:
|
||||
hb_retc( "DISP_E_PARAMNOTOPTIONAL" );
|
||||
break;
|
||||
|
||||
default:
|
||||
hb_retc( "Unknown error" );
|
||||
break;
|
||||
};
|
||||
}
|
||||
|
||||
HB_FUNC( GETOLEOBJECT )
|
||||
{
|
||||
BSTR wCLSID;
|
||||
IID ClassID, iid;
|
||||
LPIID riid = (LPIID) &IID_IDispatch;
|
||||
IUnknown *pUnk = NULL;
|
||||
char *cOleName = hb_parc( 1 );
|
||||
void *pDisp = NULL; /* IDispatch */
|
||||
/* void *
|
||||
* used intentionally to inform compiler that there is no
|
||||
* strict-aliasing
|
||||
*/
|
||||
|
||||
nOleError = S_OK;
|
||||
|
||||
wCLSID = (BSTR) AnsiToWide( (LPSTR)cOleName );
|
||||
|
||||
if ( cOleName[ 0 ] == '{' )
|
||||
{
|
||||
nOleError = CLSIDFromString( wCLSID, (LPCLSID) &ClassID );
|
||||
}
|
||||
else
|
||||
{
|
||||
nOleError = CLSIDFromProgID( wCLSID, (LPCLSID) &ClassID );
|
||||
}
|
||||
|
||||
hb_xfree( wCLSID );
|
||||
|
||||
if ( hb_pcount() == 2 )
|
||||
{
|
||||
char * cID = hb_parc( 2 );
|
||||
if ( cID[ 0 ] == '{' )
|
||||
{
|
||||
wCLSID = (BSTR)AnsiToWide( (LPSTR)cID );
|
||||
nOleError = CLSIDFromString( wCLSID, &iid );
|
||||
hb_xfree( wCLSID );
|
||||
}
|
||||
else
|
||||
{
|
||||
memcpy( ( LPVOID ) &iid, cID, sizeof( iid ) );
|
||||
}
|
||||
|
||||
riid = &iid;
|
||||
}
|
||||
|
||||
if ( nOleError == S_OK )
|
||||
{
|
||||
nOleError = GetActiveObject( &ClassID, NULL, &pUnk );
|
||||
|
||||
if ( nOleError == S_OK )
|
||||
{
|
||||
nOleError = pUnk->lpVtbl->QueryInterface( pUnk, riid, &pDisp );
|
||||
}
|
||||
}
|
||||
|
||||
hb_retnl( ( LONG ) pDisp );
|
||||
}
|
||||
|
||||
HB_FUNC( MESSAGEBOX )
|
||||
{
|
||||
hb_retni( MessageBox( ( HWND ) hb_parnl( 1 ), hb_parc( 2 ), hb_parc( 3 ), hb_parni( 4 ) ) );
|
||||
}
|
||||
225
harbour/contrib/ole/oleauto.prg
Normal file
225
harbour/contrib/ole/oleauto.prg
Normal file
@@ -0,0 +1,225 @@
|
||||
/*
|
||||
* $Id$
|
||||
*/
|
||||
|
||||
/*
|
||||
* Harbour Project source code:
|
||||
* OLE library
|
||||
*
|
||||
* Copyright 2000,2003 José F. Giménez (JFG) <jfgimenez@wanadoo.es>
|
||||
* www - http://www.harbour-project.org
|
||||
*
|
||||
* This program is free software; you can redistribute it and/or modify
|
||||
* it under the terms of the GNU General Public License as published by
|
||||
* the Free Software Foundation; either version 2, or (at your option)
|
||||
* any later version.
|
||||
*
|
||||
* This program is distributed in the hope that it will be useful,
|
||||
* but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||||
* GNU General Public License for more details.
|
||||
*
|
||||
* You should have received a copy of the GNU General Public License
|
||||
* along with this software; see the file COPYING. If not, write to
|
||||
* the Free Software Foundation, Inc., 59 Temple Place, Suite 330,
|
||||
* Boston, MA 02111-1307 USA (or visit the web site http://www.gnu.org/).
|
||||
*
|
||||
* As a special exception, the Harbour Project gives permission for
|
||||
* additional uses of the text contained in its release of Harbour.
|
||||
*
|
||||
* The exception is that, if you link the Harbour libraries with other
|
||||
* files to produce an executable, this does not by itself cause the
|
||||
* resulting executable to be covered by the GNU General Public License.
|
||||
* Your use of that executable is in no way restricted on account of
|
||||
* linking the Harbour library code into it.
|
||||
*
|
||||
* This exception does not however invalidate any other reasons why
|
||||
* the executable file might be covered by the GNU General Public License.
|
||||
*
|
||||
* This exception applies only to the code released by the Harbour
|
||||
* Project under the name Harbour. If you copy code from other
|
||||
* Harbour Project or Free Software Foundation releases into a copy of
|
||||
* Harbour, as the General Public License permits, the exception does
|
||||
* not apply to the code that you add in this way. To avoid misleading
|
||||
* anyone as to the status of such modified files, you must delete
|
||||
* this exception notice from them.
|
||||
*
|
||||
* If you write modifications of your own for Harbour, it is your choice
|
||||
* whether to permit this exception to apply to your modifications.
|
||||
* If you do not wish that, delete this exception notice.
|
||||
*
|
||||
*/
|
||||
|
||||
|
||||
#include "hbclass.ch"
|
||||
|
||||
|
||||
CLASS TOleAuto
|
||||
|
||||
DATA hObj
|
||||
|
||||
METHOD New( cAutoObj ) CONSTRUCTOR
|
||||
METHOD GetActiveObject( cClass )
|
||||
METHOD End()
|
||||
|
||||
METHOD Invoke( cMember, uParam1, uParam2, uParam3, uParam4, uParam5, uParam6 )
|
||||
METHOD Set( cProperty, uParam1, uParam2, uParam3, uParam4, uParam5, uParam6 )
|
||||
METHOD Get( cProperty, uParam1, uParam2, uParam3, uParam4, uParam5, uParam6 )
|
||||
|
||||
ERROR HANDLER OnError( cMsg, nError )
|
||||
|
||||
ENDCLASS
|
||||
|
||||
//--------------------------------------------------------------------
|
||||
|
||||
METHOD New( uObj ) CLASS TOleAuto
|
||||
|
||||
IF ValType( uObj )="C"
|
||||
::hObj := CreateOleObject( uObj )
|
||||
ELSE
|
||||
::hObj := uObj
|
||||
ENDIF
|
||||
|
||||
RETURN Self
|
||||
|
||||
METHOD GetActiveObject( cClass ) CLASS TOleAuto
|
||||
|
||||
IF ValType( cClass ) = 'C'
|
||||
::hObj := GetOleObject( cClass )
|
||||
// ::cClassName := cClass
|
||||
ELSE
|
||||
MessageBox( 0,"Invalid parameter type to constructor TOleAuto():GetActiveObject()!", "OLE Interface",0 )
|
||||
::hObj := 0
|
||||
ENDIF
|
||||
|
||||
RETURN Self
|
||||
|
||||
//--------------------------------------------------------------------
|
||||
|
||||
METHOD End() CLASS TOleAuto
|
||||
|
||||
::hObj := NIL
|
||||
|
||||
RETURN NIL
|
||||
|
||||
//--------------------------------------------------------------------
|
||||
|
||||
METHOD Invoke( cMethod, uParam1, uParam2, uParam3, uParam4, uParam5, uParam6 ) CLASS TOleAuto
|
||||
|
||||
LOCAL uObj
|
||||
|
||||
IF uParam6 != NIL
|
||||
uObj := OLEInvoke( ::hObj, cMethod, uParam1, uParam2, uParam3, uParam4, uParam5, uParam6 )
|
||||
ELSEIF uParam5 != NIL
|
||||
uObj := OLEInvoke( ::hObj, cMethod, uParam1, uParam2, uParam3, uParam4, uParam5 )
|
||||
ELSEIF uParam4 != NIL
|
||||
uObj := OLEInvoke( ::hObj, cMethod, uParam1, uParam2, uParam3, uParam4 )
|
||||
ELSEIF uParam3 != NIL
|
||||
uObj := OLEInvoke( ::hObj, cMethod, uParam1, uParam2, uParam3 )
|
||||
ELSEIF uParam2 != NIL
|
||||
uObj := OLEInvoke( ::hObj, cMethod, uParam1, uParam2 )
|
||||
ELSEIF uParam1 != NIL
|
||||
uObj := OLEInvoke( ::hObj, cMethod, uParam1 )
|
||||
ELSE
|
||||
uObj := OLEInvoke( ::hObj, cMethod )
|
||||
ENDIF
|
||||
|
||||
IF OleIsObject()
|
||||
RETURN TOleAuto():New( uObj )
|
||||
ELSEIF Ole2TxtError() == "DISP_E_EXCEPTION"
|
||||
OLEShowException()
|
||||
RETURN Self
|
||||
ELSEIF OleError() != 0
|
||||
MessageBox( 0,cMethod + ": " + Ole2TxtError(), "OLE Error",0 )
|
||||
ENDIF
|
||||
|
||||
RETURN uObj
|
||||
|
||||
//--------------------------------------------------------------------
|
||||
|
||||
METHOD Set( cProperty, uParam1, uParam2, uParam3, uParam4, uParam5, uParam6 ) CLASS TOleAuto
|
||||
|
||||
IF uParam6 != NIL
|
||||
OLESetProperty( ::hObj, cProperty, uParam1, uParam2, uParam3, uParam4, uParam5, uParam6 )
|
||||
ELSEIF uParam5 != NIL
|
||||
OLESetProperty( ::hObj, cProperty, uParam1, uParam2, uParam3, uParam4, uParam5 )
|
||||
ELSEIF uParam4 != NIL
|
||||
OLESetProperty( ::hObj, cProperty, uParam1, uParam2, uParam3, uParam4 )
|
||||
ELSEIF uParam3 != NIL
|
||||
OLESetProperty( ::hObj, cProperty, uParam1, uParam2, uParam3 )
|
||||
ELSEIF uParam2 != NIL
|
||||
OLESetProperty( ::hObj, cProperty, uParam1, uParam2 )
|
||||
ELSEIF uParam1 != NIL
|
||||
OLESetProperty( ::hObj, cProperty, uParam1 )
|
||||
ENDIF
|
||||
|
||||
IF Ole2TxtError() == "DISP_E_EXCEPTION"
|
||||
OLEShowException()
|
||||
ELSEIF OleError() != 0
|
||||
MessageBox( 0,cProperty + ": " + Ole2TxtError(), "OLE Error",0 )
|
||||
ENDIF
|
||||
|
||||
RETURN nil
|
||||
|
||||
//--------------------------------------------------------------------
|
||||
|
||||
METHOD Get( cProperty, uParam1, uParam2, uParam3, uParam4, uParam5, uParam6 ) CLASS TOleAuto
|
||||
|
||||
LOCAL uObj
|
||||
|
||||
IF uParam6 != NIL
|
||||
uObj := OLEGetProperty( ::hObj, cProperty, uParam1, uParam2, uParam3, uParam4, uParam5, uParam6 )
|
||||
ELSEIF uParam5 != NIL
|
||||
uObj := OLEGetProperty( ::hObj, cProperty, uParam1, uParam2, uParam3, uParam4, uParam5 )
|
||||
ELSEIF uParam4 != NIL
|
||||
uObj := OLEGetProperty( ::hObj, cProperty, uParam1, uParam2, uParam3, uParam4 )
|
||||
ELSEIF uParam3 != NIL
|
||||
uObj := OLEGetProperty( ::hObj, cProperty, uParam1, uParam2, uParam3 )
|
||||
ELSEIF uParam2 != NIL
|
||||
uObj := OLEGetProperty( ::hObj, cProperty, uParam1, uParam2 )
|
||||
ELSEIF uParam1 != NIL
|
||||
uObj := OLEGetProperty( ::hObj, cProperty, uParam1 )
|
||||
ELSE
|
||||
uObj := OLEGetProperty( ::hObj, cProperty )
|
||||
ENDIF
|
||||
|
||||
IF Ole2TxtError() $ "DISP_E_MEMBERNOTFOUND | DISP_E_BADPARAMCOUNT | " + ;
|
||||
"DISP_E_EXCEPTION"
|
||||
uObj := ::Invoke( cProperty, uParam1, uParam2, uParam3, uParam4, uParam5, uParam6 )
|
||||
ELSE
|
||||
IF OleIsObject()
|
||||
RETURN TOleAuto():New( uObj )
|
||||
ELSEIF OleError() != 0
|
||||
MessageBox( 0,cProperty + ": " + Ole2TxtError(), "OLE Error",0 )
|
||||
ENDIF
|
||||
ENDIF
|
||||
|
||||
RETURN uObj
|
||||
|
||||
//--------------------------------------------------------------------
|
||||
|
||||
METHOD OnError( uParam1, uParam2, uParam3, uParam4, uParam5, uParam6 ) CLASS TOleAuto
|
||||
|
||||
LOCAL cMsg := __GetMessage()
|
||||
|
||||
LOCAL uObj
|
||||
|
||||
IF LEFT( cMsg, 1 ) == '_'
|
||||
::Set( SUBS( cMsg, 2 ), uParam1, uParam2, uParam3, uParam4, uParam5, uParam6 )
|
||||
ELSE
|
||||
uObj := ::Get( cMsg, uParam1, uParam2, uParam3, uParam4, uParam5, uParam6 )
|
||||
ENDIF
|
||||
|
||||
RETURN uObj
|
||||
|
||||
EXIT PROCEDURE OLEEXIT
|
||||
|
||||
OLEUninitialize()
|
||||
|
||||
RETURN
|
||||
|
||||
FUNCTION CreateObject( cString )
|
||||
RETURN TOleAuto():New( cString )
|
||||
|
||||
FUNCTION GetActiveObject( cString )
|
||||
RETURN TOleAuto():GetActiveObject( cString )
|
||||
9
harbour/contrib/ole/test/bld_b32.bat
Normal file
9
harbour/contrib/ole/test/bld_b32.bat
Normal file
@@ -0,0 +1,9 @@
|
||||
@echo off
|
||||
rem
|
||||
rem $Id$
|
||||
rem
|
||||
|
||||
..\..\..\bin\harbour %1 /n /i..\..\include /i..\ %2
|
||||
bcc32 -e%1.exe -O2 -d -I..\..\..\include -L..\..\..\lib\b32 %1.c debug.lib vm.lib rtl.lib gtwin.lib lang.lib rdd.lib macro.lib pp.lib dbfntx.lib dbfcdx.lib dbffpt.lib common.lib hbsix.lib hbole.lib
|
||||
|
||||
rem del %1.c
|
||||
BIN
harbour/contrib/ole/test/sample.odt
Normal file
BIN
harbour/contrib/ole/test/sample.odt
Normal file
Binary file not shown.
330
harbour/contrib/ole/test/testole.prg
Normal file
330
harbour/contrib/ole/test/testole.prg
Normal file
@@ -0,0 +1,330 @@
|
||||
/*
|
||||
* $Id$
|
||||
*/
|
||||
|
||||
/*
|
||||
* Harbour Project source code:
|
||||
* demonstration code for FOR EACH used for OLE objects
|
||||
* this code needs HBWIN32 library
|
||||
*
|
||||
* Copyright 2007 Enrico Maria Giordano e.m.giordano at emagsoftware.it
|
||||
* www - http://www.harbour-project.org
|
||||
*
|
||||
*/
|
||||
|
||||
/* Explicit usage of OLE DEFAULT Method when syntax implies it. */
|
||||
#xtranslate :<!Method!>( <args,...> ) := => :<Method>( <args> ):Value :=
|
||||
|
||||
PROCEDURE Main()
|
||||
|
||||
LOCAL nOption
|
||||
|
||||
CLS
|
||||
SetColor("W+/R")
|
||||
@ 6, 25 TO 19, 55 DOUBLE
|
||||
@ 8, 28 SAY "Test Harbour OLE with..."
|
||||
|
||||
While .t.
|
||||
@ 10, 32 PROMPT "MS Excel"
|
||||
@ 11, 32 PROMPT "MS Word"
|
||||
@ 12, 32 PROMPT "MS Outlook (1)"
|
||||
@ 13, 32 PROMPT "MS Outlook (2)"
|
||||
@ 14, 32 PROMPT "Internet Explorer"
|
||||
@ 15, 32 PROMPT "XP CDO"
|
||||
@ 16, 32 PROMPT "OpenOffice"
|
||||
@ 17, 32 PROMPT "Quit"
|
||||
|
||||
MENU TO nOption
|
||||
|
||||
IF nOption == 0
|
||||
nOption := 8
|
||||
ELSEIF nOption == 1
|
||||
Exm_MSExcel()
|
||||
ELSEIF nOption == 2
|
||||
Exm_MSWord()
|
||||
ELSEIF nOption == 3
|
||||
Exm_MSOutlook()
|
||||
ELSEIF nOption == 4
|
||||
Exm_MSOutlook2()
|
||||
ELSEIF nOption == 5
|
||||
Exm_IExplorer()
|
||||
ELSEIF nOption == 6
|
||||
Exm_CDO()
|
||||
ELSEIF nOption == 7
|
||||
Exm_OpenOffice()
|
||||
ELSEIF nOption == 8
|
||||
EXIT
|
||||
ENDIF
|
||||
End
|
||||
|
||||
SetColor("W/N")
|
||||
CLS
|
||||
|
||||
RETURN
|
||||
|
||||
// ; Requires Windows XP
|
||||
|
||||
STATIC PROCEDURE Exm_CDO()
|
||||
|
||||
LOCAL oCDOMsg
|
||||
LOCAL oCDOConf
|
||||
|
||||
BEGIN SEQUENCE WITH {|oErr| Break( oErr )}
|
||||
oCDOMsg := CreateObject( "CDO.Message" )
|
||||
BEGIN SEQUENCE WITH {|oErr| Break( oErr )}
|
||||
|
||||
oCDOConf := CreateObject( "CDO.Configuration" )
|
||||
|
||||
oCDOConf:Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") := 2 // ; cdoSendUsingPort
|
||||
oCDOConf:Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") := "localhost"
|
||||
oCDOConf:Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") := 25
|
||||
oCDOConf:Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") := 120
|
||||
oCDOConf:Fields:Update()
|
||||
|
||||
oCDOMsg:Configuration := oCDOConf
|
||||
oCDOMsg:BodyPart:Charset := "iso-8859-2" // "iso-8859-1" "utf-8"
|
||||
oCDOMsg:To := "test@localhost"
|
||||
oCDOMsg:From := "sender@localhost"
|
||||
oCDOMsg:Subject := "Test message"
|
||||
oCDOMsg:TextBody := "Test message body"
|
||||
|
||||
BEGIN SEQUENCE WITH {|oErr| Break( oErr )}
|
||||
oCDOMsg:Send()
|
||||
RECOVER
|
||||
Alert( "Error: CDO send error. [" + Ole2TxtError()+ "]" )
|
||||
END SEQUENCE
|
||||
|
||||
oCDOConf := NIL
|
||||
|
||||
END SEQUENCE
|
||||
|
||||
oCDOMsg := NIL
|
||||
|
||||
RECOVER
|
||||
Alert( "Error: CDO subsystem not available. [" + Ole2TxtError()+ "]" )
|
||||
END SEQUENCE
|
||||
|
||||
RETURN
|
||||
|
||||
STATIC PROCEDURE Exm_IExplorer()
|
||||
|
||||
LOCAL oIE
|
||||
|
||||
BEGIN SEQUENCE WITH {|oErr| Break( oErr )}
|
||||
oIE := CreateObject( "InternetExplorer.Application" )
|
||||
BEGIN SEQUENCE WITH {|oErr| Break( oErr )}
|
||||
oIE:Visible := .T.
|
||||
oIE:Navigate( "http://www.harbour-project.org" )
|
||||
END SEQUENCE
|
||||
RECOVER
|
||||
Alert( "Error: IExplorer not available. [" + Ole2TxtError()+ "]" )
|
||||
END SEQUENCE
|
||||
|
||||
RETURN
|
||||
|
||||
STATIC PROCEDURE Exm_MSExcel()
|
||||
|
||||
LOCAL oExcel
|
||||
LOCAL oWorkBook
|
||||
LOCAL oWorkSheet
|
||||
LOCAL oAS
|
||||
|
||||
BEGIN SEQUENCE WITH {|oErr| Break( oErr )}
|
||||
oExcel := CreateObject( "Excel.Application" )
|
||||
BEGIN SEQUENCE WITH {|oErr| Break( oErr )}
|
||||
|
||||
oWorkBook := oExcel:WorkBooks:Add()
|
||||
|
||||
FOR EACH oWorkSheet IN oWorkBook:WorkSheets
|
||||
? oWorkSheet:Name
|
||||
NEXT
|
||||
|
||||
oAS := oExcel:ActiveSheet()
|
||||
|
||||
oAS:Cells:Font:Name := "Arial"
|
||||
oAS:Cells:Font:Size := 12
|
||||
|
||||
// Explicit use of DEFAULT method by means of #xtranslate above!!!
|
||||
oAS:Cells( 3, 1 ) := "Explict DEFAULT Method Text:"
|
||||
|
||||
// Array notation seem to have REVERSED indexs for the Cells Collections!!!
|
||||
// Implicitly using DEFAULT Method
|
||||
oAS:Cells[ 2, 3 ] := "Implicit DEFAULT Method using *reversed* array index notation"
|
||||
|
||||
// Operator overloading will attempt explict resolutin using :OleValue
|
||||
oAS:Cells[ 2, 3 ] += "!"
|
||||
|
||||
oAS:Cells( 4, 1 ):Value := "Numeric:"
|
||||
oAS:Cells( 4, 2 ):NumberFormat := "#.##0,00"
|
||||
|
||||
oAS:Cells[ 2, 4 ] := 1234.50
|
||||
oAS:Cells[ 2, 4 ] *= 4
|
||||
? oAS:Cells[ 2, 4 ], oAS:Cells[ 2, 4 ]:Value
|
||||
oAS:Cells[ 2, 4 ] /= 2
|
||||
? oAS:Cells[ 2, 4 ], oAS:Cells[ 2, 4 ]:Value
|
||||
|
||||
oAS:Cells[ 2, 4 ]++
|
||||
? oAS:Cells[ 2, 4 ], oAS:Cells[ 2, 4 ]:Value
|
||||
oAS:Cells[ 2, 4 ]--
|
||||
? oAS:Cells[ 2, 4 ], oAS:Cells[ 2, 4 ]:Value
|
||||
|
||||
oAS:Cells( 5, 1 ):Value := "Logical:"
|
||||
oAS:Cells( 5, 2 ):Value := .T.
|
||||
oAS:Cells( 6, 1 ):Value := "Date:"
|
||||
oAS:Cells( 6, 2 ):Value := DATE()
|
||||
|
||||
oAS:Columns( 1 ):Font:Bold := .T.
|
||||
oAS:Columns( 2 ):HorizontalAlignment := -4152 // xlRight
|
||||
|
||||
oAS:Columns( 1 ):AutoFit()
|
||||
oAS:Columns( 2 ):AutoFit()
|
||||
|
||||
oAS:Cells( 1, 1 ):Value := "OLE from Harbour"
|
||||
oAS:Cells( 1, 1 ):Font:Size := 16
|
||||
oAS:Range( "A1:B1" ):HorizontalAlignment := 7
|
||||
|
||||
oAS:Cells( 1, 1 ):Select()
|
||||
|
||||
oExcel:Visible := .T.
|
||||
|
||||
oExcel:Quit()
|
||||
|
||||
END SEQUENCE
|
||||
RECOVER
|
||||
Alert( "Error: MS Excel not available. [" + Ole2TxtError()+ "]" )
|
||||
END SEQUENCE
|
||||
|
||||
RETURN
|
||||
|
||||
STATIC PROCEDURE Exm_MSWord()
|
||||
|
||||
LOCAL oWord
|
||||
LOCAL oText
|
||||
|
||||
BEGIN SEQUENCE WITH {|oErr| Break( oErr )}
|
||||
oWord := CreateObject( "Word.Application" )
|
||||
BEGIN SEQUENCE WITH {|oErr| Break( oErr )}
|
||||
|
||||
oWord:Documents:Add()
|
||||
|
||||
oText := oWord:Selection()
|
||||
|
||||
oText:Text := "OLE from Harbour" + hb_OSNewLine()
|
||||
oText:Font:Name := "Arial"
|
||||
oText:Font:Size := 48
|
||||
oText:Font:Bold := .T.
|
||||
|
||||
oWord:Visible := .T.
|
||||
oWord:WindowState := 1 // ; Maximize
|
||||
|
||||
END SEQUENCE
|
||||
RECOVER
|
||||
Alert( "Error: MS Word not available. [" + Ole2TxtError()+ "]" )
|
||||
END SEQUENCE
|
||||
|
||||
RETURN
|
||||
|
||||
STATIC PROCEDURE Exm_MSOutlook()
|
||||
|
||||
LOCAL oOL
|
||||
LOCAL oList
|
||||
|
||||
BEGIN SEQUENCE WITH {|oErr| Break( oErr )}
|
||||
oOL := CreateObject( "Outlook.Application" )
|
||||
BEGIN SEQUENCE WITH {|oErr| Break( oErr )}
|
||||
oList := oOL:CreateItem( 7 ) // ; olDistributionListItem
|
||||
oList:DLName := "Distribution List"
|
||||
oList:Display( .F. )
|
||||
END SEQUENCE
|
||||
RECOVER
|
||||
Alert( "Error: MS Outlook not available. [" + Ole2TxtError()+ "]" )
|
||||
END SEQUENCE
|
||||
|
||||
RETURN
|
||||
|
||||
STATIC PROCEDURE Exm_MSOutlook2()
|
||||
|
||||
LOCAL oOL
|
||||
LOCAL oLista
|
||||
LOCAL oMail
|
||||
LOCAL i
|
||||
|
||||
oOL := TOleAuto():New( "Outlook.Application.9" )
|
||||
|
||||
IF Ole2TxtError() != "S_OK"
|
||||
Alert("Outlook is not available", "Error")
|
||||
ELSE
|
||||
oMail := oOL:CreateItem( 0 ) // olMailItem
|
||||
|
||||
FOR i := 1 TO 10
|
||||
oMail:Recipients:Add( "Contact" + LTRIM( STR( i, 2 ) ) + ;
|
||||
"<contact" + LTRIM( STR( i, 2 ) ) + "@server.com>" )
|
||||
NEXT
|
||||
|
||||
oLista := oOL:CreateItem( 7 ) // olDistributionListItem
|
||||
oLista:DLName := "Test with distribution list"
|
||||
oLista:Display( .F. )
|
||||
oLista:AddMembers( oMail:Recipients )
|
||||
oLista:Save()
|
||||
oLista:Close( 0 )
|
||||
|
||||
oMail:End()
|
||||
oLista:End()
|
||||
oOL:End()
|
||||
|
||||
ENDIF
|
||||
|
||||
RETURN
|
||||
|
||||
STATIC PROCEDURE Exm_OpenOffice()
|
||||
|
||||
LOCAL oOO_ServiceManager
|
||||
LOCAL oOO_Desktop
|
||||
LOCAL oOO_PropVal01
|
||||
LOCAL oOO_Doc
|
||||
|
||||
LOCAL cDir
|
||||
|
||||
BEGIN SEQUENCE WITH {|oErr| Break( oErr )}
|
||||
|
||||
oOO_ServiceManager := CreateObject( "com.sun.star.ServiceManager" )
|
||||
|
||||
BEGIN SEQUENCE WITH {|oErr| Break( oErr )}
|
||||
|
||||
hb_FNameSplit( hb_ArgV( 0 ), @cDir )
|
||||
|
||||
oOO_Desktop := oOO_ServiceManager:createInstance( "com.sun.star.frame.Desktop" )
|
||||
oOO_PropVal01 := oOO_ServiceManager:Bridge_GetStruct( "com.sun.star.beans.PropertyValue" )
|
||||
oOO_Doc := oOO_Desktop:loadComponentFromURL( OO_ConvertToURL( hb_FNameMerge( cDir, "sample.odt" ) ), "_blank", 0, { oOO_PropVal01 } )
|
||||
|
||||
// ...
|
||||
|
||||
oOO_Doc:Close( .T. )
|
||||
oOO_Doc := NIL
|
||||
|
||||
oOO_Desktop:Terminate()
|
||||
oOO_Desktop := NIL
|
||||
oOO_PropVal01 := NIL
|
||||
|
||||
END SEQUENCE
|
||||
|
||||
oOO_ServiceManager := NIL
|
||||
|
||||
RECOVER
|
||||
Alert( "Error: OpenOffice not available. [" + Ole2TxtError()+ "]" )
|
||||
END SEQUENCE
|
||||
|
||||
RETURN
|
||||
|
||||
STATIC FUNCTION OO_ConvertToURL( cString )
|
||||
|
||||
// ; Handle UNC paths
|
||||
IF !( Left( cString, 2 ) == "\\" )
|
||||
cString := StrTran( cString, ":", "|" )
|
||||
cString := "///" + cString
|
||||
ENDIF
|
||||
|
||||
cString := StrTran( cString, "\", "/" )
|
||||
cString := StrTran( cString, " ", "%20" )
|
||||
|
||||
RETURN "file:" + cString
|
||||
@@ -8,8 +8,8 @@ C_SOURCES= \
|
||||
pdfhbdoc.c \
|
||||
|
||||
PRG_SOURCES= \
|
||||
pdfhbdocs.prg \
|
||||
pdf1.prg \
|
||||
# pdfhbdocs.prg \
|
||||
|
||||
LIBNAME=hbpdflib
|
||||
|
||||
|
||||
@@ -11,8 +11,8 @@ LIB_PATH = $(LIB_DIR)\$(LIBNAME)$(LIBEXT)
|
||||
#
|
||||
|
||||
LIB_OBJS = \
|
||||
$(OBJ_DIR)\pdfhbdocs$(OBJEXT) \
|
||||
$(OBJ_DIR)\pdfhbdoc$(OBJEXT) \
|
||||
# $(OBJ_DIR)\pdfhbdocs$(OBJEXT) \
|
||||
$(OBJ_DIR)\pdf1$(OBJEXT) \
|
||||
|
||||
all: \
|
||||
|
||||
@@ -61,7 +61,6 @@
|
||||
based on work of : Victor K. . http://www.ihaveparts.com
|
||||
+ many new itens that Victor code dont handle
|
||||
*/
|
||||
MEMVAR lLandScape // GLOBAL EXTERNAL
|
||||
|
||||
CLASS TPdf
|
||||
|
||||
@@ -516,7 +515,7 @@ RETURN nil
|
||||
|
||||
METHOD Pdfpageorient( _cPageOrient ) CLASS TPdf
|
||||
|
||||
DEFAULT _cPageOrient TO Iif( lLandScape, "L", "P" )
|
||||
DEFAULT _cPageOrient TO Iif( pdf_GetLandScape(), "L", "P" )
|
||||
|
||||
::aReport[ PAGEORIENT ] := _cPageOrient
|
||||
::pdfPageSize( ::aReport[ PAGESIZE ] )
|
||||
|
||||
@@ -602,3 +602,363 @@ void setText( PDF *p, const char *szText, float frow, float fcol, float h, float
|
||||
PDF_rect( p, frow, fcol, iw + 5, h );
|
||||
PDF_stroke( p );
|
||||
}
|
||||
|
||||
const char szFontTable[ ] = {
|
||||
"\xfa\0\xfa\0\xfa\0\xfa\0\x4d\x01\x4d\x01\x4d\x01\x85\x01"
|
||||
"\x98\x01\x2b\x02\xa4\x01\x2b\x02\xf4\x01\xf4\x01\xf4\x01\xf4\x01"
|
||||
"\xf4\x01\xf4\x01\xf4\x01\xf4\x01\x41\x03\xe8\x03\x41\x03\x41\x03"
|
||||
"\x0a\x03\x41\x03\x0a\x03\x0a\x03\x4d\x01\x4d\x01\x4d\x01\x4d\x01"
|
||||
"\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01"
|
||||
"\xf4\x01\xf4\x01\xf4\x01\xf4\x01\x34\x02\x3a\x02\xa3\x02\x3a\x02"
|
||||
"\xfa\0\xfa\0\xfa\0\xfa\0\x4d\x01\x4d\x01\x4d\x01\x4d\x01"
|
||||
"\xfa\0\xfa\0\xfa\0\xfa\0\x16\x01\x16\x01\x16\x01\x16\x01"
|
||||
"\xf4\x01\xf4\x01\xf4\x01\xf4\x01\xf4\x01\xf4\x01\xf4\x01\xf4\x01"
|
||||
"\xf4\x01\xf4\x01\xf4\x01\xf4\x01\xf4\x01\xf4\x01\xf4\x01\xf4\x01"
|
||||
"\xf4\x01\xf4\x01\xf4\x01\xf4\x01\xf4\x01\xf4\x01\xf4\x01\xf4\x01"
|
||||
"\xf4\x01\xf4\x01\xf4\x01\xf4\x01\xf4\x01\xf4\x01\xf4\x01\xf4\x01"
|
||||
"\xf4\x01\xf4\x01\xf4\x01\xf4\x01\xf4\x01\xf4\x01\xf4\x01\xf4\x01"
|
||||
"\x16\x01\x4d\x01\x4d\x01\x4d\x01\x16\x01\x4d\x01\x4d\x01\x4d\x01"
|
||||
"\x34\x02\x3a\x02\xa3\x02\x3a\x02\x34\x02\x3a\x02\xa3\x02\x3a\x02"
|
||||
"\x34\x02\x3a\x02\xa3\x02\x3a\x02\xbc\x01\xf4\x01\xf4\x01\xf4\x01"
|
||||
"\x99\x03\xa2\x03\x98\x03\x40\x03\xd2\x02\xd2\x02\x63\x02\x9b\x02"
|
||||
"\x9b\x02\x9b\x02\x63\x02\x9b\x02\x9b\x02\xd2\x02\x9b\x02\x9b\x02"
|
||||
"\xd2\x02\xd2\x02\xd2\x02\xd2\x02\x63\x02\x9b\x02\x63\x02\x9b\x02"
|
||||
"\x2c\x02\x63\x02\x63\x02\x9b\x02\xd2\x02\x0a\x03\xd2\x02\xd2\x02"
|
||||
"\xd2\x02\x0a\x03\xd2\x02\x0a\x03\x4d\x01\x85\x01\x4d\x01\x85\x01"
|
||||
"\x85\x01\xf4\x01\xbc\x01\xf4\x01\xd2\x02\x0a\x03\x9b\x02\x9b\x02"
|
||||
"\x63\x02\x9b\x02\x2c\x02\x63\x02\x79\x03\xb0\x03\x41\x03\x79\x03"
|
||||
"\xd2\x02\xd2\x02\x9b\x02\xd2\x02\xd2\x02\x0a\x03\xd2\x02\xd2\x02"
|
||||
"\x2c\x02\x63\x02\x63\x02\x63\x02\xd2\x02\x0a\x03\xd2\x02\xd2\x02"
|
||||
"\x9b\x02\xd2\x02\x63\x02\x9b\x02\x2c\x02\x2c\x02\xf4\x01\x2c\x02"
|
||||
"\x63\x02\x9b\x02\x2c\x02\x63\x02\xd2\x02\xd2\x02\xd2\x02\xd2\x02"
|
||||
"\xd2\x02\xd2\x02\x63\x02\x9b\x02\xb0\x03\xe8\x03\x41\x03\x79\x03"
|
||||
"\xd2\x02\xd2\x02\x63\x02\x9b\x02\xd2\x02\xd2\x02\x2c\x02\x63\x02"
|
||||
"\x63\x02\x9b\x02\x2c\x02\x63\x02\x4d\x01\x4d\x01\x85\x01\x4d\x01"
|
||||
"\x16\x01\x16\x01\x16\x01\x16\x01\x4d\x01\x4d\x01\x85\x01\x4d\x01"
|
||||
"\xd5\x01\x45\x02\xa6\x01\x3a\x02\xf4\x01\xf4\x01\xf4\x01\xf4\x01"
|
||||
"\x4d\x01\x4d\x01\x4d\x01\x4d\x01\xbc\x01\xf4\x01\xf4\x01\xf4\x01"
|
||||
"\xf4\x01\x2c\x02\xf4\x01\xf4\x01\xbc\x01\xbc\x01\xbc\x01\xbc\x01"
|
||||
"\xf4\x01\x2c\x02\xf4\x01\xf4\x01\xbc\x01\xbc\x01\xbc\x01\xbc\x01"
|
||||
"\x4d\x01\x4d\x01\x16\x01\x4d\x01\xf4\x01\xf4\x01\xf4\x01\xf4\x01"
|
||||
"\xf4\x01\x2c\x02\xf4\x01\x2c\x02\x16\x01\x16\x01\x16\x01\x16\x01"
|
||||
"\x16\x01\x4d\x01\x16\x01\x16\x01\xf4\x01\x2c\x02\xbc\x01\xf4\x01"
|
||||
"\x16\x01\x16\x01\x16\x01\x16\x01\x0a\x03\x41\x03\xd2\x02\x0a\x03"
|
||||
"\xf4\x01\x2c\x02\xf4\x01\x2c\x02\xf4\x01\xf4\x01\xf4\x01\xf4\x01"
|
||||
"\xf4\x01\x2c\x02\xf4\x01\xf4\x01\xf4\x01\x2c\x02\xf4\x01\xf4\x01"
|
||||
"\x4d\x01\xbc\x01\x85\x01\x85\x01\x85\x01\x85\x01\x85\x01\x85\x01"
|
||||
"\x16\x01\x4d\x01\x16\x01\x16\x01\xf4\x01\x2c\x02\xf4\x01\x2c\x02"
|
||||
"\xf4\x01\xf4\x01\xbc\x01\xbc\x01\xd2\x02\xd2\x02\x9b\x02\x9b\x02"
|
||||
"\xf4\x01\xf4\x01\xbc\x01\xf4\x01\xf4\x01\xf4\x01\xbc\x01\xbc\x01"
|
||||
"\xbc\x01\xbc\x01\x85\x01\x85\x01\xe0\x01\x8a\x01\x90\x01\x5c\x01"
|
||||
"\xc8\0\xdc\0\x13\x01\xdc\0\xe0\x01\x8a\x01\x90\x01\x5c\x01"
|
||||
"\x1d\x02\x08\x02\x1d\x02\x3a\x02\0\0\0\0\0\0\0\0"
|
||||
"\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0"
|
||||
"\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0"
|
||||
"\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0"
|
||||
"\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0"
|
||||
"\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0"
|
||||
"\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0"
|
||||
"\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0"
|
||||
"\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0"
|
||||
"\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0"
|
||||
"\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0"
|
||||
"\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0"
|
||||
"\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0"
|
||||
"\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0"
|
||||
"\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0"
|
||||
"\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0"
|
||||
"\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0"
|
||||
"\0\0\0\0\0\0\0\0\x4d\x01\x4d\x01\x85\x01\x85\x01"
|
||||
"\xf4\x01\xf4\x01\xf4\x01\xf4\x01\xf4\x01\xf4\x01\xf4\x01\xf4\x01"
|
||||
"\xa7\0\xa7\0\xa7\0\xa7\0\xf4\x01\xf4\x01\xf4\x01\xf4\x01"
|
||||
"\xf4\x01\xf4\x01\xf4\x01\xf4\x01\xf4\x01\xf4\x01\xf4\x01\xf4\x01"
|
||||
"\xf4\x01\xf4\x01\xf4\x01\xf4\x01\xb4\0\x16\x01\xd6\0\x16\x01"
|
||||
"\xbc\x01\xf4\x01\x2c\x02\xf4\x01\xf4\x01\xf4\x01\xf4\x01\xf4\x01"
|
||||
"\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01"
|
||||
"\x2c\x02\x2c\x02\xf4\x01\x2c\x02\x2c\x02\x2c\x02\xf4\x01\x2c\x02"
|
||||
"\0\0\0\0\0\0\0\0\xf4\x01\xf4\x01\xf4\x01\xf4\x01"
|
||||
"\xf4\x01\xf4\x01\xf4\x01\xf4\x01\xf4\x01\xf4\x01\xf4\x01\xf4\x01"
|
||||
"\xfa\0\xfa\0\xfa\0\xfa\0\0\0\0\0\0\0\0\0"
|
||||
"\xc5\x01\x1c\x02\x0b\x02\xf4\x01\x5e\x01\x5e\x01\x5e\x01\x5e\x01"
|
||||
"\x4d\x01\x4d\x01\x4d\x01\x4d\x01\xbc\x01\xf4\x01\x2c\x02\xf4\x01"
|
||||
"\xbc\x01\xf4\x01\x2c\x02\xf4\x01\xf4\x01\xf4\x01\xf4\x01\xf4\x01"
|
||||
"\xe8\x03\xe8\x03\x79\x03\xe8\x03\xe8\x03\xe8\x03\xe8\x03\xe8\x03"
|
||||
"\0\0\0\0\0\0\0\0\xbc\x01\xf4\x01\xf4\x01\xf4\x01"
|
||||
"\0\0\0\0\0\0\0\0\x4d\x01\x4d\x01\x4d\x01\x4d\x01"
|
||||
"\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01"
|
||||
"\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01"
|
||||
"\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01"
|
||||
"\x4d\x01\x4d\x01\x4d\x01\x4d\x01\0\0\0\0\0\0\0\0"
|
||||
"\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01"
|
||||
"\0\0\0\0\0\0\0\0\x4d\x01\x4d\x01\x4d\x01\x4d\x01"
|
||||
"\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01"
|
||||
"\xe8\x03\xe8\x03\x79\x03\xe8\x03\0\0\0\0\0\0\0\0"
|
||||
"\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0"
|
||||
"\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0"
|
||||
"\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0"
|
||||
"\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0"
|
||||
"\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0"
|
||||
"\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0"
|
||||
"\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0"
|
||||
"\0\0\0\0\0\0\0\0\x79\x03\xe8\x03\x79\x03\xb0\x03"
|
||||
"\0\0\0\0\0\0\0\0\x14\x01\x2c\x01\x14\x01\x0a\x01"
|
||||
"\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0"
|
||||
"\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0"
|
||||
"\x63\x02\x9b\x02\x2c\x02\x63\x02\xd2\x02\x0a\x03\xd2\x02\xd2\x02"
|
||||
"\x79\x03\xe8\x03\xb0\x03\xb0\x03\x36\x01\x4a\x01\x36\x01\x2c\x01"
|
||||
"\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0"
|
||||
"\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0"
|
||||
"\0\0\0\0\0\0\0\0\x9b\x02\xd2\x02\x9b\x02\xd2\x02"
|
||||
"\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0"
|
||||
"\0\0\0\0\0\0\0\0\x16\x01\x16\x01\x16\x01\x16\x01"
|
||||
"\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0"
|
||||
"\x16\x01\x16\x01\x16\x01\x16\x01\xf4\x01\xf4\x01\xf4\x01\xf4\x01"
|
||||
"\xd2\x02\xd2\x02\x9b\x02\xd2\x02\xf4\x01\x2c\x02\xf4\x01\xf4\x01"
|
||||
"\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0"
|
||||
"\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0"
|
||||
"\x16\x01\x16\x01\x16\x01\x16\x01\x16\x01\x4d\x01\x16\x01\x4d\x01"
|
||||
"\x63\x01\xda\x01\x63\x01\xda\x01\x2c\x02\x2c\x02\x2c\x02\x2c\x02"
|
||||
"\x2c\x02\x2c\x02\x2c\x02\x2c\x02\x79\x03\x79\x03\x79\x03\x79\x03"
|
||||
"\x9b\x02\xd2\x02\x9b\x02\xd2\x02\xde\0\x16\x01\xde\0\x16\x01"
|
||||
"\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01"
|
||||
"\x85\x01\x85\x01\x85\x01\x85\x01\x48\x02\x48\x02\x48\x02\x48\x02"
|
||||
"\x16\x01\x16\x01\x16\x01\x16\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01"
|
||||
"\x16\x01\x16\x01\x16\x01\x16\x01\x16\x01\x16\x01\x16\x01\x16\x01"
|
||||
"\x2c\x02\x2c\x02\x2c\x02\x2c\x02\x2c\x02\x2c\x02\x2c\x02\x2c\x02"
|
||||
"\x2c\x02\x2c\x02\x2c\x02\x2c\x02\x2c\x02\x2c\x02\x2c\x02\x2c\x02"
|
||||
"\x2c\x02\x2c\x02\x2c\x02\x2c\x02\x2c\x02\x2c\x02\x2c\x02\x2c\x02"
|
||||
"\x2c\x02\x2c\x02\x2c\x02\x2c\x02\x2c\x02\x2c\x02\x2c\x02\x2c\x02"
|
||||
"\x2c\x02\x2c\x02\x2c\x02\x2c\x02\x2c\x02\x2c\x02\x2c\x02\x2c\x02"
|
||||
"\x16\x01\x4d\x01\x16\x01\x4d\x01\x16\x01\x4d\x01\x16\x01\x4d\x01"
|
||||
"\x48\x02\x48\x02\x48\x02\x48\x02\x48\x02\x48\x02\x48\x02\x48\x02"
|
||||
"\x48\x02\x48\x02\x48\x02\x48\x02\x2c\x02\x63\x02\x2c\x02\x63\x02"
|
||||
"\xf7\x03\xcf\x03\xf7\x03\xcf\x03\x9b\x02\xd2\x02\x9b\x02\xd2\x02"
|
||||
"\x9b\x02\xd2\x02\x9b\x02\xd2\x02\xd2\x02\xd2\x02\xd2\x02\xd2\x02"
|
||||
"\xd2\x02\xd2\x02\xd2\x02\xd2\x02\x9b\x02\x9b\x02\x9b\x02\x9b\x02"
|
||||
"\x63\x02\x63\x02\x63\x02\x63\x02\x0a\x03\x0a\x03\x0a\x03\x0a\x03"
|
||||
"\xd2\x02\xd2\x02\xd2\x02\xd2\x02\x16\x01\x16\x01\x16\x01\x16\x01"
|
||||
"\xf4\x01\x2c\x02\xf4\x01\x2c\x02\x9b\x02\xd2\x02\x9b\x02\xd2\x02"
|
||||
"\x2c\x02\x63\x02\x2c\x02\x63\x02\x41\x03\x41\x03\x41\x03\x41\x03"
|
||||
"\xd2\x02\xd2\x02\xd2\x02\xd2\x02\x0a\x03\x0a\x03\x0a\x03\x0a\x03"
|
||||
"\x9b\x02\x9b\x02\x9b\x02\x9b\x02\x0a\x03\x0a\x03\x0a\x03\x0a\x03"
|
||||
"\xd2\x02\xd2\x02\xd2\x02\xd2\x02\x9b\x02\x9b\x02\x9b\x02\x9b\x02"
|
||||
"\x63\x02\x63\x02\x63\x02\x63\x02\xd2\x02\xd2\x02\xd2\x02\xd2\x02"
|
||||
"\x9b\x02\x9b\x02\x9b\x02\x9b\x02\xb0\x03\xb0\x03\xb0\x03\xb0\x03"
|
||||
"\x9b\x02\x9b\x02\x9b\x02\x9b\x02\x9b\x02\x9b\x02\x9b\x02\x9b\x02"
|
||||
"\x63\x02\x63\x02\x63\x02\x63\x02\x16\x01\x4d\x01\x16\x01\x4d\x01"
|
||||
"\x16\x01\x16\x01\x16\x01\x16\x01\x16\x01\x4d\x01\x16\x01\x4d\x01"
|
||||
"\xd5\x01\x48\x02\xd5\x01\x48\x02\x2c\x02\x2c\x02\x2c\x02\x2c\x02"
|
||||
"\xde\0\x16\x01\xde\0\x16\x01\x2c\x02\x2c\x02\x2c\x02\x2c\x02"
|
||||
"\x2c\x02\x63\x02\x2c\x02\x63\x02\xf4\x01\x2c\x02\xf4\x01\x2c\x02"
|
||||
"\x2c\x02\x63\x02\x2c\x02\x63\x02\x2c\x02\x2c\x02\x2c\x02\x2c\x02"
|
||||
"\x16\x01\x4d\x01\x16\x01\x4d\x01\x2c\x02\x63\x02\x2c\x02\x63\x02"
|
||||
"\x2c\x02\x63\x02\x2c\x02\x63\x02\xde\0\x16\x01\xde\0\x16\x01"
|
||||
"\xde\0\x16\x01\xde\0\x16\x01\xf4\x01\x2c\x02\xf4\x01\x2c\x02"
|
||||
"\xde\0\x16\x01\xde\0\x16\x01\x41\x03\x79\x03\x41\x03\x79\x03"
|
||||
"\x2c\x02\x63\x02\x2c\x02\x63\x02\x2c\x02\x63\x02\x2c\x02\x63\x02"
|
||||
"\x2c\x02\x63\x02\x2c\x02\x63\x02\x2c\x02\x63\x02\x2c\x02\x63\x02"
|
||||
"\x4d\x01\x85\x01\x4d\x01\x85\x01\xf4\x01\x2c\x02\xf4\x01\x2c\x02"
|
||||
"\x16\x01\x4d\x01\x16\x01\x4d\x01\x2c\x02\x63\x02\x2c\x02\x63\x02"
|
||||
"\xf4\x01\x2c\x02\xf4\x01\x2c\x02\xd2\x02\x0a\x03\xd2\x02\x0a\x03"
|
||||
"\xf4\x01\x2c\x02\xf4\x01\x2c\x02\xf4\x01\x2c\x02\xf4\x01\x2c\x02"
|
||||
"\xf4\x01\xf4\x01\xf4\x01\xf4\x01\x4e\x01\x85\x01\x4e\x01\x85\x01"
|
||||
"\x04\x01\x18\x01\x04\x01\x18\x01\x4e\x01\x85\x01\x4e\x01\x85\x01"
|
||||
"\x48\x02\x48\x02\x48\x02\x48\x02\0\0\0\0\0\0\0\0"
|
||||
"\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0"
|
||||
"\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0"
|
||||
"\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0"
|
||||
"\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0"
|
||||
"\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0"
|
||||
"\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0"
|
||||
"\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0"
|
||||
"\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0"
|
||||
"\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0"
|
||||
"\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0"
|
||||
"\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0"
|
||||
"\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0"
|
||||
"\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0"
|
||||
"\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0"
|
||||
"\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0"
|
||||
"\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0"
|
||||
"\0\0\0\0\0\0\0\0\x4d\x01\x4d\x01\x4d\x01\x4d\x01"
|
||||
"\x2c\x02\x2c\x02\x2c\x02\x2c\x02\x2c\x02\x2c\x02\x2c\x02\x2c\x02"
|
||||
"\xa7\0\xa7\0\xa7\0\xa7\0\x2c\x02\x2c\x02\x2c\x02\x2c\x02"
|
||||
"\x2c\x02\x2c\x02\x2c\x02\x2c\x02\x2c\x02\x2c\x02\x2c\x02\x2c\x02"
|
||||
"\x2c\x02\x2c\x02\x2c\x02\x2c\x02\xbf\0\xee\0\xbf\0\xee\0"
|
||||
"\x4d\x01\xf4\x01\x4d\x01\xf4\x01\x2c\x02\x2c\x02\x2c\x02\x2c\x02"
|
||||
"\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01"
|
||||
"\xf4\x01\x63\x02\xf4\x01\x63\x02\xf4\x01\x63\x02\xf4\x01\x63\x02"
|
||||
"\0\0\0\0\0\0\0\0\x2c\x02\x2c\x02\x2c\x02\x2c\x02"
|
||||
"\x2c\x02\x2c\x02\x2c\x02\x2c\x02\x2c\x02\x2c\x02\x2c\x02\x2c\x02"
|
||||
"\x16\x01\x16\x01\x16\x01\x16\x01\0\0\0\0\0\0\0\0"
|
||||
"\x19\x02\x2c\x02\x19\x02\x2c\x02\x5e\x01\x5e\x01\x5e\x01\x5e\x01"
|
||||
"\xde\0\x16\x01\xde\0\x16\x01\x4d\x01\xf4\x01\x4d\x01\xf4\x01"
|
||||
"\x4d\x01\xf4\x01\x4d\x01\xf4\x01\x2c\x02\x2c\x02\x2c\x02\x2c\x02"
|
||||
"\xe8\x03\xe8\x03\xe8\x03\xe8\x03\xe8\x03\xe8\x03\xe8\x03\xe8\x03"
|
||||
"\0\0\0\0\0\0\0\0\x63\x02\x63\x02\x63\x02\x63\x02"
|
||||
"\0\0\0\0\0\0\0\0\x4d\x01\x4d\x01\x4d\x01\x4d\x01"
|
||||
"\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01"
|
||||
"\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01"
|
||||
"\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01"
|
||||
"\x4d\x01\x4d\x01\x4d\x01\x4d\x01\0\0\0\0\0\0\0\0"
|
||||
"\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01"
|
||||
"\0\0\0\0\0\0\0\0\x4d\x01\x4d\x01\x4d\x01\x4d\x01"
|
||||
"\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01"
|
||||
"\xe8\x03\xe8\x03\xe8\x03\xe8\x03\0\0\0\0\0\0\0\0"
|
||||
"\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0"
|
||||
"\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0"
|
||||
"\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0"
|
||||
"\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0"
|
||||
"\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0"
|
||||
"\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0"
|
||||
"\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0"
|
||||
"\0\0\0\0\0\0\0\0\xe8\x03\xe8\x03\xe8\x03\xe8\x03"
|
||||
"\0\0\0\0\0\0\0\0\x72\x01\x72\x01\x72\x01\x72\x01"
|
||||
"\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0"
|
||||
"\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0"
|
||||
"\x2c\x02\x63\x02\x2c\x02\x63\x02\x0a\x03\x0a\x03\x0a\x03\x0a\x03"
|
||||
"\xe8\x03\xe8\x03\xe8\x03\xe8\x03\x6d\x01\x6d\x01\x6d\x01\x6d\x01"
|
||||
"\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0"
|
||||
"\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0"
|
||||
"\0\0\0\0\0\0\0\0\x79\x03\x79\x03\x79\x03\x79\x03"
|
||||
"\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0"
|
||||
"\0\0\0\0\0\0\0\0\x16\x01\x16\x01\x16\x01\x16\x01"
|
||||
"\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0"
|
||||
"\xde\0\x16\x01\xde\0\x16\x01\x63\x02\x63\x02\x63\x02\x63\x02"
|
||||
"\xb0\x03\xb0\x03\xb0\x03\xb0\x03\x63\x02\x63\x02\x63\x02\x63\x02"
|
||||
"\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0"
|
||||
"\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
};
|
||||
|
||||
const int szFontTable_size = 5376 ;
|
||||
|
||||
HB_FUNC( CALCDATA )
|
||||
{
|
||||
int rowsperstrip = hb_parnd( 1 );
|
||||
float y = hb_parnd( 2 );
|
||||
float h = hb_parnd( 3 );
|
||||
int row, res;
|
||||
int p;
|
||||
|
||||
for( row = 0 ; row < h ; row += rowsperstrip )
|
||||
{
|
||||
int height = row + rowsperstrip > h ? h - row :rowsperstrip;
|
||||
|
||||
p = ( h - row - height );
|
||||
res = y + 1 * p;
|
||||
}
|
||||
|
||||
hb_retni( res );
|
||||
}
|
||||
|
||||
@@ -50,19 +50,12 @@
|
||||
*
|
||||
*/
|
||||
|
||||
|
||||
#pragma begindump
|
||||
/* declare for later use on C functions */
|
||||
#include "hbapi.h"
|
||||
#include "hbfast.h"
|
||||
#pragma enddump
|
||||
|
||||
#include "pdfhbdoc.ch"
|
||||
#include "common.ch"
|
||||
#INCLUDE "pdf.ch"
|
||||
|
||||
/*Variaveis Staticas */
|
||||
GLOBAL lLandScape := .F.
|
||||
STATIC lLandScape := .F.
|
||||
STATIC fontSizePoints := 10.0 /*10.0*/
|
||||
STATIC NumofRows
|
||||
STATIC LEAD := 10
|
||||
@@ -86,6 +79,9 @@ STATIC szUserpass
|
||||
STATIC iLastLinkPos := 0
|
||||
STATIC oPdf
|
||||
|
||||
FUNCTION pdf_GetLandScape()
|
||||
RETURN lLandScape
|
||||
|
||||
STATIC FUNCTION setBox( irow, icol, h, iw )
|
||||
|
||||
opdf:PDF_RECT( irow, icol, h, iw )
|
||||
@@ -140,10 +136,6 @@ RETURN NIL
|
||||
|
||||
FUNCTION HB_PDFNEWPAGE( szTitleT, szFile )
|
||||
|
||||
LOCAL image
|
||||
LOCAL scale_x
|
||||
LOCAL scale_y
|
||||
|
||||
oPdf:pdfNewPage( "A4", Iif( fPageHeigth < fPageWidth, "P", "L" ),, "Courier", 0 )
|
||||
IF Ischaracter( szFile )
|
||||
IF lLandScape .OR. opdf:aReport[ PAGEORIENT ] == "L"
|
||||
@@ -795,7 +787,6 @@ LOCAL i
|
||||
FUNCTION PDFDRAWPAGE( aPage, bOnNewPage )
|
||||
|
||||
LOCAL cItem
|
||||
LOCAL i
|
||||
|
||||
FOR each cItem in aPage
|
||||
|
||||
@@ -843,8 +834,10 @@ RETURN nil
|
||||
FUNCTION getText( szText, iFont, irow, icol, iw )
|
||||
|
||||
LOCAL h
|
||||
LOCAL w
|
||||
LOCAL c
|
||||
|
||||
HB_SYMBOL_UNUSED( iFont )
|
||||
|
||||
h := fontSizePoints * 2.1
|
||||
c := opdf:pdfTextCount( szText, irow, icol, iw, 0, 2 )
|
||||
h += fontSizePoints * c
|
||||
@@ -855,6 +848,9 @@ FUNCTION PdfMaxBoxSize( pText, iFont, pEnd, iw, pStart )
|
||||
LOCAL fMax := 0
|
||||
LOCAL fCurrentSize
|
||||
LOCAL ulTempPos
|
||||
|
||||
HB_SYMBOL_UNUSED( iw )
|
||||
|
||||
FOR ulTempPos := 1 TO Len( pText )
|
||||
|
||||
fCurrentSize := getText( pText[ ulTempPos ], iFont, pStart[ ulTempPos ], iRow, pEnd[ ulTempPos ] )
|
||||
@@ -871,6 +867,8 @@ FUNCTION PDFHR( fPos, fStart )
|
||||
iRow -= LEAD
|
||||
opdf:PDF_stroke( )
|
||||
|
||||
RETURN NIL
|
||||
|
||||
/*
|
||||
FUNCAO PDFPAGENUMBER()
|
||||
Retorna o numero da pagina atual sendo construida
|
||||
@@ -920,378 +918,7 @@ FUNCTION Pdfcomplevel( X )
|
||||
opdf:PdfCompLevel( x )
|
||||
RETURN NIL
|
||||
|
||||
// inline c functions
|
||||
|
||||
#pragma begindump
|
||||
int Bin2i( BYTE * pszString )
|
||||
{
|
||||
|
||||
ULONG ulLen = strlen( pszString ) ;
|
||||
int i = HB_MKSHORT( ( ulLen >= 1 ) ? ( BYTE ) pszString[ 0 ]:0,
|
||||
( ulLen >= 2 ) ? ( BYTE ) pszString[ 1 ] :0 ) ;
|
||||
//int i;
|
||||
// i = *((short *) pszString);
|
||||
return i ;
|
||||
}
|
||||
const char szFontTable[ ] = {
|
||||
"\xfa\0\xfa\0\xfa\0\xfa\0\x4d\x01\x4d\x01\x4d\x01\x85\x01"
|
||||
"\x98\x01\x2b\x02\xa4\x01\x2b\x02\xf4\x01\xf4\x01\xf4\x01\xf4\x01"
|
||||
"\xf4\x01\xf4\x01\xf4\x01\xf4\x01\x41\x03\xe8\x03\x41\x03\x41\x03"
|
||||
"\x0a\x03\x41\x03\x0a\x03\x0a\x03\x4d\x01\x4d\x01\x4d\x01\x4d\x01"
|
||||
"\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01"
|
||||
"\xf4\x01\xf4\x01\xf4\x01\xf4\x01\x34\x02\x3a\x02\xa3\x02\x3a\x02"
|
||||
"\xfa\0\xfa\0\xfa\0\xfa\0\x4d\x01\x4d\x01\x4d\x01\x4d\x01"
|
||||
"\xfa\0\xfa\0\xfa\0\xfa\0\x16\x01\x16\x01\x16\x01\x16\x01"
|
||||
"\xf4\x01\xf4\x01\xf4\x01\xf4\x01\xf4\x01\xf4\x01\xf4\x01\xf4\x01"
|
||||
"\xf4\x01\xf4\x01\xf4\x01\xf4\x01\xf4\x01\xf4\x01\xf4\x01\xf4\x01"
|
||||
"\xf4\x01\xf4\x01\xf4\x01\xf4\x01\xf4\x01\xf4\x01\xf4\x01\xf4\x01"
|
||||
"\xf4\x01\xf4\x01\xf4\x01\xf4\x01\xf4\x01\xf4\x01\xf4\x01\xf4\x01"
|
||||
"\xf4\x01\xf4\x01\xf4\x01\xf4\x01\xf4\x01\xf4\x01\xf4\x01\xf4\x01"
|
||||
"\x16\x01\x4d\x01\x4d\x01\x4d\x01\x16\x01\x4d\x01\x4d\x01\x4d\x01"
|
||||
"\x34\x02\x3a\x02\xa3\x02\x3a\x02\x34\x02\x3a\x02\xa3\x02\x3a\x02"
|
||||
"\x34\x02\x3a\x02\xa3\x02\x3a\x02\xbc\x01\xf4\x01\xf4\x01\xf4\x01"
|
||||
"\x99\x03\xa2\x03\x98\x03\x40\x03\xd2\x02\xd2\x02\x63\x02\x9b\x02"
|
||||
"\x9b\x02\x9b\x02\x63\x02\x9b\x02\x9b\x02\xd2\x02\x9b\x02\x9b\x02"
|
||||
"\xd2\x02\xd2\x02\xd2\x02\xd2\x02\x63\x02\x9b\x02\x63\x02\x9b\x02"
|
||||
"\x2c\x02\x63\x02\x63\x02\x9b\x02\xd2\x02\x0a\x03\xd2\x02\xd2\x02"
|
||||
"\xd2\x02\x0a\x03\xd2\x02\x0a\x03\x4d\x01\x85\x01\x4d\x01\x85\x01"
|
||||
"\x85\x01\xf4\x01\xbc\x01\xf4\x01\xd2\x02\x0a\x03\x9b\x02\x9b\x02"
|
||||
"\x63\x02\x9b\x02\x2c\x02\x63\x02\x79\x03\xb0\x03\x41\x03\x79\x03"
|
||||
"\xd2\x02\xd2\x02\x9b\x02\xd2\x02\xd2\x02\x0a\x03\xd2\x02\xd2\x02"
|
||||
"\x2c\x02\x63\x02\x63\x02\x63\x02\xd2\x02\x0a\x03\xd2\x02\xd2\x02"
|
||||
"\x9b\x02\xd2\x02\x63\x02\x9b\x02\x2c\x02\x2c\x02\xf4\x01\x2c\x02"
|
||||
"\x63\x02\x9b\x02\x2c\x02\x63\x02\xd2\x02\xd2\x02\xd2\x02\xd2\x02"
|
||||
"\xd2\x02\xd2\x02\x63\x02\x9b\x02\xb0\x03\xe8\x03\x41\x03\x79\x03"
|
||||
"\xd2\x02\xd2\x02\x63\x02\x9b\x02\xd2\x02\xd2\x02\x2c\x02\x63\x02"
|
||||
"\x63\x02\x9b\x02\x2c\x02\x63\x02\x4d\x01\x4d\x01\x85\x01\x4d\x01"
|
||||
"\x16\x01\x16\x01\x16\x01\x16\x01\x4d\x01\x4d\x01\x85\x01\x4d\x01"
|
||||
"\xd5\x01\x45\x02\xa6\x01\x3a\x02\xf4\x01\xf4\x01\xf4\x01\xf4\x01"
|
||||
"\x4d\x01\x4d\x01\x4d\x01\x4d\x01\xbc\x01\xf4\x01\xf4\x01\xf4\x01"
|
||||
"\xf4\x01\x2c\x02\xf4\x01\xf4\x01\xbc\x01\xbc\x01\xbc\x01\xbc\x01"
|
||||
"\xf4\x01\x2c\x02\xf4\x01\xf4\x01\xbc\x01\xbc\x01\xbc\x01\xbc\x01"
|
||||
"\x4d\x01\x4d\x01\x16\x01\x4d\x01\xf4\x01\xf4\x01\xf4\x01\xf4\x01"
|
||||
"\xf4\x01\x2c\x02\xf4\x01\x2c\x02\x16\x01\x16\x01\x16\x01\x16\x01"
|
||||
"\x16\x01\x4d\x01\x16\x01\x16\x01\xf4\x01\x2c\x02\xbc\x01\xf4\x01"
|
||||
"\x16\x01\x16\x01\x16\x01\x16\x01\x0a\x03\x41\x03\xd2\x02\x0a\x03"
|
||||
"\xf4\x01\x2c\x02\xf4\x01\x2c\x02\xf4\x01\xf4\x01\xf4\x01\xf4\x01"
|
||||
"\xf4\x01\x2c\x02\xf4\x01\xf4\x01\xf4\x01\x2c\x02\xf4\x01\xf4\x01"
|
||||
"\x4d\x01\xbc\x01\x85\x01\x85\x01\x85\x01\x85\x01\x85\x01\x85\x01"
|
||||
"\x16\x01\x4d\x01\x16\x01\x16\x01\xf4\x01\x2c\x02\xf4\x01\x2c\x02"
|
||||
"\xf4\x01\xf4\x01\xbc\x01\xbc\x01\xd2\x02\xd2\x02\x9b\x02\x9b\x02"
|
||||
"\xf4\x01\xf4\x01\xbc\x01\xf4\x01\xf4\x01\xf4\x01\xbc\x01\xbc\x01"
|
||||
"\xbc\x01\xbc\x01\x85\x01\x85\x01\xe0\x01\x8a\x01\x90\x01\x5c\x01"
|
||||
"\xc8\0\xdc\0\x13\x01\xdc\0\xe0\x01\x8a\x01\x90\x01\x5c\x01"
|
||||
"\x1d\x02\x08\x02\x1d\x02\x3a\x02\0\0\0\0\0\0\0\0"
|
||||
"\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0"
|
||||
"\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0"
|
||||
"\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0"
|
||||
"\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0"
|
||||
"\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0"
|
||||
"\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0"
|
||||
"\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0"
|
||||
"\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0"
|
||||
"\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0"
|
||||
"\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0"
|
||||
"\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0"
|
||||
"\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0"
|
||||
"\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0"
|
||||
"\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0"
|
||||
"\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0"
|
||||
"\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0"
|
||||
"\0\0\0\0\0\0\0\0\x4d\x01\x4d\x01\x85\x01\x85\x01"
|
||||
"\xf4\x01\xf4\x01\xf4\x01\xf4\x01\xf4\x01\xf4\x01\xf4\x01\xf4\x01"
|
||||
"\xa7\0\xa7\0\xa7\0\xa7\0\xf4\x01\xf4\x01\xf4\x01\xf4\x01"
|
||||
"\xf4\x01\xf4\x01\xf4\x01\xf4\x01\xf4\x01\xf4\x01\xf4\x01\xf4\x01"
|
||||
"\xf4\x01\xf4\x01\xf4\x01\xf4\x01\xb4\0\x16\x01\xd6\0\x16\x01"
|
||||
"\xbc\x01\xf4\x01\x2c\x02\xf4\x01\xf4\x01\xf4\x01\xf4\x01\xf4\x01"
|
||||
"\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01"
|
||||
"\x2c\x02\x2c\x02\xf4\x01\x2c\x02\x2c\x02\x2c\x02\xf4\x01\x2c\x02"
|
||||
"\0\0\0\0\0\0\0\0\xf4\x01\xf4\x01\xf4\x01\xf4\x01"
|
||||
"\xf4\x01\xf4\x01\xf4\x01\xf4\x01\xf4\x01\xf4\x01\xf4\x01\xf4\x01"
|
||||
"\xfa\0\xfa\0\xfa\0\xfa\0\0\0\0\0\0\0\0\0"
|
||||
"\xc5\x01\x1c\x02\x0b\x02\xf4\x01\x5e\x01\x5e\x01\x5e\x01\x5e\x01"
|
||||
"\x4d\x01\x4d\x01\x4d\x01\x4d\x01\xbc\x01\xf4\x01\x2c\x02\xf4\x01"
|
||||
"\xbc\x01\xf4\x01\x2c\x02\xf4\x01\xf4\x01\xf4\x01\xf4\x01\xf4\x01"
|
||||
"\xe8\x03\xe8\x03\x79\x03\xe8\x03\xe8\x03\xe8\x03\xe8\x03\xe8\x03"
|
||||
"\0\0\0\0\0\0\0\0\xbc\x01\xf4\x01\xf4\x01\xf4\x01"
|
||||
"\0\0\0\0\0\0\0\0\x4d\x01\x4d\x01\x4d\x01\x4d\x01"
|
||||
"\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01"
|
||||
"\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01"
|
||||
"\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01"
|
||||
"\x4d\x01\x4d\x01\x4d\x01\x4d\x01\0\0\0\0\0\0\0\0"
|
||||
"\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01"
|
||||
"\0\0\0\0\0\0\0\0\x4d\x01\x4d\x01\x4d\x01\x4d\x01"
|
||||
"\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01"
|
||||
"\xe8\x03\xe8\x03\x79\x03\xe8\x03\0\0\0\0\0\0\0\0"
|
||||
"\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0"
|
||||
"\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0"
|
||||
"\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0"
|
||||
"\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0"
|
||||
"\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0"
|
||||
"\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0"
|
||||
"\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0"
|
||||
"\0\0\0\0\0\0\0\0\x79\x03\xe8\x03\x79\x03\xb0\x03"
|
||||
"\0\0\0\0\0\0\0\0\x14\x01\x2c\x01\x14\x01\x0a\x01"
|
||||
"\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0"
|
||||
"\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0"
|
||||
"\x63\x02\x9b\x02\x2c\x02\x63\x02\xd2\x02\x0a\x03\xd2\x02\xd2\x02"
|
||||
"\x79\x03\xe8\x03\xb0\x03\xb0\x03\x36\x01\x4a\x01\x36\x01\x2c\x01"
|
||||
"\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0"
|
||||
"\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0"
|
||||
"\0\0\0\0\0\0\0\0\x9b\x02\xd2\x02\x9b\x02\xd2\x02"
|
||||
"\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0"
|
||||
"\0\0\0\0\0\0\0\0\x16\x01\x16\x01\x16\x01\x16\x01"
|
||||
"\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0"
|
||||
"\x16\x01\x16\x01\x16\x01\x16\x01\xf4\x01\xf4\x01\xf4\x01\xf4\x01"
|
||||
"\xd2\x02\xd2\x02\x9b\x02\xd2\x02\xf4\x01\x2c\x02\xf4\x01\xf4\x01"
|
||||
"\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0"
|
||||
"\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0"
|
||||
"\x16\x01\x16\x01\x16\x01\x16\x01\x16\x01\x4d\x01\x16\x01\x4d\x01"
|
||||
"\x63\x01\xda\x01\x63\x01\xda\x01\x2c\x02\x2c\x02\x2c\x02\x2c\x02"
|
||||
"\x2c\x02\x2c\x02\x2c\x02\x2c\x02\x79\x03\x79\x03\x79\x03\x79\x03"
|
||||
"\x9b\x02\xd2\x02\x9b\x02\xd2\x02\xde\0\x16\x01\xde\0\x16\x01"
|
||||
"\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01"
|
||||
"\x85\x01\x85\x01\x85\x01\x85\x01\x48\x02\x48\x02\x48\x02\x48\x02"
|
||||
"\x16\x01\x16\x01\x16\x01\x16\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01"
|
||||
"\x16\x01\x16\x01\x16\x01\x16\x01\x16\x01\x16\x01\x16\x01\x16\x01"
|
||||
"\x2c\x02\x2c\x02\x2c\x02\x2c\x02\x2c\x02\x2c\x02\x2c\x02\x2c\x02"
|
||||
"\x2c\x02\x2c\x02\x2c\x02\x2c\x02\x2c\x02\x2c\x02\x2c\x02\x2c\x02"
|
||||
"\x2c\x02\x2c\x02\x2c\x02\x2c\x02\x2c\x02\x2c\x02\x2c\x02\x2c\x02"
|
||||
"\x2c\x02\x2c\x02\x2c\x02\x2c\x02\x2c\x02\x2c\x02\x2c\x02\x2c\x02"
|
||||
"\x2c\x02\x2c\x02\x2c\x02\x2c\x02\x2c\x02\x2c\x02\x2c\x02\x2c\x02"
|
||||
"\x16\x01\x4d\x01\x16\x01\x4d\x01\x16\x01\x4d\x01\x16\x01\x4d\x01"
|
||||
"\x48\x02\x48\x02\x48\x02\x48\x02\x48\x02\x48\x02\x48\x02\x48\x02"
|
||||
"\x48\x02\x48\x02\x48\x02\x48\x02\x2c\x02\x63\x02\x2c\x02\x63\x02"
|
||||
"\xf7\x03\xcf\x03\xf7\x03\xcf\x03\x9b\x02\xd2\x02\x9b\x02\xd2\x02"
|
||||
"\x9b\x02\xd2\x02\x9b\x02\xd2\x02\xd2\x02\xd2\x02\xd2\x02\xd2\x02"
|
||||
"\xd2\x02\xd2\x02\xd2\x02\xd2\x02\x9b\x02\x9b\x02\x9b\x02\x9b\x02"
|
||||
"\x63\x02\x63\x02\x63\x02\x63\x02\x0a\x03\x0a\x03\x0a\x03\x0a\x03"
|
||||
"\xd2\x02\xd2\x02\xd2\x02\xd2\x02\x16\x01\x16\x01\x16\x01\x16\x01"
|
||||
"\xf4\x01\x2c\x02\xf4\x01\x2c\x02\x9b\x02\xd2\x02\x9b\x02\xd2\x02"
|
||||
"\x2c\x02\x63\x02\x2c\x02\x63\x02\x41\x03\x41\x03\x41\x03\x41\x03"
|
||||
"\xd2\x02\xd2\x02\xd2\x02\xd2\x02\x0a\x03\x0a\x03\x0a\x03\x0a\x03"
|
||||
"\x9b\x02\x9b\x02\x9b\x02\x9b\x02\x0a\x03\x0a\x03\x0a\x03\x0a\x03"
|
||||
"\xd2\x02\xd2\x02\xd2\x02\xd2\x02\x9b\x02\x9b\x02\x9b\x02\x9b\x02"
|
||||
"\x63\x02\x63\x02\x63\x02\x63\x02\xd2\x02\xd2\x02\xd2\x02\xd2\x02"
|
||||
"\x9b\x02\x9b\x02\x9b\x02\x9b\x02\xb0\x03\xb0\x03\xb0\x03\xb0\x03"
|
||||
"\x9b\x02\x9b\x02\x9b\x02\x9b\x02\x9b\x02\x9b\x02\x9b\x02\x9b\x02"
|
||||
"\x63\x02\x63\x02\x63\x02\x63\x02\x16\x01\x4d\x01\x16\x01\x4d\x01"
|
||||
"\x16\x01\x16\x01\x16\x01\x16\x01\x16\x01\x4d\x01\x16\x01\x4d\x01"
|
||||
"\xd5\x01\x48\x02\xd5\x01\x48\x02\x2c\x02\x2c\x02\x2c\x02\x2c\x02"
|
||||
"\xde\0\x16\x01\xde\0\x16\x01\x2c\x02\x2c\x02\x2c\x02\x2c\x02"
|
||||
"\x2c\x02\x63\x02\x2c\x02\x63\x02\xf4\x01\x2c\x02\xf4\x01\x2c\x02"
|
||||
"\x2c\x02\x63\x02\x2c\x02\x63\x02\x2c\x02\x2c\x02\x2c\x02\x2c\x02"
|
||||
"\x16\x01\x4d\x01\x16\x01\x4d\x01\x2c\x02\x63\x02\x2c\x02\x63\x02"
|
||||
"\x2c\x02\x63\x02\x2c\x02\x63\x02\xde\0\x16\x01\xde\0\x16\x01"
|
||||
"\xde\0\x16\x01\xde\0\x16\x01\xf4\x01\x2c\x02\xf4\x01\x2c\x02"
|
||||
"\xde\0\x16\x01\xde\0\x16\x01\x41\x03\x79\x03\x41\x03\x79\x03"
|
||||
"\x2c\x02\x63\x02\x2c\x02\x63\x02\x2c\x02\x63\x02\x2c\x02\x63\x02"
|
||||
"\x2c\x02\x63\x02\x2c\x02\x63\x02\x2c\x02\x63\x02\x2c\x02\x63\x02"
|
||||
"\x4d\x01\x85\x01\x4d\x01\x85\x01\xf4\x01\x2c\x02\xf4\x01\x2c\x02"
|
||||
"\x16\x01\x4d\x01\x16\x01\x4d\x01\x2c\x02\x63\x02\x2c\x02\x63\x02"
|
||||
"\xf4\x01\x2c\x02\xf4\x01\x2c\x02\xd2\x02\x0a\x03\xd2\x02\x0a\x03"
|
||||
"\xf4\x01\x2c\x02\xf4\x01\x2c\x02\xf4\x01\x2c\x02\xf4\x01\x2c\x02"
|
||||
"\xf4\x01\xf4\x01\xf4\x01\xf4\x01\x4e\x01\x85\x01\x4e\x01\x85\x01"
|
||||
"\x04\x01\x18\x01\x04\x01\x18\x01\x4e\x01\x85\x01\x4e\x01\x85\x01"
|
||||
"\x48\x02\x48\x02\x48\x02\x48\x02\0\0\0\0\0\0\0\0"
|
||||
"\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0"
|
||||
"\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0"
|
||||
"\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0"
|
||||
"\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0"
|
||||
"\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0"
|
||||
"\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0"
|
||||
"\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0"
|
||||
"\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0"
|
||||
"\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0"
|
||||
"\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0"
|
||||
"\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0"
|
||||
"\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0"
|
||||
"\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0"
|
||||
"\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0"
|
||||
"\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0"
|
||||
"\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0"
|
||||
"\0\0\0\0\0\0\0\0\x4d\x01\x4d\x01\x4d\x01\x4d\x01"
|
||||
"\x2c\x02\x2c\x02\x2c\x02\x2c\x02\x2c\x02\x2c\x02\x2c\x02\x2c\x02"
|
||||
"\xa7\0\xa7\0\xa7\0\xa7\0\x2c\x02\x2c\x02\x2c\x02\x2c\x02"
|
||||
"\x2c\x02\x2c\x02\x2c\x02\x2c\x02\x2c\x02\x2c\x02\x2c\x02\x2c\x02"
|
||||
"\x2c\x02\x2c\x02\x2c\x02\x2c\x02\xbf\0\xee\0\xbf\0\xee\0"
|
||||
"\x4d\x01\xf4\x01\x4d\x01\xf4\x01\x2c\x02\x2c\x02\x2c\x02\x2c\x02"
|
||||
"\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01"
|
||||
"\xf4\x01\x63\x02\xf4\x01\x63\x02\xf4\x01\x63\x02\xf4\x01\x63\x02"
|
||||
"\0\0\0\0\0\0\0\0\x2c\x02\x2c\x02\x2c\x02\x2c\x02"
|
||||
"\x2c\x02\x2c\x02\x2c\x02\x2c\x02\x2c\x02\x2c\x02\x2c\x02\x2c\x02"
|
||||
"\x16\x01\x16\x01\x16\x01\x16\x01\0\0\0\0\0\0\0\0"
|
||||
"\x19\x02\x2c\x02\x19\x02\x2c\x02\x5e\x01\x5e\x01\x5e\x01\x5e\x01"
|
||||
"\xde\0\x16\x01\xde\0\x16\x01\x4d\x01\xf4\x01\x4d\x01\xf4\x01"
|
||||
"\x4d\x01\xf4\x01\x4d\x01\xf4\x01\x2c\x02\x2c\x02\x2c\x02\x2c\x02"
|
||||
"\xe8\x03\xe8\x03\xe8\x03\xe8\x03\xe8\x03\xe8\x03\xe8\x03\xe8\x03"
|
||||
"\0\0\0\0\0\0\0\0\x63\x02\x63\x02\x63\x02\x63\x02"
|
||||
"\0\0\0\0\0\0\0\0\x4d\x01\x4d\x01\x4d\x01\x4d\x01"
|
||||
"\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01"
|
||||
"\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01"
|
||||
"\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01"
|
||||
"\x4d\x01\x4d\x01\x4d\x01\x4d\x01\0\0\0\0\0\0\0\0"
|
||||
"\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01"
|
||||
"\0\0\0\0\0\0\0\0\x4d\x01\x4d\x01\x4d\x01\x4d\x01"
|
||||
"\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01\x4d\x01"
|
||||
"\xe8\x03\xe8\x03\xe8\x03\xe8\x03\0\0\0\0\0\0\0\0"
|
||||
"\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0"
|
||||
"\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0"
|
||||
"\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0"
|
||||
"\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0"
|
||||
"\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0"
|
||||
"\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0"
|
||||
"\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0"
|
||||
"\0\0\0\0\0\0\0\0\xe8\x03\xe8\x03\xe8\x03\xe8\x03"
|
||||
"\0\0\0\0\0\0\0\0\x72\x01\x72\x01\x72\x01\x72\x01"
|
||||
"\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0"
|
||||
"\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0"
|
||||
"\x2c\x02\x63\x02\x2c\x02\x63\x02\x0a\x03\x0a\x03\x0a\x03\x0a\x03"
|
||||
"\xe8\x03\xe8\x03\xe8\x03\xe8\x03\x6d\x01\x6d\x01\x6d\x01\x6d\x01"
|
||||
"\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0"
|
||||
"\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0"
|
||||
"\0\0\0\0\0\0\0\0\x79\x03\x79\x03\x79\x03\x79\x03"
|
||||
"\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0"
|
||||
"\0\0\0\0\0\0\0\0\x16\x01\x16\x01\x16\x01\x16\x01"
|
||||
"\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0"
|
||||
"\xde\0\x16\x01\xde\0\x16\x01\x63\x02\x63\x02\x63\x02\x63\x02"
|
||||
"\xb0\x03\xb0\x03\xb0\x03\xb0\x03\x63\x02\x63\x02\x63\x02\x63\x02"
|
||||
"\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0"
|
||||
"\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
"\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02\x58\x02"
|
||||
} ;
|
||||
const int szFontTable_size = 5376 ;
|
||||
|
||||
HB_FUNC( CALCDATA )
|
||||
{
|
||||
int rowsperstrip = hb_parnd( 1 ) ;
|
||||
float y = hb_parnd( 2 ) ;
|
||||
float h = hb_parnd( 3 ) ;
|
||||
int row, res ;
|
||||
int p ;
|
||||
for ( row = 0 ; row < h ; row += rowsperstrip )
|
||||
{
|
||||
int height ;
|
||||
height = row + rowsperstrip > h ? h - row :rowsperstrip ;
|
||||
p = ( h - row - height ) ;
|
||||
res = y + 1 * p ;
|
||||
}
|
||||
hb_retni( res ) ;
|
||||
}
|
||||
#pragma enddump
|
||||
|
||||
/*FUNCAO PDFBOXCOLOR(nRed,nGreen,nBlue)
|
||||
/*FUNCAO PDFBOXCOLOR(nRed,nGreen,nBlue)
|
||||
Parametros
|
||||
nRed -> Quantidade de vermelho na composicao da cor ( valor entre 0 a 255)
|
||||
nGreen -> Quantidade de verde na composicao da cor ( valor entre 0 a 255)
|
||||
@@ -1307,4 +934,3 @@ FUNCTION PDFTEXTCOLOR( R, G, B )
|
||||
|
||||
oPdf:PDFsetrgbcolor( R / 255, G / 255, B / 255 )
|
||||
RETURN NIL
|
||||
|
||||
|
||||
@@ -13,16 +13,52 @@
|
||||
*/
|
||||
|
||||
/* Explicit usage of OLE DEFAULT Method when syntax implies it. */
|
||||
#xtranslate :<!Method!>( <args,...> ) := => :<Method>( <args> ):OleValue :=
|
||||
#xtranslate :<!Method!>( <args,...> ) := => :<Method>( <args> ):Value :=
|
||||
|
||||
PROCEDURE Main()
|
||||
|
||||
Exm_IExplorer()
|
||||
Exm_CDO()
|
||||
Exm_MSExcel()
|
||||
Exm_MSWord()
|
||||
Exm_MSOutlook()
|
||||
Exm_OpenOffice()
|
||||
LOCAL nOption
|
||||
|
||||
CLS
|
||||
SetColor("W+/R")
|
||||
@ 6, 25 TO 19, 55 DOUBLE
|
||||
@ 8, 28 SAY "Test Harbour OLE with..."
|
||||
|
||||
While .t.
|
||||
@ 10, 32 PROMPT "MS Excel"
|
||||
@ 11, 32 PROMPT "MS Word"
|
||||
@ 12, 32 PROMPT "MS Outlook (1)"
|
||||
@ 13, 32 PROMPT "MS Outlook (2)"
|
||||
@ 14, 32 PROMPT "Internet Explorer"
|
||||
@ 15, 32 PROMPT "XP CDO"
|
||||
@ 16, 32 PROMPT "OpenOffice"
|
||||
@ 17, 32 PROMPT "Quit"
|
||||
|
||||
MENU TO nOption
|
||||
|
||||
IF nOption == 0
|
||||
nOption := 8
|
||||
ELSEIF nOption == 1
|
||||
Exm_MSExcel()
|
||||
ELSEIF nOption == 2
|
||||
Exm_MSWord()
|
||||
ELSEIF nOption == 3
|
||||
Exm_MSOutlook()
|
||||
ELSEIF nOption == 4
|
||||
Exm_MSOutlook2()
|
||||
ELSEIF nOption == 5
|
||||
Exm_IExplorer()
|
||||
ELSEIF nOption == 6
|
||||
Exm_CDO()
|
||||
ELSEIF nOption == 7
|
||||
Exm_OpenOffice()
|
||||
ELSEIF nOption == 8
|
||||
EXIT
|
||||
ENDIF
|
||||
End
|
||||
|
||||
SetColor("W/N")
|
||||
CLS
|
||||
|
||||
RETURN
|
||||
|
||||
@@ -206,6 +242,40 @@ STATIC PROCEDURE Exm_MSOutlook()
|
||||
|
||||
RETURN
|
||||
|
||||
STATIC PROCEDURE Exm_MSOutlook2()
|
||||
|
||||
LOCAL oOL
|
||||
LOCAL oLista
|
||||
LOCAL oMail
|
||||
LOCAL i
|
||||
|
||||
oOL := TOleAuto():New( "Outlook.Application.9" )
|
||||
|
||||
IF Ole2TxtError() != "S_OK"
|
||||
Alert("Outlook is not available", "Error")
|
||||
ELSE
|
||||
oMail := oOL:CreateItem( 0 ) // olMailItem
|
||||
|
||||
FOR i := 1 TO 10
|
||||
oMail:Recipients:Add( "Contact" + LTRIM( STR( i, 2 ) ) + ;
|
||||
"<contact" + LTRIM( STR( i, 2 ) ) + "@server.com>" )
|
||||
NEXT
|
||||
|
||||
oLista := oOL:CreateItem( 7 ) // olDistributionListItem
|
||||
oLista:DLName := "Test with distribution list"
|
||||
oLista:Display( .F. )
|
||||
oLista:AddMembers( oMail:Recipients )
|
||||
oLista:Save()
|
||||
oLista:Close( 0 )
|
||||
|
||||
oMail:End()
|
||||
oLista:End()
|
||||
oOL:End()
|
||||
|
||||
ENDIF
|
||||
|
||||
RETURN
|
||||
|
||||
STATIC PROCEDURE Exm_OpenOffice()
|
||||
|
||||
LOCAL oOO_ServiceManager
|
||||
|
||||
@@ -55,12 +55,6 @@ if "%1" == "INSTALL" goto INSTALL
|
||||
|
||||
:INSTALL
|
||||
|
||||
if "%HB_INSTALL_PREFIX%" == "" set HB_INSTALL_PREFIX=.
|
||||
|
||||
if "%HB_BIN_INSTALL%" == "" set HB_BIN_INSTALL=%HB_INSTALL_PREFIX%\bin
|
||||
if "%HB_INC_INSTALL%" == "" set HB_INC_INSTALL=%HB_INSTALL_PREFIX%\include
|
||||
if "%HB_LIB_INSTALL%" == "" set HB_LIB_INSTALL=%HB_INSTALL_PREFIX%\lib
|
||||
|
||||
%HB_MAKE_PROGRAM% %HB_MAKE_FLAGS% -f %HB_MAKEFILE% INSTALL > nul
|
||||
goto EXIT
|
||||
|
||||
|
||||
@@ -55,12 +55,6 @@ if "%1" == "INSTALL" goto INSTALL
|
||||
|
||||
:INSTALL
|
||||
|
||||
if "%HB_INSTALL_PREFIX%" == "" set HB_INSTALL_PREFIX=.
|
||||
|
||||
if "%HB_BIN_INSTALL%" == "" set HB_BIN_INSTALL=%HB_INSTALL_PREFIX%\bin
|
||||
if "%HB_INC_INSTALL%" == "" set HB_INC_INSTALL=%HB_INSTALL_PREFIX%\include
|
||||
if "%HB_LIB_INSTALL%" == "" set HB_LIB_INSTALL=%HB_INSTALL_PREFIX%\lib
|
||||
|
||||
%HB_MAKE_PROGRAM% %HB_MAKE_FLAGS% -f %HB_MAKEFILE% INSTALL > nul
|
||||
goto EXIT
|
||||
|
||||
|
||||
Reference in New Issue
Block a user