Аргументы имеют неверный тип, выходят за пределы допустимого... [D7]
Страницы:
<
1
2
>
McLotos © (2013-01-14 15:33:00)
Доброго времени суток, и снова я ловлю СТОП получая ошибку
Аргументы имеют неверный тип, выходят за пределы допустимого
диапазона или вступают в конфликт друг с другом.
Как я получаю ошибку:
В общем есть клиент. который чтобы подключиться к серверу
должен послать логин и пароль а в ответ получить некое число,
которое указывает ему что делать дальше
var
Account : TStringList;
begin
Account := TStringList.Create;
Account.CommaText := Socket.ReceiveText; //получаем
строку от клиента
if (Account.Values['Login']<>'') and
(Account.Values['Password']<>'') // вытягиваем оттуда нужные
данные
then
begin
log.Lines.Add (Account.Values['Login'] +
' + ' + Account.Values['Password']); //показываем админу сервера
try
with ADOQuery do
begin
ADOQuery.SQL.Clear;
{вытягиваем из БД значение поля access таблицы access}
ADOQuery.SQL.Add('SELECT level FROM access WHERE
(login=:qlogin) and (passw=:qpassw)');
ADOQuery.Parameters.ParamByName('qlogin').value :=
Account.Values['Login'];
ADOQuery.Parameters.ParamByName('qpassw').value :=
Account.Values['Password'];
ADOQuery.Active:=true;
{где-то до этой строки программа начинает материться}
ShowMessage(IntToStr(RecordCount)); //а затем радостно нам
сообщает что в базе есть 1 такой пользователь
end;
except
on e:Exception do
end;
end;
end;
sniknik (2013-01-14 15:46:00) [21]
> {где-то до этой строки программа начинает материться}
пошли ее в ответ да и всех делов то.
Страницы:
<
1
2
>
Наверх 
ЧАТ |
Орешник |
|
