Как использовать OnGetPassword для отправки пароля для установления SSL-соединения в Delphi 7 - PullRequest
Новая
       63

Как использовать OnGetPassword для отправки пароля для установления SSL-соединения в Delphi 7

0 голосов
/ 07 апреля 2020

Я пытаюсь установить sh SSL-соединение от Delphi к веб-сервису. Но чтобы отправить пароль, я обнаружил, что должна использоваться функция OnGetPassword. Но я не мог получить никакой информации о том, как использовать эту функцию. Увидел ниже функцию. Но это просто дает необъявленный идентификатор во время компиляции 

procedure TForm1.IdSSLIOHandlerSocketOpenSSL1GetPassword(var Password: string);
begin
  Password := 'thepassword';
end;

Может кто-нибудь, пожалуйста, пролить свет на то, как я должен использовать эту функцию для отправки пароля. Ниже мой код (только часть SSL) 

        Id_HandlerSocket := TIdSSLIOHandlerSocketOpenSSL.create(nil);
        Id_HandlerSocket.SSLOptions.Mode := sslmClient;
        Id_HandlerSocket.SSLOptions.Method := sslvTLSv1_2;
        Id_HandlerSocket.SSLOptions.RootCertFile := 'CARootcert.pem';
        Id_HandlerSocket.SSLOptions.CertFile := 'clicert.pem';
        Id_HandlerSocket.SSLOptions.KeyFile := 'clikey.pem';
        Id_HandlerSocket.OnGetPassword := GetPassword; // Needs to be corrected

Это то, что я пробовал до сих пор. 

type
  TForm1 = Class(TForm)
     function GetPassword : String;
  end;

function TForm1.GetPassword : String;
begin
  Result := 'Thepassword';
end;

Id_HandlerSocket.OnGetPassword := GetPassword; //Just the part calling the proc

Но при компиляции я получаю ошибку - необъявленный идентификатор - GetPassword.

Как получить доступ к функции GetPassword?

...