RU/2: Форум. Общение пользователей и разработчиков OS/2 (eCS). : Ответить на сообщение
Имя:
e-mail:
FIDO:
Home page:
сохранить данные о вас
Тема:
> > Помогите решить проблему! > > Если кто работает с 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 режиме (стандартный класс не обрабатывает несколько одновременных обращений к базе - очень неприятная ошибка). >
_, _, _, _, _ _, _,_
(_ | / \ |\ | / \ |_/
, ) | , \ / | \| \ / | \
~ ~~~ ~ ~ ~ ~ ~ ~
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.