Скрипты Simple-Scada

Синтаксис

procedure SetSSL(const AVersion: TM_SSLType = stSSLv23);

Описание

Включает работу с SSL. Параметр AVersion может принимать следующие значения:

•stSSLv23 - рекомендуется. Автоматический режим, использует TLS 1.3, если он не поддерживается сервером, то переходит на TLS 1.2;

•stSSLv3 - подключаться только с использованием SSL 3.0 (признан устаревшим в 2015 году);

•stTLSv1 - подключаться только с использованием TLS 1.0 (признан устаревшим в 2020 году);

•stTLSv1_1 - подключаться только с использованием TLS 1.1 (признан устаревшим в 2020 году);

•stTLSv1_2 - подключаться только с использованием TLS 1.2;

•stTLSv1_3 - подключаться только с использованием TLS 1.3. Не поддерживается при использовании прокси-сервера (см. методы SetProxy и SetProxyAuth);

Пример использования

var
  aHTTP: TM_HTTP;
  aQuery: string;
begin
    // пример запроса к API Яндекс.Погода
    // формируем текст HTTP запроса
    aQuery := 'https://api.weather.yandex.ru/v1/forecast?lat=55.75396&lon=37.620393&extra=true';
 
    aHTTP := RequestHTTP;     // создаем экземпляр запроса
    aHTTP.SetSSL;             // включаем SSL
    aHTTP.SetHeader('X-Yandex-API-Key', 'здесь должен быть ваш API ключ доступа');  // добавляем заголовок с ключом API
    aHTTP.Get(aQuery, 77);    // вызываем GET с запросом aQuery и отмечаем его тегом = 77
end.