Delphi & php

[Ru_Coder]

Здравствуйте..

Помогите средствами Delphi подключиться к php скрипту и ждать от него ответа.
Если точней то мне нужно постоянно держать связь со скриптом.. (Отправить ему команду и ждать ответа,после этого не отключаться.)

[ganselo]

php скрипт как работает? на нём серверная часть работает или что?
Если да, то TClientSocket и в php скрипте установить set_time_limit 0.

[Ru_Coder]

Опишу подробней...

Я пишу что то типа мини чата.. На сайте есть скрипты которые это обрабатывают.
Скрипт который принимает сообщения есть,скрипт который отсылает программе нет.

У меня есть знакомый он напишет скрипт,мне бы примерчик если можно.
Что бы посмотреть что как работает. Я искал,люди на форума точно такие же вопросы задают и на них даже не отвечают.

Спасибо.

[ganselo]

Скрипт который принимает сообщения есть »
Сообщения где хранятся? в базе данных? mysql?

скрипт который отсылает программе нет. »
Что он должен отсылать? сообщения из чата?

[Ru_Coder]

Первый скрипт сохраняет текст в файл. (Его переделают что бы он держал текст в себе - Запоминал.)

Второй скрипт будет обращаться к первому.. Напишут так:

Жмем в программе кнопку,скрипту на сайт отправляет текст из edit
(Сообщение которое должно отобразиться в чате.)
Второй скрипт постоянно будет брать текст у первого и передавать его нашей программе.

Получается,примерно так:

Мы заходим в чет под своим логином (Через программу.)
Наша программа сразу же должна подключиться к скрипту и не отключаться.
Жмем кнопку выход и соединение обрывается. (Закрывается.)

Скрипт мне напишут,мне бы пример как сделать так что бы программа все время просила текст у скрипта. (Не через таймер.)

(Скрипт у нас выполняет функцию маленького сервера.)

Ну вы представляете чат,люди пишут сообщение и оно сразу отображеться у всех. (Так же хочу сделать и я.)
Писать сервер для Linux я не могу,да и стоит он дорого.

Пример скрипта который будет принимать текст:

<?php
$recieve = $_GET['recieve'];
$file = fopen("file.log", "a+"); // сохраняем в файл file.log всё что передала наша программа на Delphi
fwrite($file, "$recieve\r\n");
fclose($file);
?>


И вот так мы его будем передавать скрипту:

IdHTTP := TIdHTTP.Create(nil);
IdHTTP.Get('http://сайт.ru/file.php?recieve=текст'); // слово "текст" и будет передаваться нашему PHP скрипту
IdHTTP.Free;

Мне нужен такой же скрипт только противоположный этому.
(Этот скрипт и код я взял с поиска,на сайте был пример.)