opensource/HeidiSQL
1
0
Fork 0
mirror of https://github.com/HeidiSQL/HeidiSQL.git synced 2025-08-26 11:17:57 +08:00
Code Issues Packages Projects Releases Wiki Activity

Uniform project settings for a brighter tomorrow.

Browse Source
This commit is contained in:
rosenfield.albert
2008-10-08 17:33:39 +00:00
parent 5b4f5f1b5c
commit 9b4588912c
44 changed files with 187 additions and 160 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
components/heidisql/packages/delphi11/HeidiComponents.dpk
View File

@ -11,12 +11,12 @@ package HeidiComponents;
{$LONGSTRINGS ON}
{$OPENSTRINGS ON}
{$OPTIMIZATION ON}
{$OVERFLOWCHECKS OFF}
{$RANGECHECKS OFF}
{$OVERFLOWCHECKS ON}
{$RANGECHECKS ON}
{$REFERENCEINFO ON}
{$SAFEDIVIDE OFF}
{$STACKFRAMES OFF}
{$TYPEDADDRESS OFF}
{$STACKFRAMES ON}
{$TYPEDADDRESS ON}
{$VARSTRINGCHECKS ON}
{$WRITEABLECONST OFF}
{$MINENUMSIZE 1}

4
components/heidisql/packages/delphi11/HeidiComponents.dproj
View File

@ -33,6 +33,10 @@
<DCC_ResourcePath>..\..\..\zeosdbo\build;..\..\..\..\source;..\..\include</DCC_ResourcePath>
<DCC_ObjPath>..\..\..\zeosdbo\build;..\..\..\..\source;..\..\include</DCC_ObjPath>
<DCC_IncludePath>..\..\..\zeosdbo\build;..\..\..\..\source;..\..\include</DCC_IncludePath>
<DCC_TypedAtParameter>True</DCC_TypedAtParameter>
<DCC_IntegerOverflowCheck>True</DCC_IntegerOverflowCheck>
<DCC_RangeChecking>True</DCC_RangeChecking>
<DCC_GenerateStackFrames>True</DCC_GenerateStackFrames>
</PropertyGroup>
<ProjectExtensions>
<Borland.Personality>Delphi.Personality</Borland.Personality>

8
components/pngcomponents/packages/delphi11/PNG.dpk
View File

@ -11,12 +11,12 @@ package PNG;
{$LONGSTRINGS ON}
{$OPENSTRINGS ON}
{$OPTIMIZATION ON}
{$OVERFLOWCHECKS OFF}
{$RANGECHECKS OFF}
{$OVERFLOWCHECKS ON}
{$RANGECHECKS ON}
{$REFERENCEINFO ON}
{$SAFEDIVIDE OFF}
{$STACKFRAMES OFF}
{$TYPEDADDRESS OFF}
{$STACKFRAMES ON}
{$TYPEDADDRESS ON}
{$VARSTRINGCHECKS ON}
{$WRITEABLECONST OFF}
{$MINENUMSIZE 1}

6
components/pngcomponents/packages/delphi11/PNG.dproj
View File

@ -1,4 +1,4 @@
<?xml version="1.0" encoding="utf-8"?>
<?xml version="1.0" encoding="utf-8"?>
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup>
<ProjectGuid>{3adf4b67-001b-48bd-8974-5d17cf2057f3}</ProjectGuid>
@ -26,6 +26,10 @@
<DCC_ResourcePath>..\..\build</DCC_ResourcePath>
<DCC_ObjPath>..\..\build</DCC_ObjPath>
<DCC_IncludePath>..\..\build</DCC_IncludePath>
<DCC_TypedAtParameter>True</DCC_TypedAtParameter>
<DCC_IntegerOverflowCheck>True</DCC_IntegerOverflowCheck>
<DCC_RangeChecking>True</DCC_RangeChecking>
<DCC_GenerateStackFrames>True</DCC_GenerateStackFrames>
</PropertyGroup>
<ProjectExtensions>
<Borland.Personality>Delphi.Personality</Borland.Personality>

8
components/pngcomponents/packages/delphi11/PngComponents.dpk
View File

@ -11,12 +11,12 @@ package PngComponents;
{$LONGSTRINGS ON}
{$OPENSTRINGS ON}
{$OPTIMIZATION ON}
{$OVERFLOWCHECKS OFF}
{$RANGECHECKS OFF}
{$OVERFLOWCHECKS ON}
{$RANGECHECKS ON}
{$REFERENCEINFO ON}
{$SAFEDIVIDE OFF}
{$STACKFRAMES OFF}
{$TYPEDADDRESS OFF}
{$STACKFRAMES ON}
{$TYPEDADDRESS ON}
{$VARSTRINGCHECKS ON}
{$WRITEABLECONST OFF}
{$MINENUMSIZE 1}

6
components/pngcomponents/packages/delphi11/PngComponents.dproj
View File

@ -1,4 +1,4 @@
<?xml version="1.0" encoding="utf-8"?>
<?xml version="1.0" encoding="utf-8"?>
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup>
<ProjectGuid>{c1b67ac4-6c06-4206-850d-5f5efcc7880b}</ProjectGuid>
@ -26,6 +26,10 @@
<DCC_HppOutput>..\..\build</DCC_HppOutput>
<DCC_BplOutput>..\..\build</DCC_BplOutput>
<DCC_DcpOutput>..\..\build</DCC_DcpOutput>
<DCC_TypedAtParameter>True</DCC_TypedAtParameter>
<DCC_IntegerOverflowCheck>True</DCC_IntegerOverflowCheck>
<DCC_RangeChecking>True</DCC_RangeChecking>
<DCC_GenerateStackFrames>True</DCC_GenerateStackFrames>
</PropertyGroup>
<ProjectExtensions>
<Borland.Personality>Delphi.Personality</Borland.Personality>

8
components/pngcomponents/packages/delphi11/PngComponentsD.dpk
View File

@ -12,12 +12,12 @@ package PngComponentsD;
{$LONGSTRINGS ON}
{$OPENSTRINGS ON}
{$OPTIMIZATION ON}
{$OVERFLOWCHECKS OFF}
{$RANGECHECKS OFF}
{$OVERFLOWCHECKS ON}
{$RANGECHECKS ON}
{$REFERENCEINFO ON}
{$SAFEDIVIDE OFF}
{$STACKFRAMES OFF}
{$TYPEDADDRESS OFF}
{$STACKFRAMES ON}
{$TYPEDADDRESS ON}
{$VARSTRINGCHECKS ON}
{$WRITEABLECONST OFF}
{$MINENUMSIZE 1}

4
components/pngcomponents/packages/delphi11/PngComponentsD.dproj
View File

@ -26,6 +26,10 @@
<DCC_HppOutput>..\..\build</DCC_HppOutput>
<DCC_BplOutput>..\..\build</DCC_BplOutput>
<DCC_DcpOutput>..\..\build</DCC_DcpOutput>
<DCC_TypedAtParameter>True</DCC_TypedAtParameter>
<DCC_IntegerOverflowCheck>True</DCC_IntegerOverflowCheck>
<DCC_RangeChecking>True</DCC_RangeChecking>
<DCC_GenerateStackFrames>True</DCC_GenerateStackFrames>
</PropertyGroup>
<ProjectExtensions>
<Borland.Personality>Delphi.Personality</Borland.Personality>

18
components/pngcomponents/source/pngimage.pas
View File

@ -1239,7 +1239,7 @@ begin
{In case it needs an output buffer}
if (avail_out = 0) then
begin
next_out := @Buffer;
next_out := PChar(@Buffer);
avail_out := SizeOf(Buffer);
end {if (avail_out = 0)};
@ -1297,7 +1297,7 @@ begin
if avail_out = 0 then
begin
{Restore buffer}
next_out := @Buffer;
next_out := PChar(@Buffer);
avail_out := SizeOf(Buffer);
end {if avail_out = 0};
@ -1804,7 +1804,7 @@ begin
{If there is data for the chunk, write it}
if DataSize > 0 then Stream.Write(Data^, DataSize);
{Calculates and write CRC}
ChunkCRC := update_crc($ffffffff, @fName[0], 4);
ChunkCRC := update_crc($ffffffff, pByteArray(@fName[0]), 4);
ChunkCRC := Byteswap(update_crc(ChunkCRC, Data, DataSize) xor $ffffffff);
Stream.Write(ChunkCRC, 4);
@ -1835,7 +1835,7 @@ begin
{Check if crc readed is valid}
{$IFDEF CheckCRC}
RightCRC := update_crc($ffffffff, @ChunkName[0], 4);
RightCRC := update_crc($ffffffff, pByteArray(@ChunkName[0]), 4);
RightCRC := update_crc(RightCRC, fData, Size) xor $ffffffff;
Result := RightCRC = CheckCrc;
@ -2436,7 +2436,7 @@ begin
{Calculate chunk name part of the crc}
{$IFDEF CheckCRC}
crcfile := update_crc($ffffffff, @IDATHeader[0], 4);
crcfile := update_crc($ffffffff, pByteArray(@IDATHeader[0]), 4);
{$ENDIF}
EndPos := fStream.Position + ByteSwap(EndPos);
end;
@ -2840,7 +2840,7 @@ begin
FilterRow;
{Copy image data}
CopyProc(CurrentPass, @Row_Buffer[RowUsed][1], Data, Trans
CopyProc(CurrentPass, PAnsiChar(@Row_Buffer[RowUsed][1]), Data, Trans
{$IFDEF Store16bits}, Extra{$ENDIF});
{Use the other RowBuffer item}
@ -3097,7 +3097,7 @@ begin
{Filter the current row}
FilterRow;
{Copies non interlaced row to image}
CopyProc(@Row_Buffer[RowUsed][1], Data, Trans{$IFDEF Store16bits}, Extra
CopyProc(PAnsiChar(@Row_Buffer[RowUsed][1]), Data, Trans{$IFDEF Store16bits}, Extra
{$ENDIF});
{Invert line used}
@ -3196,7 +3196,7 @@ begin
{Initialize to calculate CRC}
{$IFDEF CheckCRC}
CRCFile := update_crc($ffffffff, @ChunkName[0], 4);
CRCFile := update_crc($ffffffff, pByteArray(@ChunkName[0]), 4);
{$ENDIF}
Owner.GetPixelInfo(Row_Bytes, Offset); {Obtain line information}
@ -3308,7 +3308,7 @@ begin
ChunkLen := ByteSwap(Length);
Stream.Write(ChunkLen, 4); {Chunk length}
Stream.Write(IDATHeader[0], 4); {Idat header}
CRC := update_crc($ffffffff, @IDATHeader[0], 4); {Crc part for header}
CRC := update_crc($ffffffff, pByteArray(@IDATHeader[0]), 4); {Crc part for header}
{Writes IDAT data and calculates CRC for data}
Stream.Write(Data^, Length);

10
components/synedit/Packages/delphi11/SynEditD.dpk
View File

@ -11,14 +11,14 @@ package SynEditD;
{$LONGSTRINGS ON}
{$OPENSTRINGS ON}
{$OPTIMIZATION ON}
{$OVERFLOWCHECKS OFF}
{$RANGECHECKS OFF}
{$OVERFLOWCHECKS ON}
{$RANGECHECKS ON}
{$REFERENCEINFO ON}
{$SAFEDIVIDE OFF}
{$STACKFRAMES OFF}
{$TYPEDADDRESS OFF}
{$STACKFRAMES ON}
{$TYPEDADDRESS ON}
{$VARSTRINGCHECKS ON}
{$WRITEABLECONST ON}
{$WRITEABLECONST OFF}
{$MINENUMSIZE 1}
{$IMAGEBASE $400000}
{$DESCRIPTION 'SynEdit component suite'}

5
components/synedit/Packages/delphi11/SynEditD.dproj
View File

@ -25,7 +25,6 @@
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
<Version>7.0</Version>
<DCC_WriteableConstants>True</DCC_WriteableConstants>
<DCC_DcuOutput>..\..\build</DCC_DcuOutput>
<DCC_ObjOutput>..\..\build</DCC_ObjOutput>
<DCC_HppOutput>..\..\build</DCC_HppOutput>
@ -35,6 +34,10 @@
<DCC_ResourcePath>..\..\resources;..\..\..\compilerdetection\include;..\..\build</DCC_ResourcePath>
<DCC_ObjPath>..\..\resources;..\..\..\compilerdetection\include;..\..\build</DCC_ObjPath>
<DCC_IncludePath>..\..\resources;..\..\..\compilerdetection\include;..\..\build</DCC_IncludePath>
<DCC_IntegerOverflowCheck>True</DCC_IntegerOverflowCheck>
<DCC_RangeChecking>True</DCC_RangeChecking>
<DCC_TypedAtParameter>True</DCC_TypedAtParameter>
<DCC_GenerateStackFrames>True</DCC_GenerateStackFrames>
</PropertyGroup>
<ProjectExtensions>
<Borland.Personality>Delphi.Personality</Borland.Personality>

10
components/synedit/Packages/delphi11/SynEditR.dpk
View File

@ -11,14 +11,14 @@ package SynEditR;
{$LONGSTRINGS ON}
{$OPENSTRINGS ON}
{$OPTIMIZATION ON}
{$OVERFLOWCHECKS OFF}
{$RANGECHECKS OFF}
{$OVERFLOWCHECKS ON}
{$RANGECHECKS ON}
{$REFERENCEINFO ON}
{$SAFEDIVIDE OFF}
{$STACKFRAMES OFF}
{$TYPEDADDRESS OFF}
{$STACKFRAMES ON}
{$TYPEDADDRESS ON}
{$VARSTRINGCHECKS ON}
{$WRITEABLECONST ON}
{$WRITEABLECONST OFF}
{$MINENUMSIZE 1}
{$IMAGEBASE $400000}
{$DESCRIPTION 'SynEdit component suite runtime'}

5
components/synedit/Packages/delphi11/SynEditR.dproj
View File

@ -25,7 +25,6 @@
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
<Version>7.0</Version>
<DCC_WriteableConstants>True</DCC_WriteableConstants>
<DCC_DcuOutput>..\..\build</DCC_DcuOutput>
<DCC_ObjOutput>..\..\build</DCC_ObjOutput>
<DCC_HppOutput>..\..\build</DCC_HppOutput>
@ -35,6 +34,10 @@
<DCC_ResourcePath>..\..\resources;..\..\..\compilerdetection\include</DCC_ResourcePath>
<DCC_ObjPath>..\..\resources;..\..\..\compilerdetection\include</DCC_ObjPath>
<DCC_IncludePath>..\..\resources;..\..\..\compilerdetection\include</DCC_IncludePath>
<DCC_IntegerOverflowCheck>True</DCC_IntegerOverflowCheck>
<DCC_RangeChecking>True</DCC_RangeChecking>
<DCC_TypedAtParameter>True</DCC_TypedAtParameter>
<DCC_GenerateStackFrames>True</DCC_GenerateStackFrames>
</PropertyGroup>
<ProjectExtensions>
<Borland.Personality>Delphi.Personality</Borland.Personality>

2
components/synedit/Source/SynEdit.pas
View File

@ -11074,7 +11074,7 @@ initialization
begin
// Hooking GetMessage/PeekMessage-calls is necessary as the use of
// PeekMessageA in TApplication.ProcessMessage mutilates Unicode-messages.
GetMsgHook := SetWindowsHookExW(WH_GETMESSAGE, @GetMsgProc, 0,
GetMsgHook := SetWindowsHookExW(WH_GETMESSAGE, TFNHookProc(@GetMsgProc), 0,
GetCurrentThreadId);
end
else

2
components/tntunictrls/packages/delphi11/TntUnicodeVcl.dpk
View File

@ -15,7 +15,7 @@ package TntUnicodeVcl;
{$RANGECHECKS ON}
{$REFERENCEINFO ON}
{$SAFEDIVIDE OFF}
{$STACKFRAMES OFF}
{$STACKFRAMES ON}
{$TYPEDADDRESS ON}
{$VARSTRINGCHECKS ON}
{$WRITEABLECONST OFF}

1
components/tntunictrls/packages/delphi11/TntUnicodeVcl.dproj
View File

@ -41,6 +41,7 @@
<DCC_IncludePath>..\..\..\compilerdetection\include</DCC_IncludePath>
<DCC_BplOutput>..\..\build\</DCC_BplOutput>
<DCC_DcpOutput>..\..\build\</DCC_DcpOutput>
<DCC_GenerateStackFrames>True</DCC_GenerateStackFrames>
</PropertyGroup>
<ProjectExtensions>
<Borland.Personality>Delphi.Personality</Borland.Personality>

2
components/tntunictrls/packages/delphi11/TntUnicodeVcl_Design.dpk
View File

@ -26,7 +26,7 @@ package TntUnicodeVcl_Design;
{$RANGECHECKS ON}
{$REFERENCEINFO ON}
{$SAFEDIVIDE OFF}
{$STACKFRAMES OFF}
{$STACKFRAMES ON}
{$TYPEDADDRESS ON}
{$VARSTRINGCHECKS ON}
{$WRITEABLECONST OFF}

1
components/tntunictrls/packages/delphi11/TntUnicodeVcl_Design.dproj
View File

@ -41,6 +41,7 @@
<DCC_IncludePath>..\..\..\compilerdetection\include;..\..\build\</DCC_IncludePath>
<DCC_BplOutput>..\..\build\</DCC_BplOutput>
<DCC_DcpOutput>..\..\build\</DCC_DcpOutput>
<DCC_GenerateStackFrames>True</DCC_GenerateStackFrames>
</PropertyGroup>
<ProjectExtensions>
<Borland.Personality>Delphi.Personality</Borland.Personality>

6
components/virtualtreeview/packages/delphi11/VirtualTreesD.dpk
View File

@ -14,10 +14,10 @@ package VirtualTreesD;
{$OPTIMIZATION ON}
{$OVERFLOWCHECKS ON}
{$RANGECHECKS ON}
{$REFERENCEINFO OFF}
{$REFERENCEINFO ON}
{$SAFEDIVIDE OFF}
{$STACKFRAMES OFF}
{$TYPEDADDRESS OFF}
{$STACKFRAMES ON}
{$TYPEDADDRESS ON}
{$VARSTRINGCHECKS ON}
{$WRITEABLECONST OFF}
{$MINENUMSIZE 1}

3
components/virtualtreeview/packages/delphi11/VirtualTreesD.dproj
View File

@ -30,7 +30,6 @@
<Version>7.0</Version>
<DCC_IntegerOverflowCheck>True</DCC_IntegerOverflowCheck>
<DCC_RangeChecking>True</DCC_RangeChecking>
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
<DCC_ImageBase>30400000</DCC_ImageBase>
<DCC_Define>DEBUG</DCC_Define>
<DCC_DcuOutput>..\..\build</DCC_DcuOutput>
@ -42,6 +41,8 @@
<DCC_ResourcePath>..\..\source;..\..\..\compilerdetection\include;..\..\resources;..\..\build;..\..\..\tntunictrls\build</DCC_ResourcePath>
<DCC_ObjPath>..\..\source;..\..\..\compilerdetection\include;..\..\resources;..\..\build;..\..\..\tntunictrls\build</DCC_ObjPath>
<DCC_IncludePath>..\..\source;..\..\..\compilerdetection\include;..\..\resources;..\..\build;..\..\..\tntunictrls\build</DCC_IncludePath>
<DCC_TypedAtParameter>True</DCC_TypedAtParameter>
<DCC_GenerateStackFrames>True</DCC_GenerateStackFrames>
</PropertyGroup>
<ProjectExtensions>
<Borland.Personality>Delphi.Personality</Borland.Personality>

18
components/virtualtreeview/packages/delphi11/VirtualTreesR.dpk
View File

@ -1,22 +1,22 @@
package VirtualTreesR;
{$ALIGN 8}
{$ASSERTIONS OFF}
{$ASSERTIONS ON}
{$BOOLEVAL OFF}
{$DEBUGINFO OFF}
{$DEBUGINFO ON}
{$EXTENDEDSYNTAX ON}
{$IMPORTEDDATA ON}
{$IOCHECKS OFF}
{$LOCALSYMBOLS OFF}
{$IOCHECKS ON}
{$LOCALSYMBOLS ON}
{$LONGSTRINGS ON}
{$OPENSTRINGS ON}
{$OPTIMIZATION ON}
{$OVERFLOWCHECKS OFF}
{$RANGECHECKS OFF}
{$REFERENCEINFO OFF}
{$OVERFLOWCHECKS ON}
{$RANGECHECKS ON}
{$REFERENCEINFO ON}
{$SAFEDIVIDE OFF}
{$STACKFRAMES OFF}
{$TYPEDADDRESS OFF}
{$STACKFRAMES ON}
{$TYPEDADDRESS ON}
{$VARSTRINGCHECKS ON}
{$WRITEABLECONST OFF}
{$MINENUMSIZE 1}

9
components/virtualtreeview/packages/delphi11/VirtualTreesR.dproj
View File

@ -24,11 +24,6 @@
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
<Version>7.0</Version>
<DCC_AssertionsAtRuntime>False</DCC_AssertionsAtRuntime>
<DCC_DebugInformation>False</DCC_DebugInformation>
<DCC_IOChecking>False</DCC_IOChecking>
<DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
<DCC_ImageBase>30400000</DCC_ImageBase>
<DCC_Define>DEBUG</DCC_Define>
<DCC_DcuOutput>..\..\build</DCC_DcuOutput>
@ -40,6 +35,10 @@
<DCC_ResourcePath>..\..\..\compilerdetection\include;..\..\resources;..\..\..\tntunictrls\build</DCC_ResourcePath>
<DCC_ObjPath>..\..\..\compilerdetection\include;..\..\resources;..\..\..\tntunictrls\build</DCC_ObjPath>
<DCC_IncludePath>..\..\..\compilerdetection\include;..\..\resources;..\..\..\tntunictrls\build</DCC_IncludePath>
<DCC_IntegerOverflowCheck>True</DCC_IntegerOverflowCheck>
<DCC_RangeChecking>True</DCC_RangeChecking>
<DCC_TypedAtParameter>True</DCC_TypedAtParameter>
<DCC_GenerateStackFrames>True</DCC_GenerateStackFrames>
</PropertyGroup>
<ProjectExtensions>
<Borland.Personality>Delphi.Personality</Borland.Personality>

10
components/zeosdbo/packages/delphi11/ZComponent.dpk
View File

@ -2,20 +2,20 @@ package ZComponent;
{$ALIGN 8}
{$ASSERTIONS ON}
{$BOOLEVAL OFF}
{$DEBUGINFO OFF}
{$DEBUGINFO ON}
{$EXTENDEDSYNTAX ON}
{$IMPORTEDDATA ON}
{$IOCHECKS ON}
{$LOCALSYMBOLS OFF}
{$LOCALSYMBOLS ON}
{$LONGSTRINGS ON}
{$OPENSTRINGS ON}
{$OPTIMIZATION ON}
{$OVERFLOWCHECKS ON}
{$RANGECHECKS OFF}
{$REFERENCEINFO OFF}
{$RANGECHECKS ON}
{$REFERENCEINFO ON}
{$SAFEDIVIDE OFF}
{$STACKFRAMES ON}
{$TYPEDADDRESS OFF}
{$TYPEDADDRESS ON}
{$VARSTRINGCHECKS ON}
{$WRITEABLECONST OFF}
{$MINENUMSIZE 1}

5
components/zeosdbo/packages/delphi11/ZComponent.dproj
View File

@ -8,11 +8,8 @@
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
<Version>7.0</Version>
<DCC_DebugInformation>False</DCC_DebugInformation>
<DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
<DCC_IntegerOverflowCheck>True</DCC_IntegerOverflowCheck>
<DCC_GenerateStackFrames>True</DCC_GenerateStackFrames>
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
<DCC_DcuOutput>..\..\build</DCC_DcuOutput>
<DCC_ObjOutput>..\..\build</DCC_ObjOutput>
<DCC_HppOutput>..\..\build</DCC_HppOutput>
@ -23,6 +20,8 @@
<DCC_ObjPath>$(BDS)\RaveReports\Lib;$(BDS)\lib\Debug;.\..\..\..\compilerdetection\include;..\..\build</DCC_ObjPath>
<DCC_IncludePath>$(BDS)\RaveReports\Lib;$(BDS)\lib\Debug;.\..\..\..\compilerdetection\include;..\..\build</DCC_IncludePath>
<DCC_Define>RELEASE</DCC_Define>
<DCC_RangeChecking>True</DCC_RangeChecking>
<DCC_TypedAtParameter>True</DCC_TypedAtParameter>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
<Version>7.0</Version>

4
components/zeosdbo/packages/delphi11/ZComponentDesign.dpk
View File

@ -13,11 +13,11 @@ package ZComponentDesign;
{$OPENSTRINGS ON}
{$OPTIMIZATION ON}
{$OVERFLOWCHECKS ON}
{$RANGECHECKS OFF}
{$RANGECHECKS ON}
{$REFERENCEINFO ON}
{$SAFEDIVIDE OFF}
{$STACKFRAMES ON}
{$TYPEDADDRESS OFF}
{$TYPEDADDRESS ON}
{$VARSTRINGCHECKS ON}
{$WRITEABLECONST OFF}
{$MINENUMSIZE 1}

5
components/zeosdbo/packages/delphi11/ZComponentDesign.dproj
View File

@ -1,4 +1,5 @@
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<?xml version="1.0" encoding="utf-8"?>
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup>
<ProjectGuid>{da7f2734-bcd8-458c-88ac-5f8b8ad80a42}</ProjectGuid>
<MainSource>ZComponentDesign.dpk</MainSource>
@ -37,6 +38,8 @@
<DCC_ResourcePath>$(BDS)\RaveReports\Lib;$(BDS)\lib\Debug;.\..\..\..\compilerdetection\include;..\..\build</DCC_ResourcePath>
<DCC_ObjPath>$(BDS)\RaveReports\Lib;$(BDS)\lib\Debug;.\..\..\..\compilerdetection\include;..\..\build</DCC_ObjPath>
<DCC_IncludePath>$(BDS)\RaveReports\Lib;$(BDS)\lib\Debug;.\..\..\..\compilerdetection\include;..\..\build</DCC_IncludePath>
<DCC_RangeChecking>True</DCC_RangeChecking>
<DCC_TypedAtParameter>True</DCC_TypedAtParameter>
</PropertyGroup>
<ProjectExtensions>
<Borland.Personality>Delphi.Personality</Borland.Personality>

4
components/zeosdbo/packages/delphi11/ZCore.dpk
View File

@ -11,11 +11,11 @@ package ZCore;
{$OPENSTRINGS ON}
{$OPTIMIZATION ON}
{$OVERFLOWCHECKS ON}
{$RANGECHECKS OFF}
{$RANGECHECKS ON}
{$REFERENCEINFO ON}
{$SAFEDIVIDE OFF}
{$STACKFRAMES ON}
{$TYPEDADDRESS OFF}
{$TYPEDADDRESS ON}
{$VARSTRINGCHECKS ON}
{$WRITEABLECONST OFF}
{$MINENUMSIZE 1}

2
components/zeosdbo/packages/delphi11/ZCore.dproj
View File

@ -37,6 +37,8 @@
<DCC_ResourcePath>$(BDS)\Lib\Debug\Indy10;$(BDS)\RaveReports\Lib;$(BDS)\lib\Debug;.\..\..\..\compilerdetection\include</DCC_ResourcePath>
<DCC_ObjPath>$(BDS)\Lib\Debug\Indy10;$(BDS)\RaveReports\Lib;$(BDS)\lib\Debug;.\..\..\..\compilerdetection\include</DCC_ObjPath>
<DCC_IncludePath>$(BDS)\Lib\Debug\Indy10;$(BDS)\RaveReports\Lib;$(BDS)\lib\Debug;.\..\..\..\compilerdetection\include</DCC_IncludePath>
<DCC_RangeChecking>True</DCC_RangeChecking>
<DCC_TypedAtParameter>True</DCC_TypedAtParameter>
</PropertyGroup>
<ProjectExtensions>
<Borland.Personality>Delphi.Personality</Borland.Personality>

10
components/zeosdbo/packages/delphi11/ZDbc.dpk
View File

@ -2,20 +2,20 @@ package ZDbc;
{$ALIGN 8}
{$ASSERTIONS ON}
{$BOOLEVAL OFF}
{$DEBUGINFO OFF}
{$DEBUGINFO ON}
{$EXTENDEDSYNTAX ON}
{$IMPORTEDDATA ON}
{$IOCHECKS ON}
{$LOCALSYMBOLS OFF}
{$LOCALSYMBOLS ON}
{$LONGSTRINGS ON}
{$OPENSTRINGS ON}
{$OPTIMIZATION ON}
{$OVERFLOWCHECKS ON}
{$RANGECHECKS OFF}
{$REFERENCEINFO OFF}
{$RANGECHECKS ON}
{$REFERENCEINFO ON}
{$SAFEDIVIDE OFF}
{$STACKFRAMES ON}
{$TYPEDADDRESS OFF}
{$TYPEDADDRESS ON}
{$VARSTRINGCHECKS ON}
{$WRITEABLECONST OFF}
{$MINENUMSIZE 1}

5
components/zeosdbo/packages/delphi11/ZDbc.dproj
View File

@ -8,11 +8,8 @@
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
<Version>7.0</Version>
<DCC_DebugInformation>False</DCC_DebugInformation>
<DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
<DCC_IntegerOverflowCheck>True</DCC_IntegerOverflowCheck>
<DCC_GenerateStackFrames>True</DCC_GenerateStackFrames>
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
<DCC_DcuOutput>..\..\build</DCC_DcuOutput>
<DCC_ObjOutput>..\..\build</DCC_ObjOutput>
<DCC_HppOutput>..\..\build</DCC_HppOutput>
@ -23,6 +20,8 @@
<DCC_ObjPath>$(BDS)\RaveReports\Lib;$(BDS)\lib\Debug;.\..\..\..\compilerdetection\include;..\..\build</DCC_ObjPath>
<DCC_IncludePath>$(BDS)\RaveReports\Lib;$(BDS)\lib\Debug;.\..\..\..\compilerdetection\include;..\..\build</DCC_IncludePath>
<DCC_Define>RELEASE</DCC_Define>
<DCC_RangeChecking>True</DCC_RangeChecking>
<DCC_TypedAtParameter>True</DCC_TypedAtParameter>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
<Version>7.0</Version>

4
components/zeosdbo/packages/delphi11/ZParseSql.dpk
View File

@ -11,11 +11,11 @@ package ZParseSql;
{$OPENSTRINGS ON}
{$OPTIMIZATION ON}
{$OVERFLOWCHECKS ON}
{$RANGECHECKS OFF}
{$RANGECHECKS ON}
{$REFERENCEINFO ON}
{$SAFEDIVIDE OFF}
{$STACKFRAMES ON}
{$TYPEDADDRESS OFF}
{$TYPEDADDRESS ON}
{$VARSTRINGCHECKS ON}
{$WRITEABLECONST OFF}
{$MINENUMSIZE 1}

2
components/zeosdbo/packages/delphi11/ZParseSql.dproj
View File

@ -37,6 +37,8 @@
<DCC_ResourcePath>$(BDS)\RaveReports\Lib;$(BDS)\lib\Debug;.\..\..\..\compilerdetection\include;..\..\build</DCC_ResourcePath>
<DCC_ObjPath>$(BDS)\RaveReports\Lib;$(BDS)\lib\Debug;.\..\..\..\compilerdetection\include;..\..\build</DCC_ObjPath>
<DCC_IncludePath>$(BDS)\RaveReports\Lib;$(BDS)\lib\Debug;.\..\..\..\compilerdetection\include;..\..\build</DCC_IncludePath>
<DCC_RangeChecking>True</DCC_RangeChecking>
<DCC_TypedAtParameter>True</DCC_TypedAtParameter>
</PropertyGroup>
<ProjectExtensions>
<Borland.Personality>Delphi.Personality</Borland.Personality>

4
components/zeosdbo/packages/delphi11/ZPlain.dpk
View File

@ -9,13 +9,13 @@ package ZPlain;
{$LOCALSYMBOLS ON}
{$LONGSTRINGS ON}
{$OPENSTRINGS ON}
{$OPTIMIZATION OFF}
{$OPTIMIZATION ON}
{$OVERFLOWCHECKS ON}
{$RANGECHECKS ON}
{$REFERENCEINFO ON}
{$SAFEDIVIDE OFF}
{$STACKFRAMES ON}
{$TYPEDADDRESS OFF}
{$TYPEDADDRESS ON}
{$VARSTRINGCHECKS ON}
{$WRITEABLECONST OFF}
{$MINENUMSIZE 1}

2
components/zeosdbo/packages/delphi11/ZPlain.dproj
View File

@ -28,7 +28,6 @@
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
<Version>7.0</Version>
<DCC_Optimize>False</DCC_Optimize>
<DCC_IntegerOverflowCheck>True</DCC_IntegerOverflowCheck>
<DCC_RangeChecking>True</DCC_RangeChecking>
<DCC_GenerateStackFrames>True</DCC_GenerateStackFrames>
@ -41,6 +40,7 @@
<DCC_ResourcePath>$(BDS)\RaveReports\Lib;$(BDS)\lib\Debug;.\..\..\..\compilerdetection\include;..\..\build</DCC_ResourcePath>
<DCC_ObjPath>$(BDS)\RaveReports\Lib;$(BDS)\lib\Debug;.\..\..\..\compilerdetection\include;..\..\build</DCC_ObjPath>
<DCC_IncludePath>$(BDS)\RaveReports\Lib;$(BDS)\lib\Debug;.\..\..\..\compilerdetection\include;..\..\build</DCC_IncludePath>
<DCC_TypedAtParameter>True</DCC_TypedAtParameter>
</PropertyGroup>
<ProjectExtensions>
<Borland.Personality>Delphi.Personality</Borland.Personality>

4
components/zeosdbo/src/dbc/ZDbcASAUtils.pas
View File

@ -1,4 +1,4 @@
{*********************************************************}
{*********************************************************}
{ }
{ Zeos Database Objects }
{ ASA Database Connectivity Classes }
@ -493,7 +493,7 @@ function TZASASQLDA.GetFieldIndex(const Name: String): Word;
begin
for Result := 0 to FSQLDA.sqld - 1 do
if FSQLDA.sqlvar[Result].sqlname.length = Length(name) then
if StrLIComp( @FSQLDA.sqlvar[ Result].sqlname.data, PChar(Name),
if StrLIComp(PChar(@FSQLDA.sqlvar[Result].sqlname.data), PChar(Name),
Length(name)) = 0 then Exit;
CreateException( Format( SFieldNotFound1, [name]));
Result := 0; // satisfy compiler

6
components/zeosdbo/src/dbc/ZDbcCache.pas
View File

@ -823,7 +823,7 @@ begin
begin
case FColumnTypes[ColumnIndex - 1] of
stString:
Result := @FBuffer.Columns[FColumnOffsets[ColumnIndex - 1] + 1];
Result := PChar(@FBuffer.Columns[FColumnOffsets[ColumnIndex - 1] + 1]);
else
begin
FTemp := GetString(ColumnIndex, IsNull);
@ -1949,7 +1949,7 @@ begin
if Value <> nil then
begin
FBuffer.Columns[FColumnOffsets[ColumnIndex - 1]] := 0;
StrLCopy(@FBuffer.Columns[FColumnOffsets[ColumnIndex - 1] + 1], Value,
StrLCopy(PChar(@FBuffer.Columns[FColumnOffsets[ColumnIndex - 1] + 1]), Value,
FColumnLengths[ColumnIndex - 1] - 1);
end else
FBuffer.Columns[FColumnOffsets[ColumnIndex - 1]] := 1;
@ -1994,7 +1994,7 @@ begin
stString:
begin
FBuffer.Columns[FColumnOffsets[ColumnIndex - 1]] := 0;
StrPLCopy(@FBuffer.Columns[FColumnOffsets[ColumnIndex - 1] + 1], Value,
StrPLCopy(PChar(@FBuffer.Columns[FColumnOffsets[ColumnIndex - 1] + 1]), Value,
FColumnLengths[ColumnIndex - 1] - 1);
end;
stUnicodeString: SetUnicodeString(ColumnIndex, Value);

14
components/zeosdbo/src/dbc/ZDbcDbLibResultSet.pas
View File

@ -331,7 +331,7 @@ begin
else
begin
FPlainDriver.dbconvert(FHandle, DT, Data, DL, SQLBIT,
@Result, SizeOf(Result));
PByte(@Result), SizeOf(Result));
end;
end;
FDBLibConnection.CheckDBLibError(lcOther, 'GETBOOLEAN');
@ -368,7 +368,7 @@ begin
else
begin
FPlainDriver.dbconvert(FHandle, DT, Data, DL, SQLINT1,
@Result, SizeOf(Result));
PByte(@Result), SizeOf(Result));
end;
end;
FDBLibConnection.CheckDBLibError(lcOther, 'GETBYTE');
@ -405,7 +405,7 @@ begin
else
begin
FPlainDriver.dbconvert(FHandle, DT, Data, DL, SQLINT2,
@Result, SizeOf(Result));
PByte(@Result), SizeOf(Result));
end;
end;
FDBLibConnection.CheckDBLibError(lcOther, 'GETSHORT');
@ -442,7 +442,7 @@ begin
else
begin
FPlainDriver.dbconvert(FHandle, DT, Data, DL, SQLINT4,
@Result, SizeOf(Result));
PByte(@Result), SizeOf(Result));
end;
end;
FDBLibConnection.CheckDBLibError(lcOther, 'GETINT');
@ -493,7 +493,7 @@ begin
else
begin
FPlainDriver.dbconvert(FHandle, DT, Data, DL, SQLFLT4,
@Result, SizeOf(Result));
PByte(@Result), SizeOf(Result));
end;
end;
FDBLibConnection.CheckDBLibError(lcOther, 'GETFLOAT');
@ -530,7 +530,7 @@ begin
else
begin
FPlainDriver.dbconvert(FHandle, DT, Data, DL, SQLFLT8,
@Result, SizeOf(Result));
PByte(@Result), SizeOf(Result));
end;
end;
FDBLibConnection.CheckDBLibError(lcOther, 'GETDOUBLE');
@ -640,7 +640,7 @@ begin
else
begin
FPlainDriver.dbconvert(FHandle, DT, Data, DL, SQLDATETIME,
@TempDate, SizeOf(TempDate));
PByte(@TempDate), SizeOf(TempDate));
end;
Result := TempDate.dtdays + 2 + (TempDate.dttime / 25920000);
//Perfect conversion no need to crack and reencode the date.

8
components/zeosdbo/src/dbc/ZDbcDbLibStatement.pas
View File

@ -754,7 +754,7 @@ begin
begin
FPlainDriver.dbConvert(FHandle, SQLMONEY4,
FPlainDriver.dbRetData(FHandle, ParamIndex), 4, SQLMONEY,
@DatMoney, 8);
PByte(@DatMoney), 8);
DefVarManager.SetAsFloat(Temp, DatMoney);
end;
SQLMONEY:
@ -765,7 +765,7 @@ begin
FPLainDriver.dbConvert(FHandle, SQLDECIMAL,
FPLainDriver.dbRetData(FHandle, ParamIndex),
FPLainDriver.dbRetLen(FHandle, ParamIndex),
SQLFLT8, @DatDouble, 8);
SQLFLT8, PByte(@DatDouble), 8);
DefVarManager.SetAsFloat(Temp, DatDouble);
end;
SQLNUMERIC:
@ -773,14 +773,14 @@ begin
FPLainDriver.dbConvert(FHandle, SQLNUMERIC,
FPLainDriver.dbRetData(FHandle, ParamIndex),
FPLainDriver.dbRetLen(FHandle, ParamIndex),
SQLFLT8, @DatDouble, 8);
SQLFLT8, PByte(@DatDouble), 8);
DefVarManager.SetAsFloat(Temp, DatDouble);
end;
SQLDATETIM4:
begin
FPLainDriver.dbConvert(FHandle, SQLDATETIM4,
FPLainDriver.dbRetData(FHandle, ParamIndex), 4,
SQLDATETIME, @DatDBDATETIME, 8);
SQLDATETIME, PByte(@DatDBDATETIME), 8);
DefVarManager.SetAsDateTime(Temp,
DatDBDATETIME.dtdays + 2 + (DatDBDATETIME.dttime / 25920000));
end;

18
components/zeosdbo/src/dbc/ZDbcInterbase6.pas
View File

@ -338,11 +338,11 @@ begin
begin
if AutoCommit then
begin
FPlainDriver.isc_commit_transaction(@FStatusVector, @FTrHandle);
FPlainDriver.isc_commit_transaction(PISC_STATUS(@FStatusVector), @FTrHandle);
DriverManager.LogMessage(lcTransaction, FPlainDriver.GetProtocol,
Format('COMMITT TRANSACTION "%s"', [Database]));
end else begin
FPlainDriver.isc_rollback_transaction(@FStatusVector, @FTrHandle);
FPlainDriver.isc_rollback_transaction(PISC_STATUS(@FStatusVector), @FTrHandle);
DriverManager.LogMessage(lcTransaction, FPlainDriver.GetProtocol,
Format('ROLLBACK TRANSACTION "%s"', [Database]));
end;
@ -352,7 +352,7 @@ begin
if FHandle <> nil then
begin
FPlainDriver.isc_detach_database(@FStatusVector, @FHandle);
FPlainDriver.isc_detach_database(PISC_STATUS(@FStatusVector), @FHandle);
FHandle := nil;
CheckInterbase6Error(FPlainDriver, FStatusVector, lcDisconnect);
end;
@ -372,7 +372,7 @@ begin
if FTrHandle <> nil then
begin
FPlainDriver.isc_commit_retaining(@FStatusVector, @FTrHandle);
FPlainDriver.isc_commit_retaining(PISC_STATUS(@FStatusVector), @FTrHandle);
CheckInterbase6Error(FPlainDriver, FStatusVector, lcTransaction);
DriverManager.LogMessage(lcTransaction,
FPlainDriver.GetProtocol, 'TRANSACTION COMMIT');
@ -534,7 +534,7 @@ begin
{ Connect to Interbase6 database. }
FHandle := nil;
FPlainDriver.isc_attach_database(@FStatusVector, StrLen(DBName), DBName,
FPlainDriver.isc_attach_database(PISC_STATUS(@FStatusVector), StrLen(DBName), DBName,
@FHandle, FDPBLength, DPB);
{ Check connection error }
@ -642,7 +642,7 @@ procedure TZInterbase6Connection.Rollback;
begin
if FTrHandle <> nil then
begin
FPlainDriver.isc_rollback_retaining(@FStatusVector, @FTrHandle);
FPlainDriver.isc_rollback_retaining(PISC_STATUS(@FStatusVector), @FTrHandle);
CheckInterbase6Error(FPlainDriver, FStatusVector);
DriverManager.LogMessage(lcTransaction,
FPlainDriver.GetProtocol, 'TRANSACTION ROLLBACK');
@ -690,7 +690,7 @@ begin
{ GenerateTPB return PTEB with null pointer tpb_address from defaul
transaction }
PTEB := GenerateTPB(Params, FHandle);
FPlainDriver.isc_start_multiple(@FStatusVector, @FTrHandle, 1, PTEB);
FPlainDriver.isc_start_multiple(PISC_STATUS(@FStatusVector), @FTrHandle, 1, PTEB);
CheckInterbase6Error(FPlainDriver, FStatusVector, lcTransaction);
DriverManager.LogMessage(lcTransaction, FPlainDriver.GetProtocol,
'TRANSACTION STARTED.');
@ -713,10 +713,10 @@ begin
Close;
DbHandle := nil;
TrHandle := nil;
FPlainDriver.isc_dsql_execute_immediate(@FStatusVector, @DbHandle, @TrHandle, 0, PChar(sql),
FPlainDriver.isc_dsql_execute_immediate(PISC_STATUS(@FStatusVector), PISC_DB_HANDLE(@DbHandle), PISC_TR_HANDLE(@TrHandle), 0, PChar(sql),
FDialect, nil);
CheckInterbase6Error(FPlainDriver, FStatusVector, lcExecute, SQL);
FPlainDriver.isc_detach_database(@FStatusVector, @DbHandle);
FPlainDriver.isc_detach_database(PISC_STATUS(@FStatusVector), PISC_DB_HANDLE(@DbHandle));
CheckInterbase6Error(FPlainDriver, FStatusVector, lcExecute, SQL);
end;

2
components/zeosdbo/src/dbc/ZDbcInterbase6ResultSet.pas
View File

@ -555,7 +555,7 @@ begin
begin
with FIBConnection do
begin
FFetchStat := GetPlainDriver.isc_dsql_fetch(@StatusVector,
FFetchStat := GetPlainDriver.isc_dsql_fetch(PISC_STATUS(@StatusVector),
@FStmtHandle, GetDialect, FSqlData.GetData);
CheckInterbase6Error(GetPlainDriver, StatusVector);
end;

26
components/zeosdbo/src/dbc/ZDbcInterbase6Statement.pas
View File

@ -191,7 +191,7 @@ begin
PrepareResultSqlData(GetPlainDriver, GetDBHandle, GetDialect,
SQL, StmtHandle, SQLData);
GetPlainDriver.isc_dsql_execute(@FStatusVector, GetTrHandle,
GetPlainDriver.isc_dsql_execute(PISC_STATUS(@FStatusVector), GetTrHandle,
@StmtHandle, GetDialect, SQLData.GetData);
CheckInterbase6Error(SQL);
@ -201,7 +201,7 @@ begin
if CursorName <> '' then
begin
Cursor := CursorName;
GetPlainDriver.isc_dsql_set_cursor_name(@FStatusVector,
GetPlainDriver.isc_dsql_set_cursor_name(PISC_STATUS(@FStatusVector),
@StmtHandle, PChar(Cursor), 0);
CheckInterbase6Error(SQL);
end;
@ -252,7 +252,7 @@ begin
// if StatementType in [stExecProc, stSelect, stSelectForUpdate] then
// raise EZSQLException.Create(SStatementIsNotAllowed);
GetPlainDriver.isc_dsql_execute2(@FStatusVector, GetTrHandle,
GetPlainDriver.isc_dsql_execute2(PISC_STATUS(@FStatusVector), GetTrHandle,
@StmtHandle, GetDialect, nil, nil);
CheckInterbase6Error(SQL);
@ -328,7 +328,7 @@ begin
end;
{ Execute prepared statement }
GetPlainDriver.isc_dsql_execute(@FStatusVector, GetTrHandle,
GetPlainDriver.isc_dsql_execute(PISC_STATUS(@FStatusVector), GetTrHandle,
@StmtHandle, GetDialect, nil);
CheckInterbase6Error(Sql);
{ Set updated rows count }
@ -347,7 +347,7 @@ begin
if CursorName <> '' then
begin
Cursor := CursorName;
GetPlainDriver.isc_dsql_set_cursor_name(@FStatusVector,
GetPlainDriver.isc_dsql_set_cursor_name(PISC_STATUS(@FStatusVector),
@StmtHandle, PChar(Cursor), 0);
CheckInterbase6Error(SQL);
end;
@ -473,7 +473,7 @@ begin
PrepareParameters(GetPlainDriver, SQL, InParamValues, InParamTypes,
InParamCount, GetDialect, StmtHandle, FParamSQLData);
GetPlainDriver.isc_dsql_execute2(@FStatusVector, GetTrHandle, @StmtHandle,
GetPlainDriver.isc_dsql_execute2(PISC_STATUS(@FStatusVector), GetTrHandle, @StmtHandle,
GetDialect, FParamSQLData.GetData, nil);
CheckInterbase6Error(SQL);
@ -557,7 +557,7 @@ begin
PrepareParameters(GetPlainDriver, SQL, InParamValues, InParamTypes,
InParamCount, GetDialect, StmtHandle, FParamSQLData);
GetPlainDriver.isc_dsql_execute2(@FStatusVector, GetTrHandle, @StmtHandle,
GetPlainDriver.isc_dsql_execute2(PISC_STATUS(@FStatusVector), GetTrHandle, @StmtHandle,
GetDialect, FParamSQLData.GetData, nil);
CheckInterbase6Error(SQL);
@ -567,7 +567,7 @@ begin
if CursorName <> '' then
begin
Cursor := CursorName;
GetPlainDriver.isc_dsql_set_cursor_name(@FStatusVector,
GetPlainDriver.isc_dsql_set_cursor_name(PISC_STATUS(@FStatusVector),
@StmtHandle, PChar(Cursor), 0);
CheckInterbase6Error(SQL);
end;
@ -639,7 +639,7 @@ begin
PrepareParameters(GetPlainDriver, SQL, InParamValues, InParamTypes,
InParamCount, GetDialect, StmtHandle, FParamSQLData);
GetPlainDriver.isc_dsql_execute(@FStatusVector, GetTrHandle,
GetPlainDriver.isc_dsql_execute(PISC_STATUS(@FStatusVector), GetTrHandle,
@StmtHandle, GetDialect, FParamSQLData.GetData);
CheckInterbase6Error(SQL);
@ -755,7 +755,7 @@ begin
SQL, StmtHandle, SQLData);
PrepareParameters(GetPlainDriver, ProcSql, InParamValues, InParamTypes,
InParamCount, GetDialect, StmtHandle, FParamSQLData);
GetPlainDriver.isc_dsql_execute2(@FStatusVector, GetTrHandle, @StmtHandle,
GetPlainDriver.isc_dsql_execute2(PISC_STATUS(@FStatusVector), GetTrHandle, @StmtHandle,
GetDialect, FParamSQLData.GetData, SQLData.GetData);
CheckInterbase6Error(SQL);
@ -846,7 +846,7 @@ begin
PrepareParameters(GetPlainDriver, ProcSql, InParamValues, InParamTypes,
InParamCount, GetDialect, StmtHandle, FParamSQLData);
GetPlainDriver.isc_dsql_execute2(@FStatusVector, GetTrHandle, @StmtHandle,
GetPlainDriver.isc_dsql_execute2(PISC_STATUS(@FStatusVector), GetTrHandle, @StmtHandle,
GetDialect, FParamSQLData.GetData, nil);
CheckInterbase6Error(ProcSql);
@ -856,7 +856,7 @@ begin
if CursorName <> '' then
begin
Cursor := CursorName;
GetPlainDriver.isc_dsql_set_cursor_name(@FStatusVector,
GetPlainDriver.isc_dsql_set_cursor_name(PISC_STATUS(@FStatusVector),
@StmtHandle, PChar(Cursor), 0);
CheckInterbase6Error(ProcSql);
end;
@ -931,7 +931,7 @@ begin
PrepareParameters(GetPlainDriver, ProcSql, InParamValues, InParamTypes,
InParamCount, GetDialect, StmtHandle, FParamSQLData);
GetPlainDriver.isc_dsql_execute2(@FStatusVector, GetTrHandle, @StmtHandle,
GetPlainDriver.isc_dsql_execute2(PISC_STATUS(@FStatusVector), GetTrHandle, @StmtHandle,
GetDialect, FParamSQLData.GetData, SQLData.GetData);
CheckInterbase6Error(ProcSql);

50
components/zeosdbo/src/dbc/ZDbcInterbase6Utils.pas
View File

@ -792,11 +792,11 @@ begin
if (StatusVector[0] = 1) and (StatusVector[1] > 0) then
begin
ErrorMessage:='';
PStatusVector := @StatusVector;
PStatusVector := PISC_STATUS(@StatusVector);
while PlainDriver.isc_interprete(Msg, @PStatusVector) > 0 do
ErrorMessage := ErrorMessage + ' ' + StrPas(Msg);
ErrorCode := PlainDriver.isc_sqlcode(@StatusVector);
ErrorCode := PlainDriver.isc_sqlcode(PISC_STATUS(@StatusVector));
PlainDriver.isc_sql_interprete(ErrorCode, Msg, 1024);
ErrorSqlMessage := StrPas(Msg);
@ -842,11 +842,11 @@ var
StatusVector: TARRAY_ISC_STATUS;
begin
{ Allocate an sql statement }
PlainDriver.isc_dsql_alloc_statement2(@StatusVector, Handle, @StmtHandle);
PlainDriver.isc_dsql_alloc_statement2(PISC_STATUS(@StatusVector), Handle, @StmtHandle);
CheckInterbase6Error(PlainDriver, StatusVector, lcExecute, Sql);
{ Prepare an sql statement }
PlainDriver.isc_dsql_prepare(@StatusVector, TrHandle, @StmtHandle,
PlainDriver.isc_dsql_prepare(PISC_STATUS(@StatusVector), TrHandle, @StmtHandle,
0, PChar(SQL), Dialect, nil);
CheckInterbase6Error(PlainDriver, StatusVector, lcExecute, SQL);
@ -876,14 +876,14 @@ var
StatusVector: TARRAY_ISC_STATUS;
begin
{ Initialise ouput param and fields }
PlainDriver.isc_dsql_describe(@StatusVector, @StmtHandle, Dialect,
PlainDriver.isc_dsql_describe(PISC_STATUS(@StatusVector), @StmtHandle, Dialect,
SqlData.GetData);
CheckInterbase6Error(PlainDriver, StatusVector, lcExecute, SQL);
if SqlData.GetData^.sqld > SqlData.GetData^.sqln then
begin
SqlData.AllocateSQLDA;
PlainDriver.isc_dsql_describe(@StatusVector, @StmtHandle,
PlainDriver.isc_dsql_describe(PISC_STATUS(@StatusVector), @StmtHandle,
Dialect, SqlData.GetData);
CheckInterbase6Error(PlainDriver, StatusVector, lcExecute, Sql);
end;
@ -908,7 +908,7 @@ begin
TypeItem := Char(isc_info_sql_stmt_type);
{ Get information about a prepared DSQL statement. }
PlainDriver.isc_dsql_sql_info(@StatusVector, @StmtHandle, 1,
PlainDriver.isc_dsql_sql_info(PISC_STATUS(@StatusVector), @StmtHandle, 1,
@TypeItem, SizeOf(StatementBuffer), StatementBuffer);
CheckInterbase6Error(PlainDriver, StatusVector);
@ -933,7 +933,7 @@ var
begin
if StatementHandle <> nil then
begin
PlainDriver.isc_dsql_free_statement(@StatusVector, @StatementHandle,
PlainDriver.isc_dsql_free_statement(PISC_STATUS(@StatusVector), @StatementHandle,
DSQL_drop);
CheckInterbase6Error(PlainDriver, StatusVector);
end;
@ -957,7 +957,7 @@ begin
Result := -1;
ReqInfo := Char(isc_info_sql_records);
if PlainDriver.isc_dsql_sql_info(@StatusVector, @StmtHandle, 1,
if PlainDriver.isc_dsql_sql_info(PISC_STATUS(@StatusVector), @StmtHandle, 1,
@ReqInfo, SizeOf(OutBuffer), OutBuffer) > 0 then
Exit;
CheckInterbase6Error(PlainDriver, StatusVector);
@ -992,7 +992,7 @@ var
StatusVector: TARRAY_ISC_STATUS;
begin
{check dynamic sql}
PlainDriver.isc_dsql_describe_bind(@StatusVector, @StmtHandle, Dialect,
PlainDriver.isc_dsql_describe_bind(PISC_STATUS(@StatusVector), @StmtHandle, Dialect,
ParamSqlData.GetData);
CheckInterbase6Error(PlainDriver, StatusVector, lcExecute, SQL);
@ -1000,7 +1000,7 @@ begin
if ParamSqlData.GetData^.sqld > ParamSqlData.GetData^.sqln then
begin
ParamSqlData.AllocateSQLDA;
PlainDriver.isc_dsql_describe_bind(@StatusVector, @StmtHandle, Dialect,
PlainDriver.isc_dsql_describe_bind(PISC_STATUS(@StatusVector), @StmtHandle, Dialect,
ParamSqlData.GetData);
CheckInterbase6Error(PlainDriver, StatusVector, lcExecute, SQL);
end;
@ -1106,7 +1106,7 @@ begin
Items[2] := Char(isc_info_blob_total_length);
Items[3] := Char(isc_info_blob_type);
if integer(PlainDriver.isc_blob_info(@StatusVector, @BlobHandle, 4, @items[0],
if integer(PlainDriver.isc_blob_info(PISC_STATUS(@StatusVector), @BlobHandle, 4, @items[0],
SizeOf(Results), @Results[0])) > 0 then
CheckInterbase6Error(PlainDriver, StatusVector);
@ -1156,7 +1156,7 @@ begin
//SegmentLenght := UShort(DefaultBlobSegmentSize);
{ open blob }
PlainDriver.isc_open_blob2(@StatusVector, Handle,
PlainDriver.isc_open_blob2(PISC_STATUS(@StatusVector), Handle,
TransactionHandle, @BlobHandle, @BlobId, 0 , nil);
CheckInterbase6Error(PlainDriver, StatusVector);
@ -1176,7 +1176,7 @@ begin
begin
if (CurPos + SegmentLenght > BlobSize) then
SegmentLenght := BlobSize - CurPos;
if not(PlainDriver.isc_get_segment(@StatusVector, @BlobHandle,
if not(PlainDriver.isc_get_segment(PISC_STATUS(@StatusVector), @BlobHandle,
@BytesRead, SegmentLenght, TempBuffer) = 0) or
(StatusVector[1] <> isc_segment) then
CheckInterbase6Error(PlainDriver, StatusVector);
@ -1186,7 +1186,7 @@ begin
end;
{ close blob handle }
PlainDriver.isc_close_blob(@StatusVector, @BlobHandle);
PlainDriver.isc_close_blob(PISC_STATUS(@StatusVector), @BlobHandle);
CheckInterbase6Error(PlainDriver, StatusVector);
end;
@ -1204,7 +1204,7 @@ var
Buffer: array[0..IBBigLocalBufferLength - 1] of Char;
begin
DatabaseInfoCommand := Char(isc_info_version);
PlainDriver.isc_database_info(@StatusVector, Handle, 1, @DatabaseInfoCommand,
PlainDriver.isc_database_info(PISC_STATUS(@StatusVector), Handle, 1, @DatabaseInfoCommand,
IBBigLocalBufferLength, Buffer);
CheckInterbase6Error(PlainDriver, StatusVector);
Buffer[5 + Integer(Buffer[4])] := #0;
@ -1225,7 +1225,7 @@ var
Buffer: array[0..IBBigLocalBufferLength - 1] of Char;
begin
DatabaseInfoCommand := Char(isc_info_implementation);
PlainDriver.isc_database_info(@StatusVector, Handle, 1, @DatabaseInfoCommand,
PlainDriver.isc_database_info(PISC_STATUS(@StatusVector), Handle, 1, @DatabaseInfoCommand,
IBLocalBufferLength, Buffer);
CheckInterbase6Error(PlainDriver, StatusVector);
result := PlainDriver.isc_vax_integer(@Buffer[3], 1);
@ -1245,7 +1245,7 @@ var
Buffer: array[0..IBBigLocalBufferLength - 1] of Char;
begin
DatabaseInfoCommand := Char(isc_info_implementation);
PlainDriver.isc_database_info(@StatusVector, Handle, 1, @DatabaseInfoCommand,
PlainDriver.isc_database_info(PISC_STATUS(@StatusVector), Handle, 1, @DatabaseInfoCommand,
IBLocalBufferLength, Buffer);
CheckInterbase6Error(PlainDriver, StatusVector);
result := PlainDriver.isc_vax_integer(@Buffer[4], 1);
@ -1267,7 +1267,7 @@ var
Buffer: array[0..IBBigLocalBufferLength - 1] of Char;
begin
DatabaseInfoCommand1 := Char(DatabaseInfoCommand);
PlainDriver.isc_database_info(@StatusVector, Handle, 1, @DatabaseInfoCommand1,
PlainDriver.isc_database_info(PISC_STATUS(@StatusVector), Handle, 1, @DatabaseInfoCommand1,
IBLocalBufferLength, Buffer);
CheckInterbase6Error(PlainDriver, StatusVector);
Length := PlainDriver.isc_vax_integer(@Buffer[1], 2);
@ -1289,7 +1289,7 @@ var
Buffer: array[0..IBBigLocalBufferLength - 1] of Char;
begin
DatabaseInfoCommand1 := Char(DatabaseInfoCommand);
PlainDriver.isc_database_info(@StatusVector, Handle, 1, @DatabaseInfoCommand1,
PlainDriver.isc_database_info(PISC_STATUS(@StatusVector), Handle, 1, @DatabaseInfoCommand1,
IBLocalBufferLength, Buffer);
CheckInterbase6Error(PlainDriver, StatusVector);
Buffer[4 + Integer(Buffer[3])] := #0;
@ -1311,7 +1311,7 @@ var
Buffer: array[0..IBBigLocalBufferLength - 1] of Char;
begin
DatabaseInfoCommand1 := Char(isc_info_db_SQL_Dialect);
PlainDriver.isc_database_info(@StatusVector, Handle, 1, @DatabaseInfoCommand1,
PlainDriver.isc_database_info(PISC_STATUS(@StatusVector), Handle, 1, @DatabaseInfoCommand1,
IBLocalBufferLength, Buffer);
CheckInterbase6Error(PlainDriver, StatusVector);
if (Buffer[0] <> Char(isc_info_db_SQL_dialect)) then
@ -1443,7 +1443,7 @@ begin
{$R-}
for Result := 0 to GetFieldCount - 1 do
if FXSQLDA.sqlvar[Result].aliasname_length = Length(name) then
if StrLIComp(@FXSQLDA.sqlvar[Result].aliasname, PChar(Name),
if StrLIComp(PChar(@FXSQLDA.sqlvar[Result].aliasname), PChar(Name),
FXSQLDA.sqlvar[Result].aliasname_length) = 0 then Exit;
raise Exception.Create(Format(SFieldNotFound1, [name]));
{$IFOPT D+}
@ -2375,7 +2375,7 @@ begin
Stream.Seek(0, 0);
{ create blob handle }
FPlainDriver.isc_create_blob2(@StatusVector, FHandle, FTransactionHandle,
FPlainDriver.isc_create_blob2(PISC_STATUS(@StatusVector), FHandle, FTransactionHandle,
@BlobHandle, @BlobId, 0, nil);
CheckInterbase6Error(FPlainDriver, StatusVector);
@ -2392,14 +2392,14 @@ begin
begin
if (CurPos + SegLen > BlobSize) then
SegLen := BlobSize - CurPos;
if FPlainDriver.isc_put_segment(@StatusVector, @BlobHandle, SegLen,
if FPlainDriver.isc_put_segment(PISC_STATUS(@StatusVector), @BlobHandle, SegLen,
PChar(@Buffer[CurPos])) > 0 then
CheckInterbase6Error(FPlainDriver, StatusVector);
Inc(CurPos, SegLen);
end;
{ close blob handle }
FPlainDriver.isc_close_blob(@StatusVector, @BlobHandle);
FPlainDriver.isc_close_blob(PISC_STATUS(@StatusVector), @BlobHandle);
CheckInterbase6Error(FPlainDriver, StatusVector);
Stream.Seek(0, 0);

6
packages/delphi11/heidisql.dproj
View File

@ -29,8 +29,6 @@
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
<Version>7.0</Version>
<DCC_WriteableConstants>True</DCC_WriteableConstants>
<DCC_Optimize>False</DCC_Optimize>
<DCC_SymbolReferenceInfo>2</DCC_SymbolReferenceInfo>
<DCC_DebugInfoInExe>True</DCC_DebugInfoInExe>
<DCC_DebugVN>True</DCC_DebugVN>
@ -46,8 +44,8 @@
<DCC_IncludePath>$(BDS)\RaveReports\Lib;$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10;..\..\components\compilerdetection\include;..\..\components\heidisql\include;..\..\components\edbimage\build;..\..\components\heidisql\build;..\..\components\synedit\build;..\..\components\synedit\resources;..\..\components\zeosdbo\build;..\..\components\virtualtreeview\build;..\..\components\virtualtreeview\resources;..\..\components\tntunictrls\build;..\..\components\pngcomponents\build</DCC_IncludePath>
<DCC_Define>DEBUG</DCC_Define>
<DCC_Description>HeidiSQL</DCC_Description>
<DCC_UNIT_PLATFORM>True</DCC_UNIT_PLATFORM>
<DCC_SYMBOL_PLATFORM>True</DCC_SYMBOL_PLATFORM>
<DCC_TypedAtParameter>True</DCC_TypedAtParameter>
<DCC_GenerateStackFrames>True</DCC_GenerateStackFrames>
</PropertyGroup>
<ProjectExtensions>
<Borland.Personality>Delphi.Personality</Borland.Personality>

2
source/helpers.pas
View File

@ -2158,7 +2158,7 @@ function GetTempDir: String;
var
TempPath: array[0..MAX_PATH] of Char;
begin
GetTempPath(MAX_PATH, @TempPath);
GetTempPath(MAX_PATH, PAnsiChar(@TempPath));
Result := StrPas(TempPath);
end;