M
пробовал
Size: a a a
2020 December 14
M
есть версия которую не держит
RS
В нативной либе я например так делаю:
procedure TFCLHTTPClient.HttpClientGetSocketHandler(Sender: TObject;
const UseSSL: Boolean; out AHandler: TSocketHandler);
begin
{$IFDEF LINUX}
if UseSSL then begin
AHandler:=TSSLSocketHandler.Create;
TSSLSocketHandler(AHandler).SSLType:=stTLSv1_2; // <--
end;
{$ENDIF}
end;RS
В нативной либе я например так делаю:
procedure TFCLHTTPClient.HttpClientGetSocketHandler(Sender: TObject;
const UseSSL: Boolean; out AHandler: TSocketHandler);
begin
{$IFDEF LINUX}
if UseSSL then begin
AHandler:=TSSLSocketHandler.Create;
TSSLSocketHandler(AHandler).SSLType:=stTLSv1_2; // <--
end;
{$ENDIF}
end;В fcl-net то есть это мне помогает точно, если SSL старый сервером не поддерживается. Обычно уже так везде, да
M
sslvSSLv23;
DB
он на старый openssl заточен.. патчить надо, я делаю, ноотказываюсь на будущее
это не так. он работает с несколькими крипто-либами. в том числе и с OpenSSL, в отличие от инди, к слову. который только OpenSSL
k
Добрый день. Кто-нибудь знает какай файл(лы) в исходниках компилятора Free Pascal отвечает(ют) за псевдонрафическую FP IDE (Которая в терминале Linux вызывается)?
DB
он на старый openssl заточен.. патчить надо, я делаю, ноотказываюсь на будущее
из коробки поддерживаются CryptLib, LibSSH2, OpenSSL,SecureBlackBox, StreamSecII. если мало, можно дописать свою прослойку
DB
по вопросу. мы парсим вывод ip
RS
Ну и я всегда рекомендую использовать нативные либы, если его функционала хватает. Таким образом сразу охватывается максимальное число платформ, интеграция с максимальным количеством сторонних либ. Хотя синапс тоже хорош, практически стандарт стал де факто
AS
это не так. он работает с несколькими крипто-либами. в том числе и с OpenSSL, в отличие от инди, к слову. который только OpenSSL
с новым openssl (1.1) не работает.. ставить 1.0 и патчить
sed -i "s/'libssl.so'/'libssl.so.10'/g;s/'libcrypto.so'/'libcrypto.so.10'/g" synapse/ssl_openssl_lib.pas
DB
список сетевых интерфейсов. встроенными средствами:
function EnumInterfaces(Lines: TStrings; IPOnly: boolean = False): boolean;
var
AProcess: TProcess;
s: string;
sl: TStringList;
i, n: integer;
begin
Result := False;
AProcess:=TProcess.Create(nil);
s := FindDefaultExecutablePath('ip');
AProcess.CommandLine := s + ' a';
AProcess.Options := AProcess.Options + [poUsePipes, poWaitOnExit];
try
AProcess.Execute;
Result := AProcess.ExitStatus = 0;
if Result then
Lines.LoadFromStream(AProcess.Output);
finally
AProcess.Free();
end;
end;AS
список сетевых интерфейсов. встроенными средствами:
function EnumInterfaces(Lines: TStrings; IPOnly: boolean = False): boolean;
var
AProcess: TProcess;
s: string;
sl: TStringList;
i, n: integer;
begin
Result := False;
AProcess:=TProcess.Create(nil);
s := FindDefaultExecutablePath('ip');
AProcess.CommandLine := s + ' a';
AProcess.Options := AProcess.Options + [poUsePipes, poWaitOnExit];
try
AProcess.Execute;
Result := AProcess.ExitStatus = 0;
if Result then
Lines.LoadFromStream(AProcess.Output);
finally
AProcess.Free();
end;
end;я вот не уверен, что в разных дистрибутивах вывод не отличается..
M
есть синапс последний? который sslvSSLv23; держит?
DB
я вот не уверен, что в разных дистрибутивах вывод не отличается..
может. спорить не буду
AS
может. спорить не буду
вот и не хочу в такие ситуации попадать)) + от локали вывод может отличается.. от версии ip..
DB
есть синапс последний? который sslvSSLv23; держит?
AS
хочу просто getHostname, getIP чтобы дергали systemd и мне давали)) но не парсингом внешних команд.. это рано или поздно приведет в тупик
AS
с новым openssl (1.1) не работает.. ставить 1.0 и патчить
sed -i "s/'libssl.so'/'libssl.so.10'/g;s/'libcrypto.so'/'libcrypto.so.10'/g" synapse/ssl_openssl_lib.pas
не лучше ли симлинки делать?
DB
вот и не хочу в такие ситуации попадать)) + от локали вывод может отличается.. от версии ip..
желание разумное ) спорить опять же не буду