http://sfsys.ru/index.php?action=history&feed=atom&title=IPConnection.IsConnected
IPConnection.IsConnected - Revision history
2026-04-04T10:19:11Z
Revision history for this page on the wiki
MediaWiki 1.31.1
http://sfsys.ru/index.php?title=IPConnection.IsConnected&diff=1270&oldid=prev
Admin: 1 revision imported
2021-02-07T06:51:25Z
<p>1 revision imported</p>
<table class="diff diff-contentalign-left" data-mw="interface">
<tr class="diff-title" lang="en">
<td colspan="1" style="background-color: #fff; color: #222; text-align: center;">← Older revision</td>
<td colspan="1" style="background-color: #fff; color: #222; text-align: center;">Revision as of 06:51, 7 February 2021</td>
</tr><tr><td colspan="2" class="diff-notice" lang="en"><div class="mw-diff-empty">(No difference)</div>
</td></tr></table>
Admin
http://sfsys.ru/index.php?title=IPConnection.IsConnected&diff=1269&oldid=prev
Admin at 07:21, 24 April 2020
2020-04-24T07:21:20Z
<p></p>
<p><b>New page</b></p><div>{{infobox function<br />
|name=IsConnected<br />
|object=[[Объект IP]]<br />
|caption=Статус соединения<br />
|type=1<br />
|status=2<br />
|db=0<br />
|visual=0}}<br />
{{HeadLinks|<br />
* [[Main_Page|Начальная страница]]<br />
* [[Общее_описание_языка|Общее описание]]<br />
* [[Объекты]]<br />
* [[Объект IP]]}}<br />
Функция возвращает единицу, если объект является TCP/IP сокетом и связь в данный момент установлена, иначе функция возвращает 0.<br />
<br />
== Синтаксис ==<br />
<code><br />
{{Grey|IPConnection.}}'''IsConnected'''():''<Установлена ли связь (INT)>''<br />
</code><br />
<br />
==== Возвращаемое значение ====<br />
Возвращается целое число.<br />
<br />
== Примеры ==<br />
<pre><br />
//Пример показывает, как можно осуществить загрузку веб-страницы по ее адресу.<br />
//Для загрузки по протоколу https требуется указание пути к библиотекам OpenSSL или LibreSSL.<br />
<br />
Function LoadPage(URL)<br />
bHTTPs:=pos("https://",Lowercase(URL));<br />
If pos("//",URL)>0 Then<br />
tearStr(URL,"//");<br />
EndIf;<br />
СтрДоб:=URL; <br />
URL:=tearStr(СтрДоб,"/");<br />
//URL может содержать название параграфа<br />
СтрДоб:=TearStr(СтрДоб,"#");<br />
For i:=1 to 3 Do<br />
if bHTTPs Then<br />
tcp:=IPConnection.Connect(URL+?(Pos(":",URL)+Pos("=",URL)=0,"=443"),1);<br />
Else<br />
tcp:=IPConnection.Connect(URL+?(Pos(":",URL)+Pos("=",URL)=0,"=80"));<br />
EndIf; <br />
if tcp.IsConnected Then<br />
Break;<br />
EndIf;<br />
EndDo;<br />
if not tcp.IsConnected Then<br />
Message("Could not connect: "+URL,"!");<br />
Exit;<br />
EndIf;<br />
СтрДоб:="/"+СтрДоб;<br />
if bHTTPs then<br />
//tcp.InitEncryption("LibreSSL","C:\LibreSSL255\libtls-15.dll");<br />
tcp.InitEncryption("OpenSSL","C:\OpenSSL111e\libssl-1_1.dll");<br />
endif; <br />
tcp.HTTPSetOperation("GET "+СтрДоб+" HTTP/1.0");<br />
tcp.HTTPSetHeaderField("Host",tcp.HTTPPunycodeEncode(URL));<br />
tcp.HTTPSetHeaderField("User-Agent","Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)");<br />
tcp.HTTPSetHeaderField("Accept","text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8");<br />
tcp.HTTPSetHeaderField("Accept-Language","en");<br />
tcp.HTTPSetHeaderField("Connection","Close");<br />
Стр:="";<br />
Try<br />
If tcp.HTTPSendAndReceive Then<br />
Стр:=tcp.HTTPBodyAsString;<br />
If _And(Pos(_NEWLINE,Стр)=0,Pos(Chr(10),Стр)>0) Then<br />
Стр:=Replace(Стр,Chr(10),_NEWLINE);<br />
EndIf;<br />
EndIf;<br />
Except<br />
Message("Could not load: "+URL,"!");<br />
EndTry; <br />
Exit Стр;<br />
EndFunction<br />
<br />
s:=LoadPage("https://en.wikipedia.org/wiki/Main_Page");<br />
Message(s);<br />
</pre></div>
Admin