Difference between revisions of "IPConnection.SendCmd"
m (1 revision imported) |
|
(No difference)
| |
Latest revision as of 07:51, 7 February 2021
| SendCmd (Обмен данными) | |||||||||||||
|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
| |||||||||||||
TCP/IP функция отсылает 4 байта информации по установленному соединению. Информация задается в виде ANSI-строки. Функцию можно использовать как для блокирующих, так и для не блокирующих соединений. Если строка имеет размер больше 4 символов, будут отосланы только первые 4 символа, если строка имеет размер меньше 4 символов, вместо недостающих символов будут использованы пробелы (chr(32)). Если соединение будет разорвано до успешной отправки данных, функция вызовет исключение.
Синтаксис
IPConnection.SendCmd(<4 буквенная команда (STRING)>)
Аргументы
<4 буквенная команда (STRING)>- Строка для отсылки, содержащая по крайней мере 4 символа.
Примеры
//Пример соединения USR1
Сокет:=IPConnection.ConnectUSR1("127.0.0.1:13777");
If not Сокет.isConnected() Then
Message("Сервер не отвечает","!");
Exit 0;
EndIf;
СтрОшибка:="";
Try
СтрОшибка:="Сервер не принял режим USR1 (1)!";
Сокет.SendCmd("USR1");
Комм:=Сокет.ReceiveCmd();
If Комм="BUSY" Then
Message("Сервер занят!","!");
Exit 0;
EndIf;
If Комм<>"OK " Then
Message("Сервер не принял режим USR1 (2)!","!");
Exit 0;
EndIf;
СтрОшибка:="Ошибка при обмене!";
Сокет.SendStr("Hello, this is client!");
//Отсылка текстового файла C:\file.txt
Сокет.SendCmd("RECV");
Сокет.SendFile("C:\file.txt",1);
//Окончание обмена файлами
Сокет.SendCmd("FNSH");
Комм:=Сокет.ReceiveCmd();
If Комм<>"OK " Then
Exit 0;
EndIf;
Стр:="Любая информация для обмена";
Сокет.SendStr(Стр,1);
Сокет.ReceiveStr(Стр,1);
Message("Сервер прислал информацию: "+Стр);
//Далее следует обмен любой другой информацией
Except
If СтрОшибка<>"" Then
Message(СтрОшибка,"!");
Else
Message(PopError(),"!");
EndIf;
Exit 0;
EndTry;