[Uniq!]

Нужна помощь в работе с Event'ами. Создаю экземпляр класса SSHClient'а. (Компоненты SecureBridge)
У него есть событие OnServerKeyValidate, когда сервер передаёт ключ авторизации. Мне нужно его принять.
Для этого надо в этом событии параметру Accept присвоить значение True. Как это сделать?

Код:

1 2 3 4 5 6 7 8 9 10 11 12

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;

[@Rafa3L]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14

... type   TForm1 = class(TForm)     procedure MyServerKeyValidate(...); ...   procedure TForm1.MyServerKeyValidate(...); begin Accept:= true; end; ... ... SSHClient.OnServerKeyValidate:= MyServerKeyValidate; ...

4250

[Uniq!]

Сообщение от @Rafa3L

Код:

4250

Консольное приложение не имеет экземпляра TForm. Получается мне обязательно нужно создать какой-то класс? Без него никак не обойтись?

и что такое 4250?)

[Bargest]

Скорее не какой-то, а класс-наследник TscSSHClient.

[Uniq!]

Не понимаю.
Эта процедура есть в самом классе. Просто мне некуда вытащить невизуальные компоненты, и дважды кликнуть в Event'ах на нужном.
В конечном Итоге я делаю нечто вроде такого?

Код:

1 2 3 4 5 6 7 8 9 10 11

type   TMyscSSHClient= class(TscSSHClient) ... public    procedure MyServerKeyValidate(Sender: TObject; NewKey: TscKey; Accept : boolean); end;   procedure TMyscSSHClient.MyServerKeyValidate(Sender: TObject; NewKey: TscKey; Accept : boolean); begin    Accept := true; end;

[Bargest]

Эта процедура есть в самом классе. Просто мне некуда вытащить невизуальные компоненты, и дважды кликнуть в Event'ах на нужном.

Так когда ты "дважды кликаешь в Event'ах на нужном", делфа в наследнике TForm, прописанном в Unit'е, создает новый метод, т.е. делает то же самое, только автоматически.
Я только не понимаю, как в списке параметров

Код:

1	(Sender: TObject; NewKey: TscKey; Accept : boolean)

изменение параметра Accept может повлиять на работу SSH - ведь параметр-то значение, а не ссылка, а значит его изменение не даст в вызвавшей процедуре никакого эффекта.

[Uniq!]

Код:

1	(Sender: TObject; NewKey: TscKey; var Accept : boolean)

Не досмотрел. Там var