Zeos 7.3 testers-thread

[miab3]

Hi Jan,

In ZEOS 8.0.0 /trunk svn 8015 (Delphi 10.3.3)
In zdbc.dpk
is lacking
ZDbcXmlUtils in '..\..\src\dbc\ZDbcXmlUtils.pas'

After adding this it compiles and works.
Delphi XE2-Win32/Win64 too.

The problem occurs in D2007.
ZDbcXmlUtils needs ZBase64.dcu which does not compile in D2007:
[DCC Error] ZBase64.pas(40): E2003 Undeclared identifier: 'TBytesStream'
[DCC Error] ZBase64.pas(92): E2003 Undeclared identifier: 'TBytesStream'

Interesting here:
https://stackoverflow.com/questions/300 ... elphi-2007
https://www.codenewsfast.com/cnf/thread ... g1919q5001

Michal

[marsupilami]

Hello Michal,

the missing unit should be fixed now.

Interesting here:
https://stackoverflow.com/questions/300 ... elphi-2007
https://www.codenewsfast.com/cnf/thread ... g1919q5001

I am not sure why that is interesting or what you want to tell me? Do you think about using the Webservice driver with Delphi 2007 or something like that? Or do you get errors on Dephi 2007 when compiling TZMemTable?

[miab3]

The problem occurs in D2007.
ZDbcXmlUtils needs ZBase64.dcu which does not compile in D2007:
[DCC Error] ZBase64.pas(40): E2003 Undeclared identifier: 'TBytesStream'
[DCC Error] ZBase64.pas(92): E2003 Undeclared identifier: 'TBytesStream'

Michal

[miab3]

ZEOS 8.0.0 /trunk svn 8038

Compiles and Works:

-Delphi 11.1 Alexandria - Win32/Win64(/Android/Android64- compiles but requires more thorough testing)).

[dcc32 Warning] ZDbcProxyResultSet.pas(1110): W1058 Implicit string cast with potential data loss from 'string' to 'AnsiString'
[dcc32 Warning] ZDbcXmlUtils.pas(170): W1057 Implicit string cast from 'RawByteString' to 'string'
[dcc32 Warning] ZDbcXmlUtils.pas(202): W1057 Implicit string cast from 'AnsiString' to 'string'
[dcc32 Warning] ZDbcXmlUtils.pas(233): W1057 Implicit string cast from 'AnsiString' to 'string'

Michal

[miab3]

ZEOS 8.0.0 /trunk svn 8041
https://sourceforge.net/p/zeoslib/code-0/8041/tree/

Compiles and Works:

- Lazarus 3.0RC1 Win32,
- Delphi 11.1 Alexandria - Win32/Win64(/Android/Android64- compiles but requires more thorough testing)).

Some Delphi warnings:
[dcc32 Warning] ZDbcProxyResultSet.pas(1110): W1058 Implicit string cast with potential data loss from 'string' to 'AnsiString'
[dcc32 Warning] ZDbcXmlUtils.pas(170): W1057 Implicit string cast from 'RawByteString' to 'string'
[dcc32 Warning] ZDbcXmlUtils.pas(202): W1057 Implicit string cast from 'AnsiString' to 'string'
[dcc32 Warning] ZDbcXmlUtils.pas(233): W1057 Implicit string cast from 'AnsiString' to 'string'

Michał

[miab3]

ZEOS 8.0.0 /trunk svn 8046
https://sourceforge.net/p/zeoslib/code-0/8046/tree/

Compiles and Works:

- Lazarus 3.0RC1 Win32,
- Delphi 2007(-ZBase64.pas),
- RAD Studio XE2-Win32/Win64/OSX32/C++32,
- Delphi 10.3.3 Rio-Win32/Win64/(Android/Android64- compiles but requires more thorough testing),
- Delphi 11.1 Alexandria - Win32/Win64(/Android/Android64- compiles but requires more thorough testing)).

Tested: SQLite, Firebird, MariaDB, MySQL, PostgreSQL, Oracle Database, MS SQL(ADO, OLE DB, ODBC, FreeTDS)

My mORMot 1.18 r6435 PerfTest passes(Delphi 11.1 Alexandria Win32/Win64, Delphi 10.3.3 Rio Win32/Win64, Delphi 2007)

Some Delphi warnings:
[dcc32 Warning] ZDbcProxyResultSet.pas(1110): W1058 Implicit string cast with potential data loss from 'string' to 'AnsiString'
[dcc32 Warning] ZDbcXmlUtils.pas(170): W1057 Implicit string cast from 'RawByteString' to 'string'
[dcc32 Warning] ZDbcXmlUtils.pas(202): W1057 Implicit string cast from 'AnsiString' to 'string'
[dcc32 Warning] ZDbcXmlUtils.pas(233): W1057 Implicit string cast from 'AnsiString' to 'string'

Michał

[miab3]

Hi Jan,

8.0-patches_8159
Delphi 11 Win32/Win64/Android32/Android64

Only one Warning:

[dcc32 Warning] ZDbcDbLibResultSet.pas(602): W1044 Suspicious typecast of string to PAnsiChar

Code: Select all

        tdsMsTime: begin
            FTempStr := FormatDateTime(GetStatement.GetConSettings^.ReadFormatSettings.TimeFormat, TdsDateTimeAllToDateTime(PDBDATETIMEALL(dbData)^));
{L602:}            Result := PAnsiChar(FTempStr);
            Len := Length(FTempStr);
          end;

Michal

[marsupilami]

Hello Michal,

this should be fixed in rev. 8160.

Best regards,

Jan

[miab3]

Hi Jan,

8.0-patches_8160
Delphi 11 Win32/Win64/Android32/Android64

Now three Warnings:

[dcc64 Warning] ZDbcDbLibResultSet.pas(595): W1058 Implicit string cast with potential data loss from 'string' to 'AnsiString'
[dcc64 Warning] ZDbcDbLibResultSet.pas(599): W1058 Implicit string cast with potential data loss from 'string' to 'AnsiString'
[dcc64 Warning] ZDbcDbLibResultSet.pas(603): W1058 Implicit string cast with potential data loss from 'string' to 'AnsiString'

Code: Select all

      end else if tdstype = tdsMsTime then begin
{L595}        FTempStr := FormatDateTime(GetStatement.GetConSettings^.ReadFormatSettings.TimeFormat, TdsDateTimeAllToDateTime(PDBDATETIMEALL(dbData)^));
        Result := PAnsiChar(FTempStr);
        Len := Length(FTempStr);
      end else if tdstype = tdsMsDate then begin
{L599}        FTempStr := FormatDateTime(GetStatement.GetConSettings^.ReadFormatSettings.DateFormat, TdsDateTimeAllToDateTime(PDBDATETIMEALL(dbData)^));
        Result := PAnsiChar(FTempStr);
        Len := Length(FTempStr);
      end else if tdstype in [tdsMsDateTime2, tdsMsDateTimeOffset] then begin
{L603}        FTempStr := FormatDateTime(GetStatement.GetConSettings^.ReadFormatSettings.DateTimeFormat, TdsDateTimeAllToDateTime(PDBDATETIMEALL(dbData)^));
        Result := PAnsiChar(FTempStr);
        Len := Length(FTempStr);
      end else begin

Regards,

Michal

[marsupilami]

Hello Michal,

the warnings should be fixed now.

Best regards,

Jan

[miab3]

Hi Jan,

8.0-patches_8167
Delphi 11.1 Win32/Win64/Android32/Android64
Now without Warnings.

My mORMot 1.18 r6435 PerfTest passes - Delphi 11.1 Win32/Win64; Delphi 2007

Regards,

Michal

[alexkam75]

lazarus win32/win64 ver. 3.99
fpc 3.3.1
firebird 3.0
http://svn.code.sf.net/p/zeoslib/code-0 ... .0-patches

error in file src\plain\ZPlainFirebird.pas

function IMaster.getStatus(): IStatus;
begin
Result := MasterVTable(vTable).getStatus(Self);
end;

[marsupilami]

Hello,

lazarus win32/win64 ver. 3.99
fpc 3.3.1
firebird 3.0
http://svn.code.sf.net/p/zeoslib/code-0 ... .0-patches

error in file src\plain\ZPlainFirebird.pas

function IMaster.getStatus(): IStatus;
begin
Result := MasterVTable(vTable).getStatus(Self);
end;

I am not sure what the problem is in this case? What error message do you get? How do you trigger the problem?

[alexkam75]

in lazarus 3.99 with fpc 3.2.2. no error, with fpc 3.3.1 access violation error

[alexkam75]