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;