Zeoslib Portal

Hello everybody,

I just found out, that shortInteger parameters are not supported as the others. Therefore could you please add the following line?

unit ZDbcInterbase6Utils;

...

procedure TZParamsSQLDA.UpdateString(const Index: Integer; Value: AnsiString);
var
SQLCode: SmallInt;
Stream: TStream;
begin
CheckRange(Index);
// SetFieldType(Index, Length(Value) + 1, SQL_TEXT + 1, 0);
{$R-}
with FXSQLDA.sqlvar[Index] do
begin
if (sqlind <> nil) and (sqlind^ = -1) then
Exit;
SQLCode := (sqltype and not(1));
case SQLCode of
SQL_TEXT : EncodeString(SQL_TEXT, Index, Value);
SQL_VARYING : EncodeString(SQL_VARYING, Index, Value);
SQL_LONG: PInteger(sqldata)^ := StrToInt(Value);
//Please add this line to current version
SQL_SHORT: PInteger(sqldata)^ := StrToInt(Value);

Thank you very much!!! I really enjoy working with these Compoents! They are great! Please keep up the great work!!!

Klaus

Hi Klaus,

I did add your patch to the code yesterday. SVN rev. 882 (testing branch).

Mark