Re: Версия FB-клиента

Fri, 07 Sep 2007 05:11:40 -0700 


"Ded" <[EMAIL PROTECTED]> сообщил/сообщила в
новостях следующее: news:[EMAIL PROTECTED]
>
> Dmitry Voroshin wrote:
> > Так это-ж не при установке FB происходит, а при РЕГИСТРАЦИИ компонентов
IBX.
>
>     Не только. В моём экземпляре, возрастом сходном с окаменевшим
> дерьмом мамонта, например, сходу беглым взглядом
>
> procedure TIBTransaction.SetDefaultAction(Value: TTransactionAction);
> begin
>    if (Value = taRollbackRetaining) and (GetIBClientVersion < 6) then
>      IBError(ibxeIB60feature, [nil]);
>    FDefaultAction := Value;
> end;
>

А если глянуть глубже, то вот такой вот забавный код...

 Fisc_rollback_retaining := TryGetProcAddr('isc_rollback_retaining'); {do
not localize}
    if Assigned(Fisc_rollback_retaining) then
    begin
      IBClientVersion := 6;

Так что не думаю, что всё так страшно...

Ответить