Приложение Delphi-Android: не удалось загрузить библиотеку SSL (НОВОЕ СООБЩЕНИЕ) ⇐ Android

[Anonymous]

Я прочитал много сообщений об этой проблеме и безуспешно пробовал множество комбинаций/советов по этому поводу. Вот мой тестовый апплет:

Код: Выделить всё

unit uTestSSL;

interface

uses
System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants, System.IOUtils,
FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.Controls.Presentation, FMX.StdCtrls;

type
TForm13 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form13: TForm13;

implementation

{$R *.fmx}

uses
IdSSLOpenSSLHeaders,
IdSSLOpenSSL,
IdHTTP;

procedure TForm13.Button1Click(Sender: TObject);
var
IdSSLIOHandlerSocketOpenSSL : TIdSSLIOHandlerSocketOpenSSL;
F : TStringStream;
s : TStringStream;
res : string;
begin
with TidHTTP.Create(nil) do begin
IdOpenSSLSetLibPath(TPath.GetLibraryPath); // when I deploy to library\lib\arm64\
//IdOpenSSLSetLibPath('library/lib/armeabi-v7a/');
//IdOpenSSLSetLibPath('./assets/internal'); // when I deploy to ./assets/internal
IdSSLIOHandlerSocketOpenSSL := TIdSSLIOHandlerSocketOpenSSL.Create(nil);
IdSSLIOHandlerSocketOpenSSL.SSLOptions.SSLVersions := [sslvTLSv1_2];
IOHandler := IdSSLIOHandlerSocketOpenSSL;
Request.UserAgent := 'Mozilla/5.0 (Windows NT 6.1; WOW64; rv:12.0) Gecko/20100101 Firefox/12.0';
Request.Pragma := 'no-cache';
s := TStringStream.Create('some XML text');
s.Position := 0;
F := TStringStream.Create;
showmessage('****'+OpenSSLVersion+'****');  //reports nothing
try
post('https://www1.gsis.gr/wsaade/RgWsPublic2/RgWsPublic2?WSDL',s,F);
except
showmessage('==='+WhichFailedToLoad+'==='); //reports Faild to load /library/lib/armeabi-v7a (or arm64)
showmessage('****'+OpenSSLVersion+'****');  //reports nothing
end;
end;
end;

end.

и моя схема развертывания:


Может кто-нибудь заставить этот пример (или исправленную версию) работать, пожалуйста?
PS. Моя версия Delphi — 11.3, а Android — 12

Подробнее здесь: https://stackoverflow.com/questions/790 ... y-new-post