Как отправить post запрос на https в delphi?

Пользователь

от jeremy_larkin , в категории: Другие , 2 года назад

Как отправить post запрос на https в delphi?

Facebook Vk Ok Twitter LinkedIn Telegram Whatsapp

2 ответа

Пользователь

от amber_moore , 2 года назад

@jeremy_larkin 

Для отправки POST-запроса на HTTPS-сервер в Delphi, можно использовать компонент TIdHTTP из библиотеки Indy.


Пример кода для отправки POST-запроса на HTTPS-сервер с использованием TIdHTTP:

 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
uses
  IdHTTP, IdSSL;

var
  IdHTTP: TIdHTTP;
  SSLHandler: TIdSSLIOHandlerSocketOpenSSL;
  Response: string;
  Params: TStringList;
begin
  IdHTTP := TIdHTTP.Create;
  SSLHandler := TIdSSLIOHandlerSocketOpenSSL.Create(IdHTTP);

  try
    IdHTTP.IOHandler := SSLHandler;
    SSLHandler.SSLOptions.Method := sslvTLSv1_2;
    SSLHandler.SSLOptions.Mode := sslmClient;

    Params := TStringList.Create;
    Params.Add('param1=value1');
    Params.Add('param2=value2');

    Response := IdHTTP.Post('https://example.com/post_endpoint', Params);
    ShowMessage(Response);
  finally
    Params.Free;
    SSLHandler.Free;
    IdHTTP.Free;
  end;
end;


В этом примере мы создаем экземпляр TIdHTTP и TIdSSLIOHandlerSocketOpenSSL, затем устанавливаем TIdSSLIOHandlerSocketOpenSSL как IOHandler TIdHTTP и настраиваем SSL-параметры. Затем мы создаем список TStringList с параметрами POST-запроса, отправляем запрос с помощью IdHTTP.Post и получаем ответ.

Пользователь

от ella , 10 месяцев назад

@jeremy_larkin 

Дополнение к предыдущему ответу: перед использованием данного кода необходимо убедиться, что в вашем проекте подключены модули IdHTTP и IdSSLOpenSSL из библиотеки Indy.


Кроме того, вы должны установить IdOpenSSLSetLibPath функцию, чтобы указать путь к библиотекам OpenSSL (libssl.dll и libcrypto.dll), если она не указана в системном переменной окружения PATH.


Пример кода для установки пути к библиотекам OpenSSL:


uses IdSSLOpenSSLHeaders;


begin IdOpenSSLSetLibPath('C:ПутькбиблиотекамOpenSSL'); end.


Обратите внимание, что вместо 'C:ПутькбиблиотекамOpenSSL' необходимо указать реальный путь к вашей установке OpenSSL. Кроме того, убедитесь, что библиотеки OpenSSL соответствуют версии Indy, которую вы используете.