Здравствуйте. Встала необходимость передавать данные от сайта на компьютер. В голову пришла идея на делфи написать простенькую софтину, в которой будет tcp сервер, а со стороны сайта будет отправляться данные сокетом. Но что то идет не так, или я что то кардинально не то делаю. В делфи я кидаю компонент TcpServer, порт указываю 80, сразу же делаю его Active: true, и чтобы понимать что какие то данные все же сервер получил на событие TcpServer1Accept вешаю просто showmessage('hallo');
На стороне пхп я брал пример из php.net
$fp = stream_socket_client("tcp://128.75.114.10:80", $errno, $errstr, 30);
if (!$fp) {
echo "$errstr ($errno)<br />\n";
} else {
fwrite($fp, "GET / HTTP/1.0\r\nHost: www.example.com\r\nAccept: */*\r\n\r\n");
while (!feof($fp)) {
echo fgets($fp, 1024);
}
fclose($fp);
}
Но получал ошибку подключения. Где то нашел пример работы с сокетами еще один:
$sock = socket_create(AF_INET, SOCK_DGRAM, SOL_UDP);
$msg = "Пинг !";
$len = strlen($msg);
socket_sendto($sock, $msg, $len, 0, '128.75.114.10', 80);
socket_close($sock);
Так же тишина. Ошибок пхп не дает, приложение молчит.
Подскажите пожалуйста, что я делаю не так? На делфи последний раз кодил лет 7 назад, а на пхп ни разу не доводилось работать с сокетами...
Простой