[SOLVED] Zeos 7.2 is not compile with FPC 2.6.4
lazarus / 16-Databases

----------------------------------------------------------------------
patyi · 2014-09-30 11:13

Hi all !

Sorry I can't write for some reason to Zeos team, I hope someone is
reading Lazarus forum ...

I can't compile Zeos 7.2 with FPC 2.6.4 and 2.6.5, while FPC 7.1 is
fine !

----------------------------------------------------------------------
EgonHugeist · 2014-09-30 11:18

Works nice on my side... So what's wrong?

Why can't you write (for some reasons?) in Zeos-Forum?

----------------------------------------------------------------------
Mike.Cornflake · 2014-09-30 12:52

Quote from: EgonHugeist on September 30, 2014, 01:18:40 pmWorks nice
on my side... So what's wrong?

Same here - Oracle and MySQL connections working under windows 7 for
both Lazarus 1.2.4/fpc 2.6.4 & Lazarus trunk/fpc trunk.

----------------------------------------------------------------------
BigChimp · 2014-09-30 13:02

Why not go crazy and copy/paste the actual compile error messages from
the messages window (right click, copy all shown or something)...

----------------------------------------------------------------------
patyi · 2014-10-01 06:28

Sorry, i was in hurry, tired and a little frustrated ...

So, my system is XUbuntu 14.04 LTS 32bit, Fpc 2.6.5 svn, Lazarus 1.3
svn
This error is not present on Fpc 2.7.1 !

Compiling with Fpc 2.6.5 is produce an error in fallowing code :

in Unit ZEncoding
Code: [Select]
function PUnicodeToRaw(Source: PWideChar; CodePoints: NativeUInt; CP:
Word): RawByteString;
{$IFDEF WITH_LCONVENCODING}
var
  US: ZWideString;
begin
  SetString(US, Value.P, Value.Len);  <--- Here is the error
"Identifier not found Value"
  Result := ZUnicodeToRaw(US, CP);
end;
{$ELSE}
{$IF defined(MSWINDOWS) or defined(WITH_UNICODEFROMLOCALECHARS)}
var
  ulen: Integer;
{$IFEND}
begin
  Result := ''; //speed up setlength *2
 ...
if modify call of function from  SetString(US, Value.P, Value.Len);
to  SetString(US, Source, CodePoints); then it compiles, but I don't
know is it correct.

----------------------------------------------------------------------
BigChimp · 2014-10-01 06:37

Thanks but please post code between [ code ] [ /code ]tags (remove the
extra spaces); as you can see the forum software misinterprets your
code as smileys...

----------------------------------------------------------------------
EgonHugeist · 2014-10-01 08:55

Quote from: patyif modify call of function from  SetString(US,
Value.P, Value.Len); to  SetString(US, Source, CodePoints); then it
compiles, but I don't know is it correct.

Of course it is! -> Patch done R3355 \testing-7.2 (svn)

Thanks!

I still do not understand why you do not post on zeos-forum...

----------------------------------------------------------------------
patyi · 2014-10-02 10:20

Hi !

Thanks EgonHugeist ! I found one more little problem, below is the cod
segment and the solution:

unit ZDbcCache
Code: [Select]
function CompareNativeRaw(const V1, V2): Integer;
begin
  {$IFDEF MSWINDOWS}
  Result := CompareStringA(LOCALE_USER_DEFAULT, 0,
    PAnsiChar(Pointer(V1)^)+PAnsiInc, PLongWord(Pointer(V1)^)^,
    PAnsiChar(Pointer(V2)^)+PAnsiInc, PLongWord(Pointer(V2)^)^) -
2{CSTR_EQUAL}
  {$ELSE}
    if Assigned(PPAnsichar(Pointer(V1)^) and
Assigned(PPAnsiChar(Pointer(V2)^) then  <--- ZDbcCache.pas(441,80)
Fatal: Syntax error, ")" expected but "THEN" found
      Result := {$IFDEF
WITH_ANSISTRCOMP_DEPRECATED}AnsiStrings.{$ENDIF}
        AnsiStrComp(PPAnsiChar(V1)^+PAnsiInc,
PPAnsiChar(V2)^+PAnsiInc)
    else //we've found out on other (FPC)OS's a nil compare crahs!
      if not Assigned(PPAnsichar(Pointer(V1)^) and not
Assigned(PPAnsiChar(Pointer(V1)^) then <--- ZDbcCache.pas(445,92)
Fatal: Syntax error, ")" expected but "THEN" found
        Result := 0
      else
        Result := -1
  {$ENDIF}
end;
the solution is to add ")" to the end of Assigned functions.

Regards, Patyi.

PS. I lost (forget) my Zeos forum password, and can't get it because
my email is changed from patyi@_.yu to patyi@_.rs. I will open a new
Zeos account ...

----------------------------------------------------------------------
patyi · 2014-10-02 11:39

Now I'm again on Zeos forum ...