Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Сети > связка сервер и клиент на ICS авторизация

Автор: s2004 6.1.2008, 16:47

Здравствуйте!
Вот по работе удалёна связка сервер клиент всё работает одно что то неполучается вести авторизацию с паролем пароль по умолчанию например 1 кусок кода
[code=delphi]

var
  Form1: TForm1;
  passwords,command,data,data1,data2:string;
  PassCorrect:boolean;

procedure TForm1.FormCreate(Sender: TObject);
begin

PassCorrect:=false;

procedure TForm1.ServerSocket1ClientDisconnect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
PassCorrect:=False;
end;
//Check password-------------------------------------------------------
Procedure CheckPassword(password:string);
begin
if Not PassCorrect then
     begin
       if password<>'1' then
        begin
         Form1.ServerSocket1ClientDisconnect(0); здесь пишет не может integer и obect... пример авторизации был такой
"Form1.Server.Socket.tDisconnect(0);" -----------в примере всё работало
         PassCorrect:=False;
         Exit;
        end;

       PassCorrect:=true;
     end;
end;

подскажите прмиер с реализацией авторизации с паролем для сервера компонент от ICS