Admin: 1 revision imported

2021-02-07T06:51:23Z

1 revision imported

Admin at 07:27, 24 April 2020

2020-04-24T07:27:05Z

New page

{{infobox function
|name=HTTPSendAndReceive
|object=[[Объект IP]]
|caption=Работа с HTTP
|type=1
|status=2
|db=0
|exception=Невозможно превратить в число, разрыв соединения, системная ошибка
|visual=0}}
{{HeadLinks|
* [[Main_Page|Начальная страница]]
* [[Общее_описание_языка|Общее описание]]
* [[Объекты]]
* [[Объект IP]]}}
Функция выполняет отправку подготовленного пакета (запроса или ответа на запрос), после чего при необходимости, может загрузить ответ удаленной стороны. Если ответ удаленной стороны не должен присутствовать (данный пакет был ответом), либо ответ не содержит поля <code>Content-Length</code> (к примеру, видео), необходимо вызвать функцию со значением аргумента, равным 0, либо использовать одну из функций [[IPConnection.HTTPReceive|HTTPReceive]].

== Синтаксис ==
<code>
{{Grey|IPConnection.}}'''HTTPSendAndReceive'''({{Optional|<После отправки запроса, ждать и получить ответ (INT)>{{Default|{{Eq}}1}}}}):''<Удачное выполнение (INT)>''
</code>

==== Аргументы ====
* <code>''<После отправки запроса, ждать и получить ответ (INT)>''</code> - {{Optional}} Аргумент задает режим получения ответного пакета после отправки. Если аргумент равен нулю, функция выполняет такие же действия, как и функция [[IPConnection.HTTPSend|HTTPSend]], отсылая подготовленный заголовок и тело HTTP пакета. В ином случае, выполняются последовательно две функции [[IPConnection.HTTPSend|HTTPSend]], затем [[IPConnection.HTTPReceive|HTTPReceive]].

==== Возвращаемое значение ====
Возвращает 1, если операция выполнена успешно, иначе возвращает 0.

== Примеры ==
<pre>
//Пример показывает, как можно осуществить загрузку веб-страницы по ее адресу.
//Для загрузки по протоколу https требуется указание пути к библиотекам OpenSSL или LibreSSL.

Function LoadPage(URL)
bHTTPs:=pos("https://",Lowercase(URL));
If pos("//",URL)>0 Then
tearStr(URL,"//");
EndIf;
СтрДоб:=URL;
URL:=tearStr(СтрДоб,"/");
//URL может содержать название параграфа
СтрДоб:=TearStr(СтрДоб,"#");
For i:=1 to 3 Do
if bHTTPs Then
tcp:=IPConnection.Connect(URL+?(Pos(":",URL)+Pos("=",URL)=0,"=443"),1);
Else
tcp:=IPConnection.Connect(URL+?(Pos(":",URL)+Pos("=",URL)=0,"=80"));
EndIf;
if tcp.IsConnected Then
Break;
EndIf;
EndDo;
if not tcp.IsConnected Then
Message("Could not connect: "+URL,"!");
Exit;
EndIf;
СтрДоб:="/"+СтрДоб;
if bHTTPs then
//tcp.InitEncryption("LibreSSL","C:\LibreSSL255\libtls-15.dll");
tcp.InitEncryption("OpenSSL","C:\OpenSSL111e\libssl-1_1.dll");
endif;
tcp.HTTPSetOperation("GET "+СтрДоб+" HTTP/1.0");
tcp.HTTPSetHeaderField("Host",tcp.HTTPPunycodeEncode(URL));
tcp.HTTPSetHeaderField("User-Agent","Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)");
tcp.HTTPSetHeaderField("Accept","text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8");
tcp.HTTPSetHeaderField("Accept-Language","en");
tcp.HTTPSetHeaderField("Connection","Close");
Стр:="";
Try
If tcp.HTTPSendAndReceive Then
Стр:=tcp.HTTPBodyAsString;
If _And(Pos(_NEWLINE,Стр)=0,Pos(Chr(10),Стр)>0) Then
Стр:=Replace(Стр,Chr(10),_NEWLINE);
EndIf;
EndIf;
Except
Message("Could not load: "+URL,"!");
EndTry;
Exit Стр;
EndFunction

s:=LoadPage("https://en.wikipedia.org/wiki/Main_Page");
Message(s);
</pre>

← Older revision	Revision as of 06:51, 7 February 2021
(No difference)

IPConnection.HTTPSendAndReceive - Revision history

Admin: 1 revision imported

Admin at 07:27, 24 April 2020