Создай на хостинге с поддержкой PHP документ.
Назови его например index.php , и впиши в него вот этот код :
<?
$all_versions = array( // массив со всеми версиями программы.
0 => '1.0.0',
1 => '1.0.1',
2 => '1.0.2',
3 => '1.0.3',
4 => '1.0.4',
5 => '1.0.5'
);
$client_version = isset($_GET['version']) ? $_GET['version'] : $all_versions[0];
if($client_version != $all_versions[sizeof($all_versions)-1])
{
echo 'Necessary upgrade.';
} else {
echo 'Upgrade does not need.';
}
?>
запомни к нему адрес.
А обращаться из MP к серверу очень просто.
Только вот в библиотеке lib_web от pilgrim'a непонятно почему метод web.get_response ничего не возвращает..
вот код.
program internet;
uses web;
var connection : integer;
VERSION, resultat : string;
begin
VERSION := '1.0.0';
connection := web.open('http://localhost/index.php?version=' + VERSION);
web.set_method('GET');
web.set_property('Host', 'localhost');
web.set_property('Accept', 'text/html');
web.set_property('Accept-Charset', 'UTF-8');
web.set_property('Accept-Encoding', 'deflate');
web.set_property('Accept-Language', 'ru');
web.set_property('User-Agent', 'MP Browser');
if web.send = 200 then
begin
if web.get_response = 'Necessary upgrade.' then
begin
DrawText('Обновление',0,0);
repaint;
delay(5000);
end;
else
begin
DrawText('Всё ок',0,0);
repaint;
delay(5000);
end;
end;
else
begin
DrawText('Ошибка сервера.',0,0);
repaint;
delay(5000);
end;
web.close;
end.