X11
Silver Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Всем, кто использует Fib+ новой версии (7.0.15). Там есть небольшой баг у компоненты TpFIBDatabase с установкой пути к библиотеке доступа. Баг заключается в том, что даже если Connected равно False, и прописать неправильный путь к библиотеке доступа, то выскакивает исключение. А это значит, что при запуске программы будет исключение тоже, если в дизайне прописан был путь к несуществующей библиотеке.
Решение вот такое, нужно закомментировать 2 строки в исходниках.
Код:
procedure TFIBDatabase.SetLibraryName(const LibName:string);
begin
{$IFNDEF FIBPLUS_TRIAL}
CheckInactive;
if FLibraryName<>LibName then
begin
FLibraryName :=LibName;
FClientLibrary:=nil;
FClientLibLoaded := False;
//вот эти 2 строки
{ if Length(FLibraryName)>0 then
LoadLibrary}
end;
{$ELSE}
ShowMessage('Trial version can''t change library name');
{$ENDIF}
end;
|
----------
/не мы такие, жизнь такая/ |
|
с тремя десятками таблиц 
