Örnek kullanım aşağıdaki gibidir.
Kod: Tümünü seç
var
idHttp: TIdHTTP;
idSSLIOHandlerSocketOpenSSL: TIdSSLIOHandlerSocketOpenSSL;
s: TStream;
begin
IdOpenSSLSetLibPath(ExtractFilePath(Application.ExeName));
idSSLIOHandlerSocketOpenSSL := TIdSSLIOHandlerSocketOpenSSL.Create();
with idSSLIOHandlerSocketOpenSSL do
begin
SSLOptions.Method := sslvTLSv1_2;
SSLOptions.SSLVersions := [sslvTLSv1_2];
SSLOptions.Mode := sslmUnassigned;
SSLOptions.VerifyMode := [];
SSLOptions.VerifyDepth := 2;
end;
idHttp := TIdHttp.Create();
with idHttp do
begin
IOHandler := idSSLIOHandlerSocketOpenSSL
end;
s := TMemoryStream.Create;
idHttp.Get('https://www.mkysoft.com', s);
Kod: Tümünü seç
IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdHTTP, IdIOHandler, IdIOHandlerSocket, IdIOHandlerStack, IdSSL, IdSSLOpenSSL, IdSSLOpenSSLHeaders