Показать сообщение отдельно
  #1  
Старый 19.01.2019, 13:03
Alex7 Alex7 вне форума
Новичок
 
Регистрация: 18.09.2018
Сообщения: 58
Версия Delphi: Delphi 7
Репутация: 10
По умолчанию Запрос по протоколу tcp php

Подскажите как соединится с сервером по протоколу tcp и отправить команду скриптом PHP?


PHP код:
<?php
error_reporting
(E_ALL);

echo 
"<h2>Соединение TCP/IP</h2>\n";

/* Получаем порт сервиса WWW. */
$service_port getservbyname('www''tcp');

/* Получаем IP-адрес целевого хоста. */
$address gethostbyname('www.example.com');

/* Создаём сокет TCP/IP. */
$socket socket_create(AF_INETSOCK_STREAMSOL_TCP);
if (
$socket === false) {
    echo 
"Не удалось выполнить socket_create(): причина: " socket_strerror(socket_last_error()) . "\n";
} else {
    echo 
"OK.\n";
}

echo 
"Пытаемся соединиться с '$address' на порту '$service_port'...";
$result socket_connect($socket$address$service_port);
if (
$result === false) {
    echo 
"Не удалось выполнить socket_connect().\nПричина: ($result) " socket_strerror(socket_last_error($socket)) . "\n";
} else {
    echo 
"OK.\n";
}

$in "HEAD / HTTP/1.1\r\n";
$in .= "Host: www.example.com\r\n";
$in .= "Connection: Close\r\n\r\n";
$out '';

echo 
"Отправляем HTTP-запрос HEAD...";
socket_write($socket$instrlen($in));
echo 
"OK.\n";

echo 
"Читаем ответ:\n\n";
while (
$out socket_read($socket2048)) {
    echo 
$out;
}

echo 
"Закрываем сокет...";
socket_close($socket);
echo 
"OK.\n\n";
?>

Как добавить сюда команду?
Ответить с цитированием