[Letnab]

Прошу помощи у Вас так как сам в программировании "ноль".
Хотелось бы написать программу для передачи текста php скрипту и отображение его на сайте.
В программе будет диалоговое окно для ввода текста и кнопка ОТПРАВИТЬ,после чего написанный текст передаётся скрипту и отображается на сайте
Есть немного кода программы

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

PHP код:

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

чего не хватает? и что бы Вы посоветовали.

[neutro]

Привет. Давно занимаюсь delphi/php поэтому вот решил помочь.
Сначала к коду php:

PHP код:

<? 
 $recieve = $_POST['recieve']; 
 $file = fopen("file.txt", "a+"); // сохраняем в файл file.txt всё что передала наша программа на Delphi 
 fwrite($file, $recievern); //здесь кавычек не нужно
 fclose($file); 
 ?>

Теперь что касается кода Delphi:
Есть два способа отправить данные из программы методом POST.
Один с помощью Tidmultipartformdata но не советую, т.к. он отправляет переменные по-особенному и иногда бывают проблемы с переводом в новую строку. Другой метод это tstringlist.

Код:

var idhttp:tidhttp; list:tstringlist; what:string;
begin
IdHTTP := TIdHTTP.Create(nil);
what:='текст'; //это то что должен получить скрипт
list:=tstringlist.create;
list.add('recieve='+what);
IdHTTP.POST('http://сайт.ru/file.php', list); // слово "текст" и будет передаваться нашему PHP скрипту
list.free;
IdHTTP.Free;
end;

Admin: Пользуемся тегами!

[Letnab]

neutro Спасибо Огромное за код! Всё работает!

[MrDron]

neutro, а собственно как получить обратно текст в Memo? Ну, например получить комментарии к этому тексту на сервере из *.txt ?