Oracle Sequences & Blob changes
Posted: 24.10.2006, 20:13
In the file ZdbcOracle.pas, the CreateSequence method isn't included.
To include it, just add that method to the TZOracleConnection class with this code:
TZOracleConnection = ...
...
public
function CreateSequence(const Sequence: string; BlockSize: Integer):
IZSequence; override;
...
and in the implementation section:
function TZOracleConnection.CreateSequence(const Sequence: string; BlockSize: Integer): IZSequence;
begin
Result := TZOracleSequence.Create(Self, Sequence, BlockSize);
end;
The second file to change is ZDbcOracleResultSet.pas, method procedure TZOracleResultSet.Open. This change correct a bug related to blob fields:
Replace the contents of SQLT_BLOB with:
procedure TZOracleResultSet.Open;
...
SQLT_BLOB:
begin
CurrentVar.ColType := stBinaryStream;
CurrentVar.TypeCode := CurrentVar.DataType;
end;
...
To include it, just add that method to the TZOracleConnection class with this code:
TZOracleConnection = ...
...
public
function CreateSequence(const Sequence: string; BlockSize: Integer):
IZSequence; override;
...
and in the implementation section:
function TZOracleConnection.CreateSequence(const Sequence: string; BlockSize: Integer): IZSequence;
begin
Result := TZOracleSequence.Create(Self, Sequence, BlockSize);
end;
The second file to change is ZDbcOracleResultSet.pas, method procedure TZOracleResultSet.Open. This change correct a bug related to blob fields:
Replace the contents of SQLT_BLOB with:
procedure TZOracleResultSet.Open;
...
SQLT_BLOB:
begin
CurrentVar.ColType := stBinaryStream;
CurrentVar.TypeCode := CurrentVar.DataType;
end;
...