Показать сообщение отдельно
  #1  
Старый 07.03.2015, 21:16
Аватар для Uniq!
Uniq! Uniq! вне форума
Местный
 
Регистрация: 29.09.2010
Сообщения: 539
Версия Delphi: Delphi XE3
Репутация: 374
По умолчанию Обработка OnEvent в RunTime

Нужна помощь в работе с Event'ами. Создаю экземпляр класса SSHClient'а. (Компоненты SecureBridge)
У него есть событие OnServerKeyValidate, когда сервер передаёт ключ авторизации. Мне нужно его принять.
Для этого надо в этом событии параметру Accept присвоить значение True. Как это сделать?
Код:
SSHClient := TscSSHClient.Create(nil);
	try
        SSHClient.HostName := Settings.ReadString('HostName');
           SSHClient.Port := Settings.ReadInteger('Port');
           SSHClient.User := Settings.ReadString('User');
           SSHClient.Password := Settings.ReadString('Password');
           SSHClient.KeyStorage := KeyStorage;
           SSHClient.OnServerKeyValidate .. // принимает Sender : TObject; NewKey: TscKey; Accept : boolean
          end;
        finally
          SSHClient.Free;
        end;
Ответить с цитированием