When a movie is over, it's a black
Вот это все работало по http, но мне надо перейти на https. Итак,
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
var
APIURL: string = 'https://localhost:8080/';
//…
constructor TServerRequest.Create(const AServerURL: string);
var
Http: TIdCustomHTTP;
SSLIOHandler: TIdSSLIOHandlerSocketOpenSSL;
begin
FServerURL := AServerURL;
//...
FRESTClient := TRESTClient.Create(nil);
FRESTRequest := TRESTRequest.Create(nil);
FRESTRequest.Client := FRESTClient;
//... добавлено нижеследующее
IdOpenSSLSetLibPath('E:\SSL\'); // path exists
Http := (FRESTRequest.Client.HTTPClient.Peer.GetObject) as TIdCustomHTTP;
SSLIOHandler := TIdSSLIOHandlerSocketOpenSSL.Create(Http);
with SSLIOHandler do
begin
SSLOptions.Method := sslvSSLv3;
SSLOptions.SSLVersions := [sslvSSLv3];
end;
Http.IOHandler := SSLIOHandler;
//...
end;
///….. в методе TServerRequest вызываю
FRESTClient.BaseURL := FServerURL + 'auth/openid-connect/token';
FRESTRequest.AddAuthParameter('Authorization', 'Bearer ' + TResourceBearer(Resource).Token, pkHTTPHEADER, [poDoNotEncode]);
///…..
FRESTRequest.Method := rmPOST;
FRESTRequest.Execute;
при вызове FRESTRequest.Execute получаю исключение:
---------------------------
Debugger Exception Notification
---------------------------
Project Project1.exe raised exception class EIdOSSLUnderlyingCryptoError with message 'Error connecting with SSL.
error:1408F10B:SSL routines:SSL3_GET_RECORD:wrong version number'.
---------------------------
Break Continue Help
---------------------------
Что я делаю не так?
