Delphi2007中安装DsPack2.3.4的方法(视频插件)

本文链接：https://blog.csdn.net/kunshan_shenbin/article/details/2288616

本文参考自：http://delphi.logy.kr/9

新建Jedi.inc文件

{******************************************************************************}

{ }

{ The contents of this file are subject to the Mozilla Public License Version }

{ 1.1 (the " License " ) ; you may not use this file except in compliance with the }

{ License. You may obtain a copy of the License at http://www.mozilla.org/MPL/ }

{ }

{ Software distributed under the License is distributed on an " AS IS " basis , }

{ WITHOUT WARRANTY OF ANY KIND , either express or implied. See the License for }

{ the specific language governing rights and limitations under the License. }

{ }

{ The Original Code is jedi.inc. }

{ }

{ The Initial Developer of the Original Code is Project JEDI }

{ http://www.delphi-jedi.org }

{ }

{******************************************************************************}

{ }

{ This file defines various generic compiler directives used in the JEDI Code }

{ Library (JCL) and JEDI Visual Component Library Library (J-VCL). The }

{ directives in this file are of generic nature and consist mostly of mappings }

{ from the VERXXX directives defined by Delphi and C++ Builder to friendly }

{ names such as DELPHI5 and SUPPORTS_WIDESTRING. These friendly names are }

{ subsequently used in both libraries to test for compiler versions and/or }

{ whether the compiler supports certain features (such as widestring's or 64 }

{ bit integers. Both libraries provide an additional , library specific , }

{ include file. For the JCL this is JCL.INC. These files should be included in }

{ source files instead of this file (which is pulled in automatically). }

{ }

{ Maintainer: Marcel van Brakel }

{ Last modified: 2003 - 07 - 14 , Peter J. Haas (jediplus@pjh2.de) }

{ }

{******************************************************************************}

- Development environment directives

This file defines two driectives to indicate which development environment the

library is being compiled with. Currently this can either be Delphi or

C++ Builder (in the near future " Kylix " will be added).

Directive Description

------------------------------------------------------------------------------

DELPHI Defined if compiled with Delphi

BCB Defined if compiled with C++ Builder

- Platform Directives

Platform directives are not explicitly defined in this file but are defined

by the compiler itself. They are listed here only for completeness.

Directive Description

------------------------------------------------------------------------------

WIN32 Defined when target platform is 32 bit Windows

LINUX Defined when target platform is Linux

- Delphi Versions

The following directives are direct mappings from the VERXXX directives to a

friendly name of the associated compiler. These directives are only defined if

the compiler is Delphi (ie DELPHI is defined).

Directive Description

------------------------------------------------------------------------------

DELPHI1 Defined when compiling with Delphi 1

DELPHI2 Defined when compiling with Delphi 2

DELPHI3 Defined when compiling with Delphi 3

DELPHI4 Defined when compiling with Delphi 4

DELPHI5 Defined when compiling with Delphi 5

DELPHI6 Defined when compiling with Delphi 6

DELPHI7 Defined when compiling with Delphi 7

DELPHI1_UP Defined when compiling with Delphi 1 or higher

DELPHI2_UP Defined when compiling with Delphi 2 or higher

DELPHI3_UP Defined when compiling with Delphi 3 or higher

DELPHI4_UP Defined when compiling with Delphi 4 or higher

DELPHI5_UP Defined when compiling with Delphi 5 or higher

DELPHI6_UP Defined when compiling with Delphi 6 or higher

DELPHI7_UP Defined when compiling with Delphi 7 or higher

- C++ Builder Versions

The following directives are direct mappings from the VERXXX directives to a

friendly name of the associated compiler. These directives are only defined if

the compiler is C++ Builder (ie BCB is defined).

Directive Description

------------------------------------------------------------------------------

BCB1 Defined when compiling with C++ Builder 1

BCB3 Defined when compiling with C++ Builder 3

BCB4 Defined when compiling with C++ Builder 4

BCB5 Defined when compiling with C++ Builder 5

BCB6 Defined when compiling with C++ Builder 6

BCB7 Defined when compiling with C++ Builder 7

BCB1_UP Defined when compiling with C++ Builder 1 or higher

BCB3_UP Defined when compiling with C++ Builder 3 or higher

BCB4_UP Defined when compiling with C++ Builder 4 or higher

BCB5_UP Defined when compiling with C++ Builder 5 or higher

BCB6_UP Defined when compiling with C++ Builder 6 or higher

BCB7_UP Defined when compiling with C++ Builder 7 or higher

- Compiler Versions

The following directives are direct mappings from the VERXXX directives to a

friendly name of the associated compiler. Unlike the DELPHI_X and BCB_X

directives , these directives are indepedent of the development environment.

That is , they are defined regardless of whether compilation takes place using

Delphi or C++ Builder.

Directive Description

------------------------------------------------------------------------------

COMPILER1 Defined when compiling with Delphi 1

COMPILER2 Defined when compiling with Delphi 2 or C++ Builder 1

COMPILER3 Defined when compiling with Delphi 3

COMPILER35 Defined when compiling with C++ Builder 3

COMPILER4 Defined when compiling with Delphi 4 or C++ Builder 4

COMPILER5 Defined when compiling with Delphi 5 or C++ Builder 5

COMPILER6 Defined when compiling with Delphi 6 or C++ Builder 6

COMPILER7 Defined when compiling with Delphi 7 or C++ Builder 7

COMPILER1_UP Defined when compiling with Delphi 1 or higher

COMPILER2_UP Defined when compiling with Delphi 2 or C++ Builder 1 or higher

COMPILER3_UP Defined when compiling with Delphi 3 or higher

COMPILER35_UP Defined when compiling with C++ Builder 3 or higher

COMPILER4_UP Defined when compiling with Delphi 4 or C++ Builder 4 or higher

COMPILER5_UP Defined when compiling with Delphi 5 or C++ Builder 5 or higher

COMPILER6_UP Defined when compiling with Delphi 6 or C++ Builder 6 or higher

COMPILER7_UP Defined when compiling with Delphi 7 or C++ Builder 6 or higher

- Feature Directives

The features directives are used to test if the compiler supports specific

features , such as method overloading , and adjust the sources accordingly. Use

of these directives is preferred over the use of the DELPHI and COMPILER

directives.

Directive Description

------------------------------------------------------------------------------

SUPPORTS_WIDESTRING Compiler supports the WideString type (D3/BCB3 up)

SUPPORTS_INTERFACE Compiler supports interfaces (D3/BCB3)

SUPPORTS_EXTSYM Compiler supports the $EXTERNALSYM directive (D4/BCB3)

SUPPORTS_NODEFINE Compiler supports the $NODEFINE directive (D4/BCB3)

SUPPORTS_INT64 Compiler supports the Int64 type (D4/BCB4)

SUPPORTS_DYNAMICARRAYS Compiler supports dynamic arrays (D4/BCB4)

SUPPORTS_DEFAULTPARAMS Compiler supports default parameters (D4/BCB4)

SUPPORTS_OVERLOAD Compiler supports overloading (D4/BCB4)

- Compiler Settings

The compiler settings directives indicate whether a specific compiler setting

is in effect. This facilitates changing compiler settings locally in a more

compact and readible manner.

Directive Description

------------------------------------------------------------------------------

ALIGN_ON Compiling in the A+ state (no alignment)

BOOLEVAL_ON Compiling in the B+ state (complete boolean evaluation)

ASSERTIONS_ON Compiling in the C+ state (assertions on)

DEBUGINFO_ON Compiling in the D+ state (debug info generation on)

IMPORTEDDATA_ON Compiling in the G+ state (creation of imported data references)

LONGSTRINGS_ON Compiling in the H+ state (string defined as AnsiString)

IOCHECKS_ON Compiling in the I+ state (I/O checking enabled)

WRITEABLECONST_ON Compiling in the J+ state (typed constants can be modified)

LOCALSYMBOLS Compiling in the L+ state (local symbol generation)

TYPEINFO_ON Compiling in the M+ state (RTTI generation on)

OPTIMIZATION_ON Compiling in the O+ state (code optimization on)

OPENSTRINGS_ON Compiling in the P+ state (variable string parameters are openstrings)

OVERFLOWCHECKS_ON Compiling in the Q+ state (overflow checing on)

RANGECHECKS_ON Compiling in the R+ state (range checking on)

TYPEDADDRESS_ON Compiling in the T+ state (pointers obtained using the @ operator are typed)

SAFEDIVIDE_ON Compiling in the U+ state (save FDIV instruction through RTL emulation)

VARSTRINGCHECKS_ON Compiling in the V+ state (type checking of shortstrings)

STACKFRAMES_ON Compiling in the W+ state (generation of stack frames)

EXTENDEDSYNTAX_ON Compiling in the X+ state (Delphi extended syntax enabled)

//------------------------------------------------------------------------------

// Compiler settings

//------------------------------------------------------------------------------

{$IFOPT A+} {$DEFINE ALIGN_ON} {$ENDIF}

{$IFOPT B+} {$DEFINE BOOLEVAL_ON} {$ENDIF}

{$IFOPT C+} {$DEFINE ASSERTIONS_ON} {$ENDIF}

{$IFOPT D+} {$DEFINE DEBUGINFO_ON} {$ENDIF}

{$IFOPT G+} {$DEFINE IMPORTEDDATA_ON} {$ENDIF}

{$IFOPT H+} {$DEFINE LONGSTRINGS_ON} {$ENDIF}

//HINTS

{$IFOPT I+} {$DEFINE IOCHECKS_ON} {$ENDIF}

{$IFOPT J+} {$DEFINE WRITEABLECONST_ON} {$ENDIF}

{$IFOPT L+} {$DEFINE LOCALSYMBOLS} {$ENDIF}

{$IFOPT M+} {$DEFINE TYPEINFO_ON} {$ENDIF}

{$IFOPT O+} {$DEFINE OPTIMIZATION_ON} {$ENDIF}

{$IFOPT P+} {$DEFINE OPENSTRINGS_ON} {$ENDIF}

{$IFOPT Q+} {$DEFINE OVERFLOWCHECKS_ON} {$ENDIF}

{$IFOPT R+} {$DEFINE RANGECHECKS_ON} {$ENDIF}

//REALCOMPATIBILITY

{$IFOPT T+} {$DEFINE TYPEDADDRESS_ON} {$ENDIF}

{$IFOPT U+} {$DEFINE SAFEDIVIDE_ON} {$ENDIF}

{$IFOPT V+} {$DEFINE VARSTRINGCHECKS_ON} {$ENDIF}

{$IFOPT W+} {$DEFINE STACKFRAMES_ON} {$ENDIF}

//WARNINGS

{$IFOPT X+} {$DEFINE EXTENDEDSYNTAX_ON} {$ENDIF}

//------------------------------------------------------------------------------

// VERXXX to COMPILERX , DELPHIX and BCBX mappings

//------------------------------------------------------------------------------

{$IFDEF VER185}

{$DEFINE COMPILER2007}

{$IFDEF BCB}

{$DEFINE BCB7}

{$DEFINE BCB}

{$ELSE}

{$DEFINE DELPHI2007}

{$DEFINE DELPHI}

{$ENDIF}

{$IFDEF VER150}

{$DEFINE COMPILER7}

{$IFDEF BCB}

{$DEFINE BCB7}

{$DEFINE BCB}

{$ELSE}

{$DEFINE DELPHI7}

{$DEFINE DELPHI}

{$ENDIF}

{$IFDEF VER140}

{$DEFINE COMPILER6}

{$IFDEF BCB}

{$DEFINE BCB6}

{$DEFINE BCB}

{$ELSE}

{$DEFINE DELPHI6}

{$DEFINE DELPHI}

{$ENDIF}

{$IFDEF VER130}

{$DEFINE COMPILER5}

{$IFDEF BCB}

{$DEFINE BCB5}

{$DEFINE BCB}

{$ELSE}

{$DEFINE DELPHI5}

{$DEFINE DELPHI}

{$ENDIF}

{$IFDEF VER125}

{$DEFINE COMPILER4}

{$DEFINE BCB4}

{$DEFINE BCB}

{$ENDIF}

{$IFDEF VER120}

{$DEFINE COMPILER4}

{$DEFINE DELPHI4}

{$DEFINE DELPHI}

{$ENDIF}

{$IFDEF VER110}

{$DEFINE COMPILER35}

{$DEFINE BCB3}

{$ENDIF}

{$IFDEF VER100}

{$DEFINE COMPILER3}

{$DEFINE DELPHI3}

{$DEFINE DELPHI}

{$ENDIF}

{$IFDEF VER93}

{$DEFINE COMPILER2}

{$DEFINE BCB1}

{$DEFINE BCB}

{$ENDIF}

{$IFDEF VER90}

{$DEFINE COMPILER2}

{$DEFINE DELPHI2}

{$DEFINE DELPHI}

{$ENDIF}

{$IFDEF VER80}

{$DEFINE COMPILER1}

{$DEFINE DELPHI1}

{$DEFINE DELPHI}

{$ENDIF}

//------------------------------------------------------------------------------

// DELPHIX_UP from DELPHIX mappings

//------------------------------------------------------------------------------

{$IFDEF DELPHI2007}

{$DEFINE DELPHI2007_UP}

{$DEFINE DELPHI7_UP}

{$DEFINE DELPHI6_UP}

{$DEFINE DELPHI5_UP}

{$DEFINE DELPHI4_UP}

{$DEFINE DELPHI3_UP}

{$DEFINE DELPHI2_UP}

{$DEFINE DELPHI1_UP}

{$ENDIF}

{$IFDEF DELPHI7}

{$DEFINE DELPHI7_UP}

{$DEFINE DELPHI6_UP}

{$DEFINE DELPHI5_UP}

{$DEFINE DELPHI4_UP}

{$DEFINE DELPHI3_UP}

{$DEFINE DELPHI2_UP}

{$DEFINE DELPHI1_UP}

{$ENDIF}

{$IFDEF DELPHI6}

{$DEFINE DELPHI6_UP}

{$DEFINE DELPHI5_UP}

{$DEFINE DELPHI4_UP}

{$DEFINE DELPHI3_UP}

{$DEFINE DELPHI2_UP}

{$DEFINE DELPHI1_UP}

{$ENDIF}

{$IFDEF DELPHI5}

{$DEFINE DELPHI5_UP}

{$DEFINE DELPHI4_UP}

{$DEFINE DELPHI3_UP}

{$DEFINE DELPHI2_UP}

{$DEFINE DELPHI1_UP}

{$ENDIF}

{$IFDEF DELPHI4}

{$DEFINE DELPHI4_UP}

{$DEFINE DELPHI3_UP}

{$DEFINE DELPHI2_UP}

{$DEFINE DELPHI1_UP}

{$ENDIF}

{$IFDEF DELPHI3}

{$DEFINE DELPHI3_UP}

{$DEFINE DELPHI2_UP}

{$DEFINE DELPHI1_UP}

{$ENDIF}

{$IFDEF DELPHI2}

{$DEFINE DELPHI2_UP}

{$DEFINE DELPHI1_UP}

{$ENDIF}

{$IFDEF DELPHI1}

{$DEFINE DELPHI1_UP}

{$ENDIF}

//------------------------------------------------------------------------------

// BCBX_UP from BCBX mappings

//------------------------------------------------------------------------------

{$IFDEF BCB7}

{$DEFINE BCB7_UP}

{$DEFINE BCB6_UP}

{$DEFINE BCB5_UP}

{$DEFINE BCB4_UP}

{$DEFINE BCB3_UP}

{$DEFINE BCB1_UP}

{$ENDIF}

{$IFDEF BCB6}

{$DEFINE BCB6_UP}

{$DEFINE BCB5_UP}

{$DEFINE BCB4_UP}

{$DEFINE BCB3_UP}

{$DEFINE BCB1_UP}

{$ENDIF}

{$IFDEF BCB5}

{$DEFINE BCB5_UP}

{$DEFINE BCB4_UP}

{$DEFINE BCB3_UP}

{$DEFINE BCB1_UP}

{$ENDIF}

{$IFDEF BCB4}

{$DEFINE BCB4_UP}

{$DEFINE BCB3_UP}

{$DEFINE BCB1_UP}

{$ENDIF}

{$IFDEF BCB3}

{$DEFINE BCB3_UP}

{$DEFINE BCB1_UP}

{$ENDIF}

{$IFDEF BCB1}

{$DEFINE BCB1_UP}

{$ENDIF}

//------------------------------------------------------------------------------

// COMPILERX_UP from COMPILERX mappings

//------------------------------------------------------------------------------

{$IFDEF COMPILER2007}

{$DEFINE COMPILER2007_UP}

{$DEFINE COMPILER7_UP}

{$DEFINE COMPILER6_UP}

{$DEFINE COMPILER5_UP}

{$DEFINE COMPILER4_UP}

{$DEFINE COMPILER35_UP}

{$DEFINE COMPILER3_UP}

{$DEFINE COMPILER2_UP}

{$DEFINE COMPILER1_UP}

{$ENDIF}

{$IFDEF COMPILER7}

{$DEFINE COMPILER7_UP}

{$DEFINE COMPILER6_UP}

{$DEFINE COMPILER5_UP}

{$DEFINE COMPILER4_UP}

{$DEFINE COMPILER35_UP}

{$DEFINE COMPILER3_UP}

{$DEFINE COMPILER2_UP}

{$DEFINE COMPILER1_UP}

{$ENDIF}

{$IFDEF COMPILER6}

{$DEFINE COMPILER6_UP}

{$DEFINE COMPILER5_UP}

{$DEFINE COMPILER4_UP}

{$DEFINE COMPILER35_UP}

{$DEFINE COMPILER3_UP}

{$DEFINE COMPILER2_UP}

{$DEFINE COMPILER1_UP}

{$ENDIF}

{$IFDEF COMPILER5}

{$DEFINE COMPILER5_UP}

{$DEFINE COMPILER4_UP}

{$DEFINE COMPILER35_UP}

{$DEFINE COMPILER3_UP}

{$DEFINE COMPILER2_UP}

{$DEFINE COMPILER1_UP}

{$ENDIF}

{$IFDEF COMPILER4}

{$DEFINE COMPILER4_UP}

{$DEFINE COMPILER35_UP}

{$DEFINE COMPILER3_UP}

{$DEFINE COMPILER2_UP}

{$DEFINE COMPILER1_UP}

{$ENDIF}

{$IFDEF COMPILER35}

{$DEFINE COMPILER35_UP}

{$DEFINE COMPILER3_UP}

{$DEFINE COMPILER2_UP}

{$DEFINE COMPILER1_UP}

{$ENDIF}

{$IFDEF COMPILER3}

{$DEFINE COMPILER3_UP}

{$DEFINE COMPILER2_UP}

{$DEFINE COMPILER1_UP}

{$ENDIF}

{$IFDEF COMPILER2}

{$DEFINE COMPILER2_UP}

{$DEFINE COMPILER1_UP}

{$ENDIF}

{$IFDEF COMPILER1}

{$DEFINE COMPILER1_UP}

{$ENDIF}

//------------------------------------------------------------------------------

// Map COMPILERX_UP to friendly feature names

//------------------------------------------------------------------------------

{$IFDEF COMPILER3_UP}

{$DEFINE SUPPORTS_WIDESTRING}

{$DEFINE SUPPORTS_INTERFACE}

{$ENDIF}

{$IFDEF COMPILER35_UP}

{$DEFINE SUPPORTS_EXTSYM}

{$DEFINE SUPPORTS_NODEFINE}

{$ENDIF}

{$IFDEF COMPILER4_UP}

{$DEFINE SUPPORTS_INT64}

{$DEFINE SUPPORTS_DYNAMICARRAYS}

{$DEFINE SUPPORTS_DEFAULTPARAMS}

{$DEFINE SUPPORTS_OVERLOAD}

{$ENDIF}

//------------------------------------------------------------------------------

// Cross-platform related defines

//------------------------------------------------------------------------------

{$IFDEF WIN32}

{$DEFINE MSWINDOWS}

{$ENDIF}

{$IFDEF LINUX}

{$DEFINE UNIX}

{$DEFINE COMPLIB_CLX}

{$ENDIF}

{$IFNDEF COMPLIB_CLX}

{$DEFINE COMPLIB_VCL}

{$ENDIF}

替换 (DSPackDir)/src/Directx9目录下同名文件。并考至(Delphi2007)/lib下。

(DSPackDir)/src/目录下Directx9和DSPack两个文件夹考至(Delphi2007)/source下。

打开Delphi2007的Tools -> Options窗口,在Environment Options -> Delphi Options -> Libray - Win32的Browsing Path属性中追加$(BDS)/source/DirectX9;$(BDS)/source/DSPack .

依次编译：(DSPackDir)/packages目录下的DirectX9_D7.dpk和DSPack_D7.dpk文件,完成后打开DSPackDesign_D7.dpk文件。找到DSEditors.pas文件并替换其头部uses部分的代码为：

{$IFDEF VER140} DesignIntf , DesignEditors , {$ELSE}

{$IFDEF VER150} DesignIntf , DesignEditors , {$ELSE}

{$IFDEF VER170} DesignIntf , DesignEditors , {$ELSE}

{$IFDEF VER180} DesignIntf , DesignEditors , {$ELSE}

{$IFDEF VER185} DesignIntf , DesignEditors , {$ELSE}

DsgnIntf , {$ENDIF} {$ENDIF} {$ENDIF} {$ENDIF} {$ENDIF}

Forms , Controls , DSUtil , DSPack ;

DSPackDesign_D7.bpl右键install即可安装。

最后把所有与DSPACK相关的文件靠至(Delphi2007)/lib下即可。