Привет. Давно занимаюсь 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: Пользуемся тегами!