Реализация задачи.

← →
AntonXP (2006-05-23 18:45) [0]

Нужно сделать следующее приложение.

Окошко
Поле для ввода
Кнопка

Нужно сделать так что бы по нажатию кнопки приложение отправляло информацию, записанную в поле для ввода на определенные сервер в текстовый фаил, тоесть на стороне сервера должен быть еще и скрипт.

Кто нить может помочь. Как прописать кнопке отправку информации на скрипт.

← →
Джо © (2006-05-23 19:07) [1]

Use WinInet functions. Or may you would prefer Indy components.

← →
Джо © (2006-05-23 19:08) [2]

Ой, блин, заработался, пора отдохнуть. В общем, наверное, понятно.

← →
АнтонХР (2006-05-23 19:23) [3]

Готовых подобных решений вы не видели?

← →
Zeqfreed © (2006-05-23 19:41) [4]

There is a good article about HTTP requests (see the link below). It can be quite useful, I suppose.
http://www.codenet.ru/webmast/php/HTTP-POST.php

%)

← →
Джо © (2006-05-23 19:46) [5]

> [3] АнтонХР (23.05.06 19:23)
> Готовых подобных решений вы не видели?

Какие такие готовые решения, что Вы? Так, пару строк:

uses IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdHTTP; ... procedure TForm23.Button1Click(Sender: TObject); var IdHttp: TIdHTTP; begin IdHttp := TIdHTTP.Create(nil); try IdHttp.Post("http://www.yandex.ru/yandsearch?type=www&text=ABC",TStrings(nil)); finally IdHttp.Free; end; end;
Из пушки по воробьям, однако же, сойдет ;)

← →
АнтонХР (2006-05-23 21:25) [6]

Написано о запросах НТТП только со стороны клиента, а вот со стороны сервера?
Как написать скрипт что бы принимал параметр privet

> [6] АнтонХР (23.05.06 21:25)
> Написано о запросах НТТП только со стороны клиента, а вот
> со стороны сервера?
> Как написать скрипт что бы принимал параметр privet

А это уже на форум, посвященный скриптовым языкам для Веба. Например, PHP.

← →
АнтонХР (2006-05-23 21:44) [8]

Спасибо большое всем за потдержку.
Всех благ.

← →
АнтонХР (2006-05-24 14:48) [9]

Все! Реализовал скрипт. Кнопка. Понял принцип работы. Спасибо всем.
Только еще один вопрос... :(

__
procedure TForm23.Button1Click(Sender: TObject);
var
IdHttp: TIdHTTP;
begin
IdHttp := TIdHTTP.Create(nil);
try
IdHttp.Post("http://www.yandex.ru/yandsearch?type=www&text=ABC",TStrings(nil));
finally
IdHttp.Free;
end;
end;
__

Если к параметру text - ABC задаеться тем что написано в форме edit1.text
Как правильно написать?
Вопрос синтаксиса...

Реализация задачи. Найти похожие ветки