Форум по программированию Delphi Sources

 



Вернуться   Форум по программированию Delphi Sources > Общие вопросы > WEB-Программирование
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 19.01.2019, 13:03
Alex7 Alex7 вне форума
Прохожий
 
Регистрация: 18.09.2018
Сообщения: 17
Версия 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";
?>

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

Последний раз редактировалось Alex7, 19.01.2019 в 15:11. Причина: Дополнение
Ответить с цитированием
Ответ



Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 12:16.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources", 2004-2019

ВКонтакте   Facebook   Twitter