RU/2: Форум. Общение пользователей и разработчиков OS/2 (eCS). : Проблема в авторизации MySQL (PASCAL)


Список сообщений | Написать новое | Ответить на сообщение | Домой Поиск:
Предыдущее сообщение | Следующее сообщение
From : Igor Vaskov
To : All
Subj : Проблема в авторизации MySQL (PASCAL)
Помогите решить проблему!
Если кто работает с 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;



Sat 17 Jul 2004 13:44 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.