|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
отправка данных из программы
Прошу помощи у Вас так как сам в программировании "ноль".
Хотелось бы написать программу для передачи текста php скрипту и отображение его на сайте. В программе будет диалоговое окно для ввода текста и кнопка ОТПРАВИТЬ,после чего написанный текст передаётся скрипту и отображается на сайте Есть немного кода программы IdHTTP := TIdHTTP.Create(nil); IdHTTP.POST('http://сайт.ru/file.php'); // слово "текст" и будет передаваться нашему PHP скрипту IdHTTP.Free; а вот php скрипт PHP код:
|
#2
|
|||
|
|||
Привет. Давно занимаюсь delphi/php поэтому вот решил помочь.
Сначала к коду php: PHP код:
Теперь что касается кода 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, 25.07.2010 в 16:52. |
#3
|
|||
|
|||
neutro Спасибо Огромное за код! Всё работает!
|
#4
|
|||
|
|||
neutro, а собственно как получить обратно текст в Memo? Ну, например получить комментарии к этому тексту на сервере из *.txt ?
|