TOPIC:

Compiling error of the Ado units 9 years 11 months ago #6162

Bernd Klingesberger
Topic Author
Offline
Junior Member
Posts: 25
Thank you received: 0

I have tried to build up an Ado connection but the compiler raises some errors though I have made some changes for an error free compilation procedure.

ZDbcAdoResultSet
line 91

function GetRawByteString(ColumnIndex: Integer): {$IFNDEF FPC}RawByteString{$ELSE}AnsiString{$ENDIF}; override;

line 439

function TZAdoResultSet.GetRawByteString(ColumnIndex: Integer): {$IFNDEF FPC} RawByteString{$ELSE}AnsiString{$ENDIF};
begin
  Result := '';
  LastWasNull := IsNull(ColumnIndex);
  if LastWasNull then
     Exit;
  {$IFNDEF FPC}
  Result := RawByteString(FAdoRecordSet.Fields.Item[ColumnIndex{$IFNDEF GENERIC_INDEX}-1{$ENDIF}].Value);
  {$ELSE}
  Result := AnsiString(FAdoRecordSet.Fields.Item[ColumnIndex{$IFNDEF GENERIC_INDEX}-1{$ENDIF}].Value);
  {$ENDIF}
end;

ZDbcAdoStatement

in line 91

//{$IFNDEF FPC}
  Variants,
//{$ENDIF}

ZDbcAdoMetaData
in line 262

//{$IFNDEF FPC}
  Variants,
//{$ENDIF}

in line 2527

Inc({$IFDEF DELPHI16_UP}NativeInt{$ELSE}PtrInt{$ENDIF}(PG), SizeOf(TGuid));  //M.A. Inc(Integer(PG), SizeOf(TGuid));

I don't have tested these changes yet. Please verify them.

PS: I'm working on CT 5.0 on Win8.1 x64.

Please Log in or Create an account to join the conversation.

Compiling error of the Ado units 9 years 11 months ago #6167

Michael Hiergeist Offline Junior Member Posts: 24 Thank you received: 7	I already asked for possible sharing this unit for owned Zeos-Test. It would be nice if we could use a refernec link with our SVN-repo to include FPC tests+OleDB (as long FPC it's selves doesn't have such a unit) Sternas, Sir, what do you think?
	Please Log in or Create an account to join the conversation.

Compiling error of the Ado units 9 years 11 months ago #6168

Sternas Stefanos Offline Moderator Ex Pilot, M.Sc, Ph.D Posts: 4523 Thank you received: 1108	Yes Sir and with all our wishes, for any help we are always here. ZeosDevTeam has our FULL support PilotLogic Architect and Core Programmer
	Please Log in or Create an account to join the conversation. Last edit: by Sternas Stefanos.

Forum

CodeTyphon Studio

CodeTyphon Studio Components and Libraries

Database Development

Compiling error of the Ado units