Require localна
Require all grantedПосле чего подсоединяться к нему через своё айпи (возможно понадобится перенаправить порты).
Если же айпи меняется, то можно использовать какой-нибудь динамический DNS сервис, например:
https://www.dynu.com/DynamicDNS/IPUpdat … dowsClient
После установки клиента, он будет следить за всеми изменениями через заданный промежуток времени.
В директории xampp\htdocs создаем новую папку, например, test.
И туда пишем простейшую серверную часть index.php, типа:
<?php
$databaseFile = 'database.txt';
$data = file_get_contents($databaseFile);
$method = $_SERVER['REQUEST_METHOD'];
switch ($method) {
case ($method == 'GET'):
header('Content-Type: text/html; charset=utf-8');
echo $data;
break;
case ($method == 'POST'):
header('Content-Type: text/html; charset=utf-8');
$requestBody = file_get_contents('php://input');
$data .= $requestBody;
file_put_contents($databaseFile, $data);
echo "post";
break;
default:
http_response_code(404);
echo "404 error";
break;
}Создаем там же файл database.txt.
При методе GET сервер возвращает текст из database.txt.
При методе POST сервер добавляет данные из запроса в database.txt.
При необходимости можно использовать json - в php с этим без проблем.
Интересный момент, что при посылании POST запроса на сервер с ссылкой типа: "htpp://123.45.67.89:8081/test", где 8081 - это порт, который я перенаправил в роутере, то сервер получает не POST, а GET.
Проблема решается добавлением слеша в конец ссылки: "htpp://123.45.67.89:8081/test/".
Меня устраивало получение данных от сервера через polling, но при необходимости можно прикрутить и websockets api.
Пример GET запроса:
HTTP := ComObjCreate("WinHTTP.WinHTTPRequest.5.1")
HTTP.Open("GET", "htpp://123.45.67.89:8081/test/", true)
HTTP.SetRequestHeader("User-Agent", "Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/124.0.0.0 Safari/537.36")
HTTP.SetRequestHeader("Pragma", "no-cache")
HTTP.SetRequestHeader("Cache-Control", "no-cache, no-store")
HTTP.SetRequestHeader("If-Modified-Since", "Sat, 1 Jan 2000 00:00:00 GMT")
HTTP.Send()
HTTP.WaitForResponse()
msgbox % HTTP.ResponseTextПример POST запроса:
HTTP := ComObjCreate("WinHTTP.WinHTTPRequest.5.1")
HTTP.Open("POST", "htpp://123.45.67.89:8081/test/", true)
HTTP.SetRequestHeader("User-Agent", "Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/124.0.0.0 Safari/537.36")
HTTP.SetRequestHeader("Pragma", "no-cache")
HTTP.SetRequestHeader("Cache-Control", "no-cache, no-store")
HTTP.SetRequestHeader("If-Modified-Since", "Sat, 1 Jan 2000 00:00:00 GMT")
HTTP..SetRequestHeader("Content-Type", "application/x-www-form-urlencoded")
HTTP.Send("some data")
HTTP.WaitForResponse()
msgbox % HTTP.ResponseText