Отправить данные POST ом

← →
Альберт (2006-10-09 12:49) [0]

Здравствуйте.
Я впервые на этом форуме, пока все мнне нравится сдесь, особенно ОРЕШНИК (целый час ржал как конь).
Но оказался я сдесь не случайно, у меня вопрос связанный с программированием на Delphi:
Как отправить данные скрипту php методом POST?
т.е. имеется текстовое поле Edit1 и кнопка Button1, как сделать так чтобы принажатии на кнопку button1 содержимое поля Edit1 оправлялось Post"ом скрипту Test.php, чтобы в скрипте можно было получить переменную Edit1 следующим образом - $edt = $_POST["Edit1"]

Надеюсь я ясно выразился, если что не понятно спрашивайте.
Заранее всем спасибо.

← →
Плохиш © (2006-10-09 13:15) [1]

TidHttp.Post + F1

← →
Dmitrij_K (2006-10-09 13:23) [2]

Раздел Сети
поиск по слову Post

← →
@!!ex © (2006-10-09 14:19) [3]

Вопрос тоже в духе орешника.....
А чем отсылать то этот запрос собираешся?

← →
Альберт (2006-10-09 14:43) [4]

> Вопрос тоже в духе орешника.....
> А чем отсылать то этот запрос собираешся?

Если бы я знал чем отсылать, то не задавл бы вопросов...
Я просто не знаю с чего начать и чем пользоваться (какими компонентами)

← →
@!!ex © (2006-10-09 14:45) [5]

лично я при работе по HTTP пользую компоненты FPiette
Поищи в инете. Удобные и понятные. ИМХО

← →
Aleron (2006-10-09 14:55) [6]

idHTTP.POST + IdMultipartFormData

← →
Альберт (2006-10-09 16:51) [7]

А не мог бы кто-нибудь дать мне готовый скрипт который бы решал данную задачу с описанием всех используемых компонент (чтобы я знал что нужно разместить на форме):

> Как отправить данные скрипту php методом POST?
> т.е. имеется текстовое поле Edit1 и кнопка Button1, как
> сделать так чтобы принажатии на кнопку button1 содержимое
> поля Edit1 оправлялось Post"ом скрипту Test.php, чтобы в
> скрипте можно было получить переменную Edit1 следующим образом
> - $edt = $_POST["Edit1"]

Задача, я так понимаю, совсем не сложная для человека делавшего подобное ранее, так что, пожалуйста, не поленитесь помочь хорошему человеку! ;)

← →
Dmitrij_K (2006-10-09 18:31) [8]

Delphi
procedure TForm1.Button1Click(Sender: TObject);
var sl : TStringList;
begin
sl := TStringList.Create;
sl.Add("field="+Edit1.Text);
try
ShowMessage(IdHTTP1.Post("http://127.0.0.1/test_post.php", sl))
finally
sl.Free
end;
end;
PHP
<?php
echo $_POST["field"];
?>

← →
Альберт (2006-10-10 11:42) [9]

Всем спасибо за помощь.
Dmitrij_K, Вам отдельное спасибо!

← →
SkySpeed (2006-10-10 16:11) [10]

А у меня выскакивает следующие ошибки:

[Error] Unit1.pas(36): There is no overloaded version of "Post" that can be called with these arguments [Fatal Error] Project1.dpr(5): Could not compile used unit "Unit1.pas"

Как первую ошибку исправить?

← →
Dmitrij_K (2006-10-10 16:16) [11]

SkySpeed
Где код?
Какая версия Indy?

← →
SkySpeed (2006-10-10 16:27) [12]

> Dmitrij_K (10.10.06 16:16) [11]
> SkySpeed
> Где код?
> Какая версия Indy?

Код использовал такой же как вы написали

Где узнать версию Indy? У меня Делфи6 из стандартной поставки

← →
Dmitrij_K (2006-10-10 16:39) [13]

У тебя Indy 8 или 7
Используй такую промежуточную функцию, из Indy9 вырезал
function Post_(AURL: string; const ASource: TStrings): string; var LResponse: TStringStream; begin LResponse := TStringStream.Create(""); try Post(AURL, ASource, LResponse); finally result := LResponse.DataString; LResponse.Free; end; end;

← →
SkySpeed (2006-10-10 17:11) [14]

Снова ошибка...

...
> Post(AURL, ASource, LResponse);
...

[Error] Unit1.pas(34): Undeclared identifier: "Post"

← →
Dmitrij_K (2006-10-10 18:23) [15]

> Снова ошибка...

а головй подумать?

>[15] Dmitrij_K 10-Oct-2006, 18:23
>а головй подумать?
её там нет.

← →
SkySpeed (2006-10-10 18:57) [17]

> Dmitrij_K (10.10.06 18:23) [15]
>
> > Снова ошибка...
>
> а головй подумать?

Думал - бесполезно. Лучше скажи что сделать/изменить?

> Ketmar © (10.10.06 18:40) [16]
> >[15] Dmitrij_K 10-Oct-2006, 18:23
> >а головй подумать?
> её там нет.

Ответ не по существу

>[17] SkySpeed 10-Oct-2006, 18:57
>Ответ не по существу
потрясающе. а правительство скрывает!

> [17] SkySpeed (10.10.06 18:57)
> Думал - бесполезно. Лучше скажи что сделать/изменить?

нда...

function DoPost(AURL: string; const ASource: TStrings): string; var LResponse: TStringStream; begin LResponse := TStringStream.Create(""); try IdHTTP1.Post(AURL, ASource, LResponse); finally result := LResponse.DataString; LResponse.Free; end; end;

>[19] Орион(c) 10-Oct-2006, 20:49
тебе не лениво? всё равно в прок не пойдёт...

← →
SkySpeed (2006-10-11 01:28) [22]

Отправить данные POST ом Найти похожие ветки