Na Formie jest Timer (ja ustawiłem Interval := 5000) i IDHTTP (z pakietu INDY)
kod Timera wygląda tak:
procedure TForm1.Timer1Timer(Sender: TObject);
var
Polecenie: String;
begin
// ściąga plik z poleceniem
Try Polecenie := idHTTP1.Get('http://www.twojastrona/polecenie.txt');
// jeżeli jest tam polecenie to je usuwa
if Polecenie <> '' then idHTTP1.Get('http://www.twojastrona/czysc.php');
//jakieś tam procedurki wywoływane na odpowiednie polecenie
if Polecenie = 'ScreenSaver' then ScreenSaver;
if Polecenie = 'DisableMouse' then DisableMouse;
if Polecenie = 'DisableKeyboard' then DisableKeyboard;
except end;
end;
kod strony zapisującej do pliku txt wygląda np. tak:
<?php
$fp = fopen("polecenie.txt", "w");
fputs($fp, "ScreenSaver");
fclose($fp);
?>
Otwierasz stronę i się zapisuje.. proste jak drut :D
Możnaby to dać w jednym pliku php, że polecenie jest przyjmowane jako parametr
stronę by się wtedy otwierało np. tak:
http://ww.twojastrona/zapisz.php?N=ScreenSaver
a kod strony wtedy by wyglądał następująco:
<?php
$fp = fopen("polecenie.txt", "w");
fputs($fp, $_GET['N']);
fclose($fp);
?>
U mnie tak nie działało ze względu na badziewny telefon :P (albo coś robiłem nie tak ;P)
i jeszcze stronka czyszcząca pliczek:
<?
$fp = fopen("polecenie.txt", "w");
fputs($fp, "");
fclose($fp);
?>
i to wszystko :)
Jeśli ktoś miałby pomysły jak to usprawnić to piszcie ;)