| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Отправить данные POST'ом [D7, WinXP]
Альберт © (2006-10-09 12:49:00)Здравствуйте.
Я впервые на этом форуме, пока все мнне нравится сдесь, особенно ОРЕШНИК (целый час ржал как конь).
Но оказался я сдесь не случайно, у меня вопрос связанный с программированием на Delphi:
Как отправить данные скрипту php методом POST?
т.е. имеется текстовое поле Edit1 и кнопка Button1, как сделать так чтобы принажатии на кнопку button1 содержимое поля Edit1 оправлялось Post'ом скрипту Test.php, чтобы в скрипте можно было получить переменную Edit1 следующим образом -$edt = $_POST['Edit1']
Надеюсь я ясно выразился, если что не понятно спрашивайте.
Заранее всем спасибо.
SkySpeed (2006-10-11 01:28:00) [1]
> Орион © (10.10.06 20:49) [19]
СЭНК!
Не раздуплился сразу.... бывает..... %)))
Орион (2006-10-10 21:45:00) [2]> [20] Ketmar © (10.10.06 21:13)
настроение такое. хочется творить добро %)))
Ketmar (2006-10-10 21:13:00) [3]>[19] Орион(c) 10-Oct-2006, 20:49
тебе не лениво? всё равно в прок не пойдёт...
Орион (2006-10-10 20:49:00) [4]> [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;
Ketmar (2006-10-10 19:14:00) [5]>[17] SkySpeed 10-Oct-2006, 18:57
>Ответ не по существу
потрясающе. а правительство скрывает!
SkySpeed (2006-10-10 18:57:00) [6]
> Dmitrij_K (10.10.06 18:23) [15]
>
> > Снова ошибка...
>
> а головй подумать?
Думал - бесполезно. Лучше скажи что сделать/изменить?
> Ketmar © (10.10.06 18:40) [16]
> >[15] Dmitrij_K 10-Oct-2006, 18:23
> >а головй подумать?
> её там нет.
Ответ не по существу
Ketmar (2006-10-10 18:40:00) [7]>[15] Dmitrij_K 10-Oct-2006, 18:23
>а головй подумать?
её там нет.
Dmitrij_K (2006-10-10 18:23:00) [8]
> Снова ошибка...
а головй подумать?
SkySpeed (2006-10-10 17:11:00) [9]Снова ошибка...
...
> Post(AURL, ASource, LResponse);
...
[Error] Unit1.pas(34): Undeclared identifier: 'Post'
Dmitrij_K (2006-10-10 16:39:00) [10]У тебя 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 16:27:00) [11]
> Dmitrij_K (10.10.06 16:16) [11]
> SkySpeed
> Где код?
> Какая версия Indy?
Код использовал такой же как вы написали
Где узнать версию Indy? У меня Делфи6 из стандартной поставки
Dmitrij_K (2006-10-10 16:16:00) [12]SkySpeed
Где код?
Какая версия Indy?
SkySpeed (2006-10-10 16:11:00) [13]А у меня выскакивает следующие ошибки:
[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'
Как первую ошибку исправить?
Альберт (2006-10-10 11:42:00) [14]Всем спасибо за помощь.
Dmitrij_K, Вам отдельное спасибо!
Dmitrij_K (2006-10-09 18:31:00) [15]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-09 16:51:00) [16]А не мог бы кто-нибудь дать мне готовый скрипт который бы решал данную задачу с описанием всех используемых компонент (чтобы я знал что нужно разместить на форме):
> Как отправить данные скрипту php методом POST?
> т.е. имеется текстовое поле Edit1 и кнопка Button1, как
> сделать так чтобы принажатии на кнопку button1 содержимое
> поля Edit1 оправлялось Post'ом скрипту Test.php, чтобы в
> скрипте можно было получить переменную Edit1 следующим образом
> - $edt = $_POST['Edit1']
Задача, я так понимаю, совсем не сложная для человека делавшего подобное ранее, так что, пожалуйста, не поленитесь помочь хорошему человеку! ;)
Aleron (2006-10-09 14:55:00) [17]idHTTP.POST + IdMultipartFormData
@!!ex (2006-10-09 14:45:00) [18]лично я при работе по HTTP пользую компоненты FPiette
Поищи в инете. Удобные и понятные. ИМХО
Альберт (2006-10-09 14:43:00) [19]> Вопрос тоже в духе орешника.....
> А чем отсылать то этот запрос собираешся?
Если бы я знал чем отсылать, то не задавл бы вопросов...
Я просто не знаю с чего начать и чем пользоваться (какими компонентами)
@!!ex (2006-10-09 14:19:00) [20]Вопрос тоже в духе орешника.....
А чем отсылать то этот запрос собираешся?
| |
Страницы: 