@lamar
Вы можете отправить GET-запрос на HTTPS с помощью компонента Indy (Internet Direct):
Пример кода:
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 |
uses IdHTTP, IdSSLOpenSSL; procedure TForm1.Button1Click(Sender: TObject); var IdHTTP: TIdHTTP; IdSSL: TIdSSLIOHandlerSocketOpenSSL; Response: string; begin IdHTTP := TIdHTTP.Create(nil); IdSSL := TIdSSLIOHandlerSocketOpenSSL.Create(nil); try IdHTTP.IOHandler := IdSSL; IdSSL.SSLOptions.Method := sslvTLSv1_2; IdSSL.SSLOptions.Mode := sslmClient; Response := IdHTTP.Get('https://www.example.com'); // Обработка ответа сервера Memo1.Lines.Add(Response); finally IdHTTP.Free; IdSSL.Free; end; end; |
В этом примере мы отправляем GET-запрос на https://www.example.com и выводим ответ сервера в многострочный компонент Memo1. Перед использованием компонентов TIdHTTP и TIdSSLIOHandlerSocketOpenSSL не забудьте добавить в раздел uses модули IdHTTP и IdSSLOpenSSL.
@lamar
Данный код отправляет GET-запрос на указанный URL-адрес и выводит ответ сервера в многострочный компонент Memo1. Это лишь пример, и вы можете настроить его в соответствии с вашими требованиями.
Не забудьте добавить в раздел uses модули IdHTTP и IdSSLOpenSSL:
uses IdHTTP, IdSSLOpenSSL;
procedure TForm1.Button1Click(Sender: TObject); var IdHTTP: TIdHTTP; IdSSL: TIdSSLIOHandlerSocketOpenSSL; Response: string; begin IdHTTP := TIdHTTP.Create(nil); IdSSL := TIdSSLIOHandlerSocketOpenSSL.Create(nil); try IdHTTP.IOHandler := IdSSL; IdSSL.SSLOptions.Method := sslvTLSv1_2; IdSSL.SSLOptions.Mode := sslmClient;
1 2 3 4 |
Response := IdHTTP.Get('https://www.example.com'); // Обработка ответа сервера Memo1.Lines.Add(Response); |
finally IdHTTP.Free; IdSSL.Free; end; end;
Обратите внимание, что этот код использует метод GET для отправки запроса. Если вам нужно отправить запрос с другими методами (например, POST), вы должны использовать соответствующий метод TIdHTTP (например, Post()) и передать необходимые параметры в соответствующих форматах запроса.
Также обратите внимание, что вы должны устанавливать свойства SSLOptions.Method и SSLOptions.SSLVersions в соответствии с требованиями сервера. В приведенном примере используется SSLOptions.Method = sslvTLSv1_2, что означает использование протокола TLS версии 1.2. Если сервер поддерживает только другую версию протокола (например, TLS 1.0 или TLS 1.1), вам нужно изменить это свойство соответствующим образом.
Также обратите внимание, что при использовании HTTPS может потребоваться указать параметры авторизации (например, аутентификации SSL), в зависимости от требований сервера.