Dear Jason,

I see you are no longer on skype.

The problem arises due to an omitted; in the above procedure:
IB_Components...
procedure TIB_Column.SetAsVariant( const NewValue: Variant ); ...

Lines: 42610 - 42622 reads as follows:

SQL_BLOB,
SQL_BLOB_: if AsString <> NewValue then
begin
WasChanged := true;
AsString := NewValue;
end
// SQL_ARRAY,
// SQL_ARRAY_: {should be overridden} ;
else
raise EIB_Error.CreateWithSender( Statement,
Format( E_UNSUPPORTED_COLUMN,
[ SQLType ]));
end;

And should read:

SQL_BLOB,
SQL_BLOB_: if AsString <> NewValue then
begin
WasChanged := true;
AsString := NewValue;
end;//*****************************************;Added here to branch out correctly ******************************
// SQL_ARRAY,
// SQL_ARRAY_: {should be overridden} ;
else
raise EIB_Error.CreateWithSender( Statement,
Format( E_UNSUPPORTED_COLUMN,
[ SQLType ]));
end;

Regards

Adrian Wreyford




[Non-text portions of this message have been removed]