RU/2: Форум. Общение пользователей и разработчиков OS/2 (eCS). : Всем спасибо, все свободны!


Список сообщений | Написать новое | Ответить на сообщение | Домой Поиск:
Предыдущее сообщение | Следующее сообщение
From : Igor Vaskov
To : Igor Vaskov
Subj : Всем спасибо, все свободны!
> Помогите решить проблему!
> Если кто работает с Pascal и MySQL помогите!
> Я использую клиента от ANTONY T CURTIS.
>
> При попытке обращения к базе через логин и пароль (без пароля - все нормально) возникает ошибка переполнения в функции rnd. При отключении переполнения - все нормально, но авторизация не проходит.
> Если кто решил проблему - помогите.
>
> function rnd(var rand:rand_struct):double;
> begin
> {$Q-} // без отключения проверки переполнения - exception.
> rand.seed := (rand.seed*3 + rand.seed2) mod rand.max_value;
> rand.seed2:= (rand.seed + rand.seed2+33) mod rand.max_value;
> {$Q+}
> Result := rand.seed/rand.max_value_dbl;
> end;
>
>
Если кого-то заинтересует решение проблемы - пишите - выложу, и заодно отдам класс для работы с объектом в MultiThreads режиме (стандартный класс не обрабатывает несколько одновременных обращений к базе - очень неприятная ошибка).


Mon 19 Jul 2004 01:29 Mozilla/5.0 (OS/2; U; Warp 4.5; en-US; rv:1.7) Gecko/2004061



Programmed by Dmitri Maximovich, Dmitry I. Platonoff, Eugen Kuleshov.
25.09.99 (c) 1999, RU/2. All rights reserved.
Rewritten by Dmitry Ban. All rights ignored.