Lazarus and fpc trunk

DonaldShimoda · August 15, 2018, 1:02am

Theres some errors compiling DA for lazraus and fpc trunk.

is required actual version to release for aarch64 (arm 64 bits) iot devices.

uDACore.pas(1252,13) Error: Incompatible types: got “AnsiString” expected “TBytes”

uDACore.pas(1314,37) Error: Incompatible type for arg no. 1: Got “TBytes”, expected “AnsiString”

Best regards.

DonaldShimoda · August 15, 2018, 9:23pm

Solve in that way, please confirm is correct

function TDABaseField.GetAsBlob: TBlobData;
begin
  {$IFDEF Delphi2009UP}
  Result := GetAsBytes;
  {$ELSE}
  {$IFDEF FPC}
  Result := GetAsBytes;
  {$ELSE}
  Result := AnsiBytesToString(GetAsBytes);
  {$ENDIF}
  {$ENDIF}
end;

EvgenyK · August 16, 2018, 4:38am

Hi,

I can’t reproduce any problems with the latest lazarus:

looks like in new FPC they have made breaking changes and changed TBlobData declaration:

DonaldShimoda:

Solve in that way, please confirm is correct

function TDABaseField.GetAsBlob: TBlobData;
begin
  {$IFDEF Delphi2009UP}
  Result := GetAsBytes;
  {$ELSE}
  {$IFDEF FPC}
  Result := GetAsBytes;
  {$ELSE}
  Result := AnsiBytesToString(GetAsBytes);
  {$ENDIF}
  {$ENDIF}
end;

yes, fix is correct.